Game

@echo off
echo \---------------------------------------------------\
echo  \    PokeBatch - The Pokemon experience in Batch    \
echo   \---------------------------------------------------\
pause

cls
echo Prof. Oak approaches
echo Prof. Oak: Hi. My name is Prof. Oak.
echo Prof. Oak: Welcome to the wonderful world of Pokemon!
pause

:choosename
cls
echo Prof. Oak: It seems I don't remember your name. What is it?
set /p name=
pause
if '%name%' == '' goto choosename

cls
echo Hi %name%! It's nice seeing you again
pause

::girlorboy
::cls
::echo %name%, Are you a boy or a girl?
::echo (Enter 'boy', or 'girl')
::set /p gender=
::pause
::if '%gender%'=='boy' goto skip
::if '%gender%'=='girl' goto skip
::goto girlorboy
::skip

::cls
::echo Prof. Oak: Aah.. so you are a %gender%
::pause

cls
echo Prof. Oak: So %name% what are you waiting for? Choose your pokemon.
pause

set starter='Bulbasaur'

cls
echo \---------------------------------------------------\
echo  \                  Bulbasaur (Lvl 4)                \
echo   \---------------------------------------------------\

echo Prof. Oak: Do you want to pick Bulbasaur?
echo Enter y to choose Bulbasaur
pause
set /p yno=

if '%yno%' == 'y' (
    set starter=Bulbasaur
    goto chosen
)

cls
echo \---------------------------------------------------\
echo  \                  Squirtle (Lvl 4)                 \
echo   \---------------------------------------------------\

echo Prof. Oak: Do you want to pick Squirtle?
echo Enter y to choose Squirtle
pause
set /p yno=

if '%yno%' == 'y' (
    set starter=Squirtle
    goto chosen
)

cls
echo \---------------------------------------------------\
echo  \                 Charmandar (Lvl 4)                \
echo   \---------------------------------------------------\

echo Prof. Oak: Do you want to pick Charmandar?
echo Enter y to choose Charmandar
pause
set /p yno=

if '%yno%' == 'y' (
    set starter=Charmandar
    goto chosen
)

cls
echo Prof. Oak: Or.. wait.. there is one more.
pause

cls
echo \---------------------------------------------------\
echo  \                   Pikachu (Lvl 4)                 \
echo   \---------------------------------------------------\
echo Prof. Oak: Do you want to pick Pikachu?
echo Be careful this pokemon is very energetic.
echo Enter y to choose Pikachu
pause
set /p yno=

if '%yno%' == 'y' (
    set starter=Pikachu
    goto chosen
)

:chosen
cls
echo Prof. Oak: Congrats! From here on you are now a pokemon trainer!
echo Here, take this with you.
echo (Pokegear received)
echo Prof. Oak: This will help you along the way.
pause

cls
echo Prof. Oak: Now your journey begins with %starter%
echo Prof. Oak: Collect gym badges and compete in the Pokemon League.
echo Prof. Oak: Good luck!
pause

:start
set starter-lvl=4
set starter-hp=20
set starter-att=2
set starter-def=2
set starter-spd=2
set starter-spatt=2
set starter-spdef=2
set mom=0
set fstone=0
set rwing=0
set leaguecup=0

::Maribou town
::Rienna city
::Vicarian city
::Aminos city

:city1
::Maribou town
cls
echo You are in Maribou town
echo Enter option number to pick an option (1,2,3,4)
echo 1) Go to your home
echo 2) Go to Pokemon Center
echo 3) Go to Pokemon Lab
echo 4) Go to tall grass to exit Maribou town
pause
set /p city1option=

if '%city1option%' == '1' goto city1-1
if '%city1option%' == '2' goto city1-2
if '%city1option%' == '3' goto city1-3
if '%city1option%' == '4' goto city1-4

:city1-1
cls
echo \---------------------------------------------------\
echo  \                         Home                      \
echo   \---------------------------------------------------\
echo      __!!_______________
echo     /  !!             /\\
echo    /  /__\           /  \\
echo   /_________________/    \\
echo   !                !  /\  !
echo   !                ! /  \ !
echo   !________________! !  ! !
echo.
echo You are inside your home
echo Enter option number to pick an option (1,2,3)
echo 1) Talk to your Mom
echo 2) Eat food and take rest
echo 3) Go back to town
pause

set /p city1-1option=

if '%city1-1option%' == '1' goto city1-1-1
if '%city1-1option%' == '2' goto city1-1-2
if '%city1-1option%' == '3' goto city1

:city1-1-1
cls
if '%mom%' == '0' (
    echo Mom: %name%! I hate you and your unknown father.
    echo Mom: Go wander around the world on foot for years and never come back!
    echo Mom: But first take these running shoes.
    echo Mom: These won't have any effect in PokeBatch but I'm just giving it so you don't complain.
    set mom=1
    pause
    goto city1-1
)
if '%mom%' == '1' (
    echo Mom: What's the matter? Did you bring something for me?
    echo Mom: No? Get the hell out of my house then! :D
    pause
    goto city1-1
)
if '%mom%' == '2' (
    echo Mom: What's the matter? Did you bring something for me?
    echo Mom: Ooooh! That's a HUGE diamond! I almost love you! :)
    echo (Handed over the diamond)
    echo Mom: Here, take this fire stone from your father's collection.
    echo (Received Fire stone)
    set fstone=1
    set mom=3
    pause
    goto city1-1
)
if '%mom%' == '3' (
    echo Mom: Yay! Did you bring something else for me?
    echo Mom: No? Oh well, guess I still hate you. :)
    pause
    goto city1-1
)
if '%mom%' == '4' (
    echo Mom: Well? What is it? A surprise you say?
    echo (Hands over the Jade necklace)
    echo Mom: OMG! O_O I love it!!
    echo Mom: You deserve this Rainbow Wing
    echo (Received Rainbow Wing)
    set rwing=1
    set mom=5
    echo Mom: Let me quote your father.
    echo "Only a true Pokemon Champion can make use of this Rainbow Wing."
    echo "The legendary Ho-Oh will appear before only him who is pure of heart and has a strong will."
    echo "He must go to the Bell Tower in Vicarian city at once."
    echo "But there is one thing you should kno... "
    echo Mom: And the rest is unreadable. Your crazy father and his ramblings about some legendary pokemon.
    pause
    goto city1-1
)
if '%mom%' == '5' (
    echo Mom: You know what? You aren't that bad :)
    pause
    goto city1-1
)
if '%mom%' == '6' (
    echo Mom: What the.. Is that a Ho-Oh? :O
    echo Mom: That means your father wasn't a loser!
    pause
    goto city1-1
)

:city1-1-2
cls
echo You ate lots of delicious food.. OM NOM NOM NOM
echo You are feeling sleepy. What was in the food?!
echo You wake up 12 hours later. Your %starter% has recovered his HP.
set /a starter-hp=10*%starter-lvl%
pause
goto :city1-1

:city1-2
cls
echo \---------------------------------------------------\
echo  \                   Pokemon Center                  \
echo   \---------------------------------------------------\
echo.
echo     ___________________
echo    /___________________\
echo    !       //_\\       !
echo    !_______\\_//_______!
echo    !     !  ___  !     !
echo    !     ! !   ! !     !
echo    !_____! !___! !_____!
echo.
echo You are inside the Pokemon Center
echo Enter option number to pick an option (1,2,3)
echo 1) Get your pokemon healed by Nurse Joy
echo 2) Get other services from Nurse Joy ;)
echo 3) Go back to town
pause

set /p city1-2option=

if '%city1-2option%' == '1' goto city1-2-1
if '%city1-2option%' == '2' goto city1-2-2
if '%city1-2option%' == '3' goto city1

:city1-2-1
cls
echo Nurse Joy: My my, your %starter% doesn't look very good
echo Nurse Joy: Here let me fix him with my love!
echo Your %starter% is blushed red
echo Nurse Joy: Here you go better than ever.
echo %starter%: %STARTER%!
echo Your %starter% has recovered his HP.
set /a starter-hp=10*%starter-lvl%
pause
goto city1-2

:city1-2-2
cls
echo %name%: Hey Joy, how about you show me your "Pokemons" ;)
if '%leaguecup%' == '0' (
echo Nurse Joy: I don't think you are trained enough to handle them kid.
echo Nurse Joy: Buzz off like a Beedrill before I doublekick you!
echo You run away to town hiding your face.
)
if '%leaguecup%' == '1' (
:: ;)
)
pause
goto city1

:city1-3
cls
echo \---------------------------------------------------\
echo  \                     Pokemon Lab                   \
echo   \---------------------------------------------------\
echo.
echo           _______
echo        .           .
echo     /      //_\\      \
echo    !_______\\ //_______!
echo    /___________________\
echo    !     !  ___  !     !
echo    !     ! /   \ !     !
echo    !_____! !___! !_____!
echo.
echo You are inside the Pokemon Lab
echo Enter option number to pick an option (1,2)
echo 1) Talk to Professor Oak
echo 2) Go back to town
pause

set /p city1-2option=

if '%city1-2option%' == '1' goto city1-3-1
if '%city1-2option%' == '2' goto city1

:city1-3-1
cls
echo Prof Oak: Oh hi %name% I am a little busy right now.
echo Prof Oak: Come back after you've won a gym batch.
pause
goto city1

:city1-4
cls
echo \---------------------------------------------------\
echo  \                     Tall grass                    \
echo   \---------------------------------------------------\
echo.
echo    )\  )\ )\ )\ /(  (\ )\  )\  )\  /( /( )\  (\ (\ /)  )\
echo    /( /( )\  (\ (\ /)  )\  )\  )\ )\ )\ /(  (\ )\  )\  )\
echo    )\  (\ (\ /)  )\ (\ )\  )\  )\  /( /( )\ )\ )\ )\ /(  (\
echo.
echo You stepped out of Maribou town.
echo Since your town is very small you can already see Rienna city.
echo Rienna city is famous for their berries and grass pokemon.
echo.
echo You are walking on tall grass
echo Something is inside the grass

setlocal ENABLEDELAYEDEXPANSION
set /a r=%random% %%!3 +1
::Caterpie Oddish Rattata Cubone
if '%r%' == '0' (
    set wildpkmn=Caterpie
    goto wildpokemon
)
if '%r%' == '1' (
    set wildpkmn=Oddish
    goto wildpokemon
)
if '%r%' == '2' (
    set wildpkmn=Rattata
    goto wildpokemon
)
if '%r%' == '3' (
    set wildpkmn=Cubone
    goto wildpokemon
)
:wildpokemon
echo A wild %wildpkmn% has appeared
echo.
echo %wildpkmn%: %wildpkmn%
set wildpkmn-lvl=2
set wildpkmn-hp=10
set wildpkmn-hp=20
set wildpkmn-att=2
set wildpkmn-def=2
set wildpkmn-spd=2
set wildpkmn-spatt=2
set wildpkmn-spdef=2
echo.
echo %name%: Go %starter% I choose you!
echo %starter%: %starter%
pause

:wildpokemon-battle
cls
echo \---------------------------------------------------\
echo  \                 %wildpkmn% (Lvl %wildpkmn-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: %wildpkmn-hp%
echo.
echo.
echo \---------------------------------------------------\
echo  \                 %starter% (Lvl %starter-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: %starter-hp%
echo.
echo.
echo What do you want to do?
echo.
echo Enter option number to pick an option (1,2)
echo 1) Tackle Attack
echo 2) Bite
echo 3) [Run]

set /p wildpkmn-atk=
pause

set /a critical=%random% %%!1 +1

if '%wildpkmn-atk%' == '1' set impact-wildpkmn=((2*%wildpkmn-att%)/2)*(%critical%+1)
if '%wildpkmn-atk%' == '2' set impact-wildpkmn=((3*%wildpkmn-att%)/2)*(%critical%+1)

cls
echo \---------------------------------------------------\
echo  \                 %wildpkmn% (Lvl %wildpkmn-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: %wildpkmn-hp%

set wildpkmn-hp=%wildpkmn-hp%-(%impact-wildpkmn%-%wildpkmn-def%)

if '%critical%' == '0' echo %wildpkmn% lost %impact-wildpkmn% HP
if '%critical%' == '1' (
    echo Critical Hit!
    echo %wildpkmn% lost %impact-wildpkmn% HP
)

echo HP: %wildpkmn-hp%
echo.
if %wildpkmn-hp% <=0 goto wild-1-victory

echo \---------------------------------------------------\
echo  \                 %starter% (Lvl %starter-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: %starter-hp%
echo.
echo.

set /a wildpkmn-hit=%random% %%!1 +1
set /a critical=%random% %%!1 +1

if '%wildpkmn-hit%' == '0' set impact-starter=((2*%starter-att%)/2)*(%critical%+1)
if '%wildpkmn-hit%' == '1' set impact-starter=((3*%starter-att%)/2)*(%critical%+1)
set starter-hp=%starter-hp%-(%impact-starter%-%starter-def%)

if '%critical%' == '0' echo %starter% lost %impact-starter% HP
if '%critical%' == '1' (
    echo Critical Hit!
    echo %starter% lost %impact-starter% HP
)

echo HP: %starter-hp%
echo.
echo.

if %starter-hp% <=0 goto gameover

goto wildpokemon-battle

:wild-1-victory
cls
echo \---------------------------------------------------\
echo  \                 %wildpkmn% (Lvl %wildpkmn-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: 0
echo.
echo.
echo \---------------------------------------------------\
echo  \                 %starter% (Lvl %starter-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: %starter-hp%
echo.
echo.
echo %wildpkmn% has fainted
echo.
echo %starter% gained 100 experience points
set /a starter-lvl=%starter-lvl%+1
set /a starter-hp=10*%starter-lvl%
set /a starter-att=%starter-att%+1
set /a starter-def=%starter-def%+1
set /a starter-spd=10*%starter-spd%+1
set /a starter-spatt=10*%starter-spatt%+1
set /a starter-spdef=10*%starter-spdef%+1

echo %starter% reached Level %starter-lvl%
echo %starter%'s HP increased to %starter-hp%
echo %starter%'s Attack increased to %starter-att%
echo %starter%'s Defense increased to %starter-def%
echo %starter%'s Speed increased to %starter-spd%
echo %starter%'s Sp.Attack increased to %starter-spatt%
echo %starter%'s Sp.Defense increased to %starter-spdef%
pause
goto city-2

:gameover
cls
echo \---------------------------------------------------\
echo  \                 %wildpkmn% (Lvl %wildpkmn-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: %wildpkmn-hp%
echo.
echo.
echo \---------------------------------------------------\
echo  \                 %starter% (Lvl %starter-lvl%)                \
echo   \---------------------------------------------------\
echo.
echo HP: 0
echo.
echo.
echo %starter% has fainted
echo You don't have any more Pokemon
echo %name% runs away to Maribou town to his home.
goto start

:city-2
::Rienna city
cls
echo You are in Rienna city
echo Enter option number to pick an option (1,2,3,4)
echo 1) Talk to the camper
echo 2) Go near the fountain
echo 3) Go to the crossroads
echo 4) Go to Pokemon center
pause
set /p city2option=

if '%city2option%' == '1' goto city2-1
if '%city2option%' == '2' goto city2-2
if '%city2option%' == '3' goto city2-3
if '%city2option%' == '4' goto city2-4
Comments
VegaNovus
Sonora
Feb 17, 2014
VegaNovus
Education, 251-500 Employees
I love you. This is amazing. Like seriously, omg, wow. The comment made me have 10 words otherwise this would just say "I love you"
Marmatee
Tabasco
Aug 18, 2014
Marmatee
It Service Provider, 101-250 Employees
My god this is amazing. Played for 5 seconds in cmd prompt. It's basically Pokémon Red in text form. Why didn't I know about this sooner!!
Marmatee
Tabasco
Aug 18, 2014
Marmatee
It Service Provider, 101-250 Employees
Oh no! When the wild Oddish appears, I do an attack and it crashes and I lose the game =[
daltonrhum
Pimiento
Oct 21, 2014
daltonrhum
What i think you could do to make this batch file a little more of pop is when you choose a pokemon at the begging the color changes (ex bulb is green, squirttle is blue,and charzard is red) and i think that you should of added some type of title and i don't think you need to put pause when someone was gonna answer one of the numbers you could of put set /p something = Enter: then your chooses down below other then that its not to bad of a game good work ^_^
Virogenicdata7 Codes
Sonora
Nov 3, 2014
Virogenicdata7 Codes
Other, 1-50 Employees
small error: Script: C:\Users\Noname\Desktop\pokebatch.vbs line: 1 Char: 1 Error: invalid Character Code:800A0408 Source: Microsoft VBScript compilation error
hidde663
Pimiento
 Dec 11, 2014
hidde663
Software
I really do this just for fun `````` "there may be some buggs" `````` copy and paste from @echo off till the end, and save it as PokeBatch.bat `````` -you can now save/load your game -added rival battle -fixed wild pokemon encounter -you can now go all the way till Pewter-City -you can heal in pokemon centers -you can save in all pokemon centers+ you own house -you can now buy potions -you can use potions in battles -you can now fight the first gym-leader (brock) who got 2 pokemon -you can fight misty aswell who also got 2 pokemon -i added another rival fight on the cerulean bridge -i not sure if you can go anywhere further than cerulean city(notworked on it for monthhs) -i noticed that the images are messed up since this site removes double spaces, thats why it look so weird. most of them are buildings -CHOSE DISABLE MUSIC OR THE GAME WILL PROBABLY CRASH the reason for this is that i have the game with music(but i think i cant release it because of allot of copyright issues :/ `````` @echo off mode 71,30 title PokeBatch - The Pokemon Experience in Batch color 0F :instructions echo ---------------------------------------------------------------------- echo Instructions echo ---------------------------------------------------------------------- echo. echo Enter should be the most used key in the game echo. echo If the game asks you a question, answer it, with a word or a number echo. echo Be aware that if you dont type anything and hit enter, the game thinks echo you want to use your previous answer. echo. echo Good luck ;) pause >nul :bios cls echo ---------------------------------------------------------------------- echo Memory options echo ---------------------------------------------------------------------- echo. echo 1) Start a new game echo 2) Load an existing game set /p memoptions= if '%memoptions%' == '1' goto Begin1 if '%memoptions%' == '2' goto loadgame goto bios :loadgame cls echo ---------------------------------------------------------------------- echo Load menu echo ---------------------------------------------------------------------- echo. echo What was your name in the saved game? set /p oldname= if '%oldname%' == '' goto loadgame ( set /p music=%music% set /p name=%name% set /p starter=%starter% set /p starterlvl=%starterlvl% set /p starterhp=%starterhp% set /p rival=%rival% set /p rivalstarterlvl=%rivalstarterlvl% set /p rivalstarter=%rivalstarter% set /p money=%money% set /p potions=%potions% set /p Fishingrod=%Fishingrod% set /p HM_surf=%HM_surf% set /p HM_fly=%HM_fly% set /p location=%location% set /p exp=%exp% set /p exptill=%exptill% set /p badges=%badges% set /p bikevoucher=%bikevoucher% set /p bike=%bike% )<%oldname%.txt if '%name%' == '' ( cls echo ---------------------------------------------------------------------- echo Error echo ---------------------------------------------------------------------- echo. echo The saved game with that name does not exist pause>nul goto bios ) if '%starter%' == 'BULBASAUR' ( color 2F ) if '%starter%' == 'SQUIRTLE' ( color 9F ) if '%starter%' == 'CHARMANDER' ( color 4F ) if '%starter%' == 'PIKACHU' ( color 6F ) if '%starter%' == 'EEVEE' ( color 5F ) goto %location% :savegame cls echo ---------------------------------------------------------------------- echo Save menu echo ---------------------------------------------------------------------- echo. echo Saving to %name%.txt in the game folder ( echo %music% echo %name% echo %starter% echo %starterlvl% echo %starterhp% echo %rival% echo %rivalstarterlvl% echo %rivalstarter% echo %money% echo %potions% echo %Fishingrod% echo %HM_surf% echo %HM_fly% echo %location% echo %exp% echo %exptill% echo %badges% echo %bikevoucher% echo %bike% )>%name%.txt pause>nul goto %location% :begin1 cls echo ---------------------------------------------------------------------- echo Music options echo ---------------------------------------------------------------------- echo. echo 1) Diable music echo 2) Enable music set /p musicoption= if '%musicoption%' == '1' ( set music=0 goto begin2 ) if '%musicoption%' == '2' ( set music=1 goto begin2 ) goto begin1 :begin2 cls if '%music%' == '1' ( start intro.mp3 ) echo ---------------------------------------------------------------------- echo PokeBatch - The Pokemon experience in Batch echo ---------------------------------------------------------------------- pause>nul cls echo Prof. Oak approaches pause>nul cls echo Prof. Oak: Hi. My name is Prof. Oak pause>nul cls echo Prof. Oak: Welcome to the wonderful world of Pokemon pause>nul :choose-name cls echo Prof. Oak: It seems I don't remember your name. What is it? set /p name= if '%name%' == '' goto choose-name cls echo Hi %name%! It's nice seeing you again pause>nul :rival-name cls echo Prof. Oak: I think i'm getting old, can you tell me your rivals name? set /p rival= if '%rival%' == '' goto rival-name cls echo Ah ofcourse his name was %rival%! I hope i wont forget again pause>nul cls echo Prof. Oak: So %name% what are you waiting for, choose your Pokemon pause>nul :player set Fishingrod=0 set HM_surf=0 set HM_fly=0 set money=2000 set potions=1 :starter-stats set starterlvl=5 set /a starterhp=%starterlvl%*4 set exp=0 set exptill=25 set badges=0 set bikevoucher=0 set bike=0 :choose-pokemon cls echo ---------------------------------------------------------------------- echo BULBASAUR LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick BULBASAUR? echo. echo Type y to choose BULBASAUR or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=BULBASAUR color 2F cls echo %rival%: Then i will chose CHARMANDER set rivalstarter=CHARMANDER pause>nul goto chosen ) cls echo ---------------------------------------------------------------------- echo SQUIRTLE LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick SQUIRTLE? echo. echo Type y to choose SQUIRLTE or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=SQUIRTLE color 9F cls echo %rival%: Then i will chose BULBASAUR set rivalstarter=BULBASAUR pause>nul goto chosen ) cls echo ---------------------------------------------------------------------- echo CHARMANDER LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick CHARMANDER? echo. echo Type y to choose CHARMANDER or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=CHARMANDER color 4F cls echo %rival%: Then i will chose SQUIRTLE set rivalstarter=SQUIRTLE pause>nul goto chosen )	cls echo ---------------------------------------------------------------------- echo PIKACHU LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick PIKACHU? echo. echo Type y to choose PIKACHU or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=PIKACHU color 6F cls echo %rival%: Then i will chose EEVEE set rivalstarter=EEVEE pause>nul goto chosen ) cls echo ---------------------------------------------------------------------- echo EEVEE LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick EEVEE? echo. echo Type y to choose EEVEE or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=EEVEE color 5F cls echo %rival%: Then i will chose PIKACHU set rivalstarter=PIKACHU pause>nul goto chosen )	if '%yno%' == '' ( goto choose-pokemon ) :chosen cls echo Prof. Oak: Congratulations, you've just become a Pokemon trainer pause>nul cls echo Prof. Oak: Make sure to have fun with %starter% pause>nul cls echo Prof. Oak: Collect Gym badges and compete in the Pokemon League pause>nul cls echo Prof. Oak: Good luck pause>nul cls echo %rival%: Hey %name% let's try out our new Pokemon pause>nul :rival set rivalstarterlvl=5 set /a rivalstarterhp=%rivalstarterlvl%*4 if '%music%' == '1' ( start Wild-Pokemon-Battle.mp3 ) :rivalbattle cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted pause>nul goto rivalbattlelost ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a rivalstarterhp=%rivalstarterhp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto rivalstarterattackkindcalc ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a rivalstarterhp=%rivalstarterhp%-3 pause>nul goto rivalstarterattackkindcalc ) if '%wildpokemonbattleoption%' == '3' goto rivalbattlepotion goto rivalbattle :rivalbattlepotion if '%potions%' LEQ 0 ( echo You don't have any potions left pause>nul ) if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto rivalstarterattackkindcalc :rivalstarterattackkindcalc if %rivalstarterhp% LEQ 0 ( set /a exp=%rivalstarterlvl%*5 echo. echo %rivalstarter% fainted echo. echo %starter% gained some exp pause>nul goto rivalbattlevictory ) set rivalstarterattackcalc=%random:~-1% if %rivalstarterattackcalc% GTR 1 goto rivalstarterattackkindcalc if '%rivalstarterattackcalc%' == '0' ( set rivalstarterattackkind=Strong-attack set /a starterhp=%starterhp%-4 ) if '%rivalstarterattackcalc%' == '1' ( set rivalstarterattackkind=Accurate-attack set /a starterhp=%starterhp%-3 ) goto rivalstarterturn :rivalstarterturn cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo %rival%: %rivalstarter% use %rivalstarterattackkind% echo ---------------------------------------------------------------------- pause>nul goto rivalbattle :rivalbattlelost cls echo %rival%: Haha, you should have known %name% pause>nul cls echo %rival%: I will always be better at training Pokemon than you will echo ever be! pause>nul cls if '%music%' == '1' ( start Pallet-Town.mp3 ) echo Mom: Oh %name% your %pokemon% is hurt pause>nul cls echo Mom: Come with me and ill heal him with my love pause>nul cls echo Your %starter% is blushed red pause>nul set /a starterhp=%starterlvl%*4 goto Pallet-Town-1 :rivalbattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up pause>nul cls ) echo %rival%: You won this time, and only because of luck pause>nul cls echo You got $500 for winning set /a money=%money%+500 pause>nul cls echo %rival%: Smell ya later! pause>nul cls if '%music%' == '1' ( start Pallet-Town.mp3 ) echo Mom: Oh %name% your %pokemon% is hurt pause>nul cls echo Mom: Come with me and ill heal him with my love pause>nul cls echo Your %starter% is blushed red pause>nul set /a starterhp=10+(%starterlvl%*2) goto Pallet-Town-1 :Pallet-Town if '%music%' == '1' ( start Pallet-Town.mp3 ) set location=Pallet-Town cls echo ---------------------------------------------------------------------- echo Pallet Town echo ---------------------------------------------------------------------- echo. echo 1) Go to %name% house echo 2) Go to %rival%'s house echo 3) Go to the Pokemon Lab echo 4) Go to Viridian City, by following Route-1 echo 5) Go to the water and begin surfing echo 6) Go to the water and begin fishing set /p Pallet-Town-option= if '%Pallet-Town-option%' == '1' goto Pallet-Town-1 if '%Pallet-Town-option%' == '2' goto Pallet-Town-2 if '%Pallet-Town-option%' == '3' goto Pallet-Town-3 if '%Pallet-Town-option%' == '4' goto Pallet-Town-4 if '%Pallet-Town-option%' == '5' goto Pallet-Town-5 if '%Pallet-Town-option%' == '6' goto Pallet-Town-6 goto Pallet-Town :Pallet-Town-1 set location=Pallet-Town cls echo ---------------------------------------------------------------------- echo Home echo ---------------------------------------------------------------------- echo. echo __ii_______________ echo / ii __ //\ echo / /__\ i__i // \\ echo /_________________// \\ echo i i /\ i echo )\ )\ i i / .\ i echo )\ )\ /( i________________i_i__i_i echo. echo 1) Talk to your Mom echo 2) Rest here for a while (heals your pokemon) echo 3) Go back echo 4) Save the game set /p Pallet-Town-1-option= if '%Pallet-Town-1-option%' == '1' goto Pallet-Town-1-1 if '%Pallet-Town-1-option%' == '2' set /a starterhp=%starterlvl%*4 if '%Pallet-Town-1-option%' == '3' goto Pallet-Town if '%Pallet-Town-1-option%' == '4' goto savegame goto Pallet-Town-1 :Pallet-Town-1-1 cls set location=Pallet-Town echo Mom: %name%! Its a shame that your dad isn't around to echo see you grow up pause>nul cls echo Mom: You've grown so fast, but i guess all birds leave echo the nest at some point pause>nul cls echo Mom: You have my permission to go and travel the Kanto region, echo but you have to contact me every week to keep in touch pause>nul goto Pallet-Town-1 :Pallet-Town-2 cls echo ---------------------------------------------------------------------- echo Gary's House echo ---------------------------------------------------------------------- echo. echo __ii_______________ echo / ii /\\ echo / /__\ / \\ echo /_________________/ \\ echo i __ i /\ i echo )\ )\ i i__i i / .\ i echo )\ )\ /( i________________i_i__i_i echo. echo 1) Talk to Gary's Mom echo 2) Go back set /p Pallet-Town-2-option= if '%Pallet-Town-2-option%' == '1' goto Pallet-Town-2-1 if '%Pallet-Town-2-option%' == '2' goto Pallet-Town goto Pallet-Town-2 :Pallet-Town-2-1 cls echo %rival%'s Mom: Hey, you're the boii from next door right pause>nul cls echo %rival%'s Mom: Here take this, it's a Town-map pause>nul cls echo %rival%'s Mom: It may or may not influence your experiences pause>nul goto Pallet-Town-2 :Pallet-Town-3 if '%music%' == '1' ( start Pokemon-Lab.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Lab echo ---------------------------------------------------------------------- echo. echo _______ ______ echo __./ _ \.__ / \ echo / // \\ \ / i echo i_______\\_//_______i i echo /___________________\ i echo i i ___ i i / echo i i / \ i i/ )\ )\ /( echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ )\ echo. echo 1) Talk to Professor Oak echo 2) Go back set /p Pallet-Town-3-option= if '%Pallet-Town-3-option%' == '1' goto Pallet-Town-3-1 if '%Pallet-Town-3-option%' == '2' goto Pallet-Town goto Pallet-Town-3 :Pallet-Town-3-1 cls echo Prof Oak: Oh hi %name% I am a little busy right now pause>nul cls echo Prof Oak: It's about compressing Pokemon into data so they can echo be stored in a computer, its really complicated and also crazy pause>nul goto Pallet-Town :Pallet-Town-4 if '%music%' == '1' ( start route-1-2.mp3 ) cls echo ---------------------------------------------------------------------- echo Route-1 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( (\ echo. echo You stepped out of Pallet town pause>nul cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto wildpokemonlvl-calc :Pallet-Town-5 cls if '%HM_surf%' == '0' ( echo You do not have the HM_surf, so you can't surf pause>nul goto Pallet-Town ) if '%HM_surf%' == '1' ( echo You used one of your Pokemon to surf pause>nul goto Route-21 ) :Pallet-Town-6 cls if '%Fishingrod%' == '0' echo You do not have a fishing rod, so you can't fish if '%Fishingrod%' == '1' echo nothing here yet pause>nul goto Pallet-Town :wildpokemonlvl-calc set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 6 goto wildpokemonlvl-calc if '%wildpokemonkind%' == '0' set wildpokemon=POLIWAG if '%wildpokemonkind%' == '1' set wildpokemon=SPARROW if '%wildpokemonkind%' == '2' set wildpokemon=RATTATA if '%wildpokemonkind%' == '3' set wildpokemon=PIDGEY if '%wildpokemonkind%' == '4' set wildpokemon=SANDSHREW if '%wildpokemonkind%' == '5' set wildpokemon=MANKEY if '%wildpokemonkind%' == '6' set wildpokemon=DIGLET :wildpokemon-route-1 if '%music%' == '1' ( start Wild-Pokemon-Battle.mp3 ) cls echo A wild %wildpokemon% has appeared echo. echo %wildpokemon%: %wildpokemon% echo. echo %name%: Go %starter% i choose you echo. echo %starter%: %starter% pause>nul :wildpokemon-stats set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto wildpokemon-stats if '%wildpokemonlvlcalc%' == '0' set wildpokemonlvl=2 if '%wildpokemonlvlcalc%' == '1' set wildpokemonlvl=3 if '%wildpokemonlvlcalc%' == '2' set wildpokemonlvl=4 set /a wildpokemonhp=%wildpokemonlvl%*4 :wildpokemon-battle cls if %starterhp% LEQ 0 goto wildpokemonbattlelost echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) echo 4) [Run] set /p wildpokemon-battle-option= if '%wildpokemon-battle-option%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a wildpokemonhp=%wildpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto wildpokemon-attack-kind-calc ) if '%wildpokemon-battle-option%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Accurate-attack echo ---------------------------------------------------------------------- set /a wildpokemonhp=%wildpokemonhp%-3 pause>nul goto wildpokemon-attack-kind-calc ) if '%wildpokemon-battle-option%' == '3' goto potion-wildpokemon-battle if '%wildpokemon-battle-option%' == '4' ( cls echo You run as fast as you can towards Viridian City pause>nul goto Viridian-City) goto wildpokemon-battle :potion-wildpokemon-battle cls if '%potions%' LEQ 0 ( echo You don't have any potions left pause>nul ) if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 goto wildpokemon-attack-kind-calc :wildpokemonbattlewin set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo. echo Your %starter% has LVL'd up pause>nul ) goto Viridian-City :wildpokemonbattlelost cls if '%music%' == '1' ( start Pallet-Town.mp3 ) echo Mom: oh no my little man got hurt by a %wildpokemon% pause>nul cls echo Mom: Here take some tea pause>nul set /a starterhp=%starterlvl%*4 goto Pallet-Town-1 :wildpokemon-attack-kind-calc cls if %wildpokemonhp% LEQ 0 ( set /a exp=%wildpokemonlvl%*5 echo. echo %wildpokemon% fainted echo. echo %starter% gained some exp pause>nul goto wildpokemonbattlewin ) set wildpokemon-attack-calc=%random:~-1% if %wildpokemon-attack-calc% GTR 1 goto wildpokemon-attack-kind-calc if '%wildpokemon-attack-calc%' == '0' ( set wildpokemon-attack-kind=Strong-attack set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a starterhp=%starterhp%-4 goto wildpokemon-turn ) if '%wildpokemon-attack-calc%' == '1' ( set wildpokemon-attack-kind=Accurate-attack set /a starterhp=%starterhp%-2 goto wildpokemon-turn ) :wildpokemon-turn cls if %wildpokemonhp% LEQ 0 goto wildpokemonbattlewin echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo Wild %wildpokemon% uses %wildpokemon-attack-kind% if '%stronghit%' LSS 5 echo %wildpokemon% missed pause>nul goto wildpokemon-battle :Viridian-City set location=Viridian-City if '%music%' == '1' ( start Viridian-Pewter-Saffron-City.mp3 ) cls echo ---------------------------------------------------------------------- echo Viridian-City echo ---------------------------------------------------------------------- echo. echo 1) Talk to the old man echo 2) Go to Pewter city by following Route-2 through Virirdian Forest echo 3) Go to the Pokemon center echo 4) Go to the Pokemon Gym echo 5) Go to the Pokemon markt echo 6) Go to Pallet Town by following Route-1 echo 7) Go to Victory Road by following Route-22 then Route-23 set /p Viridian-City-option= if '%Viridian-City-option%' == '1' goto Viridian-City-1 if '%Viridian-City-option%' == '2' goto Viridian-City-2 if '%Viridian-City-option%' == '3' goto Viridian-City-3 if '%Viridian-City-option%' == '4' goto Viridian-City-4 if '%Viridian-City-option%' == '5' goto Viridian-City-5 if '%Viridian-City-option%' == '6' goto Pallet-Town if '%Viridian-City-option%' == '7' goto Viridian-City-7 goto Viridian-City :Viridian-City-1 cls echo Old man: ZzZzZzZzZ.... ZzZzZzZzZ.... pause>nul goto Viridian-City :Viridian-City-2 if '%music%' == '1' ( start Route-3-10-plus-16-22.mp3 ) cls echo ---------------------------------------------------------------------- echo Route-2 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( (\ echo. echo You stepped out of Viridian City echo. echo From here you can already see the Viridian Forest pause>nul cls echo ---------------------------------------------------------------------- echo Viridian Forest echo ---------------------------------------------------------------------- echo. echo \ \ echo / /~\ /~\ /~\ /~\ /~\ /~\ /~\ )\ / echo \ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ )\ )\ \ echo / i i i i i i i / echo \ \ echo / / echo \ /~\ /~\ /~\ /~\ /~\ /~\ /~\ /~\ /~\ \ echo / /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ / echo \ i i i i i i i i i \ echo. pause>nul goto Pewter-City :Viridian-City-3 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Center echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i //_\\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Viridian-City-3-option= if '%Viridian-City-3-option%' == '1' goto Viridian-City-3-1 if '%Viridian-City-3-option%' == '2' goto Viridian-City-3-2 if '%Viridian-City-3-option%' == '3' goto Viridian-City if '%Viridian-City-3-option%' == '4' goto savegame goto Viridian-City-3 :Viridian-City-3-1 cls echo Nurse Joy: My my, your %starter% does not look very good pause>nul cls echo Nurse Joy: Here let me fix him with my love pause>nul cls echo Your %starter% is blushed red pause>nul cls echo Nurse Joy: Here you go better than ever pause>nul cls echo %starter%: %starter% pause>nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP pause>nul goto Viridian-City-3 :Viridian-City-3-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" pause>nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid pause>nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! pause>nul cls echo "You run away to town hiding your face" pause>nul goto Viridian-City :Viridian-City-4 if '%music%' == '1' ( start Gym.mp3 ) cls echo ---------------------------------------------------------------------- echo Viridian City Gym echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo / \ /i echo i Viridian-City Gym i/ i echo i-------------------i i echo i i i ___ i i i / echo i i i i i i i i/ )\ echo )\ )\ i__i__i_i___i_i__i__i )\ )\ echo. echo 1) Enter the Gym echo 2) Go back set /p Viridian-City-4-option= if '%Viridian-City-4-option%' == '1' goto Viridian-City-4-1 if '%Viridian-City-4-option%' == '2' goto Viridian-City goto Viridian-City-4 :Viridian-City-4-1 cls if '%badges%' == '7' ( echo Giovanni: So you think you can beat me pause>nul cls echo Giovanni: We'll see about that in a bit pause>nul cls ) echo You don't the other 7 badges yet, so you can't fight with Giovanni pause>nul goto Viridian-City-4 :Viridian-City-5 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Mart echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i //_\\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo Shop keeper: Hello there little man, what can i do for you echo. echo You have money: %money% and potions: %potions% echo. echo 1) Buy potion echo 2) Go back set /p Viridian-City-5-option= if '%Viridian-City-5-option%' == '1' goto Viridian-City-5-1 if '%Viridian-City-5-option%' == '2' goto Viridian-City goto Viridian-City-5 :Viridian-City-5-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 set /a potions=%potions%+1 pause>nul goto Viridian-City-5 ) echo Shop keeper: You do not have enough money to buy that pause>nul goto Viridian-City-5 :Viridian-City-7 cls echo You do not yet have all 8 badges pause>nul goto Viridian-City :Pewter-City set location=Pewter-City if '%music%' == '1' ( start Viridian-Pewter-Saffron-City.mp3 ) cls echo ---------------------------------------------------------------------- echo Pewter City echo ---------------------------------------------------------------------- echo. echo 1) Talk to the camper echo 2) Go to Mt. Moon by following route-3 echo 3) Go to the Pokemon center echo 4) Go to the Pokemon gym echo 5) Go to the Pokemon markt echo 6) Go to Viridian City through the Viridian Forest then follow Route-2 set /p Pewter-City-option= if '%Pewter-City-option%' == '1' goto Pewter-City-1 if '%Pewter-City-option%' == '2' goto Pewter-City-2 if '%Pewter-City-option%' == '3' goto Pewter-City-3 if '%Pewter-City-option%' == '4' goto Pewter-City-4 if '%Pewter-City-option%' == '5' goto Pewter-City-5 if '%Pewter-City-option%' == '6' goto Viridian-City goto Pewter-City :Pewter-City-1 cls echo Camper: What a nice day isn't it, there are no clouds to be seen pause>nul goto Pewter-City :Pewter-City-2 if '%badges%' == '0' ( cls echo [the road is blocked] pause>nul goto Pewter-City ) :trainer cls set trainercalc=%random:~-1% if %trainercalc% GTR 1 goto trainer if '%trainercalc%' == '0' set trainermusic=Trainer1-appears if '%trainercalc%' == '1' set trainermusic=Trainer2-appears if '%music%' == '1' ( start %trainermusic%.mp3 ) echo A trainer wants to fight pause >nul if '%music%' == '1' ( start Trainer.mp3 ) set trainerpokemon=SANDSHREW set trainerpokemonlvl=7 set /a trainerpokemonhp=%trainerpokemonlvl%*4 :Traner-battle-route-3 cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted pause>nul goto trainerpokemonbattlelost ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a trainerpokemonhp=%trainerpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto trainerpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a trainerpokemonhp=%trainerpokemonhp%-3 pause>nul goto trainerpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '3' goto trainerpokemonbattlepotion goto Traner-battle-route-3 :trainerpokemonbattlepotion if %potions% LEQ 0 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto trainerpokemonattackkindcalc :trainerpokemonattackkindcalc if %trainerpokemonhp% LEQ 0 ( set /a exp=%trainerpokemonlvl%*5 echo. echo %trainerpokemon% fainted echo. echo %starter% gained some exp pause>nul goto trainerpokemonbattlevictory ) set trainerpokemonattackcalc=%random:~-1% if %trainerpokemonattackcalc% GTR 1 goto trainerpokemonattackkindcalc if '%trainerpokemonattackcalc%' == '0' ( set trainerpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto trainerpokemonturn ) if '%trainerpokemonattackcalc%' == '1' ( set trainerpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto trainerpokemonturn ) :trainerpokemonturn cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Trainer: %trainerpokemon% use %trainerpokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto Traner-battle-route-3 :trainerpokemonbattlelost if '%music%' == '1' ( start Viridian-Pewter-Saffron-City.mp3 ) cls echo Trainer: I just can't get enough of winning, hahaha pause>nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Pewter-City-3 :trainerpokemonbattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul ) echo You got $500 for winning set /a money=%money%+500 pause>nul goto Mt-Moon :Pewter-City-3 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Center echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i //_\\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Pewter-City-3-option= if '%Pewter-City-3-option%' == '1' goto Pewter-City-3-1 if '%Pewter-City-3-option%' == '2' goto Pewter-City-3-2 if '%Pewter-City-3-option%' == '3' goto Pewter-City if '%Pewter-City-3-option%' == '4' goto savegame goto Pewter-City-3 :Pewter-City-3-1 cls echo Nurse Joy: My my, your %starter% does not look very good pause>nul cls echo Nurse Joy: Here let me fix him with my love pause>nul cls echo Your %starter% is blushed red pause>nul cls echo Nurse Joy: Here you go better than ever pause>nul cls echo %starter%: %starter%! pause>nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP pause>nul goto Pewter-City-3 :Pewter-City-3-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" pause>nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid pause>nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! pause>nul cls echo "You run away to town hiding your face" pause>nul goto Pewter-City :Pewter-City-4 if '%music%' == '1' ( start Gym.mp3 ) cls echo ---------------------------------------------------------------------- echo Pewter City Gym echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo / \ /i echo i Pewter City Gym i/ i echo i-------------------i i echo i i i ___ i i i / echo i i i i i i i i/ )\ echo )\ )\ i__i__i_i___i_i__i__i )\ )\ echo. echo 1) Enter the gym echo 2) Go back set /p Pewter-City-4-option= if '%Pewter-City-4-option%' == '1' goto Pewter-City-4-1 if '%Pewter-City-4-option%' == '2' goto Pewter-City goto Pewter-City-4 :Pewter-City-4-1 cls if %badges% LSS 1 ( echo Brock: So you think you got what it takes to beat me pause>nul cls echo Brock: Alright let's get started in here pause>nul goto Pewter-City-4-1-1 ) echo Brock: %name% you have already proven yourself pause>nul cls echo Brock: There is no point in fighting me again pause>nul goto Pewter-City :Pewter-City-4-1-1 set brockpokemon1=GEODUDE set brockpokemon1lvl=5 set /a brockpokemon1hp=%brockpokemon1lvl%*4 if '%music%' == '1' ( start Gym-Leader-Elite-Four.mp3 ) :brockbattle cls echo ---------------------------------------------------------------------- echo %brockpokemon1% LVL: %brockpokemon1lvl% HP: %brockpokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted pause>nul goto brockbattlelost ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a brockpokemon1hp=%brockpokemon1hp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto brockpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a brockpokemon1hp=%brockpokemon1hp%-3 pause>nul goto brockpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '3' goto brockbattlepotion goto brockbattle :brockbattlepotion if %potions% LEQ 0 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto brockpokemonattackkindcalc :brockpokemonattackkindcalc if %brockpokemon1hp% LEQ 0 ( set /a exp=%brockpokemon1lvl%*5 echo. echo %brockpokemon1% fainted echo. echo %starter% gained some exp pause>nul if '%brockpokemon1%' == 'ONIX' ( goto brockbattlevictory2 ) goto brockbattlevictory ) set brockpokemonattackcalc=%random:~-1% if %brockpokemonattackcalc% GTR 1 goto brockpokemonattackkindcalc if '%brockpokemonattackcalc%' == '0' ( set brockpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto brockpokemon1turn ) if '%brockpokemonattackcalc%' == '1' ( set brockpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto brockpokemon1turn ) :brockpokemon1turn cls echo ---------------------------------------------------------------------- echo %brockpokemon1% LVL: %brockpokemon1lvl% HP: %brockpokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Brock: %brockpokemon1% use %brockpokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto brockbattle :brockbattlelost if '%music%' == '1' ( start Viridian-Pewter-Saffron-City.mp3 ) cls echo Brock: Come back when you can actually beat me %name% pause>nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Pewter-City-3 :brockbattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul ) goto brockbattle2 :brockbattle2 set brockpokemon1=ONIX set brockpokemon1lvl=7 set /a brockpokemon1hp=%brockpokemon1lvl%*4 goto brockbattle :brockbattlevictory2 cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul cls ) if '%music%' == '1' ( start Gym.mp3 ) echo You got $800 for winning set /a money=%money%+800 pause>nul cls echo Brock: Well done, you have proven yourself pause>nul cls echo Brock: Here take this, it's the Boulder badge set badges=1 pause>nul goto Pewter-City :Pewter-City-5 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Mart echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i //_\\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo Shop keeper: Hello there little man, what can i do for you echo. echo You have money: %money% and potions: %potions% echo. echo 1) Buy potion echo 2) Go back set /p Pewter-City-5-option= if '%Pewter-City-5-option%' == '1' goto Pewter-City-5-1 if '%Pewter-City-5-option%' == '2' goto Pewter-City goto Pewter-City-5 :Pewter-City-5-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 set /a potions=%potions%+1 pause>nul goto Pewter-City-5 ) echo Shop keeper: You do not have enough money to buy that pause>nul goto Pewter-City-5 :Pewter-City-6 cls echo ---------------------------------------------------------------------- echo Viridian Forest echo ---------------------------------------------------------------------- echo. echo \ \ echo / /~\ /~\ /~\ /~\ /~\ /~\ /~\ )\ / echo \ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ )\ )\ \ echo / i i i i i i i / echo \ \ echo / / echo \ /~\ /~\ /~\ /~\ /~\ /~\ /~\ /~\ /~\ \ echo / /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ / echo \ i i i i i i i i i \ echo. pause>nul goto Viridian-City :Mt-Moon if '%music%' == '1' ( start Route-3-10-plus-16-22.mp3 ) set location=Mt-Moon cls echo ---------------------------------------------------------------------- echo Mt. Moon echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go inside the cave echo 3) Go back to Pewter City set /p Mt-Moon-options= if '%Mt-Moon-options%' == '1' goto Mt-Moon-1 if '%Mt-Moon-options%' == '2' goto Mt-Moon-2 if '%Mt-Moon-options%' == '3' goto Pewter-City goto Mt-Moon :Mt-Moon-1 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Center echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i //_\\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Mt-Moon-1-options= if '%Mt-Moon-1-options%' == '1' goto Mt-Moon-1-1 if '%Mt-Moon-1-options%' == '2' goto Mt-Moon-1-2 if '%Mt-Moon-1-options%' == '3' goto Mt-Moon if '%Mt-Moon-1-options%' == '4' goto savegame goto Mt-Moon-1 :Mt-Moon-1-1 cls echo Nurse Joy: My my, your %starter% does not look very good pause>nul cls echo Nurse Joy: Here let me fix him with my love pause>nul cls echo Your %starter% is blushed red pause>nul cls echo Nurse Joy: Here you go better than ever pause>nul cls echo %starter%: %starter%! pause>nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP pause>nul goto Mt-Moon-1 :Mt-Moon-1-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" pause>nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid pause>nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! pause>nul cls echo "You run away to town hiding your face" pause>nul goto Mt-Moon :Mt-Moon-2 cls echo ---------------------------------------------------------------------- echo Mt-Moon cave echo ---------------------------------------------------------------------- echo. echo /\ /\ /\ /\ /\ /\ /\ /\ /\ echo /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /\ echo /####\/####\/####\/####\/####\/####\/####\/####\/####\/##\ echo /##########################################################\ echo /############################################################\ echo /##############################################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo. pause>nul goto Mt-Moon-2-1 :Mt-Moon-2-1 if '%music%' == '1' ( start Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3 ) cls echo ---------------------------------------------------------------------- echo Mt-Moon cave echo ---------------------------------------------------------------------- echo. echo ###################################################################### echo #( ).....#...........................................................# echo #........#....###############################........................# echo #........#....#..........................................##..........# echo #........#....#..........................................##..........# echo #........#....#...........#...###############............##..........# echo #.............#...........#...#..........................##..........# echo #.............#...........#...#......................................# echo ###########################( )######################################## echo. echo 1) Fight a trainer echo 2) Go deeper into the cave echo 3) Look for a wild Pokemon echo 4) Go back set /p Mt-Moon-2-1-option= if '%Mt-Moon-2-1-option%' == '1' goto Mt-Moon-2-1-1 if '%Mt-Moon-2-1-option%' == '2' goto Route-4 if '%Mt-Moon-2-1-option%' == '3' goto Mt-Moon-2-1-3 if '%Mt-Moon-2-1-option%' == '4' goto Mt-Moon goto Mt-Moon-2-1 :Mt-Moon-2-1-1 :trainer-Mt-Moon cls set trainercalc=%random:~-1% if %trainercalc% GTR 1 goto trainer-Mt-Moon if '%trainercalc%' == '0' set trainermusic=Trainer1-appears if '%trainercalc%' == '1' set trainermusic=Trainer2-appears if '%music%' == '1' ( start %trainermusic%.mp3 ) echo A trainer wants to fight pause >nul if '%music%' == '1' ( start Trainer.mp3 ) set trainerpokemon=ZUBAT set trainerpokemonlvl=7 set /a trainerpokemonhp=%trainerpokemonlvl%*4 :Traner-battle-Mt-Moon cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted pause>nul goto trainerpokemonbattlelost-Mt-Moon ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a trainerpokemonhp=%trainerpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto trainerpokemonattackkindcalc-Mt-Moon ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a trainerpokemonhp=%trainerpokemonhp%-3 pause>nul goto trainerpokemonattackkindcalc-Mt-Moon ) if '%wildpokemonbattleoption%' == '3' goto trainerpokemonbattlepotion-Mt-Moon goto Traner-battle-Mt-Moon :trainerpokemonbattlepotion-Mt-Moon if %potions% LEQ 0 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto trainerpokemonattackkindcalc-Mt-Moon :trainerpokemonattackkindcalc-Mt-Moon if %trainerpokemonhp% LEQ 0 ( set /a exp=%trainerpokemonlvl%*5 echo. echo %trainerpokemon% fainted echo. echo %starter% gained some exp pause>nul goto trainerpokemonbattlevictory-Mt-Moon ) set trainerpokemonattackcalc=%random:~-1% if %trainerpokemonattackcalc% GTR 1 goto trainerpokemonattackkindcalc-Mt-Moon if '%trainerpokemonattackcalc%' == '0' ( set trainerpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto trainerpokemonturn-Mt-Moon ) if '%trainerpokemonattackcalc%' == '1' ( set trainerpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto trainerpokemonturn-Mt-Moon ) :trainerpokemonturn-Mt-Moon cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Trainer: %trainerpokemon% use %trainerpokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto Traner-battle-Mt-Moon :trainerpokemonbattlelost-Mt-Moon if '%music%' == '1' ( start Viridian-Pewter-Saffron-City.mp3 ) cls echo Trainer: I just can't get enough of winning, hahaha pause>nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Mt-Moon-1 :trainerpokemonbattlevictory-Mt-Moon cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul ) echo You got $400 for winning set /a money=%money%+400 pause>nul cls goto Mt-Moon-2-1 :Mt-Moon-2-1-2 :wildpokemonlvl-calc-Mt-Moon set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 1 goto wildpokemonlvl-calc-Mt-Moon if '%wildpokemonkind%' == '0' set wildpokemon=ZUBAT if '%wildpokemonkind%' == '1' set wildpokemon=GEODUDE :wildpokemon-Mt-Moon if '%music%' == '1' ( start Wild-Pokemon-Battle.mp3 ) cls echo A wild %wildpokemon% has appeared echo. echo %wildpokemon%: %wildpokemon% echo. echo %name%: Go %starter% i choose you echo. echo %starter%: %starter% pause>nul :wildpokemon-stats-Mt-Moon set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto wildpokemon-stats-Mt-Moon if '%wildpokemonlvlcalc%' == '0' set wildpokemonlvl=4 if '%wildpokemonlvlcalc%' == '1' set wildpokemonlvl=5 if '%wildpokemonlvlcalc%' == '2' set wildpokemonlvl=6 set /a wildpokemonhp=%wildpokemonlvl%*4 :wildpokemon-battle-Mt-Moon cls if %starterhp% LEQ 0 goto wildpokemonbattlelost-Mt-Moon echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) echo 4) [Run] set /p wildpokemon-battle-option= if '%wildpokemon-battle-option%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a wildpokemonhp=%wildpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto wildpokemon-attack-kind-calc-Mt-Moon ) if '%wildpokemon-battle-option%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Accurate-attack echo ---------------------------------------------------------------------- set /a wildpokemonhp=%wildpokemonhp%-3 pause>nul goto wildpokemon-attack-kind-calc-Mt-Moon ) if '%wildpokemon-battle-option%' == '3' goto potion-wildpokemon-battle-Mt-Moon if '%wildpokemon-battle-option%' == '4' ( cls echo You run as fast as you can towards Viridian City pause>nul goto Mt-Moon-2-1) goto wildpokemon-battle-Mt-Moon :potion-wildpokemon-battle-Mt-Moon cls if '%potions%' LEQ 0 ( echo You don't have any potions left pause>nul ) if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 goto wildpokemon-attack-kind-calc-Mt-Moon :wildpokemonbattlewin-Mt-Moon set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo. echo Your %starter% has LVL'd up pause>nul ) goto Mt-Moon-2-1 :wildpokemonbattlelost-Mt-Moon cls if '%music%' == '1' ( start Pallet-Town.mp3 ) echo Nurse Joy: You got your %starter% hurt again, jerk pause>nul cls echo Nurs Joy: Alright, ill fix him up pause>nul set /a starterhp=%starterlvl%*4 goto Mt-Moon-1 :wildpokemon-attack-kind-calc-Mt-Moon cls if %wildpokemonhp% LEQ 0 ( set /a exp=%wildpokemonlvl%*5 echo. echo %wildpokemon% fainted echo. echo %starter% gained some exp pause>nul goto wildpokemonbattlewin-Mt-Moon ) set wildpokemon-attack-calc=%random:~-1% if %wildpokemon-attack-calc% GTR 1 goto wildpokemon-attack-kind-calc-Mt-Moon if '%wildpokemon-attack-calc%' == '0' ( set wildpokemon-attack-kind=Strong-attack set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a starterhp=%starterhp%-4 goto wildpokemon-turn-Mt-Moon ) if '%wildpokemon-attack-calc%' == '1' ( set wildpokemon-attack-kind=Accurate-attack set /a starterhp=%starterhp%-2 goto wildpokemon-turn-Mt-Moon ) :wildpokemon-turn-Mt-Moon cls if %wildpokemonhp% LEQ 0 goto wildpokemonbattlewin-Mt-Moon echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo Wild %wildpokemon% uses %wildpokemon-attack-kind% if '%stronghit%' LSS 5 echo %wildpokemon% missed pause>nul goto wildpokemon-battle-Mt-Moon :Route-4 cls echo ---------------------------------------------------------------------- echo Route-4 echo ---------------------------------------------------------------------- echo. echo The road is under construction pause>nul goto Cerulean-City :Cerulean-City set location=Cerulean-City if '%music%' == '1' ( start Cerulean-Fussia-City.mp3 ) cls echo ---------------------------------------------------------------------- echo Cerulean City echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to Mt. Moon through a special passage echo 5) Go to the bike shop echo 6) Go to Route 24 and 25 by crossing the bridge set /p Cerulean-City-option= if '%Cerulean-City-option%' == '1' goto Cerulean-City-1 if '%Cerulean-City-option%' == '2' goto Cerulean-City-2 if '%Cerulean-City-option%' == '3' goto Cerulean-City-3 if '%Cerulean-City-option%' == '4' goto Mt-Moon if '%Cerulean-City-option%' == '5' goto Cerulean-City-5 if '%Cerulean-City-option%' == '6' goto Cerulean-City-6 goto Cerulean-City :Cerulean-City-1 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Center echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i //_\\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Cerulean-City-1-options= if '%Cerulean-City-1-options%' == '1' goto Cerulean-City-1-1 if '%Cerulean-City-1-options%' == '2' goto Cerulean-City-1-2 if '%Cerulean-City-1-options%' == '3' goto Cerulean-City if '%Cerulean-City-1-options%' == '4' goto savegame goto Cerulean-City-1 :Cerulean-City-2 if '%music%' == '1' ( start Gym.mp3 ) cls echo ---------------------------------------------------------------------- echo Cerulean City Gym echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo / \ /i echo i Cerulean City Gym i/ i echo i-------------------i i echo i i i ___ i i i / echo i i i i i i i i/ )\ echo )\ )\ i__i__i_i___i_i__i__i )\ )\ echo. echo 1) Enter the gym echo 2) Go back set /p Cerulean-City-2-option= if '%Cerulean-City-2-option%' == '1' goto Cerulean-City-2-1 if '%Cerulean-City-2-option%' == '2' goto Cerulean-City goto Cerulean-City-2 :Cerulean-City-2-1 cls if %badges% LSS 2 ( echo Misty: So you think you got what it takes to beat me pause>nul cls echo Misty: Alright let's get started in here pause>nul goto Cerulean-City-2-1-1 ) echo Misty: %name% you have already proven yourself pause>nul cls echo Misty: There is no point in fighting me again pause>nul goto Cerulean-City :Cerulean-City-2-1-1 set Mistypokemon1=STARYU set Mistypokemon1lvl=8 set /a Mistypokemon1hp=%Mistypokemon1lvl%*4 if '%music%' == '1' ( start Gym-Leader-Elite-Four.mp3 ) :Mistybattle cls echo ---------------------------------------------------------------------- echo %Mistypokemon1% LVL: %Mistypokemon1lvl% HP: %Mistypokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted pause>nul goto Mistybattlelost ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a Mistypokemon1hp=%Mistypokemon1hp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto Mistypokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a Mistypokemon1hp=%Mistypokemon1hp%-3 pause>nul goto Mistypokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '3' goto Mistybattlepotion goto Mistybattle :Mistybattlepotion if %potions% LEQ 0 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto Mistypokemonattackkindcalc :Mistypokemonattackkindcalc if %Mistypokemon1hp% LEQ 0 ( set /a exp=%Mistypokemon1lvl%*5 echo. echo %Mistypokemon1% fainted echo. echo %starter% gained some exp pause>nul if '%Mistypokemon1%' == 'STARMIE' ( goto Mistybattlevictory2 ) goto Mistybattlevictory ) set Mistypokemonattackcalc=%random:~-1% if %Mistypokemonattackcalc% GTR 1 goto Mistypokemonattackkindcalc if '%Mistypokemonattackcalc%' == '0' ( set Mistypokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto Mistypokemon1turn ) if '%Mistypokemonattackcalc%' == '1' ( set Mistypokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto Mistypokemon1turn ) :Mistypokemon1turn cls echo ---------------------------------------------------------------------- echo %Mistypokemon1% LVL: %Mistypokemon1lvl% HP: %mistypokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo misty: %mistypokemon1% use %mistypokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto mistybattle :mistybattlelost if '%music%' == '1' ( start Cerulean-Fussia-City.mp3 ) cls echo Misty: Come back when you can actually beat me %name% pause>nul cls echo Nurse Joy: Damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Cerulean-City-1 :mistybattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul ) goto mistybattle2 :mistybattle2 set mistypokemon1=STARMIE set mistypokemon1lvl=12 set /a mistypokemon1hp=%mistypokemon1lvl%*4 goto mistybattle :mistybattlevictory2 cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul cls ) if '%music%' == '1' ( start Gym.mp3 ) echo You got $900 for winning set /a money=%money%+900 pause>nul cls echo Misty: Well done, you have proven yourself pause>nul cls echo Misty: Here take this, it's the Cascade Badge set badges=2 pause>nul goto Cerulean-City :Cerulean-City-3 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 ) cls echo ---------------------------------------------------------------------- echo Pokemon Mart echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i //_\\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo Shop keeper: Hello there little man, what can i do for you echo. echo You have money: %money% and potions: %potions% echo. echo 1) Buy potion echo 2) Go back set /p Cerulean-City-3-option= if '%Cerulean-City-3-option%' == '1' goto Cerulean-City-3-1 if '%Cerulean-City-3-option%' == '2' goto Cerulean-City goto Cerulean-City-3 :Cerulean-City-3-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 set /a potions=%potions%+1 pause>nul goto Cerulean-City-3 ) echo Shop keeper: You do not have enough money to buy that pause>nul goto Cerulean-City-3 :Cerulean-City-5 if '%music%' == '1' ( start Pokemon-Center-Mart.mp3 cls echo ---------------------------------------------------------------------- echo Bike shop echo ---------------------------------------------------------------------- echo. echo Shop keeper: Well hello there young man, how can i help you? echo. echo You have money: %money% echo. echo 1) Buy a bike ( $1,000,000 ) echo 2) Get a bike for a Bike-Voucher set /p Cerulean-City-5option= if '%Cerulean-City-5option%' == '1' goto Cerulean-City-5-1 if '%Cerulean-City-5option%' == '2' goto Cerulean-City-5-2 goto Cerulean-City-5 :Cerulean-City-5-1 cls if '%money%' GEQ '1000000' ( set bikevoucher=0 set bike=1 set /a money=%money%-1000000 echo Shop keeper: I have no idea where you got the money, but oh well pause>nul echo Shop keeper: Here you go, a brand new bike goto Cerulean-City-5 ) echo You do not have enough money to buy that pause>nul goto Cerulean-City-5 :Cerulean-City-5-2 cls if '%bikevoucher%' == '1' ( set bikevoucher=0 set bike=1 echo Shop keeper: Here you go, a brand new bike pause>nul goto Cerulean-City-5 ) echo Shop keeper: You don't seem to have a a Bike-Voucher pause>nul goto Cerulean-City-5 :Cerulean-City-6 cls if '%music%' == '1' ( start Route-24-25.mp3 ) echo ---------------------------------------------------------------------- echo Cerulean City Bridge echo ---------------------------------------------------------------------- echo _____________________________ ________________________________ echo \ _____ / echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i_____i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo _____________________________/ \________________________________ echo. echo 1) Cross the bridge echo 2) Go back to Cerulean city set /p Cerulean-City-6-option= if '%Cerulean-City-6-option%' == '1' goto rival-encouter-Cerulean-City if '%Cerulean-City-6-option%' == '2' goto Cerulean-City goto Cerulean-City-6 :rival-encouter-Cerulean-City cls if '%music%' == '1' ( start Rival-appears.mp3 ) echo %rival%: Oh hey %name% how about we fight again, its been a while pause>nul :rival-battle-Cerulean-City set rivalstarterlvl=10 set /a rivalstarterhp=%rivalstarterlvl%*4 if '%music%' == '1' ( start Wild-Pokemon-Battle.mp3 ) :rivalbattle-Cerulean-City cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted pause>nul goto rivalbattlelost-Cerulean-City ) set /p wildpokemonbattleoption-Cerulean-City= if '%wildpokemonbattleoption-Cerulean-City%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a rivalstarterhp=%rivalstarterhp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto rivalstarterattackkindcalc-Cerulean-City ) if '%wildpokemonbattleoption-Cerulean-City%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a rivalstarterhp=%rivalstarterhp%-3 pause>nul goto rivalstarterattackkindcalc-Cerulean-City ) if '%wildpokemonbattleoption-Cerulean-City%' == '3' goto rivalbattlepotion-Cerulean-City goto rivalbattle-Cerulean-City :rivalbattlepotion-Cerulean-City if '%potions%' LEQ 0 ( echo You don't have any potions left pause>nul ) if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto rivalstarterattackkindcalc-Cerulean-City :rivalstarterattackkindcalc-Cerulean-City if %rivalstarterhp% LEQ 0 ( set /a exp=%rivalstarterlvl%*5 echo. echo %rivalstarter% fainted echo. echo %starter% gained some exp pause>nul goto rivalbattlevictory-Cerulean-City ) set rivalstarterattackcalc-Cerulean-City=%random:~-1% if %rivalstarterattackcalc-Cerulean-City% GTR 1 goto rivalstarterattackkindcalc-Cerulean-City if '%rivalstarterattackcalc-Cerulean-City%' == '0' ( set rivalstarterattackkind=Strong-attack set /a starterhp=%starterhp%-4 ) if '%rivalstarterattackcalc-Cerulean-City%' == '1' ( set rivalstarterattackkind=Accurate-attack set /a starterhp=%starterhp%-3 ) goto rivalstarterturn-Cerulean-City :rivalstarterturn-Cerulean-City cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo %rival%: %rivalstarter% use %rivalstarterattackkind% echo ---------------------------------------------------------------------- pause>nul goto rivalbattle-Cerulean-City :rivalbattlelost-Cerulean-City cls echo %rival%: Haha, you should have known %name% pause>nul cls echo %rival%: I will always be better at training Pokemon than you will echo ever be! pause>nul cls if '%music%' == '1' ( start Cerulean-Fussia-City.mp3 ) echo Nurse Joy: Oh %name% your %pokemon% is hurt pause>nul cls echo Nurse Joy: Come with me and ill heal him with my love pause>nul cls echo Your %starter% is blushed red pause>nul set /a starterhp=%starterlvl%*4 goto Cerulean-City-1 :rivalbattlevictory-Cerulean-City cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up pause>nul cls ) echo %rival%: You won this time, and only because of luck pause>nul cls echo You got $500 for winning set /a money=%money%+500 pause>nul cls echo %rival%: Smell ya later! pause>nul goto route-24-25 :route-24-25 cls echo noting here yet pause>nul goto Cerulean-City
lukescofield
Pimiento
Jan 6, 2015
lukescofield
does ' and other symbols act different in win 8(7,xp,etc.) because in hidde663's version i'm finding a crazy amount of bugs the one i'm stuck on is in the rival battle i got to the second go of trying to defeat him and it says that ' is unexpected i've been trying to fix it but i can't how does the rival battle work on the second does it loop until you win or fail or go to the end cause thats a game breaking bug id be happy to help if i know whats going on but really nice hidde (just hate the bugs, by the way what os are you running) 1312 lines of code :0
hidde663
Pimiento
 Jan 13, 2015
hidde663
Software
ill change the above comment to my new 2291line long one. im using windows 7, and yes it should stop working at some point because i stopped working on it at that point. - you can now go till cerulean city and fight all the gym leaders except for Giovanni(but hes the 8th ofc) the game should not crash anymore but simply put you back to cerulean city after you beat %rival% on the cerulean bridge(altho im not sure since i havent worked on it for months)
williamhoye
Pimiento
Feb 11, 2015
williamhoye
Other
This is absolutely amazing, especially the get other services from Nurse Joy
Flashbang941
Pimiento
Jul 23, 2015
Flashbang941
Software
I am currently revising this ill post the code when finished may be a while though :/
Flashbang941
Pimiento
Jul 23, 2015
Flashbang941
Software
*All new code for battle *All new code for choosing starter Pokemon *Added colors for each Pokemon *Removed bugs @echo off color 05 mode 125, 37 title PokeBatch - Pokemon in Batch (re-coded by Bryan Goss) :bios cls echo \-------------------------------------------------------\ echo \ Memory options \ echo \-------------------------------------------------------\ echo. echo 1) Start a new game echo 2) Load an existing game set /p memoptions= if '%memoptions%' == '1' goto Begin1 if '%memoptions%' == '2' goto loadgame goto bios :loadgame cls echo \-------------------------------------------------------\ echo \ Load menu \ echo \-------------------------------------------------------\ echo. echo What was your name in the saved game? set /p oldname= if '%oldname%' == '' goto loadgame ( set /p music=0 set /p name=%name% set /p starter=%starter% set /p starterlvl=%starterlvl% set /p starterhp=%starterhp% set /p rival=%rival% set /p rivalstarterlvl=%rivalstarterlvl% set /p rivalstarter=%rivalstarter% set /p rival=%rivalstarter% set /p money=%money% set /p potions=%potions% set /p Fishingrod=%Fishingrod% set /p HM_surf=%HM_surf% set /p HM_fly=%HM_fly% set /p location=%location% set /p exp=%exp% set /p exptill=%exptill% set /p badges=%badges% set /p bikevoucher=%bikevoucher% set /p bike=%bike% set /p rivalgender=%rivalgender% )<%oldname%.txt if '%name%' == '' ( cls echo \-------------------------------------------------------\ echo \ Error \ echo \-------------------------------------------------------\ echo. echo The saved game with that name does not exist pause>nul goto bios ) if '%starter%' == 'BULBASAUR' ( color 2F ) if '%starter%' == 'SQUIRTLE' ( color 9F ) if '%starter%' == 'CHARMANDER' ( color 4F ) if '%starter%' == 'PIKACHU' ( color 6F ) if '%starter%' == 'EEVEE' ( color 5F ) goto %location% :savegame cls echo \-------------------------------------------------------\ echo \ Save menu \ echo \-------------------------------------------------------\ echo. echo Saving to %name%.txt in the game folder ( echo 0 echo %name% echo %starter% echo %starterlvl% echo %starterhp% echo %rival% echo %rivalstarterlvl% echo %rivalstarter% echo %money% echo %potions% echo %Fishingrod% echo %HM_surf% echo %HM_fly% echo %location% echo %exp% echo %exptill% echo %badges% echo %bikevoucher% echo %bike% echo %rivalgender% )>%name%.txt echo. echo press any key to continue pause >nul cls goto %location% :begin1 :begin2 cls echo \-------------------------------------------------------\ echo \ PokeBatch - Pokemon in Batch (re-coded by Bryan Goss) \ echo \-------------------------------------------------------\ echo press any key to continue pause >nul cls echo a man approaches echo. echo press any key to continue pause >nul cls echo ???: Hi. My name is Prof. Oak. echo. echo press any key to continue pause >nul cls echo Prof. Oak: Welcome to the wonderful world of Pokemon! echo. echo press any key to continue pause >nul :choosename cls echo Prof. Oak: It seems I don't remember your name. What is it? echo (enter your name) set /p name= if '%name%' == '' goto choosename cls echo Hi %name%! It's nice seeing you again echo. echo press any key to continue pause >nul :girlorboy cls echo %name%, Are you a boy or a girl? echo (Enter 'Boy', or 'Girl') set /p gender= if '%gender%'=='Boy' goto skip if '%gender%'=='boy' goto skip if '%gender%'=='Girl' goto skip if '%gender%'=='girl' goto skip goto girlorboy :skip cls echo Prof. Oak: Aah.. so you are a %gender% echo. echo press any key to continue pause >nul cls :rival-name cls echo Prof. Oak: I think i'm getting old, can you tell me your rivals name? set /p rival= if '%rival%' == '' goto rival-name cls echo Ah of course there name was %rival%! I hope i wont forget again echo. echo press any key to continue pause >nul cls echo Prof. Oak: So %name% what are you waiting for, choose your Pokemon echo. echo press any key to continue pause >nul cls :player set Fishingrod=0 set HM_surf=0 set HM_fly=0 set money=2000 set potions=1 :starter-stats set starterlvl=5 set /a starterhp=20 set exp=0 set exptill=25 set badges=0 set bikevoucher=0 set bike=0 :choose-pokemon cls echo \---------------------------------------------------\ echo \ BULBASAUR (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick BULBASAUR? echo. echo Type y to choose BULBASAUR or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=BULBASAUR color 0A cls echo %rival%: Then i will chose CHARMANDER set rivalstarter=CHARMANDER pause>nul goto chosen ) cls echo \---------------------------------------------------\ echo \ SQUIRLTE (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick SQUIRTLE? echo. echo Type y to choose SQUIRLTE or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=SQUIRTLE color 0B cls echo %rival%: Then i will chose BULBASAUR set rivalstarter=BULBASAUR echo. echo press any key to continue pause >nul cls goto chosen ) cls echo \---------------------------------------------------\ echo \ CHARMANDER (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick CHARMANDER? echo. echo Type y to choose CHARMANDER or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=CHARMANDER color 04 cls echo %rival%: Then i will chose SQUIRTLE set rivalstarter=SQUIRTLE echo. echo press any key to continue pause >nul cls goto chosen )	cls echo \---------------------------------------------------\ echo \ PIKACHU (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick PIKACHU? echo. echo Type y to choose PIKACHU or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=PIKACHU color 06 cls echo %rival%: Then i will chose EEVEE set rivalstarter=EEVEE echo. echo press any key to continue pause >nul cls goto chosen ) cls echo \---------------------------------------------------\ echo \ EEVEE (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick EEVEE? echo. echo Type y to choose EEVEE or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=EEVEE color 05 cls echo %rival%: Then i will chose PIKACHU set rivalstarter=PIKACHU echo. echo press any key to continue pause >nul cls goto chosen )	if '%yno%' == '' ( goto choose-pokemon ) :chosen cls echo Prof. Oak: Congratulations, you've just become a Pokemon trainer echo. echo press any key to continue pause >nul cls echo Prof. Oak: Make sure to have fun with %starter% echo. echo press any key to continue pause >nul cls echo Prof. Oak: Collect Gym badges and compete in the Pokemon League echo. echo press any key to continue pause >nul cls echo Prof. Oak: Good luck echo. echo press any key to continue pause >nul cls echo %rival%: Hey %name% let's try out our new Pokemon echo. echo press any key to continue pause >nul cls :rival set rivalstarterlvl=5 set /a rivalstarterhp=%rivalstarterlvl%*4 :rivalbattle cls set move= set choice= set rivalcount=0 echo. echo \---------------------------------------------------\ echo \ %rivalstarter% Lvl %rivalstarterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %rivalstarterhp% echo. echo. echo \---------------------------------------------------\ echo \ %starter% Lvl %starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) set /p move=Select your option: if '%move%'=='1' goto Strongattack if '%move%'=='2' goto Accurateattack if '%move%'=='3' goto Flee if '%move%'=='' goto 17313Bryan30727Goss5602 goto 17313Bryan30727Goss5602 :Strongattack cls if '%Strongattack%'=='0' goto noStrongattack echo. echo %starter% has used Strong attack on %rivalstarter%! echo Hit! echo. echo %rivalstarter% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a rivalstarterhp=%rivalstarterhp% - 5 set /a Strongattack=%Strongattack% - 1 if '%rivalstarterhp%'=='0' goto win goto rival1 :noStrongattack echo. echo You can't use a Strong attack since you have ran out of PP! echo. echo press any key to continue pause >nul cls goto 17313Bryan30727Goss5602 :Accurateattack cls if '%Accurateattack%'=='0' goto noAccurateattack echo. echo %starter% has used Accurate attack %rivalstarter%! echo. echo Hit! echo. echo %rivalstarter% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a rivalstarterhp=%rivalstarterhp% - 2 set /a Accurateattack=%Accurateattack% - 1 if '%rivalstarterhp%'=='0' goto win goto rival1 :noAccurateattack echo. echo You can't use a Accurate attack since you have ran out of PP! echo. echo press any key to continue pause >nul cls goto 17313Bryan30727Goss5602 :win :rivalstarterattackkindcalc if %rivalstarterhp% LEQ 0 ( set /a exp=%rivalstarterlvl%*5 echo. echo %rivalstarter% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto rivalbattlevictory :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto city-2 :rival1 :rival2 set /a choice=%random% %%2 +1 if '%choice%'=='0' goto rival2 if '%choice%'=='1' goto rivalStrongattack if '%choice%'=='2' goto rivalAccurateattack :rivalStrongattack cls if '%rivalStrongattack%'=='0' goto norivalStrongattack echo. echo %rivalstarter% has used Strong attack on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a HpUser=%starterhp% - 5 set /a rivalStrongattack=%rivalStrongattack% - 1 if '%starterhp% '=='0' goto rivalwin goto 17313Bryan30727Goss5602 :norivalStrongattack echo. ping localhost -4 >nul echo %rivalstarter% can't use a Strong attack since they don't have any PP left! echo. echo press any key to continue pause >nul cls set rivalcount=0 goto rival1 :rivalAccurateattack cls if '%rivalAccurateattack%'=='0' goto norivalAccurateattack ping localhost -4 >nul echo. echo %rivalstarter% Used Accurate attack on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. set /a HpUser=%starterhp% - 2 set /a rivalAccurateattack=%rivalAccurateattack% - 1 if '%starterhp% '=='0' goto rivalwin if '%starterhp% '=='-100' goto rivalwin if '%starterhp% '=='-200' goto rivalwin if '%starterhp% '=='-300' goto rivalwin goto 17313Bryan30727Goss5602 :norivalAccurateattack echo. echo %rivalstarter% can't use Accurate attack since they ran out of PP! echo. echo press any key to continue pause >nul cls set rivalcount=0 goto rival1 :rivalwin :rivalbattlelost cls echo %rival%: Haha, you should have known %name% echo. echo press any key to continue pause >nul cls echo %rival%: I will always be better at training Pokemon than you will echo ever be! echo. echo press any key to continue pause >nul cls echo Mom: Oh %name% your %pokemon% is hurt echo. echo press any key to continue pause >nul cls echo Mom: Come with me and ill heal him with my love pause>nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Pallet-Town-1 :rivalbattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up echo. echo press any key to continue pause >nul cls echo %rival%: You won this time, and only because of luck echo. echo press any key to continue pause >nul cls echo You got $500 for winning set /a money=%money%+500 echo. echo press any key to continue pause >nul cls echo %rival%: Smell ya later! echo. echo press any key to continue pause >nul cls echo Mom: Oh %name% your %pokemon% is hurt echo. echo press any key to continue pause >nul cls echo Mom: Come with me and ill heal him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls set /a starterhp=10+(%starterlvl%*2) goto Pallet-Town-1 :Pallet-Town set location=Pallet-Town cls echo \---------------------------------------------------\ echo \ Pallet Town \ echo \---------------------------------------------------\ echo. echo 1) Go to %name% house echo 2) Go to %rival%'s house echo 3) Go to the Pokemon Lab echo 4) Go to Viridian City, by following Route-1 echo 5) Go to the water and begin surfing echo 6) Go to the water and begin fishing set /p Pallet-Town-option= if '%Pallet-Town-option%' == '1' goto Pallet-Town-1 if '%Pallet-Town-option%' == '2' goto Pallet-Town-2 if '%Pallet-Town-option%' == '3' goto Pallet-Town-3 if '%Pallet-Town-option%' == '4' goto Pallet-Town-4 if '%Pallet-Town-option%' == '5' goto Pallet-Town-5 if '%Pallet-Town-option%' == '6' goto Pallet-Town-6 goto Pallet-Town :Pallet-Town-1 set location=Pallet-Town cls echo \---------------------------------------------------\ echo \ Home \ echo \---------------------------------------------------\ echo __!!_______________ echo / !! /\\ echo / /__\ / \\ echo /_________________/ \\ echo ! ! /\ ! echo ! ! / \ ! echo !________________! ! ! ! echo 1) Talk to your Mom echo 2) Rest here for a while (heals your pokemon) echo 3) Go back echo 4) Save the game set /p Pallet-Town-1-option= if '%Pallet-Town-1-option%' == '1' goto Pallet-Town-1-1 if '%Pallet-Town-1-option%' == '2' set /a starterhp=%starterlvl%*4 if '%Pallet-Town-1-option%' == '3' goto Pallet-Town if '%Pallet-Town-1-option%' == '4' goto savegame goto Pallet-Town-1 :Pallet-Town-1-1 cls set location=Pallet-Town echo Mom: %name%! Its a shame that your dad isn't around to echo see you grow up echo. echo press any key to continue pause >nul cls echo Mom: You've grown so fast, but i guess all birds leave echo the nest at some point echo. echo press any key to continue pause >nul cls echo Mom: You have my permission to go and travel the Kanto region, echo but you have to contact me every week to keep in touch echo. echo press any key to continue pause >nul cls goto Pallet-Town-1 :Pallet-Town-2 cls echo \---------------------------------------------------\ echo \ Gary's House \ echo \---------------------------------------------------\ echo __!!_______________ echo / !! /\\ echo / /__\ / \\ echo /_________________/ \\ echo ! ! /\ ! echo ! ! / \ ! echo !________________! ! ! ! echo 1) Talk to Gary's Mom echo 2) Go back set /p Pallet-Town-2-option= if '%Pallet-Town-2-option%' == '1' goto Pallet-Town-2-1 if '%Pallet-Town-2-option%' == '2' goto Pallet-Town goto Pallet-Town-2 :Pallet-Town-2-1 cls echo %rival%'s Mom: Hey, you're the boii from next door right echo. echo press any key to continue pause >nul cls echo %rival%'s Mom: Here take this, it's a Town-map echo. echo press any key to continue pause >nul cls echo %rival%'s Mom: It may or may not influence your experiences echo. echo press any key to continue pause >nul cls goto Pallet-Town-2 :Pallet-Town-3 cls echo \---------------------------------------------------\ echo \ Pokemon Lab \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo !_______\\ //_______! echo /___________________\ echo ! ! ___ ! ! echo ! ! / \ ! ! echo !_____! !___! !_____! echo. echo 1) Talk to Professor Oak echo 2) Go back set /p Pallet-Town-3-option= if '%Pallet-Town-3-option%' == '1' goto Pallet-Town-3-1 if '%Pallet-Town-3-option%' == '2' goto Pallet-Town goto Pallet-Town-3 :Pallet-Town-3-1 cls echo Prof Oak: Oh hi %name% I am a little busy right now echo. echo press any key to continue pause >nul cls echo Prof Oak: It's about compressing Pokemon into data so they can echo be stored in a computer, its really complicated and also crazy echo. echo press any key to continue pause >nul cls :Pallet-Town-4 cls echo \---------------------------------------------------\ echo \ Route-1 \ echo \---------------------------------------------------\ echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( (\ echo. echo You stepped out of Pallet town pause>nul cls echo You are walking on tall grass echo. echo Something is inside the grass echo. echo press any key to continue pause >nul cls goto wildpokemonlvl-calc :Pallet-Town-5 cls if '%HM_surf%' == '0' ( echo You do not have the HM_surf, so you can't surf pause>nul goto Pallet-Town ) if '%HM_surf%' == '1' ( echo You used one of your Pokemon to surf echo. echo press any key to continue pause >nul cls goto Route-21 ) :Pallet-Town-6 cls if '%Fishingrod%' == '0' echo You do not have a fishing rod, so you can't fish if '%Fishingrod%' == '1' echo nothing here yet echo. echo press any key to continue pause >nul cls goto Pallet-Town :wildpokemonlvl-calc set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 6 goto wildpokemonlvl-calc if '%wildpokemonkind%' == '0' set wildpokemon=POLIWAG if '%wildpokemonkind%' == '1' set wildpokemon=SPARROW if '%wildpokemonkind%' == '2' set wildpokemon=RATTATA if '%wildpokemonkind%' == '3' set wildpokemon=PIDGEY if '%wildpokemonkind%' == '4' set wildpokemon=SANDSHREW if '%wildpokemonkind%' == '5' set wildpokemon=MANKEY if '%wildpokemonkind%' == '6' set wildpokemon=DIGLET :wildpokemon-route-1 cls echo A wild %wildpokemon% has appeared echo. echo %wildpokemon%: %wildpokemon% echo. echo %name%: Go %starter% i choose you echo. echo %starter%: %starter% echo. echo press any key to continue pause >nul cls :wildpokemon-stats set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto wildpokemon-stats if '%wildpokemonlvlcalc%' == '0' set wildpokemonlvl=2 if '%wildpokemonlvlcalc%' == '1' set wildpokemonlvl=3 if '%wildpokemonlvlcalc%' == '2' set wildpokemonlvl=4 set /a wildpokemonhp=%wildpokemonlvl%*4 :wildpokemon-battle cls if %starterhp% LEQ 0 goto wildpokemonbattlelost echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) echo 4) [Run] set /p wildpokemon-battle-option= if '%wildpokemon-battle-option%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a wildpokemonhp=%wildpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed echo. echo press any key to continue pause >nul cls goto wildpokemon-attack-kind-calc ) if '%wildpokemon-battle-option%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Accurate-attack echo ---------------------------------------------------------------------- set /a wildpokemonhp=%wildpokemonhp%-3 echo. echo press any key to continue pause >nul cls goto wildpokemon-attack-kind-calc ) if '%wildpokemon-battle-option%' == '3' goto potion-wildpokemon-battle if '%wildpokemon-battle-option%' == '4' ( cls echo You run as fast as you can towards Viridian City echo. echo press any key to continue pause >nul cls goto Viridian-City) goto wildpokemon-battle :potion-wildpokemon-battle cls if '%potions%' LEQ 0 ( echo You don't have any potions left echo. echo press any key to continue pause >nul cls if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 goto wildpokemon-attack-kind-calc :wildpokemonbattlewin set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo. echo Your %starter% has LVL'd up echo. echo press any key to continue pause >nul cls goto Viridian-City :wildpokemonbattlelost cls echo Mom: oh no my little man got hurt by a %wildpokemon% pause>nul cls echo Mom: Here take some tea pause>nul set /a starterhp=%starterlvl%*4 goto Pallet-Town-1 :wildpokemon-attack-kind-calc cls if %wildpokemonhp% LEQ 0 ( set /a exp=%wildpokemonlvl%*5 echo. echo %wildpokemon% fainted echo. echo %starter% gained some exp pause>nul goto wildpokemonbattlewin ) set wildpokemon-attack-calc=%random:~-1% if %wildpokemon-attack-calc% GTR 1 goto wildpokemon-attack-kind-calc if '%wildpokemon-attack-calc%' == '0' ( set wildpokemon-attack-kind=Strong-attack set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a starterhp=%starterhp%-4 goto wildpokemon-turn ) if '%wildpokemon-attack-calc%' == '1' ( set wildpokemon-attack-kind=Accurate-attack set /a starterhp=%starterhp%-2 goto wildpokemon-turn ) :wildpokemon-turn cls if %wildpokemonhp% LEQ 0 goto wildpokemonbattlewin echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo Wild %wildpokemon% uses %wildpokemon-attack-kind% if '%stronghit%' LSS 5 echo %wildpokemon% missed pause>nul goto wildpokemon-battle :Viridian-City set location=Viridian-City cls echo \---------------------------------------------------\ echo \ Viridian-City \ echo \---------------------------------------------------\ echo. echo 1) Talk to the old man echo 2) Go to Pewter city by following Route-2 through Virirdian Forest echo 3) Go to the Pokemon center echo 4) Go to the Pokemon Gym echo 5) Go to the Pokemon markt echo 6) Go to Pallet Town by following Route-1 echo 7) Go to Victory Road by following Route-22 then Route-23 set /p Viridian-City-option= if '%Viridian-City-option%' == '1' goto Viridian-City-1 if '%Viridian-City-option%' == '2' goto Viridian-City-2 if '%Viridian-City-option%' == '3' goto Viridian-City-3 if '%Viridian-City-option%' == '4' goto Viridian-City-4 if '%Viridian-City-option%' == '5' goto Viridian-City-5 if '%Viridian-City-option%' == '6' goto Pallet-Town if '%Viridian-City-option%' == '7' goto Viridian-City-7 goto Viridian-City :Viridian-City-1 cls echo Old man: ZzZzZzZzZ.... ZzZzZzZzZ.... echo. echo press any key to continue pause >nul cls goto Viridian-City :Viridian-City-2 cls echo \---------------------------------------------------\ echo \ Route-2 \ echo \---------------------------------------------------\ echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( (\ echo. echo You stepped out of Viridian City echo. echo From here you can already see the Viridian Forest echo. echo press any key to continue pause >nul cls cls echo \---------------------------------------------------\ echo \ Viridian Forest \ echo \---------------------------------------------------\ echo. echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo i i i i i i i echo echo echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo i i i i i i i echo. echo. echo press any key to continue pause >nul cls goto Pewter-City :Viridian-City-3 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo ! //_\\ ! echo !_______\\_//_______! echo ! ! ___ ! ! echo ! ! ! ! ! ! echo !_____! !___! !_____! echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Viridian-City-3-option= if '%Viridian-City-3-option%' == '1' goto Viridian-City-3-1 if '%Viridian-City-3-option%' == '2' goto Viridian-City-3-2 if '%Viridian-City-3-option%' == '3' goto Viridian-City if '%Viridian-City-3-option%' == '4' goto savegame goto Viridian-City-3 :Viridian-City-3-1 cls echo Nurse Joy: My my, your %starter% does not look very good echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here let me fix him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here you go better than ever echo. echo press any key to continue pause >nul cls echo %starter%: %starter% pause>nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP echo. echo press any key to continue pause >nul cls goto Viridian-City-3 :Viridian-City-3-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" echo. echo press any key to continue pause >nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid echo. echo press any key to continue pause >nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! echo. echo press any key to continue pause >nul cls echo "You run away to town hiding your face" echo. echo press any key to continue pause >nul cls goto Viridian-City :Viridian-City-4 cls echo \---------------------------------------------------\ echo \ Viridian City Gym \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo !_______\\ //_______! echo /___________________\ echo ! ! ___ ! ! echo ! ! / \ ! ! echo !_____! !___! !_____! echo. echo 1) Enter the Gym echo 2) Go back set /p Viridian-City-4-option= if '%Viridian-City-4-option%' == '1' goto Viridian-City-4-1 if '%Viridian-City-4-option%' == '2' goto Viridian-City goto Viridian-City-4 :Viridian-City-4-1 cls if '%badges%' == '7' ( echo Giovanni: So you think you can beat me echo. echo press any key to continue pause >nul cls echo Giovanni: We'll see about that in a bit echo. echo press any key to continue pause >nul cls echo You don't the other 7 badges yet, so you can't fight with Giovanni echo. echo press any key to continue pause >nul cls goto Viridian-City-4 :Viridian-City-5 cls echo \---------------------------------------------------\ echo \ PokeMart \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo !_______\\ //_______! echo /___________________\ echo ! ! ___ ! ! echo ! ! / \ ! ! echo !_____! !___! !_____! echo. echo Shop keeper: Hello there little man, what can i do for you echo. echo You have money: %money% and potions: %potions% echo. echo 1) Buy potion echo 2) Go back set /p Viridian-City-5-option= if '%Viridian-City-5-option%' == '1' goto Viridian-City-5-1 if '%Viridian-City-5-option%' == '2' goto Viridian-City goto Viridian-City-5 :Viridian-City-5-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 set /a potions=%potions%+1 echo. echo press any key to continue pause >nul cls goto Viridian-City-5 ) echo Shop keeper: You do not have enough money to buy that echo. echo press any key to continue pause >nul cls goto Viridian-City-5 :Viridian-City-7 cls echo You do not yet have all 8 badges echo. echo press any key to continue pause >nul cls goto Viridian-City :Pewter-City set location=Pewter-City cls echo \---------------------------------------------------\ echo \ Pewter City \ echo \---------------------------------------------------\ echo. echo 1) Talk to the camper echo 2) Go to Mt. Moon by following route-3 echo 3) Go to the Pokemon center echo 4) Go to the Pokemon gym echo 5) Go to the Pokemon markt echo 6) Go to Viridian City through the Viridian Forest then follow Route-2 set /p Pewter-City-option= if '%Pewter-City-option%' == '1' goto Pewter-City-1 if '%Pewter-City-option%' == '2' goto Pewter-City-2 if '%Pewter-City-option%' == '3' goto Pewter-City-3 if '%Pewter-City-option%' == '4' goto Pewter-City-4 if '%Pewter-City-option%' == '5' goto Pewter-City-5 if '%Pewter-City-option%' == '6' goto Viridian-City goto Pewter-City :Pewter-City-1 cls echo Camper: What a nice day isn't it, there are no clouds to be seen echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-2 if '%badges%' == '0' ( cls echo [the road is blocked] echo. echo press any key to continue pause >nul cls goto Pewter-City ) :trainer cls set trainercalc=%random:~-1% if %trainercalc% GTR 1 goto trainer if '%trainercalc%' == '0' set trainermusic=Trainer1-appears if '%trainercalc%' == '1' set trainermusic=Trainer2-appears if '%music%' == '1' ( echo. echo press any key to continue pause >nul cls set trainerpokemon=SANDSHREW set trainerpokemonlvl=7 set /a trainerpokemonhp=%trainerpokemonlvl%*4 :Traner-battle-route-3 cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted echo. echo press any key to continue pause >nul cls goto trainerpokemonbattlelost ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a trainerpokemonhp=%trainerpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed echo. echo press any key to continue pause >nul cls goto trainerpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a trainerpokemonhp=%trainerpokemonhp%-3 echo. echo press any key to continue pause >nul cls goto trainerpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '3' goto trainerpokemonbattlepotion goto Traner-battle-route-3 :trainerpokemonbattlepotion if %potions% LEQ 0 ( echo You don't have any potions left echo. echo press any key to continue pause >nul cls if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto trainerpokemonattackkindcalc :trainerpokemonattackkindcalc if %trainerpokemonhp% LEQ 0 ( set /a exp=%trainerpokemonlvl%*5 echo. echo %trainerpokemon% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto trainerpokemonbattlevictory ) set trainerpokemonattackcalc=%random:~-1% if %trainerpokemonattackcalc% GTR 1 goto trainerpokemonattackkindcalc if '%trainerpokemonattackcalc%' == '0' ( set trainerpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto trainerpokemonturn ) if '%trainerpokemonattackcalc%' == '1' ( set trainerpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto trainerpokemonturn ) :trainerpokemonturn cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Trainer: %trainerpokemon% use %trainerpokemonattackkind% echo ---------------------------------------------------------------------- echo. echo press any key to continue pause >nul cls goto Traner-battle-route-3 :trainerpokemonbattlelost cls echo Trainer: I just can't get enough of winning, hahaha echo. echo press any key to continue pause >nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again echo. echo press any key to continue pause >nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Pewter-City-3 :trainerpokemonbattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 echo. echo press any key to continue pause >nul cls echo You got $500 for winning set /a money=%money%+500 echo. echo press any key to continue pause >nul cls goto Mt-Moon :Pewter-City-3 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo ! //_\\ ! echo !_______\\_//_______! echo ! ! ___ ! ! echo ! ! ! ! ! ! echo !_____! !___! !_____! echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Pewter-City-3-option= if '%Pewter-City-3-option%' == '1' goto Pewter-City-3-1 if '%Pewter-City-3-option%' == '2' goto Pewter-City-3-2 if '%Pewter-City-3-option%' == '3' goto Pewter-City if '%Pewter-City-3-option%' == '4' goto savegame goto Pewter-City-3 :Pewter-City-3-1 cls echo Nurse Joy: My my, your %starter% does not look very good echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here let me fix him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here you go better than ever pause>nul cls echo %starter%: %starter%! echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP echo. echo press any key to continue pause >nul cls goto Pewter-City-3 :Pewter-City-3-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" echo. echo press any key to continue pause >nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid echo. echo press any key to continue pause >nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! echo. echo press any key to continue pause >nul cls echo "You run away to town hiding your face" echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-4 cls echo \---------------------------------------------------\ echo \ Pewter City Gym \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo !_______\\ //_______! echo /___________________\ echo ! ! ___ ! ! echo ! ! / \ ! ! echo !_____! !___! !_____! echo. echo 1) Enter the gym echo 2) Go back set /p Pewter-City-4-option= if '%Pewter-City-4-option%' == '1' goto Pewter-City-4-1 if '%Pewter-City-4-option%' == '2' goto Pewter-City goto Pewter-City-4 :Pewter-City-4-1 cls if %badges% LSS 1 ( echo Brock: So you think you got what it takes to beat me echo. echo press any key to continue pause >nul cls echo Brock: Alright let's get started in here echo. echo press any key to continue pause >nul cls goto Pewter-City-4-1-1 ) echo Brock: %name% you have already proven yourself echo. echo press any key to continue pause >nul cls echo Brock: There is no point in fighting me again echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-4-1-1 set brockpokemon1=GEODUDE set brockpokemon1lvl=5 set /a brockpokemon1hp=%brockpokemon1lvl%*4 :brockbattle cls echo ---------------------------------------------------------------------- echo %brockpokemon1% LVL: %brockpokemon1lvl% HP: %brockpokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted echo. echo press any key to continue pause >nul cls goto brockbattlelost ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a brockpokemon1hp=%brockpokemon1hp%-5 if '%stronghit%' LSS 5 echo %starter% missed echo. echo press any key to continue echo. echo press any key to continue pause >nul cls cls goto brockpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a brockpokemon1hp=%brockpokemon1hp%-3 echo. echo press any key to continue pause >nul cls goto brockpokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '3' goto brockbattlepotion goto brockbattle :brockbattlepotion if %potions% LEQ 0 ( echo You don't have any potions left echo. echo press any key to continue pause >nul cls if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto brockpokemonattackkindcalc :brockpokemonattackkindcalc if %brockpokemon1hp% LEQ 0 ( set /a exp=%brockpokemon1lvl%*5 echo. echo %brockpokemon1% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls if '%brockpokemon1%' == 'ONIX' ( goto brockbattlevictory2 ) goto brockbattlevictory ) set brockpokemonattackcalc=%random:~-1% if %brockpokemonattackcalc% GTR 1 goto brockpokemonattackkindcalc if '%brockpokemonattackcalc%' == '0' ( set brockpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto brockpokemon1turn ) if '%brockpokemonattackcalc%' == '1' ( set brockpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto brockpokemon1turn ) :brockpokemon1turn cls echo ---------------------------------------------------------------------- echo %brockpokemon1% LVL: %brockpokemon1lvl% HP: %brockpokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Brock: %brockpokemon1% use %brockpokemonattackkind% echo ---------------------------------------------------------------------- echo. echo press any key to continue pause >nul cls goto brockbattle :brockbattlelost cls echo Brock: Come back when you can actually beat me %name% echo. echo press any key to continue pause >nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again echo. echo press any key to continue pause >nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Pewter-City-3 :brockbattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 echo. echo press any key to continue pause >nul cls goto brockbattle2 :brockbattle2 set brockpokemon1=ONIX set brockpokemon1lvl=7 set /a brockpokemon1hp=%brockpokemon1lvl%*4 goto brockbattle :brockbattlevictory2 cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 echo. echo press any key to continue pause >nul cls echo You got $800 for winning set /a money=%money%+800 echo. echo press any key to continue pause >nul cls echo Brock: Well done, you have proven yourself echo. echo press any key to continue pause >nul cls echo Brock: Here take this, it's the Boulder badge set badges=1 echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-5 cls echo \---------------------------------------------------\ echo \ PokeMart \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo !_______\\ //_______! echo /___________________\ echo ! ! ___ ! ! echo ! ! / \ ! ! echo !_____! !___! !_____! echo. echo Shop keeper: Hello there little man, what can i do for you echo. echo You have money: %money% and potions: %potions% echo. echo 1) Buy potion echo 2) Go back set /p Pewter-City-5-option= if '%Pewter-City-5-option%' == '1' goto Pewter-City-5-1 if '%Pewter-City-5-option%' == '2' goto Pewter-City goto Pewter-City-5 :Pewter-City-5-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 set /a potions=%potions%+1 echo. echo press any key to continue pause >nul cls goto Pewter-City-5 ) echo Shop keeper: You do not have enough money to buy that echo. echo press any key to continue pause >nul cls goto Pewter-City-5 :Pewter-City-6 cls echo \---------------------------------------------------\ echo \ Viridian Forest \ echo \---------------------------------------------------\ echo. echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo i i i i i i i echo echo echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo i i i i i i i echo. pause>nul goto Viridian-City :Mt-Moon set location=Mt-Moon cls echo \---------------------------------------------------\ echo \ Mt. Moon \ echo \---------------------------------------------------\ echo. echo 1) Go to the Pokemon center echo 2) Go inside the cave echo 3) Go back to Pewter City set /p Mt-Moon-options= if '%Mt-Moon-options%' == '1' goto Mt-Moon-1 if '%Mt-Moon-options%' == '2' goto Mt-Moon-2 if '%Mt-Moon-options%' == '3' goto Pewter-City goto Mt-Moon :Mt-Moon-1 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo ! //_\\ ! echo !_______\\_//_______! echo ! ! ___ ! ! echo ! ! ! ! ! ! echo !_____! !___! !_____! echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Mt-Moon-1-options= if '%Mt-Moon-1-options%' == '1' goto Mt-Moon-1-1 if '%Mt-Moon-1-options%' == '2' goto Mt-Moon-1-2 if '%Mt-Moon-1-options%' == '3' goto Mt-Moon if '%Mt-Moon-1-options%' == '4' goto savegame goto Mt-Moon-1 :Mt-Moon-1-1 cls echo Nurse Joy: My my, your %starter% does not look very good echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here let me fix him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here you go better than ever echo. echo press any key to continue pause >nul cls echo %starter%: %starter%! echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP echo. echo press any key to continue pause >nul cls goto Mt-Moon-1 :Mt-Moon-1-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" echo. echo press any key to continue pause >nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid echo. echo press any key to continue pause >nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! echo. echo press any key to continue pause >nul cls echo "You run away to town hiding your face" echo. echo press any key to continue pause >nul cls goto Mt-Moon :Mt-Moon-2 cls echo \---------------------------------------------------\ echo \ Mt-Moon cave \ echo \---------------------------------------------------\ echo. echo /\ /\ /\ /\ /\ /\ /\ /\ /\ echo /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /\ echo /####\/####\/####\/####\/####\/####\/####\/####\/####\/##\ echo /##########################################################\ echo /############################################################\ echo /##############################################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo. pause>nul goto Mt-Moon-2-1 :Mt-Moon-2-1 cls echo \---------------------------------------------------\ echo \ Mt-Moon cave \ echo \---------------------------------------------------\ echo. echo ###################################################################### echo #( ).....#...........................................................# echo #........#....###############################........................# echo #........#....#..........................................##..........# echo #........#....#..........................................##..........# echo #........#....#...........#...###############............##..........# echo #.............#...........#...#..........................##..........# echo #.............#...........#...#......................................# echo ###########################( )######################################## echo. echo 1) Fight a trainer echo 2) Go deeper into the cave echo 3) Look for a wild Pokemon echo 4) Go back set /p Mt-Moon-2-1-option= if '%Mt-Moon-2-1-option%' == '1' goto Mt-Moon-2-1-1 if '%Mt-Moon-2-1-option%' == '2' goto Route-4 if '%Mt-Moon-2-1-option%' == '3' goto Mt-Moon-2-1-3 if '%Mt-Moon-2-1-option%' == '4' goto Mt-Moon goto Mt-Moon-2-1 :Mt-Moon-2-1-1 :trainer-Mt-Moon cls set trainercalc=%random:~-1% if %trainercalc% GTR 1 goto trainer-Mt-Moon if '%trainercalc%' == '0' set trainermusic=Trainer1-appears if '%trainercalc%' == '1' set trainermusic=Trainer2-appears echo A trainer wants to fight echo. echo press any key to continue pause >nul cls set trainerpokemon=ZUBAT set trainerpokemonlvl=7 set /a trainerpokemonhp=%trainerpokemonlvl%*4 :Traner-battle-Mt-Moon cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted echo. echo press any key to continue pause >nul cls goto trainerpokemonbattlelost-Mt-Moon ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a trainerpokemonhp=%trainerpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed echo. echo press any key to continue pause >nul cls goto trainerpokemonattackkindcalc-Mt-Moon ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a trainerpokemonhp=%trainerpokemonhp%-3 echo. echo press any key to continue pause >nul cls goto trainerpokemonattackkindcalc-Mt-Moon ) if '%wildpokemonbattleoption%' == '3' goto trainerpokemonbattlepotion-Mt-Moon goto Traner-battle-Mt-Moon :trainerpokemonbattlepotion-Mt-Moon if %potions% LEQ 0 ( echo You don't have any potions left echo. echo press any key to continue pause >nul cls if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto trainerpokemonattackkindcalc-Mt-Moon :trainerpokemonattackkindcalc-Mt-Moon if %trainerpokemonhp% LEQ 0 ( set /a exp=%trainerpokemonlvl%*5 echo. echo %trainerpokemon% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto trainerpokemonbattlevictory-Mt-Moon ) set trainerpokemonattackcalc=%random:~-1% if %trainerpokemonattackcalc% GTR 1 goto trainerpokemonattackkindcalc-Mt-Moon if '%trainerpokemonattackcalc%' == '0' ( set trainerpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto trainerpokemonturn-Mt-Moon ) if '%trainerpokemonattackcalc%' == '1' ( set trainerpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto trainerpokemonturn-Mt-Moon ) :trainerpokemonturn-Mt-Moon cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Trainer: %trainerpokemon% use %trainerpokemonattackkind% echo ---------------------------------------------------------------------- echo. echo press any key to continue pause >nul cls goto Traner-battle-Mt-Moon :trainerpokemonbattlelost-Mt-Moon cls echo Trainer: I just can't get enough of winning, hahaha echo. echo press any key to continue pause >nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again echo. echo press any key to continue pause >nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Mt-Moon-1 :trainerpokemonbattlevictory-Mt-Moon cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 echo. echo press any key to continue pause >nul cls echo You got $400 for winning set /a money=%money%+400 echo. echo press any key to continue pause >nul cls goto Mt-Moon-2-1 :Mt-Moon-2-1-2 :wildpokemonlvl-calc-Mt-Moon set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 1 goto wildpokemonlvl-calc-Mt-Moon if '%wildpokemonkind%' == '0' set wildpokemon=ZUBAT if '%wildpokemonkind%' == '1' set wildpokemon=GEODUDE :wildpokemon-Mt-Moon cls echo A wild %wildpokemon% has appeared echo. echo %wildpokemon%: %wildpokemon% echo. echo %name%: Go %starter% i choose you echo. echo %starter%: %starter% pause>nul :wildpokemon-stats-Mt-Moon set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto wildpokemon-stats-Mt-Moon if '%wildpokemonlvlcalc%' == '0' set wildpokemonlvl=4 if '%wildpokemonlvlcalc%' == '1' set wildpokemonlvl=5 if '%wildpokemonlvlcalc%' == '2' set wildpokemonlvl=6 set /a wildpokemonhp=%wildpokemonlvl%*4 :wildpokemon-battle-Mt-Moon cls if %starterhp% LEQ 0 goto wildpokemonbattlelost-Mt-Moon echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) echo 4) [Run] set /p wildpokemon-battle-option= if '%wildpokemon-battle-option%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a wildpokemonhp=%wildpokemonhp%-5 if '%stronghit%' LSS 5 echo %starter% missed echo. echo press any key to continue pause >nul cls goto wildpokemon-attack-kind-calc-Mt-Moon ) if '%wildpokemon-battle-option%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Accurate-attack echo ---------------------------------------------------------------------- set /a wildpokemonhp=%wildpokemonhp%-3 echo. echo press any key to continue pause >nul cls goto wildpokemon-attack-kind-calc-Mt-Moon ) if '%wildpokemon-battle-option%' == '3' goto potion-wildpokemon-battle-Mt-Moon if '%wildpokemon-battle-option%' == '4' ( cls echo You run as fast as you can towards Viridian City echo. echo press any key to continue pause >nul cls goto Mt-Moon-2-1) goto wildpokemon-battle-Mt-Moon :potion-wildpokemon-battle-Mt-Moon cls if '%potions%' LEQ 0 ( echo You don't have any potions left echo. echo press any key to continue pause >nul cls if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 goto wildpokemon-attack-kind-calc-Mt-Moon :wildpokemonbattlewin-Mt-Moon set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo. echo Your %starter% has LVL'd up echo. echo press any key to continue pause >nul cls goto Mt-Moon-2-1 :wildpokemonbattlelost-Mt-Moon cls echo Nurse Joy: You got your %starter% hurt again, jerk echo. echo press any key to continue pause >nul cls echo Nurs Joy: Alright, ill fix him up echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Mt-Moon-1 :wildpokemon-attack-kind-calc-Mt-Moon cls if %wildpokemonhp% LEQ 0 ( set /a exp=%wildpokemonlvl%*5 echo. echo %wildpokemon% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto wildpokemonbattlewin-Mt-Moon ) set wildpokemon-attack-calc=%random:~-1% if %wildpokemon-attack-calc% GTR 1 goto wildpokemon-attack-kind-calc-Mt-Moon if '%wildpokemon-attack-calc%' == '0' ( set wildpokemon-attack-kind=Strong-attack set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a starterhp=%starterhp%-4 goto wildpokemon-turn-Mt-Moon ) if '%wildpokemon-attack-calc%' == '1' ( set wildpokemon-attack-kind=Accurate-attack set /a starterhp=%starterhp%-2 goto wildpokemon-turn-Mt-Moon ) :wildpokemon-turn-Mt-Moon cls if %wildpokemonhp% LEQ 0 goto wildpokemonbattlewin-Mt-Moon echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo Wild %wildpokemon% uses %wildpokemon-attack-kind% if '%stronghit%' LSS 5 echo %wildpokemon% missed echo. echo press any key to continue pause >nul cls goto wildpokemon-battle-Mt-Moon :Route-4 cls echo \---------------------------------------------------\ echo \ Route-4 \ echo \---------------------------------------------------\ echo. echo The road is under construction echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City set location=Cerulean-City cls echo \---------------------------------------------------\ echo \ Cerulean City \ echo \---------------------------------------------------\ echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to Mt. Moon through a special passage echo 5) Go to the bike shop echo 6) Go to Route 24 and 25 by crossing the bridge set /p Cerulean-City-option= if '%Cerulean-City-option%' == '1' goto Cerulean-City-1 if '%Cerulean-City-option%' == '2' goto Cerulean-City-2 if '%Cerulean-City-option%' == '3' goto Cerulean-City-3 if '%Cerulean-City-option%' == '4' goto Mt-Moon if '%Cerulean-City-option%' == '5' goto Cerulean-City-5 if '%Cerulean-City-option%' == '6' goto Cerulean-City-6 goto Cerulean-City :Cerulean-City-1 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo ! //_\\ ! echo !_______\\_//_______! echo ! ! ___ ! ! echo ! ! ! ! ! ! echo !_____! !___! !_____! echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game set /p Cerulean-City-1-options= if '%Cerulean-City-1-options%' == '1' goto Cerulean-City-1-1 if '%Cerulean-City-1-options%' == '2' goto Cerulean-City-1-2 if '%Cerulean-City-1-options%' == '3' goto Cerulean-City if '%Cerulean-City-1-options%' == '4' goto savegame goto Cerulean-City-1 :Cerulean-City-2 cls echo \---------------------------------------------------\ echo \ Cerulean City Gym \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo !_______\\ //_______! echo /___________________\ echo ! ! ___ ! ! echo ! ! / \ ! ! echo !_____! !___! !_____! echo. echo 1) Enter the gym echo 2) Go back set /p Cerulean-City-2-option= if '%Cerulean-City-2-option%' == '1' goto Cerulean-City-2-1 if '%Cerulean-City-2-option%' == '2' goto Cerulean-City goto Cerulean-City-2 :Cerulean-City-2-1 cls if %badges% LSS 2 ( echo Misty: So you think you got what it takes to beat me echo. echo press any key to continue pause >nul cls echo Misty: Alright let's get started in here echo. echo press any key to continue pause >nul cls goto Cerulean-City-2-1-1 ) echo Misty: %name% you have already proven yourself echo. echo press any key to continue pause >nul cls echo Misty: There is no point in fighting me again echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City-2-1-1 set Mistypokemon1=STARYU set Mistypokemon1lvl=8 set /a Mistypokemon1hp=%Mistypokemon1lvl%*4 :Mistybattle cls echo ---------------------------------------------------------------------- echo %Mistypokemon1% LVL: %Mistypokemon1lvl% HP: %Mistypokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted echo. echo press any key to continue pause >nul cls goto Mistybattlelost ) set /p wildpokemonbattleoption= if '%wildpokemonbattleoption%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a Mistypokemon1hp=%Mistypokemon1hp%-5 if '%stronghit%' LSS 5 echo %starter% missed pause>nul goto Mistypokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a Mistypokemon1hp=%Mistypokemon1hp%-3 echo. echo press any key to continue pause >nul cls goto Mistypokemonattackkindcalc ) if '%wildpokemonbattleoption%' == '3' goto Mistybattlepotion goto Mistybattle :Mistybattlepotion if %potions% LEQ 0 ( echo You don't have any potions left echo. echo press any key to continue pause >nul cls if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto Mistypokemonattackkindcalc :Mistypokemonattackkindcalc if %Mistypokemon1hp% LEQ 0 ( set /a exp=%Mistypokemon1lvl%*5 echo. echo %Mistypokemon1% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls if '%Mistypokemon1%' == 'STARMIE' ( goto Mistybattlevictory2 ) goto Mistybattlevictory ) set Mistypokemonattackcalc=%random:~-1% if %Mistypokemonattackcalc% GTR 1 goto Mistypokemonattackkindcalc if '%Mistypokemonattackcalc%' == '0' ( set Mistypokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto Mistypokemon1turn ) if '%Mistypokemonattackcalc%' == '1' ( set Mistypokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto Mistypokemon1turn ) :Mistypokemon1turn cls echo ---------------------------------------------------------------------- echo %Mistypokemon1% LVL: %Mistypokemon1lvl% HP: %mistypokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo misty: %mistypokemon1% use %mistypokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto mistybattle :mistybattlelost cls echo Misty: Come back when you can actually beat me %name% pause>nul cls echo Nurse Joy: Damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Cerulean-City-1 :mistybattlevictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 echo. echo press any key to continue pause >nul cls goto mistybattle2 :mistybattle2 set mistypokemon1=STARMIE set mistypokemon1lvl=12 set /a mistypokemon1hp=%mistypokemon1lvl%*4 goto mistybattle :mistybattlevictory2 cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 echo. echo press any key to continue pause >nul cls echo You got $900 for winning set /a money=%money%+900 echo. echo press any key to continue pause >nul cls echo Misty: Well done, you have proven yourself pause>nul cls echo Misty: Here take this, it's the Cascade Badge set badges=2 echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City-3 cls echo \---------------------------------------------------\ echo \ PokeMart \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo !_______\\ //_______! echo /___________________\ echo ! ! ___ ! ! echo ! ! / \ ! ! echo !_____! !___! !_____! echo. echo Shop keeper: Hello there little man, what can i do for you echo. echo You have money: %money% and potions: %potions% echo. echo 1) Buy potion echo 2) Go back set /p Cerulean-City-3-option= if '%Cerulean-City-3-option%' == '1' goto Cerulean-City-3-1 if '%Cerulean-City-3-option%' == '2' goto Cerulean-City goto Cerulean-City-3 :Cerulean-City-3-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 set /a potions=%potions%+1 echo. echo press any key to continue pause >nul cls goto Cerulean-City-3 ) echo Shop keeper: You do not have enough money to buy that echo. echo press any key to continue pause >nul cls goto Cerulean-City-3 :Cerulean-City-5 cls echo \---------------------------------------------------\ echo \ Bike shop \ echo \---------------------------------------------------\ echo __!!_______________ echo / !! /\\ echo / /__\ / \\ echo /_________________/ \\ echo ! ! /\ ! echo ! ! / \ ! echo !________________! ! ! ! echo. echo Shop keeper: Well hello there young man, how can i help you? echo. echo You have money: %money% echo. echo 1) Buy a bike ( $1,000,000 ) echo 2) Get a bike for a Bike-Voucher set /p Cerulean-City-5option= if '%Cerulean-City-5option%' == '1' goto Cerulean-City-5-1 if '%Cerulean-City-5option%' == '2' goto Cerulean-City-5-2 goto Cerulean-City-5 :Cerulean-City-5-1 cls if '%money%' GEQ '1000000' ( set bikevoucher=0 set bike=1 set /a money=%money%-1000000 echo Shop keeper: I have no idea where you got the money, but oh well echo. echo press any key to continue pause >nul cls echo Shop keeper: Here you go, a brand new bike goto Cerulean-City-5 ) echo You do not have enough money to buy that echo. echo press any key to continue pause >nul cls goto Cerulean-City-5 :Cerulean-City-5-2 cls if '%bikevoucher%' == '1' ( set bikevoucher=0 set bike=1 echo Shop keeper: Here you go, a brand new bike echo. echo press any key to continue pause >nul cls goto Cerulean-City-5 ) echo Shop keeper: You don't seem to have a a Bike-Voucher echo. echo press any key to continue pause >nul cls goto Cerulean-City-5 :Cerulean-City-6 cls echo \---------------------------------------------------\ echo \ Cerulean City Bridge \ echo \---------------------------------------------------\ echo echo \ _____ / echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i-i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i-i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i-i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i-i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i-i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i-i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i-i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo / _____ \ echo. echo 1) Cross the bridge echo 2) Go back to Cerulean city set /p Cerulean-City-6-option= if '%Cerulean-City-6-option%' == '1' goto rival-encouter-Cerulean-City if '%Cerulean-City-6-option%' == '2' goto Cerulean-City goto Cerulean-City-6 :rival-encouter-Cerulean-City cls echo %rival%: Oh hey %name% how about we fight again, its been a while echo. echo press any key to continue pause >nul cls :rival-battle-Cerulean-City set rivalstarterlvl=10 set /a rivalstarterhp=%rivalstarterlvl%*4 :rivalbattle-Cerulean-City cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LEQ 0 ( echo. echo %starter% fainted echo. echo press any key to continue pause >nul cls goto rivalbattlelost-Cerulean-City ) set /p wildpokemonbattleoption-Cerulean-City= if '%wildpokemonbattleoption-Cerulean-City%' == '1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a rivalstarterhp=%rivalstarterhp%-5 if '%stronghit%' LSS 5 echo %starter% missed echo. echo press any key to continue pause >nul cls goto rivalstarterattackkindcalc-Cerulean-City ) if '%wildpokemonbattleoption-Cerulean-City%' == '2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a rivalstarterhp=%rivalstarterhp%-3 echo. echo press any key to continue pause >nul cls goto rivalstarterattackkindcalc-Cerulean-City ) if '%wildpokemonbattleoption-Cerulean-City%' == '3' goto rivalbattlepotion-Cerulean-City goto rivalbattle-Cerulean-City :rivalbattlepotion-Cerulean-City if '%potions%' LEQ 0 ( echo You don't have any potions left echo. echo press any key to continue pause >nul cls if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto rivalstarterattackkindcalc-Cerulean-City :rivalstarterattackkindcalc-Cerulean-City if %rivalstarterhp% LEQ 0 ( set /a exp=%rivalstarterlvl%*5 echo. echo %rivalstarter% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto rivalbattlevictory-Cerulean-City ) set rivalstarterattackcalc-Cerulean-City=%random:~-1% if %rivalstarterattackcalc-Cerulean-City% GTR 1 goto rivalstarterattackkindcalc-Cerulean-City if '%rivalstarterattackcalc-Cerulean-City%' == '0' ( set rivalstarterattackkind=Strong-attack set /a starterhp=%starterhp%-4 ) if '%rivalstarterattackcalc-Cerulean-City%' == '1' ( set rivalstarterattackkind=Accurate-attack set /a starterhp=%starterhp%-3 ) goto rivalstarterturn-Cerulean-City :rivalstarterturn-Cerulean-City cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo %rival%: %rivalstarter% use %rivalstarterattackkind% echo ---------------------------------------------------------------------- pause>nul goto rivalbattle-Cerulean-City :rivalbattlelost-Cerulean-City cls echo %rival%: Haha, you should have known %name% echo. echo press any key to continue pause >nul cls cls echo %rival%: I will always be better at training Pokemon than you will echo ever be! echo. echo press any key to continue pause >nul cls cls echo Nurse Joy: Oh %name% your %pokemon% is hurt echo. echo press any key to continue pause >nul cls echo Nurse Joy: Come with me and ill heal him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Cerulean-City-1 :rivalbattlevictory-Cerulean-City cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up echo. echo press any key to continue pause >nul cls echo %rival%: You won this time, and only because of luck echo. echo press any key to continue pause >nul cls echo You got $500 for winning set /a money=%money%+500 echo. echo press any key to continue pause >nul cls echo %rival%: Smell ya later! echo. echo press any key to continue pause >nul cls goto route-24-25 :route-24-25 cls echo noting here yet echo. echo press any key to continue pause >nul cls goto Cerulean-City
Flashbang941
Pimiento
Jul 23, 2015
Flashbang941
Software
DO NOT DOWNLOAD THIS ONE /\ /\ /\ /\ /\ /\ SOOOO MANY BUGS! I have found most of them and working on it
Flashbang941
Pimiento
Jul 26, 2015
Flashbang941
Software
3 days straight but I have removed ALL bugs :D The art will be jacked up Feel free to add more to the game if you like :) Hear you go :D @echo off color 05 mode 125, 37 title PokeBatch - Pokemon in Batch (re-coded by Bryan Goss) :bios cls echo \-------------------------------------------------------\ echo \ Memory options \ echo \-------------------------------------------------------\ echo. echo 1) Start a new game echo 2) Exit set /p memoptions= if '%memoptions%' == '1' goto Begin1 if '%memoptions%' == '2' Exit if '%memoptions%' == '3' goto BETATESTERMENU goto bios :BETATESTERMENU cls set name=Bryan set starter=SQUIRTLE set starterlvl=6 set starterhp=24 set rival=Morgan set rivalstarterlvl=5 set rivalstarter=BULBASAUR set rivalstarterCerulean=BULBASAUR set money=100000000 set Fishingrod=0 set HM_surf=0 set HM_fly=0 set location=Mt-Moon set badges=1 set bikevoucher=0 set bike=0 color 0B :ARACODEBETA cls echo \-------------------------------------------------------\ echo \ BETA TESTER MENU \ echo \-------------------------------------------------------\ echo. echo name=%name% echo starter=%starter% echo starterlvl=%starterlvl% echo starterhp=%starterhp% echo rival=%rival% echo rivalstarterlvl=%rivalstarterlvl% echo rivalstarter=%rivalstarter% echo rivalstarterCerulean=%rivalstarterCerulean% echo money=%money% echo location=%location% echo badges=%badges% echo. echo Enter you location and hit Enter set LOCATION=TypeSomething SET /P LOCATION= set LOCATION=%LOCATION:?=% call :%LOCATION: =% 2( exit /B 0)>NUL if %errorlevel% equ 0 goto ARACODEBETA :unknown echo That is not a valid location echo. echo press any key to continue pause >nul cls Goto ARACODEBETA :Nextstepsave if '%starter%' == 'BULBASAUR' ( color 0A) if '%starter%' == 'SQUIRTLE' ( color 0B) if '%starter%' == 'CHARMANDER' ( color 04) if '%starter%' == 'PIKACHU' ( color 06) if '%starter%' == 'EEVEE' ( color 05) goto %location% :savegame cls echo \-------------------------------------------------------\ echo \ Save menu \ echo \-------------------------------------------------------\ echo. echo Saving to %name%.txt in the game folder ( echo This is a broken feature, very sorry for any problems this may have caused echo. echo set name=%name% echo set starter=%starter% echo set starterlvl=%starterlvl% echo set starterhp=%starterhp% echo set rival=%rival% echo set rivalstarterlvl=%rivalstarterlvl% echo set rivalstarter=%rivalstarter% echo set money=%money% echo set Fishingrod=%Fishingrod% echo set HM_surf=%HM_surf% echo set HM_fly=%HM_fly% echo set location=%location% echo set badges=%badges% echo set bikevoucher=%bikevoucher% echo set bike=%bike% )>%name%.txt echo. echo press any key to continue pause >nul cls goto %location% :begin1 :begin2 cls echo \-------------------------------------------------------\ echo \ PokeBatch - Pokemon in Batch (re-coded by Bryan Goss) \ echo \-------------------------------------------------------\ echo press any key to continue pause >nul cls echo a man approaches echo. echo press any key to continue pause >nul cls echo ???: Hi. My name is Prof. Oak. echo. echo press any key to continue pause >nul cls echo Prof. Oak: Welcome to the wonderful world of Pokemon! echo. echo press any key to continue pause >nul :choosename cls echo Prof. Oak: It seems I don't remember your name. What is it? echo (enter your name) set /p name= if '%name%' == '' goto choosename cls echo Hi %name%! It's nice seeing you again echo. echo press any key to continue pause >nul :girlorboy cls echo %name%, Are you a boy or a girl? echo (Enter 'Boy', or 'Girl') set /p gender= if '%gender%'=='Boy' goto skip if '%gender%'=='boy' goto skip if '%gender%'=='Girl' goto skip if '%gender%'=='girl' goto skip goto girlorboy :skip cls echo Prof. Oak: Aah.. so you are a %gender% echo. echo press any key to continue pause >nul cls :rival-name cls echo Prof. Oak: I think I'm getting old, can you tell me your rivals name? set /p rival= if '%rival%' == '' goto rival-name cls echo Ah of course there name was %rival%! I hope I wont forget again echo. echo press any key to continue pause >nul cls echo Prof. Oak: So %name% what are you waiting for, choose your Pokemon echo. echo press any key to continue pause >nul cls :player set Fishingrod=0 set HM_surf=0 set HM_fly=0 set money=2000 :starter-stats set starterlvl=5 set /a starterhp=20 set exp=0 set exptill=25 set badges=0 set bikevoucher=0 set bike=0 :choose-pokemon cls color 0A echo \---------------------------------------------------\ echo \ BULBASAUR (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick BULBASAUR? echo. echo Type y to choose BULBASAUR or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=BULBASAUR color 0A cls echo %rival%: Then I will chose CHARMANDER set rivalstarter=CHARMANDER pause>nul goto chosen ) cls color 0B echo \---------------------------------------------------\ echo \ SQUIRLTE (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick SQUIRTLE? echo. echo Type y to choose SQUIRLTE or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=SQUIRTLE color 0B cls echo %rival%: Then I will chose BULBASAUR set rivalstarter=BULBASAUR echo. echo press any key to continue pause >nul cls goto chosen ) cls color 04 echo \---------------------------------------------------\ echo \ CHARMANDER (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick CHARMANDER? echo. echo Type y to choose CHARMANDER or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=CHARMANDER color 04 cls echo %rival%: Then I will chose SQUIRTLE set rivalstarter=SQUIRTLE echo. echo press any key to continue pause >nul cls goto chosen )	cls color 06 echo \---------------------------------------------------\ echo \ PIKACHU (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick PIKACHU? echo. echo Type y to choose PIKACHU or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=PIKACHU color 06 cls echo %rival%: Then I will chose EEVEE set rivalstarter=EEVEE echo. echo press any key to continue pause >nul cls goto chosen ) cls color 05 echo \---------------------------------------------------\ echo \ EEVEE (Lvl 5) \ echo \---------------------------------------------------\ echo. echo Prof. Oak: Do you want to pick EEVEE? echo. echo Type y to choose EEVEE or press enter to continue set /p yno= if '%yno%' == 'y' ( set starter=EEVEE color 05 cls echo %rival%: Then I will chose PIKACHU set rivalstarter=PIKACHU echo. echo press any key to continue pause >nul cls goto chosen )	if '%yno%' == '' ( goto choose-pokemon ) :chosen cls echo Prof. Oak: Congratulations, you've just become a Pokemon trainer echo. echo press any key to continue pause >nul cls echo Prof. Oak: Make sure to have fun with %starter% echo. echo press any key to continue pause >nul cls echo Prof. Oak: Collect Gym badges and compete in the Pokemon League echo. echo press any key to continue pause >nul cls echo Prof. Oak: Good luck echo. echo press any key to continue pause >nul cls echo %rival%: Hey %name% let's try out our new Pokemon echo. echo press any key to continue pause >nul cls :rival set rivalstarterlvl=5 set /a rivalstarterhp=%rivalstarterlvl%*4 :rivalbattle cls :RivalBattleVar cls echo. echo \---------------------------------------------------\ echo \ %rivalstarter% Lvl %rivalstarterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %rivalstarterhp% echo. echo. echo \---------------------------------------------------\ echo \ %starter% Lvl %starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Strong attack echo 2) Accurate attack set /p move=Select your option: if '%move%'=='1' goto Strongattack if '%move%'=='2' goto Accurateattack if '%move%'=='' goto RivalBattleVar goto RivalBattleVar :Strongattack cls if '%Strongattack%'=='0' goto noStrongattack echo. echo %starter% has used Strong attack on %rivalstarter%! echo Hit! echo. echo %rivalstarter% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a rivalstarterhp=%rivalstarterhp% - 5 if %rivalstarterhp% LSS 0 goto win if %rivalstarterhp% GTR 0 goto Rival1 :Accurateattack cls if '%Accurateattack%'=='0' goto noAccurateattack echo. echo %starter% has used Accurate attack %rivalstarter%! echo. echo Hit! echo. echo %rivalstarter% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a rivalstarterhp=%rivalstarterhp% - 2 if %rivalstarterhp% LSS 0 goto win if %rivalstarterhp% GTR 0 goto Rival1 :win echo %rivalstarter% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto RivalBattleVarvictory :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto city-2 :rival1 :rival2 set /a choice=%random% %%2 +1 if '%choice%'=='0' goto rival2 if '%choice%'=='1' goto rivalStrongattack if '%choice%'=='2' goto rivalAccurateattack :rivalStrongattack cls if '%rivalStrongattack%'=='0' goto norivalStrongattack echo. echo %rivalstarter% has used Strong attack on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -5 if %starterhp% LSS 0 goto rivalwin if %starterhp% GTR 0 goto RivalBattleVar :rivalAccurateattack if '%rivalAccurateattack%'=='0' goto norivalAccurateattack cls echo. echo %rivalstarter% Used Accurate attack on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -2 if %starterhp% LSS 0 goto rivalwin if %starterhp% GTR 0 goto RivalBattleVar :rivalwin :RivalBattleVarlost cls echo %rival%: Haha, you should have known %name% echo. echo press any key to continue pause >nul cls echo %rival%: I will always be better at training Pokemon than you will echo ever be! echo. echo press any key to continue pause >nul cls echo Mom: Oh %name% your %pokemon% is hurt echo. echo press any key to continue pause >nul cls echo Mom: Come with me and ill heal him with my love pause>nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Pallet-Town-1 :RivalBattleVarvictory cls set /a exptill=%exptill%-%exp% if %exptill% LEQ 0 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up echo. echo press any key to continue pause >nul cls echo %rival%: You won this time, and only because of luck echo. echo press any key to continue pause >nul cls echo You got $500 for winning set /a money=%money%+500 echo. echo press any key to continue pause >nul cls echo %rival%: Smell ya later! echo. echo press any key to continue pause >nul cls echo Mom: Oh %name% your %pokemon% is hurt echo. echo press any key to continue pause >nul cls echo Mom: Come with me and ill heal him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls set /a starterhp=10+(%starterlvl%*2) goto Pallet-Town :Pallet-Town set location=Pallet-Town cls echo \---------------------------------------------------\ echo \ Pallet Town \ echo \---------------------------------------------------\ echo. echo 1) Go to %name%'s house echo 2) Go to %rival%'s house echo 3) Go to the Pokemon Lab echo 4) Go to Viridian City, by following Route-1 echo 5) Go to the water and begin surfing echo 6) Go to the water and begin fishing set /p Pallet-Town-option= if '%Pallet-Town-option%' == '1' goto Pallet-Town-1 if '%Pallet-Town-option%' == '2' goto Pallet-Town-2 if '%Pallet-Town-option%' == '3' goto Pallet-Town-3 if '%Pallet-Town-option%' == '4' goto Pallet-Town-4 if '%Pallet-Town-option%' == '5' goto Pallet-Town-5 if '%Pallet-Town-option%' == '6' goto Pallet-Town-6 goto Pallet-Town :Pallet-Town-1 set location=Pallet-Town cls echo \---------------------------------------------------\ echo \ Home \ echo \---------------------------------------------------\ echo __II_______________ echo / II /\\ echo / /__\ / \\ echo /_________________/ \\ echo I I /\ I echo I I / \ I echo I________________I I I I echo 1) Talk to your Mom echo 2) Rest here for a while (heals your pokemon) echo 3) Go back echo 4) Save the game (DO NOT USE GAME WILL CRASH) set /p Pallet-Town-1-option= if '%Pallet-Town-1-option%' == '1' goto Pallet-Town-1-1 if '%Pallet-Town-1-option%' == '2' set /a starterhp=20 if '%Pallet-Town-1-option%' == '3' goto Pallet-Town if '%Pallet-Town-1-option%' == '4' goto savegame goto Pallet-Town-1 :Pallet-Town-1-1 cls set location=Pallet-Town echo Mom: %name%! Its a shame that your dad isn't around to echo see you grow up echo. echo press any key to continue pause >nul cls echo Mom: You've grown so fast, but I guess all birds leave echo the nest at some point echo. echo press any key to continue pause >nul cls echo Mom: You have my permission to go and travel the Kanto region, echo but you have to contact me every week to keep in touch echo. echo press any key to continue pause >nul cls goto Pallet-Town-1 :Pallet-Town-2 cls echo \---------------------------------------------------\ echo \ Gary's House \ echo \---------------------------------------------------\ echo __II_______________ echo / II /\\ echo / /__\ / \\ echo /_________________/ \\ echo I I /\ I echo I I / \ I echo I________________I I I I echo 1) Talk to Gary's Mom echo 2) Go back set /p Pallet-Town-2-option= if '%Pallet-Town-2-option%' == '1' goto Pallet-Town-2-1 if '%Pallet-Town-2-option%' == '2' goto Pallet-Town goto Pallet-Town-2 :Pallet-Town-2-1 cls echo %rival%'s Mom: Hey, you're the boii from next door right echo. echo press any key to continue pause >nul cls echo %rival%'s Mom: Here take this, it's a Town-map echo. echo press any key to continue pause >nul cls echo %rival%'s Mom: It may or may not influence your experiences echo. echo press any key to continue pause >nul cls goto Pallet-Town-2 :Pallet-Town-3 cls echo \---------------------------------------------------\ echo \ Pokemon Lab \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo I_______\\ //_______I echo /___________________\ echo I I ___ I I echo I I / \ I I echo I_____I I___I I_____I echo. echo 1) Talk to Professor Oak echo 2) Go back set /p Pallet-Town-3-option= if '%Pallet-Town-3-option%' == '1' goto Pallet-Town-3-1 if '%Pallet-Town-3-option%' == '2' goto Pallet-Town goto Pallet-Town :Pallet-Town-3-1 cls echo Prof Oak: Oh hi %name% I am a little busy right now echo. echo press any key to continue pause >nul cls echo Prof Oak: It's about compressing Pokemon into data so they can echo be stored in a computer, its really complicated and also crazy echo. echo press any key to continue pause >nul cls goto Pallet-Town :Pallet-Town-4 cls echo \---------------------------------------------------\ echo \ Route-1 \ echo \---------------------------------------------------\ echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( (\ echo. echo You stepped out of Pallet town echo. echo You are walking on tall grass echo. echo Something is inside the grass echo. echo press any key to continue pause >nul cls goto wildpokemonlvl-calc :Pallet-Town-5 cls echo You do not have the HM_surf, so you can't surf echo. echo press any key to continue pause >nul cls goto Pallet-Town :Pallet-Town-6 cls echo nothing here yet echo. echo press any key to continue pause >nul cls goto Pallet-Town :wildpokemonlvl-calc setlocal ENABLEDELAYEDEXPANSION set /a WildPkmRoute1rand=%random% %%4 +1 if '%WildPkmRoute1rand%'=='0' goto wildpkmn if '%WildPkmRoute1rand%'=='1' set wildpkmn=CATERPIE if '%WildPkmRoute1rand%'=='2' set wildpkmn=ODDISH if '%WildPkmRoute1rand%'=='3' set wildpkmn=RATTATA if '%WildPkmRoute1rand%'=='4' set wildpkmn=CUBONE if '%WildPkmRoute1rand%'=='5' set wildpkmn=ONIX if '%WildPkmRoute1rand%'=='6' set wildpkmn=DIGLET if '%WildPkmRoute1rand%'=='7' set wildpkmn=POLIWAG if '%WildPkmRoute1rand%'=='8' set wildpkmn=MANKEY if '%WildPkmRoute1rand%'=='9' set wildpkmn=SANDSHREW if '%WildPkmRoute1rand%'=='10' set wildpkmn=PIDGEY if '%WildPkmRoute1rand%'=='11' set wildpkmn=SPARROW :begin set starterhp=20 set HpWildPkmRoute1=20 set Tackle=10 set Bite=30 set WildPkmRoute1Tackle=20 set WildPkmRoute1Bite=30 :17313Bryan30727Goss5602 cls set move= set choice= set WildPkmRoute1count=0 echo. echo \---------------------------------------------------\ echo \ %wildpkmn% (Lvl %wildpkmn-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %HpWildPkmRoute1% echo. echo. echo \---------------------------------------------------\ echo \ %starter% (Lvl %starter-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Tackle echo 2) Bite echo 3) [Run] set /p move=Select your option: if '%move%'=='1' goto Tackle if '%move%'=='2' goto Bite if '%move%'=='3' goto Flee if '%move%'=='' goto 17313Bryan30727Goss5602 goto 17313Bryan30727Goss5602 :Tackle cls if '%Tackle%'=='0' goto noTackle echo. echo %starter% has used Tackle on %wildpkmn%! echo Hit! echo. echo %wildpkmn% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a HpWildPkmRoute1=%HpWildPkmRoute1% - 5 set /a Tackle=%Tackle% - 1 if '%HpWildPkmRoute1%'=='0' goto win goto WildPkmRoute11 :Bite cls if '%Bite%'=='0' goto noBite echo. echo %starter% has used Bite %wildpkmn%! echo. echo Hit! echo. echo %wildpkmn% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a HpWildPkmRoute1=%HpWildPkmRoute1% - 2 set /a Bite=%Bite% - 1 if '%HpWildPkmRoute1%'=='0' goto win goto WildPkmRoute11 :win cls echo %wildpkmn% has fainted echo. echo press any key to continue pause >nul cls goto Viridian-City :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto Viridian-City :WildPkmRoute11 :WildPkmRoute12 cls set /a choice=%random% %%2 if '%choice%'=='0' goto WildPkmRoute12 echo \---------------------------------------------------\ echo \ %wildpkmn% (Lvl %wildpkmn-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %HpWildPkmRoute1% echo. echo. echo \---------------------------------------------------\ echo \ %starter% (Lvl %starter-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo. echo. echo. echo. echo. echo %wildpkmn% uses %choice% if '%choice%'=='1' goto WildPkmRoute1Tackle if '%choice%'=='2' goto WildPkmRoute1Bite :WildPkmRoute1Tackle cls if '%WildPkmRoute1Tackle%'=='0' goto noWildPkmRoute1Tackle echo. echo %wildpkmn% has used Tackle on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. set /a starterhp=%starterhp% - 5 set /a WildPkmRoute1Tackle=%WildPkmRoute1Tackle% - 1 if '%starterhp%'=='0' goto WildPkmRoute1win goto 17313Bryan30727Goss5602 :WildPkmRoute1Bite cls if '%WildPkmRoute1Bite%'=='0' goto noWildPkmRoute1Bite echo. echo %wildpkmn% has used Bite on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. set /a starterhp=%starterhp% - 2 set /a WildPkmRoute1Bite=%WildPkmRoute1Bite% - 1 if '%starterhp%'=='0' goto WildPkmRoute1win if '%starterhp%'=='-100' goto WildPkmRoute1win if '%starterhp%'=='-200' goto WildPkmRoute1win if '%starterhp%'=='-300' goto WildPkmRoute1win goto 17313Bryan30727Goss5602 :WildPkmRoute1win cls echo Mom: oh no my little man got hurt by a %wildpokemon% echo. echo press any key to continue pause >nul cls echo Mom: Here take some tea echo. echo press any key to continue pause >nul cls goto Pallet-Town-1 :Viridian-City set location=Viridian-City cls echo \---------------------------------------------------\ echo \ Viridian-City \ echo \---------------------------------------------------\ echo. echo 1) Talk to the old man echo 2) Go to Pewter city by following Route-2 through Virirdian Forest echo 3) Go to the Pokemon center echo 4) Go to the Pokemon Gym echo 5) Go to the PokeMart echo 6) Go to Pallet Town by following Route-1 echo 7) Go to Victory Road by following Route-22 then Route-23 set /p Viridian-City-option= if '%Viridian-City-option%' == '1' goto Viridian-City-1 if '%Viridian-City-option%' == '2' goto Viridian-City-2 if '%Viridian-City-option%' == '3' goto Viridian-City-3 if '%Viridian-City-option%' == '4' goto Viridian-City-4 if '%Viridian-City-option%' == '5' goto Viridian-City-5 if '%Viridian-City-option%' == '6' goto Pallet-Town if '%Viridian-City-option%' == '7' goto Viridian-City-7 goto Viridian-City :Viridian-City-1 cls echo Old man: ZzZzZzZzZ.... ZzZzZzZzZ.... echo. echo press any key to continue pause >nul cls goto Viridian-City :Viridian-City-2 cls echo \---------------------------------------------------\ echo \ Route-2 \ echo \---------------------------------------------------\ echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( (\ echo. echo You stepped out of Viridian City echo. echo From here you can already see the Viridian Forest echo. echo press any key to continue pause >nul cls cls echo \---------------------------------------------------\ echo \ Viridian Forest \ echo \---------------------------------------------------\ echo. echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo I I I I I I I echo. echo. echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo I I I I I I I echo. echo. echo press any key to continue pause >nul cls goto Pewter-City :Viridian-City-3 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo I //_\\ I echo I_______\\_//_______I echo I I ___ I I echo I I I I I I echo I_____I I___I I_____I echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game (DO NOT USE GAME WILL CRASH) set /p Viridian-City-3-option= if '%Viridian-City-3-option%' == '1' goto Viridian-City-3-1 if '%Viridian-City-3-option%' == '2' goto Viridian-City-3-2 if '%Viridian-City-3-option%' == '3' goto Viridian-City if '%Viridian-City-3-option%' == '4' goto savegame goto Viridian-City-3 :Viridian-City-3-1 cls echo Nurse Joy: My my, your %starter% does not look very good echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here let me fix him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here you go better than ever echo. echo press any key to continue pause >nul cls echo %starter%: %starter% pause>nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP echo. echo press any key to continue pause >nul cls goto Viridian-City-3 :Viridian-City-3-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" echo. echo press any key to continue pause >nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid echo. echo press any key to continue pause >nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! echo. echo press any key to continue pause >nul cls echo "You run away to town hiding your face" echo. echo press any key to continue pause >nul cls goto Viridian-City :Viridian-City-4 cls echo \---------------------------------------------------\ echo \ Viridian City Gym \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo I_______\\ //_______I echo /___________________\ echo I I ___ I I echo I I / \ I I echo I_____I I___I I_____I echo. echo 1) Enter the Gym echo 2) Go back set /p Viridian-City-4-option= if '%Viridian-City-4-option%' == '1' goto Viridian-City-4-1 if '%Viridian-City-4-option%' == '2' goto Viridian-City goto Viridian-City-4 :Viridian-City-4-1 cls echo Giovanni: So you think you can beat me echo. echo press any key to continue pause >nul cls echo Giovanni: We'll see about that in a bit echo. echo press any key to continue pause >nul cls echo You don't the other 7 badges yet, so you can't fight with Giovanni echo. echo press any key to continue pause >nul cls goto Viridian-City-4 :Viridian-City-5 cls echo \---------------------------------------------------\ echo \ PokeMart \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo I_______\\ //_______I echo /___________________\ echo I I ___ I I echo I I / \ I I echo I_____I I___I I_____I echo. echo Shop keeper: Hello there little man, what can I do for you echo. echo You have money: %money% echo. echo 1) Buy...stuff echo 2) Go back set /p Viridian-City-5-option= if '%Viridian-City-5-option%' == '1' goto Viridian-City-5-1 if '%Viridian-City-5-option%' == '2' goto Viridian-City goto Viridian-City-5 :Viridian-City-5-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 Echo Recived "STUFF" echo. echo press any key to continue pause >nul cls goto Viridian-City-5 ) echo Shop keeper: You do not have enough money to buy that echo. echo press any key to continue pause >nul cls goto Viridian-City-5 :Viridian-City-7 cls echo You do not yet have all 8 badges echo. echo press any key to continue pause >nul cls goto Viridian-City :Pewter-City set location=Pewter-City cls echo \---------------------------------------------------\ echo \ Pewter City \ echo \---------------------------------------------------\ echo. echo 1) Talk to the camper echo 2) Go to Mt. Moon by following route-3 echo 3) Go to the Pokemon center echo 4) Go to the Pokemon gym echo 5) Go to the PokeMart echo 6) Go to Viridian City through the Viridian Forest then follow Route-2 set /p Pewter-City-option= if '%Pewter-City-option%' == '1' goto Pewter-City-1 if '%Pewter-City-option%' == '2' goto Pewter-City-2 if '%Pewter-City-option%' == '3' goto Pewter-City-3 if '%Pewter-City-option%' == '4' goto Pewter-City-4 if '%Pewter-City-option%' == '5' goto Pewter-City-5 if '%Pewter-City-option%' == '6' goto Viridian-City goto Pewter-City :Pewter-City-1 cls echo Camper: What a nice day isn't it, there are no clouds to be seen echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-2 cls echo Gaurd: You can go that way road is blocked echo. echo Press enter to go on anyways set /p PEWTERpass= if '%PEWTERpass%' == 'BROCKRLZ' goto PreRoute3Trainer if '%PEWTERpass%' == '' goto badge00 :badge00 cls echo [the road is blocked] echo. echo press any key to continue pause >nul cls goto Pewter-City :PreRoute3Trainer cls Echo Trainer: WANNA BATTLE!?!? echo. echo press any key to continue pause >nul cls Echo %name%: No not real...(cut off by Trainer) echo. echo press any key to continue pause >nul cls Echo Trainer: OK GREAT!! echo. echo press any key to continue pause >nul cls :trainer cls set TrainerRoute3pokemon=SANDSHREW set TrainerRoute3pokemonlvl=5 set TrainerRoute3PokemonHP=20 :Trainer-battle-route-3 :TrainerRoute3pokemonBattleVar cls echo. echo \---------------------------------------------------\ echo \ %TrainerRoute3pokemon% Lvl %TrainerRoute3pokemonlvl% \ echo \---------------------------------------------------\ echo. echo HP: %TrainerRoute3PokemonHP% echo. echo. echo \---------------------------------------------------\ echo \ %starter% Lvl %starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Strong attack echo 2) Accurate attack set /p move=Select your option: if '%move%'=='1' goto Strongattack if '%move%'=='2' goto Accurateattack if '%move%'=='' goto TrainerRoute3pokemonBattleVar goto TrainerRoute3pokemonBattleVar :Strongattack cls if '%Strongattack%'=='0' goto noStrongattack echo. echo %starter% has used Strong attack on %TrainerRoute3pokemon%! echo Hit! echo. echo %TrainerRoute3pokemon% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a TrainerRoute3pokemonhp=%TrainerRoute3PokemonHP% - 5 if %TrainerRoute3PokemonHP% LSS 0 goto win if %TrainerRoute3PokemonHP% GTR 0 goto TrainerRoute3pokemon1 :Accurateattack cls if '%Accurateattack%'=='0' goto noAccurateattack echo. echo %starter% has used Accurate attack %TrainerRoute3pokemon%! echo. echo Hit! echo. echo %TrainerRoute3pokemon% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a TrainerRoute3pokemonhp=%TrainerRoute3PokemonHP% - 2 if %TrainerRoute3PokemonHP% LSS 0 goto win if %TrainerRoute3PokemonHP% GTR 0 goto TrainerRoute3pokemon1 :win echo %TrainerRoute3pokemon% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto TrainerRoute3pokemonBattleVarvictory :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto city-2 :TrainerRoute3pokemon1 :TrainerRoute3pokemon2 set /a choice=%random% %%2 +1 if '%choice%'=='0' goto TrainerRoute3pokemon2 if '%choice%'=='1' goto TrainerRoute3pokemonStrongattack if '%choice%'=='2' goto TrainerRoute3pokemonAccurateattack :TrainerRoute3pokemonStrongattack cls if '%TrainerRoute3pokemonStrongattack%'=='0' goto noTrainerRoute3pokemonStrongattack echo. echo %TrainerRoute3pokemon% has used Strong attack on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -5 if %starterhp% LSS 0 goto TrainerRoute3pokemonwin if %starterhp% GTR 0 goto TrainerRoute3pokemonBattleVar :TrainerRoute3pokemonAccurateattack if '%TrainerRoute3pokemonAccurateattack%'=='0' goto noTrainerRoute3pokemonAccurateattack cls echo. echo %TrainerRoute3pokemon% Used Accurate attack on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -2 if %starterhp% LSS 0 goto TrainerRoute3pokemonwin if %starterhp% GTR 0 goto TrainerRoute3pokemonBattleVar :TrainerRoute3pokemonwin :TrainerRoute3pokemonBattleVarlost cls echo Trainer: I just can't get enough of winning, hahaha echo. echo press any key to continue pause >nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again echo. echo press any key to continue pause >nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Pewter-City-3 :TrainerRoute3pokemonBattleVarvictory cls set /a starterlvl=%starterlvl%+1 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%*4 echo. echo press any key to continue pause >nul echo Trainer:...wow...your good echo. echo press any key to continue pause >nul cls echo %name%: You better fuckin belive it echo. echo press any key to continue pause >nul cls echo You got $500 for winning set /a money=%money%+500 echo. echo press any key to continue pause >nul cls goto Mt-Moon :Pewter-City-3 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo I //_\\ I echo I_______\\_//_______I echo I I ___ I I echo I I I I I I echo I_____I I___I I_____I echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game (DO NOT USE GAME WILL CRASH) set /p Pewter-City-3-option= if '%Pewter-City-3-option%' == '1' goto Pewter-City-3-1 if '%Pewter-City-3-option%' == '2' goto Pewter-City-3-2 if '%Pewter-City-3-option%' == '3' goto Pewter-City if '%Pewter-City-3-option%' == '4' goto savegame goto Pewter-City-3 :Pewter-City-3-1 cls echo Nurse Joy: My my, your %starter% does not look very good echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here let me fix him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here you go better than ever pause>nul cls echo %starter%: %starter%! echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP echo. echo press any key to continue pause >nul cls goto Pewter-City-3 :Pewter-City-3-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" echo. echo press any key to continue pause >nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid echo. echo press any key to continue pause >nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! echo. echo press any key to continue pause >nul cls echo "You run away to town hiding your face" echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-4 cls echo \---------------------------------------------------\ echo \ Pewter City Gym \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo I_______\\ //_______I echo /___________________\ echo I I ___ I I echo I I / \ I I echo I_____I I___I I_____I echo. echo 1) Enter the gym echo 2) Go back set /p Pewter-City-4-option= if '%Pewter-City-4-option%' == '1' goto Pewter-City-4-1 if '%Pewter-City-4-option%' == '2' goto Pewter-City goto Pewter-City-4 :Pewter-City-4-1 cls if %badges% LSS 1 ( echo Brock: So you think you got what it takes to beat me echo. echo press any key to continue pause >nul cls echo Brock: Alright let's get started in here echo. echo press any key to continue pause >nul cls goto Pewter-City-4-1-1 ) echo Brock: %name% you have already proven yourself echo. echo press any key to continue pause >nul cls echo Brock: There is no point in fighting me again echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-4-1-1 set Brockpokemon1starter=ONIX set Brockpokemon1starterlvl=5 set /a Brockpokemon1starterhp=%Brockpokemon1starterlvl%*4 :Brockbattle :Brockpokemon1BattleVar cls echo. echo \---------------------------------------------------\ echo \ %Brockpokemon1starter% Lvl %Brockpokemon1starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %Brockpokemon1starterhp% echo. echo. echo \---------------------------------------------------\ echo \ %starter% Lvl %starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Strong attack echo 2) Accurate attack set /p move=Select your option: if '%move%'=='1' goto Strongattack if '%move%'=='2' goto Accurateattack if '%move%'=='' goto Brockpokemon1starterBattleVar goto Brockpokemon1starterBattleVar :Strongattack cls if '%Strongattack%'=='0' goto noStrongattack echo. echo %starter% has used Strong attack on %Brockpokemon1starter%! echo Hit! echo. echo %Brockpokemon1starter% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a Brockpokemon1starterhp=%Brockpokemon1starterhp% - 5 if %Brockpokemon1starterhp% LSS 0 goto win if %Brockpokemon1starterhp% GTR 0 goto Brockpokemon1starter1 :Accurateattack cls if '%Accurateattack%'=='0' goto noAccurateattack echo. echo %starter% has used Accurate attack %Brockpokemon1starter%! echo. echo Hit! echo. echo %Brockpokemon1starter% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a Brockpokemon1starterhp=%Brockpokemon1starterhp% - 2 if %Brockpokemon1starterhp% LSS 0 goto win if %Brockpokemon1starterhp% GTR 0 goto Brockpokemon1starter1 :win echo %Brockpokemon1starter% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto Brockpokemon1starterBattleVarvictory :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto city-2 :Brockpokemon1starter1 :Brockpokemon1starter2 set /a choice=%random% %%2 +1 if '%choice%'=='0' goto Brockpokemon1starter2 if '%choice%'=='1' goto Brockpokemon1starterStrongattack if '%choice%'=='2' goto Brockpokemon1starterAccurateattack :Brockpokemon1starterStrongattack cls if '%Brockpokemon1starterStrongattack%'=='0' goto noBrockpokemon1starterStrongattack echo. echo %Brockpokemon1starter% has used Strong attack on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -5 if %starterhp% LSS 0 goto Brockpokemon1starterwin if %starterhp% GTR 0 goto Brockpokemon1BattleVar :Brockpokemon1starterAccurateattack if '%Brockpokemon1starterAccurateattack%'=='0' goto noBrockpokemon1starterAccurateattack cls echo. echo %Brockpokemon1starter% Used Accurate attack on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -2 if %starterhp% LSS 0 goto Brockpokemon1starterwin if %starterhp% GTR 0 goto Brockpokemon1BattleVar :Brockpokemon1starterwin :Brockpokemon1starterBattleVarlost cls echo Brock: Come back when you can actually beat me %name% echo. echo press any key to continue pause >nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again echo. echo press any key to continue pause >nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Pewter-City-3 :Brockpokemon1starterBattleVarvictory echo Brock: Well done, you have proven yourself echo. echo press any key to continue pause >nul cls echo Brock: Here take this, it's the Boulder badge set badges=1 echo. echo press any key to continue pause >nul cls echo You got $800 for winning set /a money=%money%+800 echo. echo press any key to continue pause >nul cls echo Also to leave Pewter city tell the gaurd in all caps "BROCKRLZ" and hit enter echo. echo press any key to continue pause >nul cls goto Pewter-City :Pewter-City-5 cls echo \---------------------------------------------------\ echo \ PokeMart \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo I_______\\ //_______I echo /___________________\ echo I I ___ I I echo I I / \ I I echo I_____I I___I I_____I echo. echo Shop keeper: Hello there little man, what can I do for you echo. echo You have money: %money% echo. echo 1) Buy...stuff echo 2) Go back set /p Pewter-City-5-option= if '%Pewter-City-5-option%' == '1' goto Pewter-City-5-1 if '%Pewter-City-5-option%' == '2' goto Pewter-City goto Pewter-City-5 :Pewter-City-5-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 Echo Recived "STUFF" echo. echo press any key to continue pause >nul cls goto Pewter-City-5 ) echo Shop keeper: You do not have enough money to buy that echo. echo press any key to continue pause >nul cls goto Pewter-City-5 :Pewter-City-6 cls echo \---------------------------------------------------\ echo \ Viridian Forest \ echo \---------------------------------------------------\ echo. echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo I I I I I I I echo echo echo / \ / \ / \ / \ / \ / \ / \ echo / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ / ~ \ echo / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ / ~~~ \ echo I I I I I I I echo. pause>nul goto Viridian-City :Mt-Moon set location=Mt-Moon cls echo \---------------------------------------------------\ echo \ Mt. Moon \ echo \---------------------------------------------------\ echo. echo 1) Go to the Pokemon center echo 2) Go inside the cave echo 3) Go back to Pewter City set /p Mt-Moon-options= if '%Mt-Moon-options%' == '1' goto Mt-Moon-1 if '%Mt-Moon-options%' == '2' goto Mt-Moon-2 if '%Mt-Moon-options%' == '3' goto Pewter-City goto Mt-Moon :Mt-Moon-1 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo I //_\\ I echo I_______\\_//_______I echo I I ___ I I echo I I I I I I echo I_____I I___I I_____I echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game (DO NOT USE GAME WILL CRASH) set /p Mt-Moon-1-options= if '%Mt-Moon-1-options%' == '1' goto Mt-Moon-1-1 if '%Mt-Moon-1-options%' == '2' goto Mt-Moon-1-2 if '%Mt-Moon-1-options%' == '3' goto Mt-Moon if '%Mt-Moon-1-options%' == '4' goto savegame goto Mt-Moon-1 :Mt-Moon-1-1 cls echo Nurse Joy: My my, your %starter% does not look very good echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here let me fix him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here you go better than ever echo. echo press any key to continue pause >nul cls echo %starter%: %starter%! echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP echo. echo press any key to continue pause >nul cls goto Mt-Moon-1 :Mt-Moon-1-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" echo. echo press any key to continue pause >nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid echo. echo press any key to continue pause >nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! echo. echo press any key to continue pause >nul cls echo "You run away to town hiding your face" echo. echo press any key to continue pause >nul cls goto Mt-Moon :Mt-Moon-2 cls echo \---------------------------------------------------\ echo \ Mt-Moon cave \ echo \---------------------------------------------------\ echo. echo /\ /\ /\ /\ /\ /\ /\ /\ /\ echo /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /\ echo /####\/####\/####\/####\/####\/####\/####\/####\/####\/##\ echo /##########################################################\ echo /############################################################\ echo /##############################################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo. echo press any key to continue pause >nul cls goto Mt-Moon-2-1 :Mt-Moon-2-1 cls echo \---------------------------------------------------\ echo \ Mt-Moon cave \ echo \---------------------------------------------------\ echo. echo ###################################################################### echo #( ).....#...........................................................# echo #........#....###############################........................# echo #........#....#..........................................##..........# echo #........#....#..........................................##..........# echo #........#....#...........#...###############............##..........# echo #.............#...........#...#..........................##..........# echo #.............#...........#...#......................................# echo ###########################( )######################################## echo. echo 1) Fight a trainer echo 2) Go deeper into the cave echo 3) Look for a wild Pokemon echo 4) Go back set /p Mt-Moon-2-1-option= if '%Mt-Moon-2-1-option%' == '1' goto Mt-Moon-2-1-1 if '%Mt-Moon-2-1-option%' == '2' goto Route-4 if '%Mt-Moon-2-1-option%' == '3' goto Mt-Moon-2-1-3 if '%Mt-Moon-2-1-option%' == '4' goto Mt-Moon goto Mt-Moon-2-1 :Mt-Moon-2-1-1 :trainer-Mt-Moon cls set TrainerMtMoonPokemon=ZUBAT set TrainerMtMoonPokemonlvl=7 set /a trainerpokemonhp=%TrainerMtMoonPokemonHP%*4 :TrainerMtMoonPokemonBattleVar cls echo. echo \---------------------------------------------------\ echo \ %TrainerMtMoonPokemon% Lvl %TrainerMtMoonPokemonlvl% \ echo \---------------------------------------------------\ echo. echo HP: %TrainerMtMoonPokemonHP% echo. echo. echo \---------------------------------------------------\ echo \ %starter% Lvl %starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Strong attack echo 2) Accurate attack set /p move=Select your option: if '%move%'=='1' goto Strongattack if '%move%'=='2' goto Accurateattack if '%move%'=='' goto TrainerMtMoonPokemonBattleVar goto TrainerMtMoonPokemonBattleVar :Strongattack cls if '%Strongattack%'=='0' goto noStrongattack echo. echo %starter% has used Strong attack on %TrainerMtMoonPokemon%! echo Hit! echo. echo %TrainerMtMoonPokemon% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a TrainerMtMoonPokemonhp=%TrainerMtMoonPokemonHP% - 5 if %TrainerMtMoonPokemonHP% LSS 0 goto win if %TrainerMtMoonPokemonHP% GTR 0 goto TrainerMtMoonPokemon1 :Accurateattack cls if '%Accurateattack%'=='0' goto noAccurateattack echo. echo %starter% has used Accurate attack %TrainerMtMoonPokemon%! echo. echo Hit! echo. echo %TrainerMtMoonPokemon% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a TrainerMtMoonPokemonhp=%TrainerMtMoonPokemonHP% - 2 if %TrainerMtMoonPokemonHP% LSS 0 goto win if %TrainerMtMoonPokemonHP% GTR 0 goto TrainerMtMoonPokemon1 :win echo %TrainerMtMoonPokemon% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto TrainerMtMoonPokemonBattleVarvictory :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto city-2 :TrainerMtMoonPokemon1 :TrainerMtMoonPokemon2 set /a choice=%random% %%2 +1 if '%choice%'=='0' goto TrainerMtMoonPokemon2 if '%choice%'=='1' goto TrainerMtMoonPokemonStrongattack if '%choice%'=='2' goto TrainerMtMoonPokemonAccurateattack :TrainerMtMoonPokemonStrongattack cls if '%TrainerMtMoonPokemonStrongattack%'=='0' goto noTrainerMtMoonPokemonStrongattack echo. echo %TrainerMtMoonPokemon% has used Strong attack on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -5 if %starterhp% LSS 0 goto TrainerMtMoonPokemonwin if %starterhp% GTR 0 goto TrainerMtMoonPokemonBattleVar :TrainerMtMoonPokemonAccurateattack if '%TrainerMtMoonPokemonAccurateattack%'=='0' goto noTrainerMtMoonPokemonAccurateattack cls echo. echo %TrainerMtMoonPokemon% Used Accurate attack on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -2 if %starterhp% LSS 0 goto TrainerMtMoonPokemonwin if %starterhp% GTR 0 goto TrainerMtMoonPokemonBattleVar :TrainerMtMoonPokemonwin :TrainerMtMoonPokemonBattleVarlost cls echo Trainer: I just can't get enough of winning, hahaha echo. echo press any key to continue pause >nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again echo. echo press any key to continue pause >nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Mt-Moon-1 :TrainerMtMoonPokemonBattleVarvictory cls set /a starterlvl=%starterlvl%+1 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%*4 echo. echo press any key to continue pause >nul echo Trainer:...wow...your good echo. echo press any key to continue pause >nul cls echo %name%: You better fuckin belive it echo. echo press any key to continue pause >nul cls echo You got $500 for winning set /a money=%money%+500 echo. echo press any key to continue pause >nul cls goto Mt-Moon-2-1 :Mt-Moon-2-1-2 :wildpokemonlvl-calc-Mt-Moon set /a wildpokemonMtMoon=%random% %%4 +1 if '%wildpokemonMtMoon%'=='0' goto wildpokemonMtMoon if '%wildpokemonMtMoon%'=='1' set wildpokemonMtMoon=CATERPIE if '%wildpokemonMtMoon%'=='2' set wildpokemonMtMoon=ODDISH if '%wildpokemonMtMoon%'=='3' set wildpokemonMtMoon=RATTATA if '%wildpokemonMtMoon%'=='4' set wildpokemonMtMoon=CUBONE if '%wildpokemonMtMoon%'=='5' set wildpokemonMtMoon=ONIX if '%wildpokemonMtMoon%'=='6' set wildpokemonMtMoon=DIGLET if '%wildpokemonMtMoon%'=='7' set wildpokemonMtMoon=POLIWAG if '%wildpokemonMtMoon%'=='8' set wildpokemonMtMoon=MANKEY if '%wildpokemonMtMoon%'=='9' set wildpokemonMtMoon=SANDSHREW if '%wildpokemonMtMoon%'=='10' set wildpokemonMtMoon=PIDGEY if '%wildpokemonMtMoon%'=='11' set wildpokemonMtMoon=SPARROW :begin set HpwildpokemonMtMoon=20 set wildpokemonMtMoon-lvl=5 :10902Bryan3959Goss867 cls echo. echo \---------------------------------------------------\ echo \%wildpokemonMtMoon% (Lvl %wildpokemonMtMoon-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %HpwildpokemonMtMoon% echo. echo. echo \---------------------------------------------------\ echo \ %starter% (Lvl %starter-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Tackle echo 2) Bite echo 3) [Run] set /p move=Select your option: if '%move%'=='1' goto Tackle if '%move%'=='2' goto Bite if '%move%'=='3' goto Flee if '%move%'=='' goto 10902Bryan3959Goss867 goto 10902Bryan3959Goss867 :Tackle cls if '%Tackle%'=='0' goto noTackle echo. echo %starter% has used Tackle on %wildpokemonMtMoon%! echo Hit! echo. echo %wildpokemonMtMoon% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a HpwildpokemonMtMoon=%HpwildpokemonMtMoon% - 5 set /a Tackle=%Tackle% - 1 if '%HpwildpokemonMtMoon%'=='0' goto MtMoonwin goto wildpokemonMtMoon1 :Bite cls if '%Bite%'=='0' goto noBite echo. echo %starter% has used Bite %wildpokemonMtMoon%! echo. echo Hit! echo. echo %wildpokemonMtMoon% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a HpwildpokemonMtMoon=%HpwildpokemonMtMoon% - 2 set /a Bite=%Bite% - 1 if '%HpwildpokemonMtMoon%'=='0' goto MtMoonwin goto wildpokemonMtMoon1 :MtMoonwin cls echo %wildpokemonMtMoon% has fainted echo. echo press any key to continue pause >nul cls goto Mt-Moon-2-1 :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto Mt-Moon-2-1 :wildpokemonMtMoon1 :wildpokemonMtMoon2 cls set /a choice=%random% %%2 if '%choice%'=='0' goto wildpokemonMtMoon2 echo \---------------------------------------------------\ echo \%wildpokemonMtMoon% (Lvl %wildpokemonMtMoon-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %HpwildpokemonMtMoon% echo. echo. echo \---------------------------------------------------\ echo \ %starter% (Lvl %starter-lvl%) \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo. echo. echo. echo. echo. echo %wildpokemonMtMoon% uses %choice% if '%choice%'=='1' goto wildpokemonMtMoonTackle if '%choice%'=='2' goto wildpokemonMtMoonBite :wildpokemonMtMoonTackle cls if '%wildpokemonMtMoonTackle%'=='0' goto nowildpokemonMtMoonTackle echo. echo %wildpokemonMtMoon% has used Tackle on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. set /a starterhp=%starterhp% - 5 set /a wildpokemonMtMoonTackle=%wildpokemonMtMoonTackle% - 1 if '%starterhp%'=='0' goto wildpokemonMtMoonMtMoonwin goto 10902Bryan3959Goss867 :wildpokemonMtMoonBite cls if '%wildpokemonMtMoonBite%'=='0' goto nowildpokemonMtMoonBite echo. echo %wildpokemonMtMoon% has used Bite on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. set /a starterhp=%starterhp% - 2 set /a wildpokemonMtMoonBite=%wildpokemonMtMoonBite% - 1 if '%starterhp%'=='0' goto wildpokemonMtMoonMtMoonwin if '%starterhp%'=='-100' goto wildpokemonMtMoonMtMoonwin if '%starterhp%'=='-200' goto wildpokemonMtMoonMtMoonwin if '%starterhp%'=='-300' goto wildpokemonMtMoonMtMoonwin goto 10902Bryan3959Goss867 :wildpokemonMtMoonMtMoonwin cls echo Nurse Joy: You got your %starter% hurt again, jerk echo. echo press any key to continue pause >nul cls echo Nurs Joy: Alright, ill fix him up echo. echo press any key to continue pause >nul cls set /a starterhp=15 goto Mt-Moon-1 :Route-4 cls echo You found a secret passage the leads to Cerulean City! echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City set location=Cerulean-City cls echo \---------------------------------------------------\ echo \ Cerulean City \ echo \---------------------------------------------------\ echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the PokeMart echo 4) Go to Mt. Moon through a special passage echo 5) Go to the bike shop echo 6) Go to Route 24 and 25 by crossing the bridge set /p Cerulean-City-option= if '%Cerulean-City-option%' == '1' goto Cerulean-City-1 if '%Cerulean-City-option%' == '2' goto Cerulean-City-2 if '%Cerulean-City-option%' == '3' goto Cerulean-City-3 if '%Cerulean-City-option%' == '4' goto Mt-Moon if '%Cerulean-City-option%' == '5' goto Cerulean-City-5 if '%Cerulean-City-option%' == '6' goto Cerulean-City-6 goto Cerulean-City :Cerulean-City-1 cls echo \---------------------------------------------------\ echo \ Pokemon Center \ echo \---------------------------------------------------\ echo. echo ___________________ echo /___________________\ echo I //_\\ I echo I_______\\_//_______I echo I I ___ I I echo I I I I I I echo I_____I I___I I_____I echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Save the game (DO NOT USE GAME WILL CRASH) set /p Cerulean-City-1-options= if '%Cerulean-City-1-options%' == '1' goto Cerulean-City-1-1 if '%Cerulean-City-1-options%' == '2' goto Cerulean-City-1-2 if '%Cerulean-City-1-options%' == '3' goto Cerulean-City if '%Cerulean-City-1-options%' == '4' goto savegame goto Cerulean-City-1 :Cerulean-City-1-1 cls echo Nurse Joy: My my, your %starter% does not look very good echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here let me fix him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls echo Nurse Joy: Here you go better than ever echo. echo press any key to continue pause >nul cls echo %starter%: %starter% pause>nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP echo. echo press any key to continue pause >nul cls goto Cerulean-City-1 :Cerulean-City-1-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" echo. echo press any key to continue pause >nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid echo. echo press any key to continue pause >nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! echo. echo press any key to continue pause >nul cls echo "You run away to town hiding your face" echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City-2 cls echo \---------------------------------------------------\ echo \ Cerulean City Gym \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo I_______\\ //_______I echo /___________________\ echo I I ___ I I echo I I / \ I I echo I_____I I___I I_____I echo. echo 1) Enter the gym echo 2) Go back set /p Cerulean-City-2-option= if '%Cerulean-City-2-option%' == '1' goto Cerulean-City-2-1 if '%Cerulean-City-2-option%' == '2' goto Cerulean-City goto Cerulean-City-2 :Cerulean-City-2-1 cls if %badges% LSS 2 ( echo Misty: So you think you got what it takes to beat me echo. echo press any key to continue pause >nul cls echo Misty: Alright let's get started in here echo. echo press any key to continue pause >nul cls goto Cerulean-City-2-1-1 ) echo Misty: %name% you have already proven yourself echo. echo press any key to continue pause >nul cls echo Misty: There is no point in fighting me again echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City-2-1-1 set Mistypokemon1=STARYU set Mistypokemon1lvl=5 set /a Mistypokemon1hp=20 :Mistybattle :Mistypokemon1BattleVar cls echo. echo \---------------------------------------------------\ echo \ %Mistypokemon1% Lvl %Mistypokemon1lvl% \ echo \---------------------------------------------------\ echo. echo HP: %Mistypokemon1hp% echo. echo. echo \---------------------------------------------------\ echo \ %starter% Lvl %starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Strong attack echo 2) Accurate attack set /p move=Select your option: if '%move%'=='1' goto Strongattack if '%move%'=='2' goto Accurateattack if '%move%'=='' goto Mistypokemon1BattleVar goto Mistypokemon1BattleVar :Strongattack cls if '%Strongattack%'=='0' goto noStrongattack echo. echo %starter% has used Strong attack on %Mistypokemon1%! echo Hit! echo. echo %Mistypokemon1% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a Mistypokemon1hp=%Mistypokemon1hp% - 5 if %Mistypokemon1hp% LSS 0 goto win if %Mistypokemon1hp% GTR 0 goto Mistypokemon11 :Accurateattack cls if '%Accurateattack%'=='0' goto noAccurateattack echo. echo %starter% has used Accurate attack %Mistypokemon1%! echo. echo Hit! echo. echo %Mistypokemon1% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a Mistypokemon1hp=%Mistypokemon1hp% - 2 if %Mistypokemon1hp% LSS 0 goto win if %Mistypokemon1hp% GTR 0 goto Mistypokemon11 :win echo %Mistypokemon1% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto Mistypokemon1BattleVarvictory :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto city-2 :Mistypokemon11 :Mistypokemon12 set /a choice=%random% %%2 +1 if '%choice%'=='0' goto Mistypokemon12 if '%choice%'=='1' goto Mistypokemon1Strongattack if '%choice%'=='2' goto Mistypokemon1Accurateattack :Mistypokemon1Strongattack cls if '%Mistypokemon1Strongattack%'=='0' goto noMistypokemon1Strongattack echo. echo %Mistypokemon1% has used Strong attack on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -5 if %starterhp% LSS 0 goto Mistypokemon1win if %starterhp% GTR 0 goto Mistypokemon1BattleVar :Mistypokemon1Accurateattack if '%Mistypokemon1Accurateattack%'=='0' goto noMistypokemon1Accurateattack cls echo. echo %Mistypokemon1% Used Accurate attack on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -2 if %starterhp% LSS 0 goto Mistypokemon1win if %starterhp% GTR 0 goto Mistypokemon1BattleVar :Mistypokemon1win :Mistypokemon1BattleVarlost cls echo Misty: Come back when you can actually beat me %name% pause>nul cls echo Nurse Joy: Damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Cerulean-City-1 :Mistypokemon1BattleVarvictory cls set /a starterlvl=%starterlvl%+1 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%*4 echo. echo press any key to continue pause >nul echo Misty: Well done, you have proven yourself pause>nul cls echo Misty: Here take this, it's the Cascade Badge set badges=2 echo. echo press any key to continue pause >nul cls cls echo You got $900 for winning echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City-3 cls echo \---------------------------------------------------\ echo \ PokeMart \ echo \---------------------------------------------------\ echo. echo _______ echo . . echo / //_\\ \ echo I_______\\ //_______I echo /___________________\ echo I I ___ I I echo I I / \ I I echo I_____I I___I I_____I echo. echo Shop keeper: Hello there little man, what can I do for you echo. echo You have money: %money% echo. echo 1) Buy...stuff echo 2) Go back set /p Cerulean-City-3-option= if '%Cerulean-City-3-option%' == '1' goto Cerulean-City-3-1 if '%Cerulean-City-3-option%' == '2' goto Cerulean-City goto Cerulean-City-3 :Cerulean-City-3-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 Echo Recived "STUFF" echo. echo press any key to continue pause >nul cls goto Cerulean-City-3 ) echo Shop keeper: You do not have enough money to buy that echo. echo press any key to continue pause >nul cls goto Cerulean-City-3 :Cerulean-City-5 cls echo \---------------------------------------------------\ echo \ Bike shop \ echo \---------------------------------------------------\ echo __II_______________ echo / II /\\ echo / /__\ / \\ echo /_________________/ \\ echo I I /\ I echo I I / \ I echo I________________I I I I echo. echo Shop keeper: Well hello there young man, how can I help you? echo. echo You have money: %money% echo. echo 1) Buy a bike ( $1,000,000 ) echo 2) Get a bike for a Bike-Voucher set /p Cerulean-City-5option= if '%Cerulean-City-5option%' == '1' goto Cerulean-City-5-1 if '%Cerulean-City-5option%' == '2' goto Cerulean-City-5-2 goto Cerulean-City-5 :Cerulean-City-5-1 cls echo Shop keeper: You don't seem to have enough money echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City-5-2 cls echo Shop keeper: You don't seem to have a a Bike-Voucher echo. echo press any key to continue pause >nul cls goto Cerulean-City :Cerulean-City-6 cls echo \---------------------------------------------------\ echo \ Cerulean City Bridge \ echo \---------------------------------------------------\ echo. echo \ _____ / echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I-I ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I-I ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I-I ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I-I ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I-I ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I-I ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I-I ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo / _____ \ echo. echo 1) Cross the bridge echo 2) Go back to Cerulean city set /p Cerulean-City-6-option= if '%Cerulean-City-6-option%' == '1' goto rival-encouter-Cerulean-City if '%Cerulean-City-6-option%' == '2' goto Cerulean-City goto Cerulean-City-6 :rival-encouter-Cerulean-City cls echo %rival%: Oh hey %name% how about we fight again, its been a while echo. echo press any key to continue pause >nul cls :rival-battle-Cerulean-City set rivalstarterCeruleanlvl=5 set /a rivalstarterCeruleanHP=20 :rivalstarterCeruleanBattleVar cls echo. echo \---------------------------------------------------\ echo \ %rivalstarterCerulean% Lvl %rivalstarterCeruleanlvl% \ echo \---------------------------------------------------\ echo. echo HP: %rivalstarterCeruleanHP% echo. echo. echo \---------------------------------------------------\ echo \ %starter% Lvl %starterlvl% \ echo \---------------------------------------------------\ echo. echo HP: %starterhp% echo. echo. echo What do you want to do? echo. echo Enter option number to pick an option (1,2) echo 1) Strong attack echo 2) Accurate attack set /p move=Select your option: if '%move%'=='1' goto Strongattack if '%move%'=='2' goto Accurateattack if '%move%'=='' goto rivalstarterCeruleanBattleVar goto rivalstarterCeruleanBattleVar :Strongattack cls if '%Strongattack%'=='0' goto noStrongattack echo. echo %starter% has used Strong attack on %rivalstarterCerulean%! echo Hit! echo. echo %rivalstarterCerulean% has lost 5 HP! echo. echo press any key to continue pause >nul cls set /a rivalstarterCeruleanhp=%rivalstarterCeruleanHP% - 5 if %rivalstarterCeruleanHP% LSS 0 goto win if %rivalstarterCeruleanHP% GTR 0 goto rivalstarterCerulean1 :Accurateattack cls if '%Accurateattack%'=='0' goto noAccurateattack echo. echo %starter% has used Accurate attack %rivalstarterCerulean%! echo. echo Hit! echo. echo %rivalstarterCerulean% has lost 2 HP! echo. echo press any key to continue pause >nul cls set /a rivalstarterCeruleanhp=%rivalstarterCeruleanHP% - 2 if %rivalstarterCeruleanHP% LSS 0 goto win if %rivalstarterCeruleanHP% GTR 0 goto rivalstarterCerulean1 :win echo %rivalstarterCerulean% fainted echo. echo %starter% gained some exp echo. echo press any key to continue pause >nul cls goto rivalstarterCeruleanBattleVarvictory :flee echo Got away safly echo. echo press any key to continue pause >nul cls goto city-2 :rivalstarterCerulean1 :rivalstarterCerulean2 set /a choice=%random% %%2 +1 if '%choice%'=='0' goto rivalstarterCerulean2 if '%choice%'=='1' goto rivalstarterCeruleanStrongattack if '%choice%'=='2' goto rivalstarterCeruleanAccurateattack :rivalstarterCeruleanStrongattack cls if '%rivalstarterCeruleanStrongattack%'=='0' goto norivalstarterCeruleanStrongattack echo. echo %rivalstarterCerulean% has used Strong attack on %starter%! echo Hit! echo. echo %starter% has lost 5 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -5 if %starterhp% LSS 0 goto rivalstarterCeruleanwin if %starterhp% GTR 0 goto rivalstarterCeruleanBattleVar :rivalstarterCeruleanAccurateattack if '%rivalstarterCeruleanAccurateattack%'=='0' goto norivalstarterCeruleanAccurateattack cls echo. echo %rivalstarterCerulean% Used Accurate attack on %starter%! echo. echo Hit! echo. echo %starter% has lost 2 HP! echo. echo press any key to continue pause >nul set /a starterhp=%starterhp% -2 if %starterhp% LSS 0 goto rivalstarterCeruleanwin if %starterhp% GTR 0 goto rivalstarterCeruleanBattleVar :rivalstarterCeruleanwin :rivalstarterCeruleanBattleVarlost cls echo %rival%: Haha, you should have known %name% echo. echo press any key to continue pause >nul cls echo %rival%: I will always be better at training Pokemon than you will echo ever be! echo. echo press any key to continue pause >nul cls echo Nurse Joy: Oh %name% your %pokemon% is hurt echo. echo press any key to continue pause >nul cls echo Nurse Joy: Come with me and ill heal him with my love echo. echo press any key to continue pause >nul cls echo Your %starter% is blushed red echo. echo press any key to continue pause >nul cls set /a starterhp=%starterlvl%*4 goto Cerulean-City-1 :rivalstarterCeruleanBattleVarvictory cls set /a starterlvl=%starterlvl%+1 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%*4 echo. echo press any key to continue pause >nul cls echo %rival%: You won this time, and only because of luck echo. echo press any key to continue pause >nul cls echo You got $500 for winning set /a money=%money%+500 echo. echo press any key to continue pause >nul cls echo %rival%: Smell ya later! echo. echo press any key to continue pause >nul cls goto route-24-25 :route-24-25 cls echo \---------------------------------------------------\ echo \ 404:Other Half Of Game Not Found \ echo \---------------------------------------------------\ echo. echo This is all that I have coded so far feel free to go back and fight Wild Pkm echo. echo press any key to continue pause >nul cls goto Cerulean-City
hidde663
Pimiento
 Jul 26, 2015
hidde663
Software
damn flashbang941, im playing it now, but i have to say that ive been working on a better version myself for quite some time now... well anyways ill change the code above to the current version, its should be 4836 lines of code (last updated 22-7-2015) nvm, i cant anymore, ill just put it here then(from @ echo off) MAKE SURE TO DISABLE MUSIC(since you guys dont have the sound files) and i cant give them since copyright i think ill make a pastebin soon since the file gets bigger and bigger ;) @echo off mode 71,30 title PokeBatch - The Pokemon Experience in Batch color 0F :Instructions echo ---------------------------------------------------------------------- echo Instructions echo ---------------------------------------------------------------------- echo. echo Enter should be the most used key in the game echo. echo If the game asks you a question, answer it, with a word or a number echo. echo Be aware that if you dont type anything and hit enter, the game thinks echo you want to use your previous answer. echo. echo Good luck ;) pause>nul :Bios cls echo ---------------------------------------------------------------------- echo Memory options echo ---------------------------------------------------------------------- echo. echo 1) Start a new game echo 2) Load an existing game set /p input= if '%input%'=='1' goto Start-1 if '%input%'=='2' goto Load-menu goto Bios :Load-menu cls echo ---------------------------------------------------------------------- echo Load menu echo ---------------------------------------------------------------------- echo. echo What was your name in the saved game? set /p oldname= if '%oldname%'=='' goto Load-menu echo Loading %oldname%.txt... ( set /p music=%music% set /p name=%name% set /p chosenstarter=%chosenstarter% set /p starter=%starter% set /p starterlvl=%starterlvl% set /p starterhp=%starterhp% set /p rival=%rival% set /p rivalstarterlvl=%rivalstarterlvl% set /p rivalstarter=%rivalstarter% set /p money=%money% set /p potions=%potions% set /p fishingrod=%fishingrod% set /p HM-surf=%HM-surf% set /p HM-fly=%HM-fly% set /p HM-cut=%HM-cut% set /p location=%location% set /p exp=%exp% set /p exptill=%exptill% set /p badges=%badges% set /p bikevoucher=%bikevoucher% set /p bike=%bike% set /p pokemonstorage=%pokemonstorage% set /p temppokemon=%temppokemon% set /p temppokemon-lvl=%temppokemon-lvl% set /p pokeballs=%pokeballs% set /p rivalencounters=%rivalencounters% set /p ss-anne=%ss-anne% set /p color=%color% set /p snorlaks1=%snorlaks1% set /p snorlaks2=%snorlaks2% set /p pokemon1=%pokemon1% set /p pokemon1-lvl=%pokemon1-lvl% set /p pokemon2=%pokemon2% set /p pokemon2-lvl=%pokemon2-lvl% set /p pokemon3=%pokemon3% set /p pokemon3-lvl=%pokemon3-lvl% set /p pokemon4=%pokemon4% set /p pokemon4-lvl=%pokemon4-lvl% set /p pokemon5=%pokemon5% set /p pokemon5-lvl=%pokemon5-lvl% set /p pokemon6=%pokemon6% set /p pokemon6-lvl=%pokemon6-lvl% set /p pokemon7=%pokemon7% set /p pokemon7-lvl=%pokemon7-lvl% set /p pokemon8=%pokemon8% set /p pokemon8-lvl=%pokemon8-lvl% set /p pokemon9=%pokemon% set /p pokemon9-lvl=%pokemon-lvl% set /p pokemon10=%pokemon% set /p pokemon10-lvl=%pokemon-lvl% set /p pokemon11=%pokemon% set /p pokemon11-lvl=%pokemon-lvl% set /p pokemon12=%pokemon% set /p pokemon12-lvl=%pokemon-lvl% set /p pokemon13=%pokemon% set /p pokemon13-lvl=%pokemon-lvl% set /p pokemon14=%pokemon% set /p pokemon14-lvl=%pokemon-lvl% set /p pokemon15=%pokemon% set /p pokemon15-lvl=%pokemon-lvl% set /p pokemon16=%pokemon% set /p pokemon16-lvl=%pokemon-lvl% set /p pokemon17=%pokemon% set /p pokemon17-lvl=%pokemon-lvl% set /p pokemon18=%pokemon% set /p pokemon18-lvl=%pokemon-lvl% set /p pokemon19=%pokemon% set /p pokemon19-lvl=%pokemon-lvl% set /p pokemon20=%pokemon% set /p pokemon20-lvl=%pokemon-lvl% set /p inv-pokemon2=%inv-pokemon2% set /p inv-pokemon2-lvl=%inv-pokemon2-lvl% set /p inv-pokemon3=%inv-pokemon3% set /p inv-pokemon3-lvl=%inv-pokemon3-lvl% set /p inv-pokemon4=%inv-pokemon4% set /p inv-pokemon4-lvl=%inv-pokemon4-lvl% set /p inv-pokemon5=%inv-pokemon5% set /p inv-pokemon5-lvl=%inv-pokemon5-lvl% set /p inv-pokemon6=%inv-pokemon6% set /p inv-pokemon6-lvl=%inv-pokemon6-lvl% )<%oldname%.txt ping 192.0.2.2 -n 1 -w 128>nul echo Load succesfull ping 192.0.2.2 -n 1 -w 128>nul if '%name%'=='' ( cls echo ---------------------------------------------------------------------- echo Error echo ---------------------------------------------------------------------- echo. echo The saved game with that name does not exist pause>nul goto Bios ) if '%chosenstarter%'=='BULBASAUR' ( color 2F ) if '%chosenstarter%'=='SQUIRTLE' ( color 9F ) if '%chosenstarter%'=='CHARMANDER' ( color 4F ) if '%chosenstarter%'=='PIKACHU' ( color 6F ) if '%chosenstarter%'=='EEVEE' ( color 5F ) if '%color%'=='1' ( color 0F ) goto %location% :Save-menu cls echo ---------------------------------------------------------------------- echo Save menu echo ---------------------------------------------------------------------- echo. echo Saving %name%.txt... ( echo %music% echo %name% echo %chosenstarter% echo %starter% echo %starterlvl% echo %starterhp% echo %rival% echo %rivalstarterlvl% echo %rivalstarter% echo %money% echo %potions% echo %fishingrod% echo %HM-surf% echo %HM-fly% echo %HM-cut% echo %location% echo %exp% echo %exptill% echo %badges% echo %bikevoucher% echo %bike% echo %pokemonstorage% echo %temppokemon% echo %temppokemon-lvl% echo %pokeballs% echo %rivalencounters% echo %ss-anne% echo %color% echo %snorlaks1% echo %snorlaks2% echo %pokemon1% echo %pokemon1-lvl% echo %pokemon2% echo %pokemon2-lvl% echo %pokemon3% echo %pokemon3-lvl% echo %pokemon4% echo %pokemon4-lvl% echo %pokemon5% echo %pokemon5-lvl% echo %pokemon6% echo %pokemon6-lvl% echo %pokemon7% echo %pokemon7-lvl% echo %pokemon8% echo %pokemon8-lvl% echo %pokemon9% echo %pokemon9-lvl% echo %pokemon10% echo %pokemon10-lvl% echo %pokemon11% echo %pokemon11-lvl% echo %pokemon12% echo %pokemon12-lvl% echo %pokemon13% echo %pokemon13-lvl% echo %pokemon14% echo %pokemon14-lvl% echo %pokemon15% echo %pokemon15-lvl% echo %pokemon16% echo %pokemon16-lvl% echo %pokemon17% echo %pokemon17-lvl% echo %pokemon18% echo %pokemon18-lvl% echo %pokemon19% echo %pokemon19-lvl% echo %pokemon20% echo %pokemon20-lvl% echo %inv-pokemon2% echo %inv-pokemon2-lvl% echo %inv-pokemon3% echo %inv-pokemon3-lvl% echo %inv-pokemon4% echo %inv-pokemon4-lvl% echo %inv-pokemon5% echo %inv-pokemon5-lvl% echo %inv-pokemon6% echo %inv-pokemon6-lvl% )>%name%.txt ping 192.0.2.2 -n 1 -w 128>nul echo Save succesfull ping 192.0.2.2 -n 1 -w 128>nul goto %location% :Start-1 cls echo ---------------------------------------------------------------------- echo Music options echo ---------------------------------------------------------------------- echo. echo 1) Disable music echo 2) Enable music set /p input= if '%input%'=='1' ( set music=0 goto Start-2 ) if '%input%'=='2' ( set music=1 goto Start-2 ) goto Start-1 :Start-2 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Intro.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo PokeBatch - The Pokemon experience in Batch echo ---------------------------------------------------------------------- pause>nul cls echo Prof. Oak approaches pause>nul cls echo Prof. Oak: Hi. My name is Prof. Oak pause>nul cls echo Prof. Oak: Welcome to the wonderful world of Pokemon pause>nul :Name cls echo Prof. Oak: It seems I don't remember your name. What is it? set /p name= if '%name%'=='' goto Name cls echo Hi %name%! It's nice seeing you again pause>nul :Rival-name cls echo Prof. Oak: I think i'm getting old, can you tell me your rivals name? set /p rival= if '%rival%'=='' goto Rival-name cls echo Ah ofcourse his name was %rival%! I hope i wont forget again pause>nul cls echo Prof. Oak: So %name% what are you waiting for, choose your Pokemon pause>nul :Player-stats-preset set fishingrod=0 set HM-surf=0 set HM-fly=0 set HM-cut=0 set money=2000 set potions=1 set badges=0 set bikevoucher=0 set bike=0 set pokemonstorage=0 set pokeballs=5 set starterlvl=5 set /a starterhp=%starterlvl%*4 set exp=0 set exptill=25 set rivalstarterlvl=5 set /a rivalstarterhp=%rivalstarterlvl%*4 set temppokemon=NAN set temppokemon-lvl=NAN set rivalencounters=0 set ss-anne=0 set color=0 set snorlaks1=0 set snorlaks2=0 set pokemon1=NAN set pokemon1-lvl=NAN set pokemon2=NAN set pokemon2-lvl=NAN set pokemon3=NAN set pokemon3-lvl=NAN set pokemon4=NAN set pokemon4-lvl=NAN set pokemon5=NAN set pokemon5-lvl=NAN set pokemon6=NAN set pokemon6-lvl=NAN set pokemon7=NAN set pokemon7-lvl=NAN set pokemon8=NAN set pokemon8-lvl=NAN set pokemon9=NAN set pokemon9-lvl=NAN set pokemon10=NAN set pokemon10-lvl=NAN set pokemon11=NAN set pokemon11-lvl=NAN set pokemon12=NAN set pokemon12-lvl=NAN set pokemon13=NAN set pokemon13-lvl=NAN set pokemon14=NAN set pokemon14-lvl=NAN set pokemon15=NAN set pokemon15-lvl=NAN set pokemon16=NAN set pokemon16-lvl=NAN set pokemon17=NAN set pokemon17-lvl=NAN set pokemon18=NAN set pokemon18-lvl=NAN set pokemon19=NAN set pokemon19-lvl=NAN set pokemon20=NAN set pokemon20-lvl=NAN set inv-pokemon2=NAN set inv-pokemon2-lvl=NAN set inv-pokemon3=NAN set inv-pokemon3-lvl=NAN set inv-pokemon4=NAN set inv-pokemon4-lvl=NAN set inv-pokemon5=NAN set inv-pokemon5-lvl=NAN set inv-pokemon6=NAN set inv-pokemon6-lvl=NAN :Starters cls echo ---------------------------------------------------------------------- echo BULBASAUR LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick BULBASAUR? echo. echo Type 1 to choose BULBASAUR or press enter to continue echo Type 2 if you want to choose a diferent pokemon set /p input= if '%input%'=='1' ( set starter=BULBASAUR set chosenstarter=BULBASAUR color 2F cls echo %rival%: Then i will chose CHARMANDER set rivalstarter=CHARMANDER pause>nul goto Starter-choice ) cls echo ---------------------------------------------------------------------- echo SQUIRTLE LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick SQUIRTLE? echo. echo Type 1 to choose SQUIRLTE or press enter to continue echo Type 2 if you want to choose a diferent pokemon set /p input= if '%input%'=='1' ( set starter=SQUIRTLE set chosenstarter=SQUIRTLE color 9F cls echo %rival%: Then i will chose BULBASAUR set rivalstarter=BULBASAUR pause>nul goto Starter-choice ) cls echo ---------------------------------------------------------------------- echo CHARMANDER LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick CHARMANDER? echo. echo Type 1 to choose CHARMANDER or press enter to continue echo Type 2 if you want to choose a diferent pokemon set /p input= if '%input%'=='1' ( set starter=CHARMANDER set chosenstarter=CHARMANDER color 4F cls echo %rival%: Then i will chose SQUIRTLE set rivalstarter=SQUIRTLE pause>nul goto Starter-choice ) cls echo ---------------------------------------------------------------------- echo PIKACHU LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick PIKACHU? echo. echo Type 1 to choose PIKACHU or press enter to continue echo Type 2 if you want to choose a diferent pokemon set /p input= if '%input%'=='1' ( set starter=PIKACHU set chosenstarter=PIKACHU color 6F cls echo %rival%: Then i will chose EEVEE set rivalstarter=EEVEE pause>nul goto Starter-choice ) cls echo ---------------------------------------------------------------------- echo EEVEE LVL 5 echo ---------------------------------------------------------------------- echo. echo Prof. Oak: Do you want to pick EEVEE? echo. echo Type 1 to choose EEVEE or press enter to continue echo Type 2 if you want to choose a diferent pokemon set /p input= if '%input%'=='1' ( set starter=EEVEE set chosenstarter=EEVEE color 5F cls echo %rival%: Then i will chose PIKACHU set rivalstarter=PIKACHU pause>nul goto Starter-choice ) goto Starters :Starter-choice cls echo Prof. Oak: Congratulations, you've just become a Pokemon trainer pause>nul cls echo Prof. Oak: Make sure to have fun with %starter% pause>nul cls echo Prof. Oak: Collect Gym badges and compete in the Pokemon League pause>nul cls echo Prof. Oak: Good luck pause>nul cls echo %rival%: Hey %name% let's try out our new Pokemon set location=Pallet-Town pause>nul :Rival-battle-start ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Rival-appears.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) set /a rivalstarterhp=%rivalstarterlvl%*4 echo %rival%: Let's fight pause>nul ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Wild-Pokemon-Battle.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) :Rival-battle cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LSS 1 ( echo. echo %starter% fainted pause>nul goto Rival-battle-lost ) set /p input= if '%input%'=='1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 2 set /a rivalstarterhp=%rivalstarterhp%-5 if '%stronghit%' LSS 3 echo %starter% missed pause>nul goto Rival-starter-attack-kind-calc ) if '%input%'=='2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a rivalstarterhp=%rivalstarterhp%-3 pause>nul goto Rival-starter-attack-kind-calc ) if '%input%'=='3' goto Rival-battle-potion goto Rival-battle :Rival-battle-potion if '%potions%' LSS 1 ( echo You don't have any potions left pause>nul ) if '%potions%' GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto Rival-starter-attack-kind-calc :Rival-starter-attack-kind-calc if %rivalstarterhp% LSS 1 ( set /a exp=%rivalstarterlvl%*5 echo. echo %rivalstarter% fainted echo. echo %starter% gained some exp pause>nul goto Rival-battle-victory ) set rivalstarterattackcalc=%random:~-1% if %rivalstarterattackcalc% GTR 1 goto Rival-starter-attack-kind-calc if '%rivalstarterattackcalc%'=='0' ( set rivalstarterattackkind=Strong-attack set /a starterhp=%starterhp%-4 ) if '%rivalstarterattackcalc%'=='1' ( set rivalstarterattackkind=Accurate-attack set /a starterhp=%starterhp%-3 ) goto Rival-turn :Rival-turn cls echo ---------------------------------------------------------------------- echo %rivalstarter% LVL: %rivalstarterlvl% HP: %rivalstarterhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo %rival%: %rivalstarter% use %rivalstarterattackkind% echo ---------------------------------------------------------------------- pause>nul goto Rival-battle :Rival-battle-lost cls echo %rival%: Haha, you should have known %name% pause>nul cls echo %rival%: I will always be better at training Pokemon than you will echo ever be! pause>nul cls ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pallet-Town.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) echo Nurse Joy: Oh %name% your pokemon is hurt pause>nul cls echo Nurse Joy: Come with me and i'll heal him with my love pause>nul cls echo Your %starter% is blushed red pause>nul if '%rivalencounters%'=='1' ( set rivalencounters=2 ) if '%rivalencouters%'=='0' ( set rivalencounters=1 ) set /a starterhp=%starterlvl%*4 goto %location% :Rival-battle-victory cls set /a exptill=%exptill%-%exp% if %exptill% LSS 1 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up pause>nul cls ) echo %rival%: You won this time, and only because of luck pause>nul cls echo You got $500 for winning set /a money=%money%+500 pause>nul cls echo %rival%: Smell ya later! pause>nul cls ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pallet-Town.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) echo Nurse Joy: Oh %name% your pokemon is hurt pause>nul cls echo Nurse Joy: Come with me and i'll heal him with my love pause>nul cls echo Your %starter% is blushed red pause>nul set /a starterhp=10+(%starterlvl%*2) if '%rivalencounters%'=='1' ( set rivalencounters=2 ) if '%rivalencouters%'=='0' ( set rivalencounters=1 ) goto %location% :Wild-pokemon-lvl-calc-route-1 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 6 goto Wild-pokemon-lvl-calc-route-1 if '%wildpokemonkind%'=='0' set wildpokemon=POLIWAG if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='5' set wildpokemon=MANKEY if '%wildpokemonkind%'=='6' set wildpokemon=DIGLETT :Wild-pokemon-stats-route-1 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto Wild-pokemon-stats-route-1 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=2 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=3 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=4 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-2 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 4 goto Wild-pokemon-lvl-calc-route-2 if '%wildpokemonkind%'=='0' set wildpokemon=CATERPIE if '%wildpokemonkind%'=='1' set wildpokemon=NIDORAN-MALE if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=NIDORAN-FEMALE :Wild-pokemon-stats-route-2 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto Wild-pokemon-stats-route-2 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=3 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=4 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=5 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-3 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 5 goto Wild-pokemon-lvl-calc-route-3 if '%wildpokemonkind%'=='0' set wildpokemon=JIGGLYPUFF if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='5' set wildpokemon=MANKEY :Wild-pokemon-stats-route-3 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto Wild-pokemon-stats-route-3 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=6 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=8 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=10 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-4 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 4 goto Wild-pokemon-lvl-calc-route-4 if '%wildpokemonkind%'=='0' set wildpokemon=EKANS if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=MANKEY if '%wildpokemonkind%'=='4' set wildpokemon=SANDSHREW :Wild-pokemon-stats-route-4 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 2 goto Wild-pokemon-stats-route-4 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=8 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=10 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=12 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-5 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 8 goto Wild-pokemon-lvl-calc-route-5 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=JIGGLYPUFF if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=ODDISH if '%wildpokemonkind%'=='5' set wildpokemon=MANKEY if '%wildpokemonkind%'=='6' set wildpokemon=MEOWTH if '%wildpokemonkind%'=='7' set wildpokemon=ABRA if '%wildpokemonkind%'=='8' set wildpokemon=BELLSPROUT :Wild-pokemon-stats-route-5 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-route-5 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=7 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=10 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=12 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=17 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-6 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 8 goto Wild-pokemon-lvl-calc-route-6 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=JIGGLYPUFF if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=ODDISH if '%wildpokemonkind%'=='5' set wildpokemon=MEOWTH if '%wildpokemonkind%'=='6' set wildpokemon=MANKEY if '%wildpokemonkind%'=='7' set wildpokemon=ABRA if '%wildpokemonkind%'=='8' set wildpokemon=BELLSPROUT :Wild-pokemon-stats-route-6 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 4 goto Wild-pokemon-stats-route-6 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=17 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-7 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 9 goto Wild-pokemon-lvl-calc-route-7 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=VULPIX if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=JIGGLYPUFF if '%wildpokemonkind%'=='5' set wildpokemon=MANKEY if '%wildpokemonkind%'=='6' set wildpokemon=MEOWTH if '%wildpokemonkind%'=='7' set wildpokemon=GROWLITHE if '%wildpokemonkind%'=='8' set wildpokemon=ABRA if '%wildpokemonkind%'=='9' set wildpokemon=BELLSPROUT :Wild-pokemon-stats-route-7 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 7 goto Wild-pokemon-stats-route-7 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=21 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=26 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-8 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 9 goto Wild-pokemon-lvl-calc-route-8 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=EKANS if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=VULPIX if '%wildpokemonkind%'=='4' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='5' set wildpokemon=MANKEY if '%wildpokemonkind%'=='6' set wildpokemon=MEOWTH if '%wildpokemonkind%'=='7' set wildpokemon=GROWLITHE if '%wildpokemonkind%'=='8' set wildpokemon=ABRA if '%wildpokemonkind%'=='9' set wildpokemon=KADABRA :Wild-pokemon-stats-route-8 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-route-8 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=20 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-9 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 9 goto Wild-pokemon-lvl-calc-route-9 if '%wildpokemonkind%'=='0' set wildpokemon=RATICATE if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=FEAROW if '%wildpokemonkind%'=='4' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='5' set wildpokemon=EKANS if '%wildpokemonkind%'=='6' set wildpokemon=NIDORAN-MALE if '%wildpokemonkind%'=='7' set wildpokemon=NIDORAN-FEMALE if '%wildpokemonkind%'=='8' set wildpokemon=NIDORINO if '%wildpokemonkind%'=='9' set wildpokemon=NIDORINA :Wild-pokemon-stats-route-9 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-route-9 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=20 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-10 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 9 goto Wild-pokemon-lvl-calc-route-10 if '%wildpokemonkind%'=='0' set wildpokemon=RATICATE if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=EKANS if '%wildpokemonkind%'=='4' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='5' set wildpokemon=NIDORAN-MALE if '%wildpokemonkind%'=='6' set wildpokemon=NIDORAN-FEMALE if '%wildpokemonkind%'=='7' set wildpokemon=MACHOP if '%wildpokemonkind%'=='8' set wildpokemon=MAGNEMITE if '%wildpokemonkind%'=='9' set wildpokemon=VOLTORB :Wild-pokemon-stats-route-10 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-route-10 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=12 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=20 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-11 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 7 goto Wild-pokemon-lvl-calc-route-11 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=RATICATE if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=SPARROW if '%wildpokemonkind%'=='5' set wildpokemon=EKANS if '%wildpokemonkind%'=='6' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='7' set wildpokemon=DROWZEE :Wild-pokemon-stats-route-11 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-route-11 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=12 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=20 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-12 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 8 goto Wild-pokemon-lvl-calc-route-12 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=ODDISH if '%wildpokemonkind%'=='2' set wildpokemon=GLOOM if '%wildpokemonkind%'=='3' set wildpokemon=VENONAT if '%wildpokemonkind%'=='4' set wildpokemon=BELLSPROUT if '%wildpokemonkind%'=='5' set wildpokemon=WEEPINBELL if '%wildpokemonkind%'=='6' set wildpokemon=FARFETCHD if '%wildpokemonkind%'=='7' set wildpokemon=RATTATA if '%wildpokemonkind%'=='8' set wildpokemon=PIDGEY :Wild-pokemon-stats-route-12 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-route-12 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=31 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-13 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 8 goto Wild-pokemon-lvl-calc-route-13 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=ODDISH if '%wildpokemonkind%'=='2' set wildpokemon=GLOOM if '%wildpokemonkind%'=='3' set wildpokemon=VENONAT if '%wildpokemonkind%'=='4' set wildpokemon=WEEPINBELL if '%wildpokemonkind%'=='5' set wildpokemon=RATTATA if '%wildpokemonkind%'=='6' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='7' set wildpokemon=DITTO if '%wildpokemonkind%'=='8' set wildpokemon=BELLSPROUT :Wild-pokemon-stats-route-13 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-route-13 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=31 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-14 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 9 goto Wild-pokemon-lvl-calc-route-14 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=ODDISH if '%wildpokemonkind%'=='2' set wildpokemon=GLOOM if '%wildpokemonkind%'=='3' set wildpokemon=VENONAT if '%wildpokemonkind%'=='4' set wildpokemon=WEEPINBELL if '%wildpokemonkind%'=='5' set wildpokemon=RATTATA if '%wildpokemonkind%'=='6' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='7' set wildpokemon=DITTO if '%wildpokemonkind%'=='8' set wildpokemon=BELLSPROUT if '%wildpokemonkind%'=='9' set wildpokemon=VENOMOTH :Wild-pokemon-stats-route-14 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-route-14 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=31 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-15 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 8 goto Wild-pokemon-lvl-calc-route-15 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='1' set wildpokemon=ODDISH if '%wildpokemonkind%'=='2' set wildpokemon=GLOOM if '%wildpokemonkind%'=='3' set wildpokemon=VENONAT if '%wildpokemonkind%'=='4' set wildpokemon=WEEPINBELL if '%wildpokemonkind%'=='5' set wildpokemon=RATTATA if '%wildpokemonkind%'=='6' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='7' set wildpokemon=DITTO if '%wildpokemonkind%'=='8' set wildpokemon=BELLSPROUT :Wild-pokemon-stats-route-15 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-route-15 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=30 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-16 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 4 goto Wild-pokemon-lvl-calc-route-16 if '%wildpokemonkind%'=='0' set wildpokemon=RATTATA if '%wildpokemonkind%'=='1' set wildpokemon=RATICATE if '%wildpokemonkind%'=='2' set wildpokemon=SPARROW if '%wildpokemonkind%'=='3' set wildpokemon=FEAROW if '%wildpokemonkind%'=='4' set wildpokemon=DODUO :Wild-pokemon-stats-route-16 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 6 goto Wild-pokemon-stats-route-16 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=26 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-17 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 5 goto Wild-pokemon-lvl-calc-route-17 if '%wildpokemonkind%'=='0' set wildpokemon=RATICATE if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=FEAROW if '%wildpokemonkind%'=='3' set wildpokemon=PONYTA if '%wildpokemonkind%'=='4' set wildpokemon=DODUO if '%wildpokemonkind%'=='5' set wildpokemon=DODRIO :Wild-pokemon-stats-route-17 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-route-17 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=32 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-18 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 7 goto Wild-pokemon-lvl-calc-route-18 if '%wildpokemonkind%'=='0' set wildpokemon=RATTATA if '%wildpokemonkind%'=='1' set wildpokemon=RATICATE if '%wildpokemonkind%'=='2' set wildpokemon=SPARROW if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=FEAROW if '%wildpokemonkind%'=='5' set wildpokemon=PONYTA if '%wildpokemonkind%'=='6' set wildpokemon=DODUO if '%wildpokemonkind%'=='7' set wildpokemon=DODRIO :Wild-pokemon-stats-route-18 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-route-18 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=29 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-19 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 1 goto Wild-pokemon-lvl-calc-route-19 if '%wildpokemonkind%'=='0' set wildpokemon=TENTACOOL if '%wildpokemonkind%'=='1' set wildpokemon=TENTACRUEL :Wild-pokemon-stats-route-19 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 7 goto Wild-pokemon-stats-route-19 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=5 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=10 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=35 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=40 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-20 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 1 goto Wild-pokemon-lvl-calc-route-20 if '%wildpokemonkind%'=='0' set wildpokemon=TENTACOOL if '%wildpokemonkind%'=='1' set wildpokemon=TENTACRUEL :Wild-pokemon-stats-route-20 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 7 goto Wild-pokemon-stats-route-20 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=5 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=10 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=35 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=40 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-21 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 4 goto Wild-pokemon-lvl-calc-route-21 if '%wildpokemonkind%'=='0' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='1' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=RATICATE if '%wildpokemonkind%'=='4' set wildpokemon=TANGELA :Wild-pokemon-stats-route-21 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-route-21 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=21 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=30 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-22 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 5 goto Wild-pokemon-lvl-calc-route-22 if '%wildpokemonkind%'=='0' set wildpokemon=NIDORAN-MALE if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=RATTATA if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=NIDORAN-FEMALE if '%wildpokemonkind%'=='5' set wildpokemon=MANKEY :Wild-pokemon-stats-route-22 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 4 goto Wild-pokemon-stats-route-22 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=2 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=3 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=4 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=5 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=6 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-23 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 7 goto Wild-pokemon-lvl-calc-route-23 if '%wildpokemonkind%'=='0' set wildpokemon=SANDSLASH if '%wildpokemonkind%'=='1' set wildpokemon=SPARROW if '%wildpokemonkind%'=='2' set wildpokemon=NIDORINA if '%wildpokemonkind%'=='3' set wildpokemon=NIDORINO if '%wildpokemonkind%'=='4' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='5' set wildpokemon=MANKEY if '%wildpokemonkind%'=='6' set wildpokemon=PRIMEAPE if '%wildpokemonkind%'=='7' set wildpokemon=DITTO :Wild-pokemon-stats-route-23 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 7 goto Wild-pokemon-stats-route-23 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=33 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=38 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=40 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=41 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=43 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=44 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=45 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-24 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 9 goto Wild-pokemon-lvl-calc-route-24 if '%wildpokemonkind%'=='0' set wildpokemon=CATERPIE if '%wildpokemonkind%'=='1' set wildpokemon=METAPOD if '%wildpokemonkind%'=='2' set wildpokemon=WEELDE if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=KAKUNA if '%wildpokemonkind%'=='5' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='6' set wildpokemon=ODDISH if '%wildpokemonkind%'=='7' set wildpokemon=VENONAT if '%wildpokemonkind%'=='8' set wildpokemon=ABRA if '%wildpokemonkind%'=='9' set wildpokemon=BELLSPROUT :Wild-pokemon-stats-route-24 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-route-24 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=7 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=8 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=10 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=12 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=17 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-route-25 set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 9 goto Wild-pokemon-lvl-calc-route-25 if '%wildpokemonkind%'=='0' set wildpokemon=CATERPIE if '%wildpokemonkind%'=='1' set wildpokemon=METAPOD if '%wildpokemonkind%'=='2' set wildpokemon=WEELDE if '%wildpokemonkind%'=='3' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='4' set wildpokemon=KAKUNA if '%wildpokemonkind%'=='5' set wildpokemon=PIDGEOTTO if '%wildpokemonkind%'=='6' set wildpokemon=ODDISH if '%wildpokemonkind%'=='7' set wildpokemon=VENONAT if '%wildpokemonkind%'=='8' set wildpokemon=ABRA if '%wildpokemonkind%'=='9' set wildpokemon=BELLSPROUT :Wild-pokemon-stats-route-25 set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-route-25 if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=7 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=8 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=9 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=12 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=17 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-viridian-forest set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 5 goto Wild-pokemon-lvl-calc-viridian-forest if '%wildpokemonkind%'=='0' set wildpokemon=CATERPIE if '%wildpokemonkind%'=='1' set wildpokemon=METAPOD if '%wildpokemonkind%'=='2' set wildpokemon=WEELDE if '%wildpokemonkind%'=='3' set wildpokemon=KAKUNA if '%wildpokemonkind%'=='4' set wildpokemon=PIDGEY if '%wildpokemonkind%'=='5' set wildpokemon=PIKACHU :Wild-pokemon-stats-viridian-forest set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 3 goto Wild-pokemon-stats-viridian-forest if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=3 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=4 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=5 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=6 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-digletts-cave set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 4 goto Wild-pokemon-lvl-calc-digletts-cave if '%wildpokemonkind%'=='0' set wildpokemon=DIGLETT if '%wildpokemonkind%'=='1' set wildpokemon=DIGLETT if '%wildpokemonkind%'=='2' set wildpokemon=DIGLETT if '%wildpokemonkind%'=='3' set wildpokemon=DIGLETT if '%wildpokemonkind%'=='4' set wildpokemon=DUGTRIO :Wild-pokemon-stats-digletts-cave set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-digletts-cave if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=21 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=31 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-mt-moon set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 4 goto Wild-pokemon-lvl-calc-mt-moon if '%wildpokemonkind%'=='0' set wildpokemon=SANDSHREW if '%wildpokemonkind%'=='1' set wildpokemon=CLEFAIRY if '%wildpokemonkind%'=='2' set wildpokemon=ZUBAT if '%wildpokemonkind%'=='3' set wildpokemon=PARAS if '%wildpokemonkind%'=='4' set wildpokemon=GEODUDE :Wild-pokemon-stats-mt-moon set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 7 goto Wild-pokemon-stats-mt-moon if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=6 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=7 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=8 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=9 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=10 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=11 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=12 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=13 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-rock-tunnel set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 3 goto Wild-pokemon-lvl-calc-rock-tunnel if '%wildpokemonkind%'=='0' set wildpokemon=ZUBAT if '%wildpokemonkind%'=='1' set wildpokemon=GEODUDE if '%wildpokemonkind%'=='2' set wildpokemon=MACHOP if '%wildpokemonkind%'=='3' set wildpokemon=ONIX :Wild-pokemon-stats-rock-tunnel set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-rock-tunnel if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=13 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=15 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=16 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=19 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=21 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=22 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-power-plant set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 8 goto Wild-pokemon-lvl-calc-power-plant if '%wildpokemonkind%'=='0' set wildpokemon=PIKACHU if '%wildpokemonkind%'=='1' set wildpokemon=RAICHU if '%wildpokemonkind%'=='2' set wildpokemon=MAGNEMITE if '%wildpokemonkind%'=='3' set wildpokemon=MAGNETON if '%wildpokemonkind%'=='4' set wildpokemon=GRIMER if '%wildpokemonkind%'=='5' set wildpokemon=MUK if '%wildpokemonkind%'=='6' set wildpokemon=VOLTORB if '%wildpokemonkind%'=='7' set wildpokemon=ELACTABUZZ if '%wildpokemonkind%'=='8' set wildpokemon=ELECTRODE :Wild-pokemon-stats-power-plant set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-power-plant if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=21 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=32 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=33 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=35 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=37 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=40 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=43 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-pokemon-tower set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 2 goto Wild-pokemon-lvl-calc-pokemon-tower if '%wildpokemonkind%'=='0' set wildpokemon=GASTLY if '%wildpokemonkind%'=='1' set wildpokemon=HAUNTER if '%wildpokemonkind%'=='2' set wildpokemon=CUBONE :Wild-pokemon-stats-pokemon-tower set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-pokemon-tower if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=18 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=21 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=30 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-seafoam-island set wildpokemonkind=%random:~-2% if %wildpokemonkind% GTR 13 goto Wild-pokemon-lvl-calc-seafoam-island if '%wildpokemonkind%'=='0' set wildpokemon=ZUBAT if '%wildpokemonkind%'=='1' set wildpokemon=GOLBAT if '%wildpokemonkind%'=='2' set wildpokemon=PSYDUCK if '%wildpokemonkind%'=='3' set wildpokemon=GOLDUCK if '%wildpokemonkind%'=='4' set wildpokemon=SLOPOKE if '%wildpokemonkind%'=='5' set wildpokemon=SLOWBRO if '%wildpokemonkind%'=='6' set wildpokemon=SEEL if '%wildpokemonkind%'=='7' set wildpokemon=DEWGONG if '%wildpokemonkind%'=='8' set wildpokemon=SHELLDER if '%wildpokemonkind%'=='9' set wildpokemon=KRABBY if '%wildpokemonkind%'=='10' set wildpokemon=KINGLER if '%wildpokemonkind%'=='11' set wildpokemon=HORSEA if '%wildpokemonkind%'=='12' set wildpokemon=SEADRA if '%wildpokemonkind%'=='13' set wildpokemon=STARYU :Wild-pokemon-stats-seafoam-island set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-seafoam-island if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=27 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=29 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=31 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=32 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=33 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=34 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=35 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=36 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-cerulean-cave set wildpokemonkind=%random:~-2% if %wildpokemonkind% GTR 20 goto Wild-pokemon-lvl-calc-cerulean-cave if '%wildpokemonkind%'=='0' set wildpokemon=ARBOK if '%wildpokemonkind%'=='1' set wildpokemon=RAICHU if '%wildpokemonkind%'=='2' set wildpokemon=SANDSLASH if '%wildpokemonkind%'=='3' set wildpokemon=GOLBAT if '%wildpokemonkind%'=='4' set wildpokemon=GLOOM if '%wildpokemonkind%'=='5' set wildpokemon=PARASECT if '%wildpokemonkind%'=='6' set wildpokemon=VENOMOTH if '%wildpokemonkind%'=='7' set wildpokemon=KADABRA if '%wildpokemonkind%'=='8' set wildpokemon=WEEPINBELL if '%wildpokemonkind%'=='9' set wildpokemon=HYPNO if '%wildpokemonkind%'=='10' set wildpokemon=GRAVELER if '%wildpokemonkind%'=='11' set wildpokemon=MAGNETON if '%wildpokemonkind%'=='12' set wildpokemon=DODRIO if '%wildpokemonkind%'=='13' set wildpokemon=DITTO if '%wildpokemonkind%'=='14' set wildpokemon=WIGGLYTUFF if '%wildpokemonkind%'=='15' set wildpokemon=ELECTRODE if '%wildpokemonkind%'=='16' set wildpokemon=MAROWAK if '%wildpokemonkind%'=='17' set wildpokemon=RYHORN if '%wildpokemonkind%'=='18' set wildpokemon=RYDON if '%wildpokemonkind%'=='19' set wildpokemon=CHANSEY if '%wildpokemonkind%'=='20' set wildpokemon=LICKYTUNG :Wild-pokemon-stats-cerulean-cave set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-cerulean-cave if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=45 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=49 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=51 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=55 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=57 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=59 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=61 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=63 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=65 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=67 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-victory-road set wildpokemonkind=%random:~-1% if %wildpokemonkind% GTR 8 goto Wild-pokemon-lvl-calc-victory-road if '%wildpokemonkind%'=='0' set wildpokemon=ZUBAT if '%wildpokemonkind%'=='1' set wildpokemon=GOLBAT if '%wildpokemonkind%'=='2' set wildpokemon=MACHOP if '%wildpokemonkind%'=='3' set wildpokemon=MACHOKE if '%wildpokemonkind%'=='4' set wildpokemon=GEODUDE if '%wildpokemonkind%'=='5' set wildpokemon=GRAVELER if '%wildpokemonkind%'=='6' set wildpokemon=ONIX if '%wildpokemonkind%'=='7' set wildpokemon=MAROWAK if '%wildpokemonkind%'=='8' set wildpokemon=VENOMOTH :Wild-pokemon-stats-victory-road set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 9 goto Wild-pokemon-stats-victory-road if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=26 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=28 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=32 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=36 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=38 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=40 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=42 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=44 if '%wildpokemonlvlcalc%'=='9' set wildpokemonlvl=47 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-lvl-calc-safari-zone set wildpokemonkind=%random:~-2% if %wildpokemonkind% GTR 19 goto Wild-pokemon-lvl-calc-safari-zone if '%wildpokemonkind%'=='0' set wildpokemon=NIDORAN-FEMALE if '%wildpokemonkind%'=='1' set wildpokemon=NIDORAN-MALE if '%wildpokemonkind%'=='2' set wildpokemon=NIDORINA if '%wildpokemonkind%'=='3' set wildpokemon=NIDORINO if '%wildpokemonkind%'=='4' set wildpokemon=PARAS if '%wildpokemonkind%'=='5' set wildpokemon=PARASECT if '%wildpokemonkind%'=='6' set wildpokemon=VENONAT if '%wildpokemonkind%'=='7' set wildpokemon=EXEGGCUTE if '%wildpokemonkind%'=='8' set wildpokemon=RHYHORN if '%wildpokemonkind%'=='9' set wildpokemon=CHANSEY if '%wildpokemonkind%'=='10' set wildpokemon=TANGELA if '%wildpokemonkind%'=='11' set wildpokemon=SCYTHER if '%wildpokemonkind%'=='12' set wildpokemon=PINSER if '%wildpokemonkind%'=='13' set wildpokemon=DRATINI if '%wildpokemonkind%'=='14' set wildpokemon=DRAGONAIR if '%wildpokemonkind%'=='15' set wildpokemon=DODUO if '%wildpokemonkind%'=='16' set wildpokemon=CUBONE if '%wildpokemonkind%'=='17' set wildpokemon=MAROWAK if '%wildpokemonkind%'=='18' set wildpokemon=TAUROS if '%wildpokemonkind%'=='19' set wildpokemon=SLOWPOKE :Wild-pokemon-stats-safari-zone set wildpokemonlvlcalc=%random:~-1% if %wildpokemonlvlcalc% GTR 8 goto Wild-pokemon-stats-safari-zone if '%wildpokemonlvlcalc%'=='0' set wildpokemonlvl=14 if '%wildpokemonlvlcalc%'=='1' set wildpokemonlvl=17 if '%wildpokemonlvlcalc%'=='2' set wildpokemonlvl=20 if '%wildpokemonlvlcalc%'=='3' set wildpokemonlvl=22 if '%wildpokemonlvlcalc%'=='4' set wildpokemonlvl=23 if '%wildpokemonlvlcalc%'=='5' set wildpokemonlvl=24 if '%wildpokemonlvlcalc%'=='6' set wildpokemonlvl=25 if '%wildpokemonlvlcalc%'=='7' set wildpokemonlvl=30 if '%wildpokemonlvlcalc%'=='8' set wildpokemonlvl=32 set /a wildpokemonhp=%wildpokemonlvl%*4 goto Wild-pokemon-appeared :Wild-pokemon-appeared ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Wild-Pokemon-Battle.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo A wild %wildpokemon% has appeared echo. echo %wildpokemon%: %wildpokemon% echo. echo %name%: Go %starter% i choose you echo. echo %starter%: %starter% pause>nul :Wild-pokemon-battle cls if %starterhp% LSS 1 goto Wild-pokemon-battle-lost echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) echo 4) [Run] echo 5) Throw a pokeball, you have %pokeballs% pokeball(s) set /p input= if '%input%'=='1' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 2 set /a wildpokemonhp=%wildpokemonhp%-5 if '%stronghit%' LSS 3 echo %starter% missed pause>nul goto Wild-pokemon-attack-kind-calc ) if '%input%'=='2' ( echo. echo ---------------------------------------------------------------------- echo %starter% uses Accurate-attack echo ---------------------------------------------------------------------- set /a wildpokemonhp=%wildpokemonhp%-3 pause>nul goto Wild-pokemon-attack-kind-calc ) if '%input%'=='3' goto Wild-pokemon-battle-potion if '%input%'=='4' ( cls echo You run as fast as you can towards %location% pause>nul goto %location% ) if '%input%'=='5' goto Pokeball-catch-chance goto Wild-pokemon-battle :Pokeball-catch-chance if '%pokeballs%'=='0' ( echo You don't have any pokeballs pause>nul goto Wild-pokemon-battle ) if '%pokemonstorage%'=='8' ( echo storage is full, you can't catch any more pokemon pause>nul goto Wild-pokemon-battle ) set /a pokeballs=%pokeballs%-1 set pokeballcatchratio=%random:~-1% if '%pokeballcatchratio%' GTR 7 ( echo You did it, %wildpokemon% was caught! :Caught-pokemon-sorting-system if '%pokemonstorage%'=='0' ( set pokemon1=%wildpokemon% set pokemon1-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='1' ( set pokemon2=%wildpokemon% set pokemon2-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='2' ( set pokemon3=%wildpokemon% set pokemon3-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='3' ( set pokemon4=%wildpokemon% set pokemon4-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='4' ( set pokemon5=%wildpokemon% set pokemon5-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='5' ( set pokemon6=%wildpokemon% set pokemon6-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='6' ( set pokemon7=%wildpokemon% set pokemon7-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='7' ( set pokemon8=%wildpokemon% set pokemon8-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='8' ( set pokemon9=%wildpokemon% set pokemon9-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='9' ( set pokemon10=%wildpokemon% set pokemon10-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='10' ( set pokemon11=%wildpokemon% set pokemon11-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='11' ( set pokemon12=%wildpokemon% set pokemon12-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='12' ( set pokemon13=%wildpokemon% set pokemon13-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='13' ( set pokemon14=%wildpokemon% set pokemon14-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='14' ( set pokemon15=%wildpokemon% set pokemon15-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='15' ( set pokemon16=%wildpokemon% set pokemon16-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='16' ( set pokemon17=%wildpokemon% set pokemon17-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='17' ( set pokemon18=%wildpokemon% set pokemon18-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='18' ( set pokemon19=%wildpokemon% set pokemon19-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) if '%pokemonstorage%'=='19' ( set pokemon20=%wildpokemon% set pokemon20-lvl=%wildpokemonlvl% set /a pokemonstorage=%pokemonstorage%+1 ) pause>nul goto %location% ) echo You missed the pokeball pause>nul goto Wild-pokemon-attack-kind-calc :Wild-pokemon-battle-potion cls if %potions% LSS 1 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto Wild-pokemon-attack-kind-calc :Wild-pokemon-battle-win ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Victory.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) set /a exptill=%exptill%-%exp% if %exptill% LSS 1 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo. echo Your %starter% has LVL'd up pause>nul ) goto %location% :Wild-pokemon-battle-lost cls ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pallet-Town.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) echo Mom: oh no my little man got hurt by a %wildpokemon% pause>nul cls echo Mom: Here take some tea pause>nul set /a starterhp=%starterlvl%*4 goto %location% :Wild-pokemon-attack-kind-calc cls if %wildpokemonhp% LSS 1 ( set /a exp=%wildpokemonlvl%*5 echo. echo %wildpokemon% fainted echo. echo %starter% gained some exp pause>nul goto Wild-pokemon-battle-win ) set wildpokemonattackcalc=%random:~-1% if %wildpokemonattackcalc% GTR 1 goto Wild-pokemon-attack-kind-calc if '%wildpokemonattackcalc%'=='0' ( set wildpokemonattackkind=Strong-attack set stronghit=%random:~-1% if '%stronghit%' GTR 4 set /a starterhp=%starterhp%-4 goto Wild-pokemon-turn ) if '%wildpokemonattackcalc%'=='1' ( set wildpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-2 goto Wild-pokemon-turn ) :Wild-pokemon-turn cls if %wildpokemonhp% LSS 1 goto Wild-pokemon-battle-win echo ---------------------------------------------------------------------- echo %wildpokemon% LVL: %wildpokemonlvl% HP: %wildpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Wild %wildpokemon% uses %wildpokemonattackkind% echo ---------------------------------------------------------------------- if '%stronghit%' LSS 5 echo %wildpokemon% missed pause>nul goto Wild-pokemon-battle :Trainer-route-3 set trainerpokemon=SANDSHREW set trainerpokemonlvl=7 goto Trainer :Trainer-mt-moon set trainerpokemon=GEODUDE set trainerpokemonlvl=7 goto Trainer :Trainer-route-24 set trainerpokemon=ODDISH set trainerpokemonlvl=8 goto Trainer :Trainer cls set /a trainerpokemonhp=%trainerpokemonlvl%*4 set trainercalc=%random:~-1% if %trainercalc% GTR 1 goto Trainer if '%trainercalc%'=='0' set trainermusic=Trainer1-appears if '%trainercalc%'=='1' set trainermusic=Trainer2-appears ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="%trainermusic%.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) echo A trainer wants to fight pause>nul ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Trainer.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) :Trainer-battle cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LSS 1 ( echo. echo %starter% fainted pause>nul goto Trainer-pokemon-battle-lost ) set /p input= if '%input%'=='1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 2 set /a trainerpokemonhp=%trainerpokemonhp%-5 if '%stronghit%' LSS 3 echo %starter% missed pause>nul goto Trainer-pokemon-attack-kind-calc ) if '%input%'=='2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a trainerpokemonhp=%trainerpokemonhp%-3 pause>nul goto Trainer-pokemon-attack-kind-calc ) if '%input%'=='3' goto Trainer-pokemon-battle-potion goto Trainer-battle :Trainer-pokemon-battle-potion if %potions% LSS 1 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto Trainer-pokemon-attack-kind-calc :Trainer-pokemon-attack-kind-calc if %trainerpokemonhp% LSS 1 ( set /a exp=%trainerpokemonlvl%*5 echo. echo %trainerpokemon% fainted echo. echo %starter% gained some exp pause>nul goto Trainer-pokemon-battle-victory ) set trainerpokemonattackcalc=%random:~-1% if %trainerpokemonattackcalc% GTR 1 goto Trainer-pokemon-attack-kind-calc if '%trainerpokemonattackcalc%'=='0' ( set trainerpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto Trainer-pokemon-turn ) if '%trainerpokemonattackcalc%'=='1' ( set trainerpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto Trainer-pokemon-turn ) :Trainer-pokemon-turn cls echo ---------------------------------------------------------------------- echo %trainerpokemon% LVL: %trainerpokemonlvl% HP: %trainerpokemonhp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Trainer: %trainerpokemon% use %trainerpokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto Trainer-battle :Trainer-pokemon-battle-lost ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Viridian-Pewter-Saffron-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo Trainer: I just can't get enough of winning, hahaha pause>nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Pokemon-Center :Trainer-pokemon-battle-victory cls set /a exptill=%exptill%-%exp% if %exptill% LSS 1 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 ) ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Victory.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) echo You got $500 for winning set /a money=%money%+500 pause>nul goto %location% :Brock-battle cls echo ---------------------------------------------------------------------- echo %brockpokemon1% LVL: %brockpokemon1lvl% HP: %brockpokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LSS 1 ( echo. echo %starter% fainted pause>nul goto Brock-battle-lost ) set /p input= if '%input%'=='1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 2 set /a brockpokemon1hp=%brockpokemon1hp%-5 if '%stronghit%' LSS 3 echo %starter% missed pause>nul goto Brock-pokemon-attack-kind-calc ) if '%input%'=='2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a brockpokemon1hp=%brockpokemon1hp%-3 pause>nul goto Brock-pokemon-attack-kind-calc ) if '%input%'=='3' goto Brock-battle-potion goto Brock-battle :Brock-battle-potion if %potions% LSS 1 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto Brock-pokemon-attack-kind-calc :Brock-pokemon-attack-kind-calc if %brockpokemon1hp% LSS 1 ( set /a exp=%brockpokemon1lvl%*5 echo. echo %brockpokemon1% fainted echo. echo %starter% gained some exp pause>nul if '%brockpokemon1%'=='ONIX' ( goto Brock-battle-victory-2 ) goto Brock-battle-victory ) set brockpokemonattackcalc=%random:~-1% if %brockpokemonattackcalc% GTR 1 goto Brock-pokemon-attack-kind-calc if '%brockpokemonattackcalc%'=='0' ( set brockpokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto Brock-pokemon-1-turn ) if '%brockpokemonattackcalc%'=='1' ( set brockpokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto Brock-pokemon-1-turn ) :Brock-pokemon-1-turn cls echo ---------------------------------------------------------------------- echo %brockpokemon1% LVL: %brockpokemon1lvl% HP: %brockpokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Brock: %brockpokemon1% use %brockpokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto Brock-battle :Brock-battle-lost ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Viridian-Pewter-Saffron-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo Brock: Come back when you can actually beat me %name% pause>nul cls echo Nurse Joy: damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Pokemon-Center :Brock-battle-victory cls set /a exptill=%exptill%-%exp% if %exptill% LSS 1 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul ) goto Brock-battle-2 :Brock-battle-2 set brockpokemon1=ONIX set brockpokemon1lvl=7 set /a brockpokemon1hp=%brockpokemon1lvl%*4 goto Brock-battle :Brock-battle-victory-2 cls set /a exptill=%exptill%-%exp% if %exptill% LSS 1 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 ) echo You got $800 for winning set /a money=%money%+800 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Victory.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) pause>nul cls echo Brock: Well done, you have proven yourself pause>nul ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Gym.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo Brock: Here take this, it's the Boulder badge set badges=1 pause>nul goto Pewter-City :Misty-battle cls echo ---------------------------------------------------------------------- echo %mistypokemon1% LVL: %mistypokemon1lvl% HP: %mistypokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo 1) Strong attack echo 2) Accurate attack echo 3) Use a potion, you have %potions% potion(s) if %starterhp% LSS 1 ( echo. echo %starter% fainted pause>nul goto Misty-battle-lost ) set /p input= if '%input%'=='1' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Strong-attack echo ---------------------------------------------------------------------- set stronghit=%random:~-1% if '%stronghit%' GTR 2 set /a mistypokemon1hp=%mistypokemon1hp%-5 if '%stronghit%' LSS 3 echo %starter% missed pause>nul goto Misty-pokemon-attack-kind-calc ) if '%input%'=='2' ( echo. echo ---------------------------------------------------------------------- echo %name%: %starter% use Accurate-attack echo ---------------------------------------------------------------------- set /a mistypokemon1hp=%mistypokemon1hp%-3 pause>nul goto Misty-pokemon-attack-kind-calc ) if '%input%'=='3' goto Misty-battle-potion goto Misty-battle :Misty-battle-potion if %potions% LSS 1 ( echo You don't have any potions left pause>nul ) if %potions% GTR 0 ( set /a potions=%potions%-1 set /a starterhp=%starterhp%+20 ) goto Misty-pokemon-attack-kind-calc :Misty-pokemon-attack-kind-calc if %mistypokemon1hp% LSS 1 ( set /a exp=%mistypokemon1lvl%*5 echo. echo %mistypokemon1% fainted echo. echo %starter% gained some exp pause>nul if '%mistypokemon1%'=='STARMIE' ( goto Misty-battle-victory-2 ) goto Misty-battle-victory ) set mistypokemonattackcalc=%random:~-1% if %mistypokemonattackcalc% GTR 1 goto Misty-pokemon-attack-kind-calc if '%mistypokemonattackcalc%'=='0' ( set mistypokemonattackkind=Strong-attack set /a starterhp=%starterhp%-6 goto Misty-pokemon-1-turn ) if '%mistypokemonattackcalc%'=='1' ( set mistypokemonattackkind=Accurate-attack set /a starterhp=%starterhp%-3 goto Misty-pokemon-1-turn ) :Misty-pokemon-1-turn cls echo ---------------------------------------------------------------------- echo %mistypokemon1% LVL: %mistypokemon1lvl% HP: %mistypokemon1hp% echo ---------------------------------------------------------------------- echo. echo. echo. echo. echo ---------------------------------------------------------------------- echo %starter% LVL: %starterlvl% HP: %starterhp% echo ---------------------------------------------------------------------- echo. echo. echo ---------------------------------------------------------------------- echo Misty: %mistypokemon1% use %mistypokemonattackkind% echo ---------------------------------------------------------------------- pause>nul goto Misty-battle :Misty-battle-lost ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Cerulean-Fussia-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo Misty: Come back when you can actually beat me %name% pause>nul cls echo Nurse Joy: Damnit %name% you got your %starter% hurt once again pause>nul cls echo Nurse Joy: If you keep this up %starter% could be hospitalized pause>nul set /a starterhp=%starterlvl%*4 goto Pokemon-Center :Misty-battle-victory cls set /a exptill=%exptill%-%exp% if %exptill% LSS 1 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 pause>nul ) goto Misty-battle-2 :Misty-battle-2 set mistypokemon1=STARMIE set mistypokemon1lvl=12 set /a mistypokemon1hp=%mistypokemon1lvl%*4 goto Misty-battle :Misty-battle-victory-2 cls set /a exptill=%exptill%-%exp% if %exptill% LSS 1 ( set /a starterlvl=%starterlvl%+1 set /a exptill=%starterlvl%*5 echo Your %starter% has LVL'd up set /a starterhp=%starterhp%+4 ) echo You got $900 for winning set /a money=%money%+900 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Victory.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) pause>nul cls ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Gym.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) echo Misty: Well done, you have proven yourself pause>nul cls echo Misty: Here take this, it's the Cascade Badge set badges=2 pause>nul goto Cerulean-City :Route-1 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-1.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 1 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-1 ) echo 1) Go to Pallet town (SOUTH) echo 2) Go to Viridian city (NORTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Pallet-Town if '%input%'=='2' goto Viridian-City if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-1 ) goto Route-1 :Route-2 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 2 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-2 ) echo 1) Go to Viridian city (SOUTH) echo 2) Go to the Viridian forest (NORTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Viridian-City if '%input%'=='2' goto Viridian-forest if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-2 ) goto Route-2 :Route-3 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 3 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-3 ) echo 1) Go to Pewter city (WEST) echo 2) Go to Mt. Moon (EAST) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Pewter-City if '%input%'=='2' goto Mt-Moon if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-3 ) goto Route-3 :Route-4 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 4 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-4 ) echo 1) Go to Mt. Moon (WEST) echo 2) Go to Cerulean city (EAST) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Mt-Moon if '%input%'=='2' goto Cerulean-City if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-4 ) goto Route-4 :Route-5 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 5 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-5 ) echo 1) Go to Cerulean city (NORTH) echo 2) Go to Vermillion city through a tunnel (SOUTH) echo 3) Go to Saffron city (SOUTH) echo 4) Look for wild pokemon set /p input= if '%input%'=='1' goto Cerulean-City if '%input%'=='2' ( set location=Vermillion-City goto Underground-passgae ) if '%input%'=='3' goto Saffron-City if '%input%'=='4' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-5 ) goto Route-5 :Route-6 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 6 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-6 ) echo 1) Go to Saffron city (NORTH) echo 2) Go to Vermillion city (SOUTH) echo 3) Go to Cerulean city through a tunnel (NORTH) echo 4) Look for wild pokemon set /p input= if '%input%'=='1' goto Saffron-City if '%input%'=='2' goto Vermillion-City if '%input%'=='3' (set location=Cerulean-City goto Underground-passage ) if '%input%'=='4' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-6 ) goto Route-6 :Route-7 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 7 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-7 ) echo 1) Go to Saffron city (EAST) echo 2) Go to Celadon city (WEST) echo 3) Go to Lavender town through a tunnel (EAST) echo 4) Look for wild pokemon set /p input= if '%input%'=='1' goto Saffron-City if '%input%'=='2' goto Celadon-City if '%input%'=='3' ( set location=Lavender-Town goto Underground-passage ) if '%input%'=='4' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-7 ) goto Route-7 :Route-8 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 8 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-8 ) echo 1) Go to Saffron city (WEST) echo 2) Go to Lavender town (EAST echo 3) Go to Celadon city through a tunnel (WEST) echo 4) Look for wild pokemon set /p input= if '%input%'=='1' goto Saffron-City if '%input%'=='2' goto Lavender-Town if '%input%'=='3' ( set location=Celadon-City goto Underground-passage ) if '%input%'=='4' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-8 ) goto Route-8 :Route-9 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 9 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-9 ) echo 1) Go to Cerulean city (WEST) echo 2) Go to the Rock tunnel (SOUTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Cerulean-City if '%input%'=='2' goto Rock-tunnel if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-9 ) goto Route-9 :Route-10 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 10 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-10 ) echo 1) Go to the Rock tunnel (NORTH) echo 2) Go to Lavender town (SOUTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Rock-tunnel if '%input%'=='2' goto Lavender-Town if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-10 ) goto Route-10 :Route-11 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-11-15.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 11 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-11 ) echo 1) Go to Vermillion city (WEST) echo 2) Go to Route 12 (NORTH) echo 3) Go to the diglett's cave echo 4) Look for wild pokemon set /p input= if '%input%'=='1' goto Vermillion-City if '%input%'=='2' goto Route-11-1 if '%input%'=='2' goto Digletts-cave if '%input%'=='4' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-11 ) goto Route-11 :Route-11-1 cls if '%snorlaks1%'=='1' goto Route-12 echo There is a snorlaks blocking the road pause>nul goto Route-11 :Route-12 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-11-15.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 12 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-12 ) echo 1) Go to Route 11 (WEST) echo 2) Go to Lavender town (NORTH) echo 3) Go to Route 13 (SOUTH) echo 4) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-12-1 if '%input%'=='2' goto Lavender-Town if '%input%'=='3' goto Route-12-2 if '%input%'=='4' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-12 ) goto Route-12 :Route-12-1 cls if '%snorlaks1%'=='1' goto Route-11 echo There is a snorlaks blocking the road pause>nul goto Route-12 :Route-12-2 cls if '%snorlaks1%'=='1' goto Route-13 echo There is a snorlaks blocking the road pause>nul goto Route-12 :Route-13 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-11-15.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 13 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-13 ) echo 1) Go to Route 12 (NORTH) echo 2) Go to Route 14 (SOUTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-12 if '%input%'=='2' goto Route-14 if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-13 ) goto Route-13 :Route-14 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-11-15.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 14 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-14 ) echo 1) Go to Route 13 (NORTH) echo 2) Go to Route 15 (WEST) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-13 if '%input%'=='2' goto Route-15 if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-14 ) goto Route-14 :Route-15 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-11-15.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 15 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-15 ) echo 1) Go to Route 14 (NORTH) echo 2) Go to Fuschia city (WEST) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-14 if '%input%'=='2' goto Fuschia-City if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-15 ) goto Route-15 :Route-16 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 16 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-16 ) echo 1) Go to Celadon city (EAST) echo 2) Go to Route 17 (SOUTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Celadon-City if '%input%'=='2' goto Route-16-1 if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-16 ) goto Route-16 :Route-16-1 cls if '%snorlaks2%'=='1' goto Route-17 echo There is a snorlaks blocking the road pause>nul goto Route-16 :Route-17 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 17 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-17 ) echo 1) Go to Route 16 (NORTH) echo 2) Go to Route 18 (SOUTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-17-1 if '%input%'=='2' goto Route-18 if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-17 ) goto Route-17 :Route-17-1 cls if '%snorlaks2%'=='1' goto Route-16 echo There is a snorlaks blocking the road pause>nul goto Route-17 :Route-18 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 18 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-18 ) echo 1) Go to Route 17 (NORTH) echo 2) Go to Fuschia city (EAST) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-17 if '%input%'=='2' goto Fuschia-City if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-18 ) goto Route-18 :Route-19 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 19 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-19 ) echo 1) Go to Fuschia city (NORTH) echo 2) Go to Route 20 (SOUTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Fuschia-City if '%input%'=='2' goto Route-20 if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-19 ) goto Route-19 :Route-20 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 20 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-20 ) echo 1) Go to Route 19 (NORTH) echo 2) Go to the Seafoam islands (WEST) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-19 if '%input%'=='2' goto Seafoam-island if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-20 ) goto Route-20 :Route-21 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 21 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-21 ) echo 1) Go to Pallet town (NORTH) echo 2) Go to Cinnabar Island (SOUTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Pallet-Town if '%input%'=='2' goto Cinnabar-Island if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-21 ) goto Route-21 :Route-22 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 22 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-22 ) echo 1) Go to Viridian city (EAST) echo 2) Go to Route 23 (NORTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Viridian-City if '%input%'=='2' goto Route-23 if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-22 ) goto Route-22 :Route-23 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="The-final-road.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 23 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-23 ) echo 1) Go to Route 22 (SOUTH) echo 2) Go to Victory road (NORTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-22 if '%input%'=='2' goto Victory-road if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-23 ) goto Route-23 :Route-24 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-24-25.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 24 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-24 ) echo 1) Go to Cerulean city (SOUTH) echo 2) Go to Route 25 (NORTH) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Cerulean-City if '%input%'=='2' goto Route-25 if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-24 ) goto Route-24 :Route-25 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-24-25.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Route 25 echo ---------------------------------------------------------------------- echo. echo )\ )\ )\ )\ /( (\ )\ )\ )\ /( /( )\ (\ (\ /) )\ echo /( /( )\ (\ (\ /) )\ )\ )\ )\ )\ /( (\ )\ )\ )\ echo )\ (\ (\ /) )\ (\ )\ )\ )\ /( /( )\ )\ )\ )\ /( ( echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-route-25 ) echo 1) Go to Route 24 (SOUTH) echo 2) Go to Bill's house (EAST) echo 3) Look for wild pokemon set /p input= if '%input%'=='1' goto Route-24 if '%input%'=='2' goto Bills-house if '%input%'=='3' ( cls echo You are walking on tall grass echo. echo Something is inside the grass pause>nul goto Wild-pokemon-lvl-calc-route-25 ) goto Route-25 :Viridian-forest cls ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Viridian Forest-Digletts-Cave-Seafoam-Islands.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) :Forest cls echo ---------------------------------------------------------------------- echo Viridian Forest echo ---------------------------------------------------------------------- echo. echo \ \ echo / /~\ /~\ /~\ /~\ /~\ /~\ /~\ )\ / echo \ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ )\ )\ \ echo / i i i i i i i / echo \ \ echo / / echo \ /~\ /~\ /~\ /~\ /~\ /~\ /~\ /~\ /~\ \ echo / /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ / echo \ i i i i i i i i i \ echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-viridian-forest ) echo 1) Go to Route 2(SOUTH) echo 2) Go to Pewter city(NORTH) echo 3) Go look for wild pokemon set /p input= if '%input%'=='1' goto Route-2 if '%input%'=='2' goto Pewter-City if '%input%'=='3' goto Wild-pokemon-lvl-calc-viridian-forest goto Forest :Mt-Moon ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-2-10-plus-16-22.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) set location=Mt-Moon cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go inside the cave echo 3) Go back to Route 3 (WEST) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Mt-Moon-2 if '%input%'=='3' goto Route-3 goto Mt-Moon :Mt-Moon-2 cls echo ---------------------------------------------------------------------- echo %location% cave echo ---------------------------------------------------------------------- echo. echo /\ /\ /\ /\ /\ /\ /\ /\ /\ echo /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /\ echo /####\/####\/####\/####\/####\/####\/####\/####\/####\/##\ echo /##########################################################\ echo /############################################################\ echo /##############################################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo. pause>nul goto Mt-Moon-2-1 :Mt-Moon-2-1 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% cave echo ---------------------------------------------------------------------- echo. echo ###################################################################### echo #( ).....#...........................................................# echo #........#....###############################........................# echo #........#....#..........................................##..........# echo #........#....#..........................................##..........# echo #........#....#...........#...###############............##..........# echo #.............#...........#...#..........................##..........# echo #.............#...........#...#......................................# echo ###########################( )######################################## echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-mt-moon ) echo 1) Go deeper into the cave echo 2) Go back set /p input= if '%input%'=='1' goto Mt-Moon-2-1-1 if '%input%'=='2' goto Mt-Moon goto Mt-Moon-2-1 :Mt-Moon-2-1-1 set location=Cerulean-City set mtmoon211=%random:~-1% if '%mtmoon211%' GTR 2 ( goto Trainer-Mt-Moon ) goto Wild-pokemon-lvl-calc-mt-moon :Bills-house ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Guidepost.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Bill's House echo ---------------------------------------------------------------------- echo. echo __ii_______________ echo / ii /\\ echo / /__\ / \\ echo /_________________/ \\ echo i __ i /\ i echo )\ )\ i i__i i / .\ i echo )\ )\ /( i________________i_i__i_i echo. pause>nul cls if '%ss-anne%'=='1' ( echo Bill: Sorry %name%, im really busy right now pause>nul goto Cerulean-City ) echo Creature: Gjelp, gjelp, gjelp mmmmi pause>nul cls echo %name%: I don't under.... ohhhhhh! pause>nul cls echo Creature: Cjanlp gjou pljes tjlun tje mjachilne ojn? pause>nul cls echo %name%: eeeeeeeeeh ok, but how do i do that? pause>nul cls echo Creature: Tjerl isj ja aj bjik rjeld buttjon njekst tjo mji pjecee pause>nul cls echo %name%: Do you mean, ohhhhhh i see, the big red button pause>nul cls echo The creature steps into the machine pause>nul cls echo You press the button pause>nul cls echo *poof* pause>nul cls echo Bill: I can't thank you enough, you saved my life, echo i wouldnt have ever gotten my human form back without you pause>nul cls echo Bill: You know what, here, you can have this S.S. Anne ticket set ss-anne=1 pause>nul cls echo Bill: The S.S. Anne is in Vermillion city, you can get there by going echo through the underground passage pause>nul cls echo Bill: Cya %name%, i'm going to improve my machine, you're welcome echo to visit me pause>nul goto Cerulean-City :Bike-shop ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pokemon-Center-Mart.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) :Bike cls echo ---------------------------------------------------------------------- echo %location% Bike shop echo ---------------------------------------------------------------------- echo. echo Shop keeper: Well hello there young man, how can i help you? echo. echo You have money: %money% echo. echo 1) Buy a bike ( $1,000,000 ) echo 2) Get a bike for a Bike-Voucher echo 3) Exit the bike shop set /p input= if '%input%'=='1' goto Bike-shop-1 if '%input%'=='2' goto Bike-shop-2 if '%input%'=='3' goto %location% goto Bike :Bike-shop-1 cls if '%money%' GTR '999999' ( set bikevoucher=0 set bike=1 set /a money=%money%-1000000 echo Shop keeper: I have no idea where you got the money, but oh well pause>nul echo Shop keeper: Here you go, a brand new bike set bikevoucher=0 set bike=1 goto Bike ) echo You do not have enough money to buy that pause>nul goto Bike :Bike-shop-2 cls if '%bikevoucher%'=='1' ( set bikevoucher=0 set bike=1 echo Shop keeper: Here you go, a brand new bike pause>nul goto Bike ) echo Shop keeper: You don't seem to have a a Bike-Voucher pause>nul goto Bike :Day-care cls echo Nothing here yet pause>nul goto Route-5 :Rock-tunnel set location=Rock-tunnel cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo /\ /\ /\ /\ /\ /\ /\ /\ /\ echo /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /##\ /\ echo /####\/####\/####\/####\/####\/####\/####\/####\/####\/##\ echo /##########################################################\ echo /############################################################\ echo /#######################/ \##################################\ echo /#######################/ \##################################\ echo. set /p input= echo 1) Go to Route 9 (WEST) echo 2) Go inside the cave echo 3) Go to the Power plant :Power-plant cls echo Nothing here yet pause>nul goto Rock-tunnel :Digletts-cave cls echo ---------------------------------------------------------------------- echo Diglett's cave echo ---------------------------------------------------------------------- echo. set randomencounter=%random:~-1% if '%randomencounter%' GTR 7 ( echo A wild pokemon appeared! pause>nul goto Wild-pokemon-lvl-calc-digletts-cave ) set /p input= echo 1) Go to Route 11 (EAST of Vermillion city) echo 2) Go to Pewter city (far NORTH-WEST) echo 3) Look for wild pokemon if '%input%'=='1' goto Route-11 if '%input%'=='2' goto Digletts-cave-1 if '%input%'=='3' goto Wild-pokemon-lvl-calc-digletts-cave goto Digletts-cave :Digletts-cave-1 cls if '%HM-cut%'=='0' ( echo You cant seem to get past the bush by the exit of the cave, echo perhaps HM-cut can help you get past it pause>nul goto Digletts-cave ) echo One of your pokemon cuts right through the bushes blocking the entrance pause>nul goto Pewter-City :SS-anne cls if '%ss-anne%'=='0' ( echo You do not have a ticket, so you cant get on the S.S. Anne goto Vermillion-City ) goto SS-anne-floor-1 :SS-anne-floor-1 cls echo Nothing here yet pause>nul goto :SS-anne-floor-2 cls echo Nothing here yet pause>nul goto :Pokemon-fanclub cls echo Nothing here yet pause>nul goto :Pokemon-tower cls echo Nothing here yet pause>nul goto :Pokemon-tower-floor-1 cls echo Nothing here yet pause>nul goto :Pokemon-tower-floor-2 cls echo Nothing here yet pause>nul goto :Pokemon-tower-floor-3 cls echo Nothing here yet pause>nul goto :Pokemon-tower-floor-4 cls echo Nothing here yet pause>nul goto :Safari-zone cls echo Nothing here yet pause>nul goto :Pokemon-mansion cls echo Nothing here yet pause>nul goto :Seafoam-islands cls echo Nothing here yet pause>nul goto :Victory-road cls echo Nothing here yet pause>nul goto :Cerulean-cave cls echo Nothing here yet pause>nul goto :Nurse-joy cls echo Nurse Joy: Oh %name% your pokemon is hurt pause>nul cls echo Nurse Joy: Come with me and i'll heal him with my love pause>nul cls echo Your %starter% is blushed red pause>nul set /a starterhp=%starterlvl%*4 goto Pokemon-Center :Underground-passage cls echo ---------------------------------------------------------------------- echo underground passage %location% echo ---------------------------------------------------------------------- echo. echo ________________ echo /___________/ \ echo i i __ i echo )\ )\ i i i .i i echo )\ )\ /( i__________i_i__i_i echo. echo The sign says: follow the tunnel to the other side pause>nul goto %location% :Pokemon-Center cls ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pokemon-Center-Mart.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Pokemon Center - %location% echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i // \\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo 1) Get your Pokemon healed by Nurse Joy echo 2) Get other services from Nurse Joy echo 3) Exit the Pokemon center echo 4) Get on the computer (save before going here, to prevent buggs) echo 5) Options set /p input= if '%input%'=='1' goto Pokemon-Center-1 if '%input%'=='2' goto Pokemon-Center-2 if '%input%'=='3' goto %location% if '%input%'=='4' goto Pokemon-Center-4 if '%input%'=='5' goto Pokemon-Center-5 goto Pokemon-Center :Pokemon-Center-1 cls echo Nurse Joy: My my, your %starter% does not look very good pause>nul cls echo Nurse Joy: Here let me fix him with my love pause>nul cls echo Your %starter% is blushed red pause>nul cls echo Nurse Joy: Here you go better than ever pause>nul cls echo %starter%: %starter% pause>nul cls set /a starterhp=%starterlvl%*4 echo Your %starter% has recovered his HP pause>nul goto Pokemon-Center :Pokemon-Center-2 cls echo %name%: Hey Joy, how about you show me your "pokemons" pause>nul cls echo Nurse Joy: I don't think you are trained enough to handle them kid pause>nul cls echo Nurse Joy: Buzz off like a Beedrill before I doublekick you! pause>nul cls echo "You run away to town hiding your face" pause>nul goto %location% :Pokemon-Center-4 ( set /p music=%music% set /p name=%name% set /p chosenstarter=%chosenstart% set /p starter=%starter% set /p starterlvl=%starterlvl% set /p starterhp=%starterhp% set /p rival=%rival% set /p rivalstarterlvl=%rivalstarterlvl% set /p rivalstarter=%rivalstarter% set /p money=%money% set /p potions=%potions% set /p fishingrod=%fishingrod% set /p HM-surf=%HM-surf% set /p HM-fly=%HM-fly% set /p HM-cut=%HM-cut% set /p location=%location% set /p exp=%exp% set /p exptill=%exptill% set /p badges=%badges% set /p bikevoucher=%bikevoucher% set /p bike=%bike% set /p pokemonstorage=%pokemonstorage% set /p temppokemon=%temppokemon% set /p temppokemon-lvl=%temppokemon-lvl% set /p pokeballs=%pokeballs% set /p rivalencounters=%rivalencounters% set /p ss-anne=%ss-anne% set /p color=%color% set /p snorlaks1=%snorlaks1% set /p snorlaks2=%snorlaks2% set /p pokemon1=%pokemon1% set /p pokemon1-lvl=%pokemon1-lvl% set /p pokemon2=%pokemon2% set /p pokemon2-lvl=%pokemon2-lvl% set /p pokemon3=%pokemon3% set /p pokemon3-lvl=%pokemon3-lvl% set /p pokemon4=%pokemon4% set /p pokemon4-lvl=%pokemon4-lvl% set /p pokemon5=%pokemon5% set /p pokemon5-lvl=%pokemon5-lvl% set /p pokemon6=%pokemon6% set /p pokemon6-lvl=%pokemon6-lvl% set /p pokemon7=%pokemon7% set /p pokemon7-lvl=%pokemon7-lvl% set /p pokemon8=%pokemon8% set /p pokemon8-lvl=%pokemon8-lvl% set /p pokemon9=%pokemon% set /p pokemon9-lvl=%pokemon-lvl% set /p pokemon10=%pokemon% set /p pokemon10-lvl=%pokemon-lvl% set /p pokemon11=%pokemon% set /p pokemon11-lvl=%pokemon-lvl% set /p pokemon12=%pokemon% set /p pokemon12-lvl=%pokemon-lvl% set /p pokemon13=%pokemon% set /p pokemon13-lvl=%pokemon-lvl% set /p pokemon14=%pokemon% set /p pokemon14-lvl=%pokemon-lvl% set /p pokemon15=%pokemon% set /p pokemon15-lvl=%pokemon-lvl% set /p pokemon16=%pokemon% set /p pokemon16-lvl=%pokemon-lvl% set /p pokemon17=%pokemon% set /p pokemon17-lvl=%pokemon-lvl% set /p pokemon18=%pokemon% set /p pokemon18-lvl=%pokemon-lvl% set /p pokemon19=%pokemon% set /p pokemon19-lvl=%pokemon-lvl% set /p pokemon20=%pokemon% set /p pokemon20-lvl=%pokemon-lvl% set /p inv-pokemon2=%inv-pokemon2% set /p inv-pokemon2-lvl=%inv-pokemon2-lvl% set /p inv-pokemon3=%inv-pokemon3% set /p inv-pokemon3-lvl=%inv-pokemon3-lvl% set /p inv-pokemon4=%inv-pokemon4% set /p inv-pokemon4-lvl=%inv-pokemon4-lvl% set /p inv-pokemon5=%inv-pokemon5% set /p inv-pokemon5-lvl=%inv-pokemon5-lvl% set /p inv-pokemon6=%inv-pokemon6% set /p inv-pokemon6-lvl=%inv-pokemon6-lvl% )<%oldname%.txt :Pokemon-Center-4a cls echo ---------------------------------------------------------------------- echo Computer storage: %pokemonstorage% Inventory echo ---------------------------------------------------------------------- echo 1:%pokemon1% LVL:%pokemon1-lvl% 1:%starter% LVL:%starterlvl% echo 2:%pokemon2% LVL:%pokemon2-lvl% 2:%inv-pokemon2% LVL:%inv-pokemon2-lvl% echo 3:%pokemon3% LVL:%pokemon3-lvl% 3:%inv-pokemon3% LVL:%inv-pokemon3-lvl% echo 4:%pokemon4% LVL:%pokemon4-lvl% 4:%inv-pokemon4% LVL:%inv-pokemon4-lvl% echo 5:%pokemon5% LVL:%pokemon5-lvl% 5:%inv-pokemon5% LVL:%inv-pokemon5-lvl% echo 6:%pokemon6% LVL:%pokemon6-lvl% 6:%inv-pokemon6% LVL:%inv-pokemon6-lvl% echo 7:%pokemon7% LVL:%pokemon7-lvl% echo 8:%pokemon8% LVL:%pokemon8-lvl% echo 9:%pokemon9% LVL:%pokemon9-lvl% echo 10:%pokemon10% LVL:%pokemon10-lvl% echo 11:%pokemon11% LVL:%pokemon11-lvl% echo 12:%pokemon12% LVL:%pokemon12-lvl% echo 13:%pokemon13% LVL:%pokemon13-lvl% echo 14:%pokemon14% LVL:%pokemon14-lvl% echo 15:%pokemon15% LVL:%pokemon15-lvl% echo 16:%pokemon16% LVL:%pokemon16-lvl% echo 17:%pokemon17% LVL:%pokemon17-lvl% echo 18:%pokemon18% LVL:%pokemon18-lvl% echo 19:%pokemon19% LVL:%pokemon19-lvl% echo 20:%pokemon20% LVL:%pokemon20-lvl% echo ---------------------------------------------------------------------- echo 1) Start swapping pokemon echo 2) Go back set /p input= if '%input%'=='1' goto Pokemon-Center-4-1 if '%input%'=='2' goto Pokemon-Center goto Pokemon-Center-4a :Pokemon-Center-4-1 cls echo ---------------------------------------------------------------------- echo Pokemon Swap echo ---------------------------------------------------------------------- echo Computer storage: %pokemonstorage% Inventory echo ---------------------------------------------------------------------- echo 1:%pokemon1% LVL:%pokemon1-lvl% 1:%starter% LVL:%starterlvl% echo 2:%pokemon2% LVL:%pokemon2-lvl% 2:%inv-pokemon2% LVL:%inv-pokemon2-lvl% echo 3:%pokemon3% LVL:%pokemon3-lvl% 3:%inv-pokemon3% LVL:%inv-pokemon3-lvl% echo 4:%pokemon4% LVL:%pokemon4-lvl% 4:%inv-pokemon4% LVL:%inv-pokemon4-lvl% echo 5:%pokemon5% LVL:%pokemon5-lvl% 5:%inv-pokemon5% LVL:%inv-pokemon5-lvl% echo 6:%pokemon6% LVL:%pokemon6-lvl% 6:%inv-pokemon6% LVL:%inv-pokemon6-lvl% echo 7:%pokemon7% LVL:%pokemon7-lvl% echo 8:%pokemon8% LVL:%pokemon8-lvl% echo 9:%pokemon9% LVL:%pokemon9-lvl% echo 10:%pokemon10% LVL:%pokemon10-lvl% echo 11:%pokemon11% LVL:%pokemon11-lvl% echo 12:%pokemon12% LVL:%pokemon12-lvl% echo 13:%pokemon13% LVL:%pokemon13-lvl% echo 14:%pokemon14% LVL:%pokemon14-lvl% echo 15:%pokemon15% LVL:%pokemon15-lvl% echo 16:%pokemon16% LVL:%pokemon16-lvl% echo 17:%pokemon17% LVL:%pokemon17-lvl% echo 18:%pokemon18% LVL:%pokemon18-lvl% echo 19:%pokemon19% LVL:%pokemon19-lvl% echo 20:%pokemon20% LVL:%pokemon20-lvl% echo ---------------------------------------------------------------------- echo Type the number of the pokemon from the left colum [1-20] set /p swap1= if '%swap1%'=='back' goto Pokemon-Center-4-1 if '%swap1%'=='1' ( set temppokemon=%pokemon1% set temppokemon-lvl=%pokemon1-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='2' ( set temppokemon=%pokemon2% set temppokemon-lvl=%pokemon2-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='3' ( set temppokemon=%pokemon3% set temppokemon-lvl=%pokemon3-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='4' ( set temppokemon=%pokemon4% set temppokemon-lvl=%pokemon4-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='5' ( set temppokemon=%pokemon5% set temppokemon-lvl=%pokemon5-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='6' ( set temppokemon=%pokemon6% set temppokemon-lvl=%pokemon6-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='7' ( set temppokemon=%pokemon7% set temppokemon-lvl=%pokemon7-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='8' ( set temppokemon=%pokemon8% set temppokemon-lvl=%pokemon8-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='9' ( set temppokemon=%pokemon9% set temppokemon-lvl=%pokemon9-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='10' ( set temppokemon=%pokemon10% set temppokemon-lvl=%pokemon10-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='11' ( set temppokemon=%pokemon11% set temppokemon-lvl=%pokemon11-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='12' ( set temppokemon=%pokemon12% set temppokemon-lvl=%pokemon12-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='13' ( set temppokemon=%pokemon13% set temppokemon-lvl=%pokemon13-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='14' ( set temppokemon=%pokemon14% set temppokemon-lvl=%pokemon14-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='15' ( set temppokemon=%pokemon15% set temppokemon-lvl=%pokemon15-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='16' ( set temppokemon=%pokemon16% set temppokemon-lvl=%pokemon16-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='17' ( set temppokemon=%pokemon17% set temppokemon-lvl=%pokemon17-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='18' ( set temppokemon=%pokemon18% set temppokemon-lvl=%pokemon18-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='19' ( set temppokemon=%pokemon19% set temppokemon-lvl=%pokemon19-lvl% goto Pokemon-Center-4-1a ) if '%swap1%'=='20' ( set temppokemon=%pokemon20% set temppokemon-lvl=%pokemon20-lvl% goto Pokemon-Center-4-1a ) goto Pokemon-Center-4-1 :Pokemon-Center-4-1a echo Type the number of the pokemon from the right colum [1-6] set /p swap2= if '%swap2%'=='1' ( set pokemon%swap1%=%starter% set pokemon%swap1%-lvl=%starterlvl% set starter=%temppokemon% set starterlvl=%temppokemon-lvl% goto Save-menu ) if '%swap2%'=='2' ( set pokemon%swap1%=%inv-pokemon2% set pokemon%swap1%-lvl=%inv-pokemon2-lvl% set inv-pokemon2=%temppokemon% set inv-pokemon2-lvl=%temppokemon-lvl% goto Save-menu ) if '%swap2%'=='3' ( set pokemon%swap1%=%inv-pokemon3% set pokemon%swap1%-lvl=%inv-pokemon3-lvl% set inv-pokemon3=%temppokemon% set inv-pokemon3-lvl=%temppokemon-lvl% goto Save-menu ) if '%swap2%'=='4' ( set pokemon%swap1%=%inv-pokemon4% set pokemon%swap1%-lvl=%inv-pokemon4-lvl% set inv-pokemon4=%temppokemon% set inv-pokemon4-lvl=%temppokemon-lvl% goto Save-menu ) if '%swap2%'=='5' ( set pokemon%swap1%=%inv-pokemon5% set pokemon%swap1%-lvl=%inv-pokemon5-lvl% set inv-pokemon5=%temppokemon% set inv-pokemon5-lvl=%temppokemon-lvl% goto Save-menu ) if '%swap2%'=='6' ( set pokemon%swap1%=%inv-pokemon6% set pokemon%swap1%-lvl=%inv-pokemon6-lvl% set inv-pokemon6=%temppokemon% set inv-pokemon6-lvl=%temppokemon-lvl% goto Save-menu ) goto Pokemon-Center-4-1a :Pokemon-Center-5 if '%chosenstarter%'=='BULBASAUR' ( color 2F ) if '%chosenstarter%'=='SQUIRTLE' ( color 9F ) if '%chosenstarter%'=='CHARMANDER' ( color 4F ) if '%chosenstarter%'=='PIKACHU' ( color 6F ) if '%chosenstarter%'=='EEVEE' ( color 5F ) if '%color%'=='1' ( color 0F ) cls echo ---------------------------------------------------------------------- echo Options echo ---------------------------------------------------------------------- echo. echo 1) Set the background and text color as black on white echo 2) Set the background and text color back to default echo 3) Save the game echo 4) Load a game echo 5) Exit the game echo 6) Set music to off echo 7) Set music to on echo 8) look at the world map echo 9) Go back set /p input= if '%input%'=='1' set color=1 if '%input%'=='2' set color=0 if '%input%'=='3' goto Save-menu if '%input%'=='4' goto Load-menu if '%input%'=='5' ( taskkill /F /IM "wscript.exe" exit /b ) if '%input%'=='6' set music=0 if '%input%'=='7' set music=1 if '%input%'=='8' goto World-map if '%input%'=='9' goto Pokemon-Center goto Pokemon-Center-5 :World-map cls echo ---------------------------------------------------------------------- echo Kanto Region Map, you are at %location% echo ---------------------------------------------------------------------- echo :::25:::Bills-house echo :24: echo Idigo-Plateau ::::Mt-Moon::4:Cerulean-City:::::::::9::::::: echo :::: Pewter-City::3: :::: Rock-Tunnel echo :::: :::: ::5: :10: echo Victory-Road :::: Celadon-City::7:Saffron-City:::8:::Lavender-Town echo :::: Viridian-Forest :16: :::: :::: echo :23: ::2: :::: ::6: :::: echo :::: :::: :17: :::: :12: echo ::22:Viridian-City :::: :::: :::: echo ::1: :::: Vermillion-City:::::::11:::::: echo :::: :::: :::: echo Pallet-Town :::: ::::13:::: echo :::: :::: :14: echo :21: :::::::18:::Fuschia-City:::::15:::: echo :::: :19: echo Cinnabar-Island::Seafoam-Islands::20:: echo ---------------------------------------------------------------------- pause>nul goto Pokemon-Center :Pokemon-Mart ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pokemon-Center-Mart.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) :Mart cls echo ---------------------------------------------------------------------- echo Pokemon Mart - %location% echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo /___________________\ /i echo i // \\ i/ i echo i_______\\_//_______i i echo i i ___ i i / echo i i i i i i/ )\ )\ echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ echo. echo Shop keeper: Hello there little man, what can i do for you echo. echo You have money: %money% echo Potions: %potions% echo Pokeballs: %pokeballs% echo. echo 1) Buy a potion echo 2) Buy a pokeball echo 3) Go back set /p input= if '%input%'=='1' goto Pokemon-Mart-1 if '%input%'=='2' goto Pokemon-Mart-2 if '%input%'=='3' goto %location% goto Mart :Pokemon-Mart-1 if %money% GTR 199 ( echo Shop keeper: That will be $200 set /a money=%money%-200 set /a potions=%potions%+1 pause>nul goto Mart ) echo Shop keeper: You do not have enough money to buy that pause>nul goto Mart :Pokemon-Mart-2 if %money% GTR 499 ( echo Shop keeper: That will be $500 set /a money=%money%-500 set /a pokeballs=%pokeballs%+1 pause>nul goto Mart ) echo Shop keeper: You dont have enough money to buy that pause>nul goto Mart :Pokemon-Gym ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Gym.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% Gym echo ---------------------------------------------------------------------- echo. echo __________________ echo / / \ echo ___________________/ i echo / \ /i echo i Gym i/ i echo i-------------------i i echo i i i ___ i i i / echo i i i i i i i i/ )\ echo )\ )\ i__i__i_i___i_i__i__i )\ )\ echo. echo 1) Enter the Gym echo 2) Go back set /p input= if '%input%'=='1' goto Pokemon-Gym-%location% if '%input%'=='2' goto %location% goto Pokemon-Gym :Pokemon-Gym-Viridian-City cls if '%badges%'=='7' ( echo Giovanni: So you think you can beat me pause>nul cls echo Giovanni: We'll see about that in a bit pause>nul cls ) echo You don't the other 7 badges yet, so you can't fight with Giovanni pause>nul goto %location% :Pokemon-Gym-Pewter-City cls if %badges% LSS 1 ( echo Brock: So you think you got what it takes to beat me pause>nul cls echo Brock: Alright let's get started in here pause>nul goto Pokemon-Gym-Pewter-City-1 ) echo Brock: %name% you have already proven yourself pause>nul cls echo Brock: There is no point in fighting me again pause>nul goto %location% :Pokemon-Gym-Pewter-City-1 set brockpokemon1=GEODUDE set brockpokemon1lvl=5 set /a brockpokemon1hp=%brockpokemon1lvl%*4 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Gym-Leader-Elite-Four.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) goto Brock-battle :Pokemon-Gym-Cerulean-City cls if %badges% LSS 2 ( echo Misty: So you think you got what it takes to beat me pause>nul cls echo Misty: Alright let's get started in here pause>nul goto Pokemon-Gym-Cerulean-City-1 ) echo Misty: %name% you have already proven yourself pause>nul cls echo Misty: There is no point in fighting me again pause>nul goto %location% :Pokemon-Gym-Cerulean-City-1 set mistypokemon1=STARYU set mistypokemon1lvl=8 set /a mistypokemon1hp=%mistypokemon1lvl%*4 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Gym-Leader-Elite-Four.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) goto Misty-battle :Pokemon-Gym-Vermillion-City cls if %badges% LSS 3 ( echo Lt-Surge: So you think you got what it takes to beat me pause>nul cls echo Lt-Surge: Alright let's get started in here pause>nul goto Pokemon-Gym-Vermillion-City-1 ) echo Lt-Surge: %name% you have already proven yourself pause>nul cls echo Lt-Surge: There is no point in fighting me again pause>nul goto %location% :Pokemon-Gym-Vermillion-City-1 set ltsurgepokemon1=VOLTORB set ltsurgepokemon1lvl=10 set /a ltsurgepokemon1hp=%ltsurgepokemon1lvl%*4 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Gym-Leader-Elite-Four.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) goto Lt-Surge-battle :Pallet-Town ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pallet-Town.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) set location=Pallet-Town cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to %name% house echo 2) Go to %rival%'s house echo 3) Go to the Pokemon Lab echo 4) Go to Route 1 (NORTH) echo 5) Go to the water and begin surfing echo 6) Go to the water and begin fishing set /p input= if '%input%'=='1' goto Pallet-Town-1 if '%input%'=='2' goto Pallet-Town-2 if '%input%'=='3' goto Pallet-Town-3 if '%input%'=='4' goto Route-1 if '%input%'=='5' goto Pallet-Town-5 if '%input%'=='6' goto Pallet-Town-6 goto Pallet-Town :Pallet-Town-1 set location=Pallet-Town cls echo ---------------------------------------------------------------------- echo Home echo ---------------------------------------------------------------------- echo. echo __ii_______________ echo / ii __ //\ echo / /__\ i__i // \\ echo /_________________// \\ echo i i /\ i echo )\ )\ i i / .\ i echo )\ )\ /( i________________i_i__i_i echo. echo 1) Talk to your Mom echo 2) Rest here for a while (heals your pokemon) echo 3) Go back echo 4) Save the game set /p input= if '%input%'=='1' goto Pallet-Town-1-1 if '%input%'=='2' set /a starterhp=%starterlvl%*4 if '%input%'=='3' goto Pallet-Town if '%input%'=='4' goto Save-menu goto Pallet-Town-1 :Pallet-Town-1-1 cls set location=Pallet-Town echo Mom: %name%! Its a shame that your dad isn't around to echo see you grow up pause>nul cls echo Mom: You've grown so fast, but i guess all birds leave echo the nest at some point pause>nul cls echo Mom: You have my permission to go and travel the Kanto region, echo but you have to contact me every week to keep in touch pause>nul goto Pallet-Town-1 :Pallet-Town-2 cls echo ---------------------------------------------------------------------- echo Gary's House echo ---------------------------------------------------------------------- echo. echo __ii_______________ echo / ii /\\ echo / /__\ / \\ echo /_________________/ \\ echo i __ i /\ i echo )\ )\ i i__i i / .\ i echo )\ )\ /( i________________i_i__i_i echo. echo 1) Talk to Gary's Mom echo 2) Go back set /p input= if '%input%'=='1' goto Pallet-Town-2-1 if '%input%'=='2' goto Pallet-Town goto Pallet-Town-2 :Pallet-Town-2-1 cls echo %rival%'s Mom: Hey, you're the boii from next door right pause>nul cls echo %rival%'s Mom: Here take this, it's a Town-map pause>nul cls echo %rival%'s Mom: It may or may not influence your experiences pause>nul goto Pallet-Town-2 :Pallet-Town-3 ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Pokemon-Lab.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo Pokemon Lab echo ---------------------------------------------------------------------- echo. echo _______ ______ echo __./ _ \.__ / \ echo / // \\ \ / i echo i_______\\_//_______i i echo /___________________\ i echo i i ___ i i / echo i i / \ i i/ )\ )\ /( echo )\ )\ i_____i_i___i_i_____i )\ )\ )\ )\ echo. echo 1) Talk to Professor Oak echo 2) Go back set /p input= if '%input%'=='1' goto Pallet-Town-3-1 if '%input%'=='2' goto Pallet-Town goto Pallet-Town-3 :Pallet-Town-3-1 cls echo Prof Oak: Oh hi %name% I am a little busy right now pause>nul cls echo Prof Oak: It's about compressing Pokemon into data so they can echo be stored in a computer, its really complicated and also crazy pause>nul goto Pallet-Town :Pallet-Town-5 cls if '%HM-surf%'=='0' ( echo You do not have the HM-surf, so you can't surf pause>nul goto Pallet-Town ) if '%HM-surf%'=='1' ( echo You used one of your Pokemon to surf pause>nul goto Route-21 ) :Pallet-Town-6 cls if '%fishingrod%'=='0' echo You do not have a fishing rod, so you can't fish if '%fishingrod%'=='1' echo nothing here yet pause>nul goto Pallet-Town :Viridian-City set location=Viridian-City ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Viridian-Pewter-Saffron-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to Route 2 (NORTH) echo 5) Go to Route 1 (SOUTH) echo 6) Go to Route 22 (WEST) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Route-2 if '%input%'=='5' goto Route-1 if '%input%'=='6' goto Route-22 goto Viridian-City :Pewter-City set location=Pewter-City ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Viridian-Pewter-Saffron-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to Route 3 (EAST) echo 5) Go to the Viridian forest (SOUTH) echo 6) Go to the diglett's cave set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Pewter-City-4 if '%input%'=='5' goto Viridian-forest if '%input%'=='6' goto Pewter-City-6 goto Pewter-City :Pewter-City-4 if '%badges%'=='0' ( cls echo [the road is blocked] pause>nul goto Pewter-City ) goto Route-3 :Pewter-City-6 cls if '%HM-cut%'=='0' ( echo The bushes are blocking the entrance, you cant seem to get through echo Perhaps if you had HM-cut one of you pokemon could clear it pause>nul goto Pewter-City ) echo One of your pokemon cuts right through the bushes echo blocking the entrance pause>nul goto Digletts-cave :Cerulean-City set location=Cerulean-City ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Cerulean-Fussia-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to Mt. Moon through a special passage echo 5) Go to the bike shop echo 6) Go to the bridge (NORTH) echo 7) Go to Route 5 (SOUTH) echo 8) Go to Route 9 (EAST) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Mt-Moon if '%input%'=='5' goto Bike-shop if '%input%'=='6' goto Cerulean-City-6 if '%input%'=='7' goto Route-5 if '%input%'=='8' goto Route-9 goto Cerulean-City :Cerulean-City-6 cls ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Route-24-25.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) echo ---------------------------------------------------------------------- echo %location% Bridge echo ---------------------------------------------------------------------- echo _____________________________ ________________________________ echo \ _____ / echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i_____i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ echo _____________________________/ \________________________________ echo. echo 1) Cross the bridge echo 2) Go to Cerulean city set /p input= if '%input%'=='1' goto Cerulean-City-6-1 if '%input%'=='2' goto Cerulean-City goto Cerulean-City-6 :Cerulean-City-6-1 cls if %rivalencounters% GTR 0 ( goto Route-24 ) echo %rival%: Oh hey %name% how about we fight again, its been a while pause>nul set rivalstarterlvl=10 set /a rivalstarterhp=%rivalstarterlvl%*4 goto Rival-battle-start :Vermillion-City set location=Vermillion-City ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Vermillion-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to the S.S. Anne echo 5) Go to the digletts cave echo 6) Go to the Pokemon fanclub echo 7) Go to Route 6 (NORTH) echo 8) Go to Route 11 (EAST) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto SS-anne if '%input%'=='5' goto Digletts-cave if '%input%'=='6' goto Pokemon-fanclub if '%input%'=='7' goto Route-6 if '%input%'=='8' goto Route-11 goto Vermillion-City :Lavender-Town set location=Lavender-Town ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Lavender-Town.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon tower echo 3) Go to the Pokemon markt echo 4) Go to Route 8 (WEST) echo 5) Go to Route 10 (NORTH) echo 6) Go to Route 12 (SOUTH) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-tower if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Route-8 if '%input%'=='5' goto Route-10 if '%input%'=='6' goto Route-12 goto Lavender-Town :Celadon-City set location=Celadon-City ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Celadon-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to Route 7 (EAST) echo 5) Go to Route 16 (WEST) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Route-7 if '%input%'=='5' goto Route-16 goto Celadon-City :Fuschia-City set location=Fuschia-City ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Cerulean-Fussia-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to the Safari zone echo 5) Go to Route 15 (EAST) echo 6) Go to Route 18 (WEST) echo 7) Go to Route 19 (SOUTH) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Safari-zone if '%input%'=='5' goto Route-15 if '%input%'=='6' goto Route-18 if '%input%'=='7' goto Route-19 goto Fuschia-City :Saffron-City set location=Saffron-City ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Viridian-Pewter-Saffron-City.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to Route 5 (NORTH) echo 5) Go to Route 6 (SOUTH) echo 6) Go to Route 7 (WEST) echo 7) Go to Route 8 (EAST) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Route-5 if '%input%'=='5' goto Route-6 if '%input%'=='6' goto Route-7 if '%input%'=='7' goto Route-8 goto Saffron-City :Cinnabar-Island set location=Cinnabar-Island ( echo Set Sound=CreateObject("WMPlayer.OCX.7"^) echo Sound.URL="Cinnabar-Island.mp3" echo Sound.Controls.play echo do while Sound.currentmedia.duration=0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000)>sound.vbs if '%music%'=='1' ( taskkill /F /IM "wscript.exe" cls start /min sound.vbs ) cls echo ---------------------------------------------------------------------- echo %location% echo ---------------------------------------------------------------------- echo. echo 1) Go to the Pokemon center echo 2) Go to the Pokemon gym echo 3) Go to the Pokemon markt echo 4) Go to the Pokemon mansion echo 5) Go to Route 21 (NORTH) echo 6) Go to the Seafoam islands (EAST) set /p input= if '%input%'=='1' goto Pokemon-Center if '%input%'=='2' goto Pokemon-Gym if '%input%'=='3' goto Pokemon-Mart if '%input%'=='4' goto Pokemon-mansion if '%input%'=='5' goto Route-21 if '%input%'=='6' goto Seafoam-islands goto Cinnabar-Island