daily pastebin goal
33%
SHARE
TWEET

PokeBatch

hidde663 Jul 26th, 2015 (edited) 1,809 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @echo off&mode 71,30&title PokeBatch&color 07&pushd "%~dp0"&setlocal Enabledelayedexpansion
  2. ::I will update the game often at http://pastebin.com/qhgTGvUF5
  3. ::NEW, BETTER, 2D VERSION AT https://pastebin.com/Rmf9t2Js
  4. :Compressed-lines
  5. set ln=ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  6. set cl=##################################################
  7. set "p=&pause>nul"
  8. set g=Go to
  9. set n= [NORTH]
  10. set e= [EAST]
  11. set s= [SOUTH]
  12. set w= [WEST]
  13. set l=Look for wild pkmn
  14. set r=Route
  15. :Memory-options
  16. cls
  17. echo !ln!
  18. echo Memory options
  19. echo !ln!
  20. echo.
  21. echo [1] New game
  22. echo [2] Continue
  23. echo [3] Instructions
  24. choice /c 123 /n>nul
  25. if !errorlevel! equ 1 goto Start-1
  26. if !errorlevel! equ 2 goto Load-menu
  27. if !errorlevel! equ 3 goto Instructions
  28. :Instructions
  29. cls
  30. echo !ln!
  31. echo PokeBatch - The pkmn experience in Batch - Version 10-10-2017
  32. echo !ln!
  33. echo.
  34. echo NEW, BETTER, 2D VERSION AT https://pastebin.com/Rmf9t2Js
  35. echo.
  36. echo If the game asks you a question, answer it, with a word or a number
  37. echo.
  38. echo You can save in pkmn centers
  39. echo.
  40. echo Be aware that if you dont type anything and hit enter, the game will
  41. echo use your last entry
  42. echo.
  43. echo Good luck ;)%p%
  44. goto Memory-options
  45. :Load-menu
  46. cls
  47. echo !ln!
  48. echo Load menu
  49. echo !ln!
  50. echo.
  51. echo What was your name in the saved game?
  52. set /p oldname=
  53. if '!oldname!'=='' goto Load-menu
  54. echo.
  55. echo Loading !oldname!.txt...
  56. (
  57. set /p music=
  58. set /p name=
  59. set /p starter=
  60. set /p rival=
  61. set /p rivalstarter=
  62. set /p money=
  63. set /p potions=
  64. set /p fishingrod=
  65. set /p HM-surf=
  66. set /p HM-fly=
  67. set /p HM-cut=
  68. set /p location=
  69. set /p sublocation=
  70. set /p exp=
  71. set /p exptill=
  72. set /p badges=
  73. set /p bikevoucher=
  74. set /p bike=
  75. set /p pkmnstorage=
  76. set /p pokeballs=
  77. set /p rivalencounters=
  78. set /p ss-anne=
  79. set /p color=
  80. set /p snorlaks1=
  81. set /p snorlaks2=
  82. set /p pkmn1=
  83. set /p pkmn1lvl=
  84. set /p pkmn2=
  85. set /p pkmn2lvl=
  86. set /p pkmn3=
  87. set /p pkmn3lvl=
  88. set /p pkmn4=
  89. set /p pkmn4lvl=
  90. set /p pkmn5=
  91. set /p pkmn5lvl=
  92. set /p pkmn6=
  93. set /p pkmn6lvl=
  94. set /p pkmn7=
  95. set /p pkmn7lvl=
  96. set /p pkmn8=
  97. set /p pkmn8lvl=
  98. set /p pkmn9=
  99. set /p pkmn9lvl=
  100. set /p pkmn10=1
  101. set /p pkmn10lvl=
  102. set /p pkmn11=
  103. set /p pkmn11lvl=
  104. set /p pkmn12=
  105. set /p pkmn12lvl=
  106. set /p pkmn13=
  107. set /p pkmn13lvl=
  108. set /p pkmn14=
  109. set /p pkmn14lvl=
  110. set /p pkmn15=
  111. set /p pkmn15lvl=
  112. set /p pkmn16=
  113. set /p pkmn16lvl=
  114. set /p pkmn17=
  115. set /p pkmn17lvl=
  116. set /p pkmn18=
  117. set /p pkmn18lvl=
  118. set /p pkmn19=
  119. set /p pkmn19lvl=
  120. set /p pkmn20=
  121. set /p pkmn20lvl=
  122. set /p invpkmn1=
  123. set /p invpkmn1lvl=
  124. set /p invpkmn1hp=
  125. set /p invpkmn2=
  126. set /p invpkmn2lvl=
  127. set /p invpkmn2hp=
  128. set /p invpkmn3=
  129. set /p invpkmn3lvl=
  130. set /p invpkmn3hp=
  131. set /p invpkmn4=
  132. set /p invpkmn4lvl=
  133. set /p invpkmn4hp=
  134. set /p invpkmn5=
  135. set /p invpkmn5lvl=
  136. set /p invpkmn5hp=
  137. set /p invpkmn6=
  138. set /p invpkmn6lvl=
  139. set /p invpkmn6hp=
  140. set /p trainer-SS-anne-floor-1-1=
  141. set /p trainer-SS-anne-floor-1-2=
  142. set /p trainer-SS-anne-floor-1-6=
  143. set /p trainer-SS-anne-floor-2-3=
  144. set /p trainer-SS-anne-floor-2-4=
  145. set /p profoakparcel=
  146. set /p Trainer-route-3=
  147. set /p Trainer-route-24=
  148. set /p Trainer-mt-moon=
  149. set /p inventory=
  150. set /p guardwater=
  151. set /p Silphscope=
  152. set /p coins=
  153. set /p Trainer-Rocket-Hideout-floor-4=
  154. set /p lift-key=
  155. set /p Trainer-Rocket-Hideout-Giovanni=
  156. set /p pkmn1nick=
  157. set /p pkmn2nick=
  158. set /p pkmn3nick=
  159. set /p pkmn4nick=
  160. set /p pkmn5nick=
  161. set /p pkmn6nick=
  162. set /p pkmn7nick=
  163. set /p pkmn8nick=
  164. set /p pkmn9nick=
  165. set /p pkmn10nick=
  166. set /p pkmn11nick=
  167. set /p pkmn12nick=
  168. set /p pkmn13nick=
  169. set /p pkmn14nick=
  170. set /p pkmn15nick=
  171. set /p pkmn16nick=
  172. set /p pkmn17nick=
  173. set /p pkmn18nick=
  174. set /p pkmn19nick=
  175. set /p pkmn20nick=
  176. set /p invpkmn1nick=
  177. set /p invpkmn2nick=
  178. set /p invpkmn3nick=
  179. set /p invpkmn4nick=
  180. set /p invpkmn5nick=
  181. set /p invpkmn6nick=
  182. )<!oldname!.txt
  183. set SoundURL=Jigglypuff-s-song.mp3
  184. if /I not !name! equ !oldname! (cls
  185. echo !ln!
  186. echo Loading error
  187. echo !ln!
  188. echo.
  189. echo The saved game with that name does not exist%p%&goto Memory-options)
  190. timeout 1 >nul
  191. echo.
  192. echo Loading done&timeout 1 >nul
  193. if !color! equ 1 color 07
  194. if !color! equ 0 (
  195. if !starter! equ BULBASAUR color 27
  196. if !starter! equ SQUIRTLE color 97
  197. if !starter! equ CHARMANDER color 47
  198. if !starter! equ PIKACHU color 67
  199. if !starter! equ EEVEE color 57)
  200. if !music! equ 1 taskkill /FI "windowtitle eq terminator">nul&start sound.vbs !SoundURL!&start /min terminator.bat
  201. goto !location!
  202. :Save-menu
  203. cls
  204. echo !ln!
  205. echo Save menu
  206. echo !ln!
  207. echo.
  208. echo Saving !name!.txt...
  209. (
  210. echo !music!
  211. echo !name!
  212. echo !starter!
  213. echo !rival!
  214. echo !rivalstarter!
  215. echo !money!
  216. echo !potions!
  217. echo !fishingrod!
  218. echo !HM-surf!
  219. echo !HM-fly!
  220. echo !HM-cut!
  221. echo !location!
  222. echo !sublocation!
  223. echo !exp!
  224. echo !exptill!
  225. echo !badges!
  226. echo !bikevoucher!
  227. echo !bike!
  228. echo !pkmnstorage!
  229. echo !pokeballs!
  230. echo !rivalencounters!
  231. echo !ss-anne!
  232. echo !color!
  233. echo !snorlaks1!
  234. echo !snorlaks2!
  235. echo !pkmn1!
  236. echo !pkmn1lvl!
  237. echo !pkmn2!
  238. echo !pkmn2lvl!
  239. echo !pkmn3!
  240. echo !pkmn3lvl!
  241. echo !pkmn4!
  242. echo !pkmn4lvl!
  243. echo !pkmn5!
  244. echo !pkmn5lvl!
  245. echo !pkmn6!
  246. echo !pkmn6lvl!
  247. echo !pkmn7!
  248. echo !pkmn7lvl!
  249. echo !pkmn8!
  250. echo !pkmn8lvl!
  251. echo !pkmn9!
  252. echo !pkmn9lvl!
  253. echo !pkmn10!
  254. echo !pkmn10lvl!
  255. echo !pkmn11!
  256. echo !pkmn11lvl!
  257. echo !pkmn12!
  258. echo !pkmn12lvl!
  259. echo !pkmn13!
  260. echo !pkmn13lvl!
  261. echo !pkmn14!
  262. echo !pkmn14lvl!
  263. echo !pkmn15!
  264. echo !pkmn15lvl!
  265. echo !pkmn16!
  266. echo !pkmn16lvl!
  267. echo !pkmn17!
  268. echo !pkmn17lvl!
  269. echo !pkmn18!
  270. echo !pkmn18lvl!
  271. echo !pkmn19!
  272. echo !pkmn19lvl!
  273. echo !pkmn20!
  274. echo !pkmn20lvl!
  275. echo !invpkmn1!
  276. echo !invpkmn1lvl!
  277. echo !invpkmn1hp!
  278. echo !invpkmn2!
  279. echo !invpkmn2lvl!
  280. echo !invpkmn2hp!
  281. echo !invpkmn3!
  282. echo !invpkmn3lvl!
  283. echo !invpkmn3hp!
  284. echo !invpkmn4!
  285. echo !invpkmn4lvl!
  286. echo !invpkmn4hp!
  287. echo !invpkmn5!
  288. echo !invpkmn5lvl!
  289. echo !invpkmn5hp!
  290. echo !invpkmn6!
  291. echo !invpkmn6lvl!
  292. echo !invpkmn6hp!
  293. echo !trainer-SS-anne-floor-1-1!
  294. echo !trainer-SS-anne-floor-1-2!
  295. echo !trainer-SS-anne-floor-1-6!
  296. echo !trainer-SS-anne-floor-2-3!
  297. echo !trainer-SS-anne-floor-2-4!
  298. echo !profoakparcel!
  299. echo !Trainer-route-3!
  300. echo !Trainer-route-24!
  301. echo !Trainer-mt-moon!
  302. echo !inventory!
  303. echo !guardwater!
  304. echo !Silphscope!
  305. echo !coins!
  306. echo !Trainer-Rocket-Hideout-floor-4!
  307. echo !lift-key!
  308. echo !Trainer-Rocket-Hideout-Giovanni!
  309. echo !pkmn1nick!
  310. echo !pkmn2nick!
  311. echo !pkmn3nick!
  312. echo !pkmn4nick!
  313. echo !pkmn5nick!
  314. echo !pkmn6nick!
  315. echo !pkmn7nick!
  316. echo !pkmn8nick!
  317. echo !pkmn9nick!
  318. echo !pkmn10nick!
  319. echo !pkmn11nick!
  320. echo !pkmn12nick!
  321. echo !pkmn13nick!
  322. echo !pkmn14nick!
  323. echo !pkmn15nick!
  324. echo !pkmn16nick!
  325. echo !pkmn17nick!
  326. echo !pkmn18nick!
  327. echo !pkmn19nick!
  328. echo !pkmn20nick!
  329. echo !invpkmn1nick!
  330. echo !invpkmn2nick!
  331. echo !invpkmn3nick!
  332. echo !invpkmn4nick!
  333. echo !invpkmn5nick!
  334. echo !invpkmn6nick!
  335. )>!name!.txt
  336. timeout 1 >nul
  337. echo.
  338. echo Saving done
  339. timeout 1 >nul
  340. if '!sublocation!'=='pkmn-Center-4a' goto !sublocation!
  341. if '!pkmnbattle!' equ 1 goto wild-pkmn-battle-switch-check
  342. if '!pkmnbattle!' equ 2 goto Gym-battle-switch-check
  343. if '!pkmnbattle!' equ 3 goto Trainer-pkmn-switch-check
  344. if '!pkmnbattle!' equ 4 goto rival-battle-switch-check
  345. goto !sublocation!
  346. :Start-1
  347. cls
  348. echo !ln!
  349. echo Music options
  350. echo !ln!&
  351. echo.
  352. echo [1] Disable music
  353. echo [2] Enable music
  354. echo [3] Go back
  355. choice /c 123 /n>nul
  356. if !errorlevel! equ 1 set music=0&goto Start-2
  357. if !errorlevel! equ 2 goto Start-1-1
  358. if !errorlevel! equ 3 goto Memory-options
  359. :Start-1-1
  360. if not exist heal.mp3 (set music=0
  361. cls&echo You do not have all the audio files installed, music will be disabled%p%&goto start-2)
  362. set music=1
  363. :Createsoundvbs
  364. if exist sound.vbs goto Createterminatorbat
  365. echo Set args=WScript.Arguments>sound.vbs
  366. echo arg1=args.Item(0)>>sound.vbs
  367. echo main>>sound.vbs
  368. echo sub main>>sound.vbs
  369. echo do>>sound.vbs
  370. echo Set Sound=CreateObject("WMPlayer.OCX.7")>>sound.vbs
  371. echo Sound.URL=""^&arg1^&"">>sound.vbs
  372. echo Sound.Controls.play>>sound.vbs
  373. echo do while Sound.currentmedia.duration=0 >>sound.vbs
  374. echo wscript.sleep 100>>sound.vbs
  375. echo loop>>sound.vbs
  376. echo wscript.sleep (int(Sound.currentmedia.duration)+1)*1000>>sound.vbs
  377. echo loop>>sound.vbs
  378. echo end sub>>sound.vbs
  379. :Createterminatorbat
  380. if exist terminator.bat goto Start-2
  381. echo @echo off >terminator.bat
  382. echo title terminator2 >>terminator.bat
  383. echo @mode 23,2 >>terminator.bat
  384. echo FOR /F "tokens=2 delims= " !!!!A IN (^'TASKLIST /FI ^"WINDOWTITLE eq PokeBatch^" /NH^') DO SET tid=!!!!A >>terminator.bat
  385. echo :loop >>terminator.bat
  386. echo cls >>terminator.bat
  387. echo ^time^out ^1 ^>nul >>terminator.bat
  388. echo FOR /F "tokens=2 delims= " !!!!B IN (^'TASKLIST /FI ^"WINDOWTITLE eq PokeBatch^" /NH^') DO SET dit=!!!!B >>terminator.bat
  389. echo ^if ^not !!tid!! ^equ !!dit!! ^taskkill /f /im wscript.exe ^& exit >>terminator.bat
  390. echo ^goto ^loop >>terminator.bat
  391. :Start-2
  392. set fishingrod=0
  393. set HM-surf=0
  394. set HM-fly=0
  395. set HM-cut=0
  396. set money=2000
  397. set potions=1
  398. set badges=0
  399. set bikevoucher=0
  400. set bike=0
  401. set pkmnstorage=0
  402. set sublocation=NAN
  403. set pokeballs=0
  404. set exp=0
  405. set exptill=25
  406. set rivalstarterlvl=5
  407. set /a rivalstarterhp=!rivalstarterlvl!*4
  408. set rivalencounters=0
  409. set ss-anne=0
  410. set color=0
  411. set snorlaks1=0
  412. set snorlaks2=0
  413. set pkmn1=NAN
  414. set pkmn1lvl=NAN
  415. set pkmn2=NAN
  416. set pkmn2lvl=NAN
  417. set pkmn3=NAN
  418. set pkmn3lvl=NAN
  419. set pkmn4=NAN
  420. set pkmn4lvl=NAN
  421. set pkmn5=NAN
  422. set pkmn5lvl=NAN
  423. set pkmn6=NAN
  424. set pkmn6lvl=NAN
  425. set pkmn7=NAN
  426. set pkmn7lvl=NAN
  427. set pkmn8=NAN
  428. set pkmn8lvl=NAN
  429. set pkmn9=NAN
  430. set pkmn9lvl=NAN
  431. set pkmn10=NAN
  432. set pkmn10lvl=NAN
  433. set pkmn11=NAN
  434. set pkmn11lvl=NAN
  435. set pkmn12=NAN
  436. set pkmn12lvl=NAN
  437. set pkmn13=NAN
  438. set pkmn13lvl=NAN
  439. set pkmn14=NAN
  440. set pkmn14lvl=NAN
  441. set pkmn15=NAN
  442. set pkmn15lvl=NAN
  443. set pkmn16=NAN
  444. set pkmn16lvl=NAN
  445. set pkmn17=NAN
  446. set pkmn17lvl=NAN
  447. set pkmn18=NAN
  448. set pkmn18lvl=NAN
  449. set pkmn19=NAN
  450. set pkmn19lvl=NAN
  451. set pkmn20=NAN
  452. set pkmn20lvl=NAN
  453. set invpkmn1=!starter!
  454. set invpkmn1lvl=5
  455. set /a invpkmn1hp=!invpkmn1lvl!*4
  456. set invpkmn2=NAN
  457. set invpkmn2lvl=NAN
  458. set /a invpkmn2hp=!invpkmn2lvl!*4
  459. set invpkmn3=NAN
  460. set invpkmn3lvl=NAN
  461. set /a invpkmn3hp=!invpkmn3lvl!*4
  462. set invpkmn4=NAN
  463. set invpkmn4lvl=NAN
  464. set /a invpkmn4hp=!invpkmn4lvl!*4
  465. set invpkmn5=NAN
  466. set invpkmn5lvl=NAN
  467. set /a invpkmn5hp=!invpkmn5lvl!*4
  468. set invpkmn6=NAN
  469. set invpkmn6lvl=NAN
  470. set /a invpkmn6hp=!invpkmn6lvl!*4
  471. set trainer-SS-anne-floor-1-1=0
  472. set trainer-SS-anne-floor-1-2=0
  473. set trainer-SS-anne-floor-1-6=0
  474. set trainer-SS-anne-floor-2-3=0
  475. set trainer-SS-anne-floor-2-4=0
  476. set profoakparcel=0
  477. set Trainer-route-3=0
  478. set Trainer-route-24=0
  479. set Trainer-mt-moon=0
  480. set startercycle=0
  481. set input=0
  482. set SoundURL=Intro.mp3
  483. set inventory=1
  484. set guardwater=0
  485. set Silphscope=0
  486. set sublocation=Pallet-Town-1
  487. set coins=280
  488. set Trainer-Rocket-Hideout-floor-4=0
  489. set lift-key=0
  490. set Trainer-Rocket-Hideout-Giovanni=0
  491. set pkmn1nick=NAN
  492. set pkmn2nick=NAN
  493. set pkmn3nick=NAN
  494. set pkmn4nick=NAN
  495. set pkmn5nick=NAN
  496. set pkmn6nick=NAN
  497. set pkmn7nick=NAN
  498. set pkmn8nick=NAN
  499. set pkmn9nick=NAN
  500. set pkmn10nick=NAN
  501. set pkmn11nick=NAN
  502. set pkmn12nick=NAN
  503. set pkmn13nick=NAN
  504. set pkmn14nick=NAN
  505. set pkmn15nick=NAN
  506. set pkmn16nick=NAN
  507. set pkmn17nick=NAN
  508. set pkmn18nick=NAN
  509. set pkmn19nick=NAN
  510. set pkmn20nick=NAN
  511. set invpkmn1nick=NAN
  512. set invpkmn2nick=NAN
  513. set invpkmn3nick=NAN
  514. set invpkmn4nick=NAN
  515. set invpkmn5nick=NAN
  516. set invpkmn6nick=NAN
  517. :My-name-is-Prof-Oak
  518. if !music! equ 1 start /min terminator.bat&start sound.vbs !SoundURL!
  519. cls&echo Prof. Oak: Hi. My name is Prof. Oak%p%
  520. cls&echo Prof. Oak: Welcome to the wonderful world of pkmn%p%
  521. :Name
  522. cls&echo Prof. Oak: It seems I dont remember your name. What is it?
  523. set /p name=
  524. if '!name!'=='' goto Name
  525. cls&echo Hi !name!! Its nice seeing you again%p%
  526. :Rival-name
  527. cls&echo Prof. Oak: I think Im getting old, could you tell me your rivals name?
  528. set /p rival=
  529. if '!rival!'=='' goto Rival-name
  530. cls&echo Ah ofcourse his name was !rival!! I hope I wont forget again%p%
  531. cls&echo !rival!: You can pick first !name!, I insist
  532. cls&echo Prof. Oak: So !name! what are you waiting for, choose your pkmn%p%
  533. :Starter-cycle
  534. if !startercycle! equ 0 color 27&set invpkmn1=BULBASAUR&set starter=BULBASAUR&set rivalstarter=CHARMANDER
  535. if !startercycle! equ 1 color 97&set invpkmn1=SQUIRTLE&set starter=SQUIRTLE&set rivalstarter=BULBASAUR
  536. if !startercycle! equ 2 color 47&set invpkmn1=CHARMANDER&set starter=CHARMANDER&set rivalstarter=SQUIRTLE
  537. if !startercycle! equ 3 color 67&set invpkmn1=PIKACHU&set starter=PIKACHU&set rivalstarter=EEVEE
  538. if !startercycle! equ 4 color 57&set invpkmn1=EEVEE&set starter=EEVEE&set rivalstarter=PIKACHU
  539. if !startercycle! GTR 4 set startercycle=0&goto starter-cycle
  540. :Starters
  541. cls
  542. echo !ln!
  543. echo                            !starter! LVL 5
  544. echo !ln!
  545. echo.
  546. echo Prof. Oak: Do you want to pick !starter!?
  547. echo.
  548. echo [1] Choose !starter!
  549. echo [2] Choose a different pkmn
  550. choice /c 12 /n>nul
  551. if !errorlevel! equ 1 cls&echo !rival!: Then I will take !rivalstarter!%p%&goto Starter-choice
  552. set /a startercycle+=1
  553. if !errorlevel! equ 2 goto Starter-cycle
  554. :Starter-choice
  555. cls&echo Prof. Oak: Would you like to give your !starter! a nickname? y/n
  556. choice /c yn /n>nul
  557. if !errorlevel! equ 1 set /p "invpkmn1nick=nickname="
  558. if !errorlevel! equ 2 set invpkmn1nick=!invpkmn1!
  559. cls&echo Prof. Oak: Congratulations, youve just become a pkmn trainer%p%
  560. cls&echo Prof. Oak: Make sure to have fun with !invpkmn1nick!%p%
  561. cls&echo Prof. Oak: Collect Gym badges and compete in the pkmn League%p%
  562. cls&echo Prof. Oak: Good luck%p%
  563. :Prof-OAKs-assignment
  564. cls&echo Prof. Oak: Hey !name!, could you pick up my PARCEL
  565. echo from the Viridian-City Mart?%p%
  566. cls&echo Prof. Oak: Thanks, it would take me ages with this sore back of mine%p%
  567. goto Pallet-Town
  568. :Rival-battle-start
  569. set SoundURL=Rival-appears.mp3
  570. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  571. set /a rivalstarterhp=!rivalstarterlvl!*4
  572. cls&echo !rival!: Here I come^!&timeout 5 >nul
  573. set SoundURL=Trainer.mp3
  574. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  575. set pkmnbattle=4
  576. :Rival-battle
  577. cls
  578. echo !ln!
  579. echo !rivalstarter! LVL: !rivalstarterlvl! HP: !rivalstarterhp!
  580. echo !ln!
  581. echo.
  582. echo.
  583. echo.
  584. echo.
  585. echo !ln!
  586. echo !invpkmn1! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  587. echo !ln!
  588. echo.
  589. echo [1] Strong attack
  590. echo [2] Accurate attack
  591. echo [3] Use a potion, you have !potions! potion(s)
  592. echo [4] Switch pkmn
  593. if !invpkmn1hp! LSS 1 echo !invpkmn1! fainted%p%&goto rival-battle-switch
  594. choice /c 1234 /n>nul
  595. if !errorlevel! equ 1 (echo.
  596. echo !ln!
  597. echo !name!: !invpkmn1! use Strong-attack
  598. echo !ln!
  599. set stronghit=!random:~-1!
  600. if !stronghit! GTR 2 set /a rivalstarterhp-=5
  601. if !stronghit! LSS 3 echo !invpkmn1! missed%p%
  602. goto Rival-starter-attack-kind-calc)
  603. if !errorlevel! equ 2 (echo.
  604. echo !ln!
  605. echo !name!: !invpkmn1! use Accurate-attack
  606. echo !ln!%p%
  607. set /a rivalstarterhp-=3
  608. goto Rival-starter-attack-kind-calc)
  609. if !errorlevel! equ 3 goto Rival-battle-potion
  610. if !errorlevel! equ 4 goto Rival-battle-switch
  611. :Rival-battle-potion
  612. if !potions! LSS 1 echo You dont have any potions left%p%
  613. if !potions! GTR 0 set /a potions-=1&set /a invpkmn1hp+=20
  614. goto Rival-starter-attack-kind-calc
  615. :Rival-starter-attack-kind-calc
  616. if !rivalstarterhp! LSS 1 (set /a exp=!rivalstarterlvl!*5
  617. echo.
  618. echo !rivalstarter! fainted
  619. echo.
  620. echo !invpkmn1! gained some exp%p%&goto Rival-battle-victory)
  621. set rivalstarterattackcalc=!random:~-1!
  622. if !rivalstarterattackcalc! GTR 1 goto Rival-starter-attack-kind-calc
  623. if !rivalstarterattackcalc! equ 0 set rivalstarterattackkind=Strong-attack&set /a invpkmn1hp-=4
  624. if !rivalstarterattackcalc! equ 1 set rivalstarterattackkind=Accurate-attack&set /a invpkmn1hp-=3
  625. goto Rival-turn
  626. :Rival-turn
  627. cls
  628. echo !ln!
  629. echo !rivalstarter! LVL: !rivalstarterlvl! HP: !rivalstarterhp!
  630. echo !ln!
  631. echo.
  632. echo.
  633. echo.
  634. echo.
  635. echo !ln!
  636. echo !invpkmn1! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  637. echo !ln!
  638. echo.
  639. echo.
  640. echo !ln!
  641. echo !rival!: !rivalstarter! use !rivalstarterattackkind!
  642. echo !ln!%p%
  643. goto Rival-battle
  644. :Rival-battle-lost
  645. cls&echo !rival!: Haha, you should have known !name!%p%
  646. cls&echo !rival!: I will always be better at training pkmn than you will
  647. echo ever be!%p%
  648. set SoundURL=Pallet-Town.mp3
  649. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  650. cls&echo Nurse Joy: Oh !name! your pkmn is hurt%p%
  651. cls&echo Nurse Joy: Come with me and ill heal him with my love%p%
  652. cls&echo Your !invpkmn1! is blushed red%p%
  653. set /a rivalencounters+=1
  654. set /a invpkmn1hp=!invpkmn1lvl!*4
  655. set pkmnbattle=0
  656. goto !location!
  657. :Rival-battle-victory
  658. set /a exptill=!exptill!-!exp!
  659. if !exptill! LSS 1 (set /a invpkmn1lvl+=1
  660. set /a exptill=!invpkmn1lvl!*5
  661. cls&echo Your !invpkmn1! has LVLd up%p%)
  662. cls&echo !rival!: You won this time, and only because of luck%p%
  663. cls&echo You got $500 for winning%p%
  664. cls&echo !rival!: Smell ya later!%p%
  665. set /a money+=500
  666. set pkmnbattle=0
  667. if !location! equ SS-anne-floor-3 goto SS-anne-floor-3-1
  668. set rivalencounter=!rivalencounter!+1
  669. goto !sublocation!
  670. :Rival-battle-switch
  671. set temppkmn=NAN
  672. set temppkmnlvl=NAN
  673. set temppkmnhp=NAN
  674. cls
  675. echo !ln!
  676. echo Inventory
  677. echo !ln!
  678. echo 1:!invpkmn1! LVL:!invpkmn1lvl! HP:!invpkmn1hp!
  679. echo 2:!invpkmn2! LVL:!invpkmn2lvl! HP:!invpkmn2hp!
  680. echo 3:!invpkmn3! LVL:!invpkmn3lvl! HP:!invpkmn3hp!
  681. echo 4:!invpkmn4! LVL:!invpkmn4lvl! HP:!invpkmn4hp!
  682. echo 5:!invpkmn5! LVL:!invpkmn5lvl! HP:!invpkmn5hp!
  683. echo 6:!invpkmn6! LVL:!invpkmn6lvl! HP:!invpkmn6hp!
  684. echo !ln!
  685. echo.
  686. echo [1] Act like you faint
  687. echo [2] Switch your 1st pkmn with your 2nd pkmn
  688. echo [3] Switch your 1st pkmn with your 3rd pkmn
  689. echo [4] Switch your 1st pkmn with your 4th pkmn
  690. echo [5] Switch your 1st pkmn with your 5th pkmn
  691. echo [6] Switch your 1st pkmn with your 6th pkmn
  692. choice /c 123456 /n>nul
  693. if !errorlevel! equ 1 goto Rival-battle-lost
  694. set temppkmn=!invpkmn1!&set temppkmnlvl=!invpkmn1lvl!&set temppkmnhp=!invpkmn1hp!&set pkmnbattle=2
  695. if !errorlevel! equ 2 goto Rival-battle-switch-2
  696. if !errorlevel! equ 3 goto Rival-battle-switch-3
  697. if !errorlevel! equ 4 goto Rival-battle-switch-4
  698. if !errorlevel! equ 5 goto Rival-battle-switch-5
  699. if !errorlevel! equ 6 goto Rival-battle-switch-6
  700. :Rival-battle-switch-2
  701. set invpkmn1=!invpkmn2!&set invpkmn1lvl=!invpkmn2lvl!&set invpkmn1hp=!invpkmn2hp!
  702. set invpkmn2=!temppkmn!&set invpkmn2lvl=!temppkmnlvl!&set invpkmn2hp=!temppkmnhp!
  703. goto Rival-battle-switch-check
  704. :Rival-battle-switch-3
  705. set invpkmn1=!invpkmn3!&set invpkmn1lvl=!invpkmn3lvl!&set invpkmn1hp=!invpkmn3hp!
  706. set invpkmn3=!temppkmn!&set invpkmn3lvl=!temppkmnlvl!&set invpkmn3hp=!temppkmnhp!
  707. goto Rival-battle-switch-check
  708. :Rival-battle-switch-4
  709. set invpkmn1=!invpkmn4!&set invpkmn1lvl=!invpkmn4lvl!&set invpkmn1hp=!invpkmn4hp!
  710. set invpkmn4=!temppkmn!&set invpkmn4lvl=!temppkmnlvl!&set invpkmn4hp=!temppkmnhp!
  711. goto Rival-battle-switch-check
  712. :Rival-battle-switch-5
  713. set invpkmn1=!invpkmn5!&set invpkmn1lvl=!invpkmn5lvl!&set invpkmn1hp=!invpkmn5hp!
  714. set invpkmn5=!temppkmn!&set invpkmn5lvl=!temppkmnlvl!&set invpkmn5hp=!temppkmnhp!
  715. goto Rival-battle-switch-check
  716. :Rival-battle-switch-6
  717. set invpkmn1=!invpkmn6!&set invpkmn1lvl=!invpkmn6lvl!&set invpkmn1hp=!invpkmn6hp!
  718. set invpkmn6=!temppkmn!&set invpkmn6lvl=!temppkmnlvl!&set invpkmn6hp=!temppkmnhp!
  719. goto Rival-battle-switch-check
  720. :Rival-battle-switch-check
  721. if !invpkmn1hp! GTR 0 goto rival-starter-attack-kind-calc
  722. goto Rival-battle-switch
  723. :Wild-pkmnlvl-calc
  724. cls&echo You are looking for a wild pkmn
  725. echo.
  726. echo There is one!%p%
  727. goto Wild-pkmnlvl-calc-!sublocation!
  728. :Wild-pkmnlvl-calc-route-1
  729. set wldpkmnk=!random:~-1!
  730. if !wldpkmnk! GTR 6 goto Wild-pkmnlvl-calc-route-1
  731. if !wldpkmnk! equ 0 set wildpkmn=POLIWAG
  732. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  733. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  734. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  735. if !wldpkmnk! equ 4 set wildpkmn=SANDSHREW
  736. if !wldpkmnk! equ 5 set wildpkmn=MANKEY
  737. if !wldpkmnk! equ 6 set wildpkmn=DIGLETT
  738. :Wild-pkmn-stats-route-1
  739. set wldpkmnlvlcalc=!random:~-1!
  740. if !wldpkmnlvlcalc! GTR 2 goto Wild-pkmn-stats-route-1
  741. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=2
  742. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=3
  743. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=4
  744. goto Wild-pkmn-appeared
  745. :Wild-pkmnlvl-calc-route-2
  746. set wldpkmnk=!random:~-1!
  747. if !wldpkmnk! GTR 4 goto Wild-pkmnlvl-calc-route-2
  748. if !wldpkmnk! equ 0 set wildpkmn=CATERPIE
  749. if !wldpkmnk! equ 1 set wildpkmn=NIDORAN-MALE
  750. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  751. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  752. if !wldpkmnk! equ 4 set wildpkmn=NIDORAN-FEMALE
  753. :Wild-pkmn-stats-route-2
  754. set wldpkmnlvlcalc=!random:~-1!
  755. if !wldpkmnlvlcalc! GTR 2 goto Wild-pkmn-stats-route-2
  756. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=3
  757. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=4
  758. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=5
  759. goto Wild-pkmn-appeared
  760. :Wild-pkmnlvl-calc-route-3
  761. set wldpkmnk=!random:~-1!
  762. if !wldpkmnk! GTR 5 goto Wild-pkmnlvl-calc-route-3
  763. if !wldpkmnk! equ 0 set wildpkmn=JIGGLYPUFF
  764. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  765. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  766. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  767. if !wldpkmnk! equ 4 set wildpkmn=SANDSHREW
  768. if !wldpkmnk! equ 5 set wildpkmn=MANKEY
  769. :Wild-pkmn-stats-route-3
  770. set wldpkmnlvlcalc=!random:~-1!
  771. if !wldpkmnlvlcalc! GTR 2 goto Wild-pkmn-stats-route-3
  772. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=6
  773. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=8
  774. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=10
  775. goto Wild-pkmn-appeared
  776. :Wild-pkmnlvl-calc-route-4
  777. set wldpkmnk=!random:~-1!
  778. if !wldpkmnk! GTR 4 goto Wild-pkmnlvl-calc-route-4
  779. if !wldpkmnk! equ 0 set wildpkmn=EKANS
  780. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  781. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  782. if !wldpkmnk! equ 3 set wildpkmn=MANKEY
  783. if !wldpkmnk! equ 4 set wildpkmn=SANDSHREW
  784. :Wild-pkmn-stats-route-4
  785. set wldpkmnlvlcalc=!random:~-1!
  786. if !wldpkmnlvlcalc! GTR 2 goto Wild-pkmn-stats-route-4
  787. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=8
  788. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=10
  789. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=12
  790. goto Wild-pkmn-appeared
  791. :Wild-pkmnlvl-calc-route-5
  792. set wldpkmnk=!random:~-1!
  793. if !wldpkmnk! GTR 8 goto Wild-pkmnlvl-calc-route-5
  794. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  795. if !wldpkmnk! equ 1 set wildpkmn=JIGGLYPUFF
  796. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  797. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  798. if !wldpkmnk! equ 4 set wildpkmn=ODDISH
  799. if !wldpkmnk! equ 5 set wildpkmn=MANKEY
  800. if !wldpkmnk! equ 6 set wildpkmn=MEOWTH
  801. if !wldpkmnk! equ 7 set wildpkmn=ABRA
  802. if !wldpkmnk! equ 8 set wildpkmn=BELLSPROUT
  803. :Wild-pkmn-stats-route-5
  804. set wldpkmnlvlcalc=!random:~-1!
  805. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-route-5
  806. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=7
  807. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=10
  808. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=11
  809. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=12
  810. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=13
  811. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=14
  812. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=15
  813. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=16
  814. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=17
  815. goto Wild-pkmn-appeared
  816. :Wild-pkmnlvl-calc-route-6
  817. set wldpkmnk=!random:~-1!
  818. if !wldpkmnk! GTR 8 goto Wild-pkmnlvl-calc-route-6
  819. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  820. if !wldpkmnk! equ 1 set wildpkmn=JIGGLYPUFF
  821. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  822. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  823. if !wldpkmnk! equ 4 set wildpkmn=ODDISH
  824. if !wldpkmnk! equ 5 set wildpkmn=MEOWTH
  825. if !wldpkmnk! equ 6 set wildpkmn=MANKEY
  826. if !wldpkmnk! equ 7 set wildpkmn=ABRA
  827. if !wldpkmnk! equ 8 set wildpkmn=BELLSPROUT
  828. :Wild-pkmn-stats-route-6
  829. set wldpkmnlvlcalc=!random:~-1!
  830. if !wldpkmnlvlcalc! GTR 4 goto Wild-pkmn-stats-route-6
  831. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=13
  832. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=14
  833. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=15
  834. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=16
  835. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=17
  836. goto Wild-pkmn-appeared
  837. :Wild-pkmnlvl-calc-route-7
  838. set wldpkmnk=!random:~-1!
  839. if !wldpkmnk! GTR 9 goto Wild-pkmnlvl-calc-route-7
  840. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  841. if !wldpkmnk! equ 1 set wildpkmn=VULPIX
  842. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  843. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  844. if !wldpkmnk! equ 4 set wildpkmn=JIGGLYPUFF
  845. if !wldpkmnk! equ 5 set wildpkmn=MANKEY
  846. if !wldpkmnk! equ 6 set wildpkmn=MEOWTH
  847. if !wldpkmnk! equ 7 set wildpkmn=GROWLITHE
  848. if !wldpkmnk! equ 8 set wildpkmn=ABRA
  849. if !wldpkmnk! equ 9 set wildpkmn=BELLSPROUT
  850. :Wild-pkmn-stats-route-7
  851. set wldpkmnlvlcalc=!random:~-1!
  852. if !wldpkmnlvlcalc! GTR 7 goto Wild-pkmn-stats-route-7
  853. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=17
  854. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=18
  855. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=19
  856. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=20
  857. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=21
  858. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=22
  859. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=24
  860. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=26
  861. goto Wild-pkmn-appeared
  862. :Wild-pkmnlvl-calc-route-8
  863. set wldpkmnk=!random:~-1!
  864. if !wldpkmnk! GTR 9 goto Wild-pkmnlvl-calc-route-8
  865. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  866. if !wldpkmnk! equ 1 set wildpkmn=EKANS
  867. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  868. if !wldpkmnk! equ 3 set wildpkmn=VULPIX
  869. if !wldpkmnk! equ 4 set wildpkmn=SANDSHREW
  870. if !wldpkmnk! equ 5 set wildpkmn=MANKEY
  871. if !wldpkmnk! equ 6 set wildpkmn=MEOWTH
  872. if !wldpkmnk! equ 7 set wildpkmn=GROWLITHE
  873. if !wldpkmnk! equ 8 set wildpkmn=ABRA
  874. if !wldpkmnk! equ 9 set wildpkmn=KADABRA
  875. :Wild-pkmn-stats-route-8
  876. set wldpkmnlvlcalc=!random:~-1!
  877. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-route-8
  878. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=11
  879. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=13
  880. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=14
  881. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=15
  882. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=16
  883. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=17
  884. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=18
  885. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=19
  886. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=20
  887. goto Wild-pkmn-appeared
  888. :Wild-pkmnlvl-calc-route-9
  889. set wldpkmnk=!random:~-1!
  890. if !wldpkmnk! GTR 9 goto Wild-pkmnlvl-calc-route-9
  891. if !wldpkmnk! equ 0 set wildpkmn=RATICATE
  892. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  893. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  894. if !wldpkmnk! equ 3 set wildpkmn=FEAROW
  895. if !wldpkmnk! equ 4 set wildpkmn=SANDSHREW
  896. if !wldpkmnk! equ 5 set wildpkmn=EKANS
  897. if !wldpkmnk! equ 6 set wildpkmn=NIDORAN-MALE
  898. if !wldpkmnk! equ 7 set wildpkmn=NIDORAN-FEMALE
  899. if !wldpkmnk! equ 8 set wildpkmn=NIDORINO
  900. if !wldpkmnk! equ 9 set wildpkmn=NIDORINA
  901. :Wild-pkmn-stats-route-9
  902. set wldpkmnlvlcalc=!random:~-1!
  903. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-route-9
  904. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=11
  905. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=13
  906. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=14
  907. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=15
  908. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=16
  909. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=17
  910. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=18
  911. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=19
  912. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=20
  913. goto Wild-pkmn-appeared
  914. :Wild-pkmnlvl-calc-route-10
  915. set wldpkmnk=!random:~-1!
  916. if !wldpkmnk! GTR 9 goto Wild-pkmnlvl-calc-route-10
  917. if !wldpkmnk! equ 0 set wildpkmn=RATICATE
  918. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  919. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  920. if !wldpkmnk! equ 3 set wildpkmn=EKANS
  921. if !wldpkmnk! equ 4 set wildpkmn=SANDSHREW
  922. if !wldpkmnk! equ 5 set wildpkmn=NIDORAN-MALE
  923. if !wldpkmnk! equ 6 set wildpkmn=NIDORAN-FEMALE
  924. if !wldpkmnk! equ 7 set wildpkmn=MACHOP
  925. if !wldpkmnk! equ 8 set wildpkmn=MAGNEMITE
  926. if !wldpkmnk! equ 9 set wildpkmn=VOLTORB
  927. :Wild-pkmn-stats-route-10
  928. set wldpkmnlvlcalc=!random:~-1!
  929. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-route-10
  930. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=11
  931. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=12
  932. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=13
  933. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=14
  934. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=15
  935. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=16
  936. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=17
  937. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=18
  938. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=19
  939. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=20
  940. goto Wild-pkmn-appeared
  941. :Wild-pkmnlvl-calc-route-11
  942. set wldpkmnk=!random:~-1!
  943. if !wldpkmnk! GTR 7 goto Wild-pkmnlvl-calc-route-11
  944. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  945. if !wldpkmnk! equ 1 set wildpkmn=RATICATE
  946. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  947. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  948. if !wldpkmnk! equ 4 set wildpkmn=SPARROW
  949. if !wldpkmnk! equ 5 set wildpkmn=EKANS
  950. if !wldpkmnk! equ 6 set wildpkmn=SANDSHREW
  951. if !wldpkmnk! equ 7 set wildpkmn=DROWZEE
  952. :Wild-pkmn-stats-route-11
  953. set wldpkmnlvlcalc=!random:~-1!
  954. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-route-11
  955. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=11
  956. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=12
  957. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=13
  958. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=14
  959. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=15
  960. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=16
  961. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=17
  962. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=18
  963. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=19
  964. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=20
  965. goto Wild-pkmn-appeared
  966. :Wild-pkmnlvl-calc-route-12
  967. set wldpkmnk=!random:~-1!
  968. if !wldpkmnk! GTR 8 goto Wild-pkmnlvl-calc-route-12
  969. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  970. if !wldpkmnk! equ 1 set wildpkmn=ODDISH
  971. if !wldpkmnk! equ 2 set wildpkmn=GLOOM
  972. if !wldpkmnk! equ 3 set wildpkmn=VENONAT
  973. if !wldpkmnk! equ 4 set wildpkmn=BELLSPROUT
  974. if !wldpkmnk! equ 5 set wildpkmn=WEEPINBELL
  975. if !wldpkmnk! equ 6 set wildpkmn=FARFETCHD
  976. if !wldpkmnk! equ 7 set wildpkmn=RATTATA
  977. if !wldpkmnk! equ 8 set wildpkmn=PIDGEY
  978. :Wild-pkmn-stats-route-12
  979. set wldpkmnlvlcalc=!random:~-1!
  980. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-route-12
  981. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=22
  982. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=23
  983. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=24
  984. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=25
  985. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=26
  986. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=27
  987. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=28
  988. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=29
  989. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=30
  990. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=31
  991. goto Wild-pkmn-appeared
  992. :Wild-pkmnlvl-calc-route-13
  993. set wldpkmnk=!random:~-1!
  994. if !wldpkmnk! GTR 8 goto Wild-pkmnlvl-calc-route-13
  995. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  996. if !wldpkmnk! equ 1 set wildpkmn=ODDISH
  997. if !wldpkmnk! equ 2 set wildpkmn=GLOOM
  998. if !wldpkmnk! equ 3 set wildpkmn=VENONAT
  999. if !wldpkmnk! equ 4 set wildpkmn=WEEPINBELL
  1000. if !wldpkmnk! equ 5 set wildpkmn=RATTATA
  1001. if !wldpkmnk! equ 6 set wildpkmn=PIDGEY
  1002. if !wldpkmnk! equ 7 set wildpkmn=DITTO
  1003. if !wldpkmnk! equ 8 set wildpkmn=BELLSPROUT
  1004. :Wild-pkmn-stats-route-13
  1005. set wldpkmnlvlcalc=!random:~-1!
  1006. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-route-13
  1007. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=22
  1008. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=23
  1009. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=24
  1010. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=25
  1011. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=26
  1012. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=27
  1013. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=28
  1014. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=29
  1015. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=30
  1016. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=31
  1017. goto Wild-pkmn-appeared
  1018. :Wild-pkmnlvl-calc-route-14
  1019. set wldpkmnk=!random:~-1!
  1020. if !wldpkmnk! GTR 9 goto Wild-pkmnlvl-calc-route-14
  1021. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  1022. if !wldpkmnk! equ 1 set wildpkmn=ODDISH
  1023. if !wldpkmnk! equ 2 set wildpkmn=GLOOM
  1024. if !wldpkmnk! equ 3 set wildpkmn=VENONAT
  1025. if !wldpkmnk! equ 4 set wildpkmn=WEEPINBELL
  1026. if !wldpkmnk! equ 5 set wildpkmn=RATTATA
  1027. if !wldpkmnk! equ 6 set wildpkmn=PIDGEY
  1028. if !wldpkmnk! equ 7 set wildpkmn=DITTO
  1029. if !wldpkmnk! equ 8 set wildpkmn=BELLSPROUT
  1030. if !wldpkmnk! equ 9 set wildpkmn=VENOMOTH
  1031. :Wild-pkmn-stats-route-14
  1032. set wldpkmnlvlcalc=!random:~-1!
  1033. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-route-14
  1034. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=22
  1035. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=23
  1036. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=24
  1037. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=25
  1038. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=26
  1039. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=27
  1040. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=28
  1041. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=29
  1042. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=30
  1043. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=31
  1044. goto Wild-pkmn-appeared
  1045. :Wild-pkmnlvl-calc-route-15
  1046. set wldpkmnk=!random:~-1!
  1047. if !wldpkmnk! GTR 8 goto Wild-pkmnlvl-calc-route-15
  1048. if !wldpkmnk! equ 0 set wildpkmn=PIDGEOTTO
  1049. if !wldpkmnk! equ 1 set wildpkmn=ODDISH
  1050. if !wldpkmnk! equ 2 set wildpkmn=GLOOM
  1051. if !wldpkmnk! equ 3 set wildpkmn=VENONAT
  1052. if !wldpkmnk! equ 4 set wildpkmn=WEEPINBELL
  1053. if !wldpkmnk! equ 5 set wildpkmn=RATTATA
  1054. if !wldpkmnk! equ 6 set wildpkmn=PIDGEY
  1055. if !wldpkmnk! equ 7 set wildpkmn=DITTO
  1056. if !wldpkmnk! equ 8 set wildpkmn=BELLSPROUT
  1057. :Wild-pkmn-stats-route-15
  1058. set wldpkmnlvlcalc=!random:~-1!
  1059. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-route-15
  1060. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=22
  1061. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=23
  1062. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=24
  1063. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=25
  1064. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=26
  1065. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=27
  1066. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=28
  1067. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=29
  1068. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=30
  1069. goto Wild-pkmn-appeared
  1070. :Wild-pkmnlvl-calc-route-16
  1071. set wldpkmnk=!random:~-1!
  1072. if !wldpkmnk! GTR 4 goto Wild-pkmnlvl-calc-route-16
  1073. if !wldpkmnk! equ 0 set wildpkmn=RATTATA
  1074. if !wldpkmnk! equ 1 set wildpkmn=RATICATE
  1075. if !wldpkmnk! equ 2 set wildpkmn=SPARROW
  1076. if !wldpkmnk! equ 3 set wildpkmn=FEAROW
  1077. if !wldpkmnk! equ 4 set wildpkmn=DODUO
  1078. :Wild-pkmn-stats-route-16
  1079. set wldpkmnlvlcalc=!random:~-1!
  1080. if !wldpkmnlvlcalc! GTR 6 goto Wild-pkmn-stats-route-16
  1081. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=18
  1082. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=20
  1083. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=22
  1084. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=23
  1085. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=24
  1086. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=25
  1087. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=26
  1088. goto Wild-pkmn-appeared
  1089. :Wild-pkmnlvl-calc-route-17
  1090. set wldpkmnk=!random:~-1!
  1091. if !wldpkmnk! GTR 5 goto Wild-pkmnlvl-calc-route-17
  1092. if !wldpkmnk! equ 0 set wildpkmn=RATICATE
  1093. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  1094. if !wldpkmnk! equ 2 set wildpkmn=FEAROW
  1095. if !wldpkmnk! equ 3 set wildpkmn=PONYTA
  1096. if !wldpkmnk! equ 4 set wildpkmn=DODUO
  1097. if !wldpkmnk! equ 5 set wildpkmn=DODRIO
  1098. :Wild-pkmn-stats-route-17
  1099. set wldpkmnlvlcalc=!random:~-1!
  1100. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-route-17
  1101. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=20
  1102. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=22
  1103. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=24
  1104. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=25
  1105. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=26
  1106. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=27
  1107. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=28
  1108. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=29
  1109. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=30
  1110. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=32
  1111. goto Wild-pkmn-appeared
  1112. :Wild-pkmnlvl-calc-route-18
  1113. set wldpkmnk=!random:~-1!
  1114. if !wldpkmnk! GTR 7 goto Wild-pkmnlvl-calc-route-18
  1115. if !wldpkmnk! equ 0 set wildpkmn=RATTATA
  1116. if !wldpkmnk! equ 1 set wildpkmn=RATICATE
  1117. if !wldpkmnk! equ 2 set wildpkmn=SPARROW
  1118. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  1119. if !wldpkmnk! equ 4 set wildpkmn=FEAROW
  1120. if !wldpkmnk! equ 5 set wildpkmn=PONYTA
  1121. if !wldpkmnk! equ 6 set wildpkmn=DODUO
  1122. if !wldpkmnk! equ 7 set wildpkmn=DODRIO
  1123. :Wild-pkmn-stats-route-18
  1124. set wldpkmnlvlcalc=!random:~-1!
  1125. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-route-18
  1126. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=20
  1127. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=22
  1128. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=23
  1129. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=24
  1130. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=25
  1131. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=26
  1132. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=27
  1133. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=28
  1134. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=29
  1135. goto Wild-pkmn-appeared
  1136. :Wild-pkmnlvl-calc-route-19
  1137. set wldpkmnk=!random:~-1!
  1138. if !wldpkmnk! GTR 1 goto Wild-pkmnlvl-calc-route-19
  1139. if !wldpkmnk! equ 0 set wildpkmn=TENTACOOL
  1140. if !wldpkmnk! equ 1 set wildpkmn=TENTACRUEL
  1141. :Wild-pkmn-stats-route-19
  1142. set wldpkmnlvlcalc=!random:~-1!
  1143. if !wldpkmnlvlcalc! GTR 7 goto Wild-pkmn-stats-route-19
  1144. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=5
  1145. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=10
  1146. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=15
  1147. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=20
  1148. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=25
  1149. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=30
  1150. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=35
  1151. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=40
  1152. goto Wild-pkmn-appeared
  1153. :Wild-pkmnlvl-calc-route-20
  1154. set wldpkmnk=!random:~-1!
  1155. if !wldpkmnk! GTR 1 goto Wild-pkmnlvl-calc-route-20
  1156. if !wldpkmnk! equ 0 set wildpkmn=TENTACOOL
  1157. if !wldpkmnk! equ 1 set wildpkmn=TENTACRUEL
  1158. :Wild-pkmn-stats-route-20
  1159. set wldpkmnlvlcalc=!random:~-1!
  1160. if !wldpkmnlvlcalc! GTR 7 goto Wild-pkmn-stats-route-20
  1161. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=5
  1162. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=10
  1163. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=15
  1164. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=20
  1165. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=25
  1166. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=30
  1167. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=35
  1168. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=40
  1169. goto Wild-pkmn-appeared
  1170. :Wild-pkmnlvl-calc-route-21
  1171. set wldpkmnk=!random:~-1!
  1172. if !wldpkmnk! GTR 4 goto Wild-pkmnlvl-calc-route-21
  1173. if !wldpkmnk! equ 0 set wildpkmn=PIDGEY
  1174. if !wldpkmnk! equ 1 set wildpkmn=PIDGEOTTO
  1175. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  1176. if !wldpkmnk! equ 3 set wildpkmn=RATICATE
  1177. if !wldpkmnk! equ 4 set wildpkmn=TANGELA
  1178. :Wild-pkmn-stats-route-21
  1179. set wldpkmnlvlcalc=!random:~-1!
  1180. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-route-21
  1181. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=11
  1182. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=13
  1183. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=15
  1184. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=17
  1185. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=19
  1186. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=21
  1187. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=23
  1188. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=28
  1189. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=30
  1190. goto Wild-pkmn-appeared
  1191. :Wild-pkmnlvl-calc-route-22
  1192. set wldpkmnk=!random:~-1!
  1193. if !wldpkmnk! GTR 5 goto Wild-pkmnlvl-calc-route-22
  1194. if !wldpkmnk! equ 0 set wildpkmn=NIDORAN-MALE
  1195. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  1196. if !wldpkmnk! equ 2 set wildpkmn=RATTATA
  1197. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  1198. if !wldpkmnk! equ 4 set wildpkmn=NIDORAN-FEMALE
  1199. if !wldpkmnk! equ 5 set wildpkmn=MANKEY
  1200. :Wild-pkmn-stats-route-22
  1201. set wldpkmnlvlcalc=!random:~-1!
  1202. if !wldpkmnlvlcalc! GTR 4 goto Wild-pkmn-stats-route-22
  1203. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=2
  1204. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=3
  1205. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=4
  1206. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=5
  1207. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=6
  1208. goto Wild-pkmn-appeared
  1209. :Wild-pkmnlvl-calc-route-23
  1210. set wldpkmnk=!random:~-1!
  1211. if !wldpkmnk! GTR 7 goto Wild-pkmnlvl-calc-route-23
  1212. if !wldpkmnk! equ 0 set wildpkmn=SANDSLASH
  1213. if !wldpkmnk! equ 1 set wildpkmn=SPARROW
  1214. if !wldpkmnk! equ 2 set wildpkmn=NIDORINA
  1215. if !wldpkmnk! equ 3 set wildpkmn=NIDORINO
  1216. if !wldpkmnk! equ 4 set wildpkmn=SANDSHREW
  1217. if !wldpkmnk! equ 5 set wildpkmn=MANKEY
  1218. if !wldpkmnk! equ 6 set wildpkmn=PRIMEAPE
  1219. if !wldpkmnk! equ 7 set wildpkmn=DITTO
  1220. :Wild-pkmn-stats-route-23
  1221. set wldpkmnlvlcalc=!random:~-1!
  1222. if !wldpkmnlvlcalc! GTR 7 goto Wild-pkmn-stats-route-23
  1223. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=26
  1224. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=33
  1225. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=38
  1226. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=40
  1227. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=41
  1228. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=43
  1229. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=44
  1230. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=45
  1231. goto Wild-pkmn-appeared
  1232. :Wild-pkmnlvl-calc-route-24
  1233. set wldpkmnk=!random:~-1!
  1234. if !wldpkmnk! GTR 9 goto Wild-pkmnlvl-calc-route-24
  1235. if !wldpkmnk! equ 0 set wildpkmn=CATERPIE
  1236. if !wldpkmnk! equ 1 set wildpkmn=METAPOD
  1237. if !wldpkmnk! equ 2 set wildpkmn=WEEDLE
  1238. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  1239. if !wldpkmnk! equ 4 set wildpkmn=KAKUNA
  1240. if !wldpkmnk! equ 5 set wildpkmn=PIDGEOTTO
  1241. if !wldpkmnk! equ 6 set wildpkmn=ODDISH
  1242. if !wldpkmnk! equ 7 set wildpkmn=VENONAT
  1243. if !wldpkmnk! equ 8 set wildpkmn=ABRA
  1244. if !wldpkmnk! equ 9 set wildpkmn=BELLSPROUT
  1245. :Wild-pkmn-stats-route-24
  1246. set wldpkmnlvlcalc=!random:~-1!
  1247. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-route-24
  1248. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=7
  1249. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=8
  1250. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=10
  1251. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=11
  1252. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=12
  1253. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=13
  1254. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=14
  1255. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=15
  1256. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=16
  1257. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=17
  1258. goto Wild-pkmn-appeared
  1259. :Wild-pkmnlvl-calc-route-25
  1260. set wldpkmnk=!random:~-1!
  1261. if !wldpkmnk! GTR 9 goto Wild-pkmnlvl-calc-route-25
  1262. if !wldpkmnk! equ 0 set wildpkmn=CATERPIE
  1263. if !wldpkmnk! equ 1 set wildpkmn=METAPOD
  1264. if !wldpkmnk! equ 2 set wildpkmn=WEEDLE
  1265. if !wldpkmnk! equ 3 set wildpkmn=PIDGEY
  1266. if !wldpkmnk! equ 4 set wildpkmn=KAKUNA
  1267. if !wldpkmnk! equ 5 set wildpkmn=PIDGEOTTO
  1268. if !wldpkmnk! equ 6 set wildpkmn=ODDISH
  1269. if !wldpkmnk! equ 7 set wildpkmn=VENONAT
  1270. if !wldpkmnk! equ 8 set wildpkmn=ABRA
  1271. if !wldpkmnk! equ 9 set wildpkmn=BELLSPROUT
  1272. :Wild-pkmn-stats-route-25
  1273. set wldpkmnlvlcalc=!random:~-1!
  1274. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-route-25
  1275. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=7
  1276. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=8
  1277. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=9
  1278. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=12
  1279. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=13
  1280. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=14
  1281. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=15
  1282. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=16
  1283. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=17
  1284. goto Wild-pkmn-appeared
  1285. :Wild-pkmnlvl-calc-viridian-forest
  1286. set wldpkmnk=!random:~-1!
  1287. if !wldpkmnk! GTR 5 goto Wild-pkmnlvl-calc-viridian-forest
  1288. if !wldpkmnk! equ 0 set wildpkmn=CATERPIE
  1289. if !wldpkmnk! equ 1 set wildpkmn=METAPOD
  1290. if !wldpkmnk! equ 2 set wildpkmn=WEEDLE
  1291. if !wldpkmnk! equ 3 set wildpkmn=KAKUNA
  1292. if !wldpkmnk! equ 4 set wildpkmn=PIDGEY
  1293. if !wldpkmnk! equ 5 set wildpkmn=PIKACHU
  1294. :Wild-pkmn-stats-viridian-forest
  1295. set wldpkmnlvlcalc=!random:~-1!
  1296. if !wldpkmnlvlcalc! GTR 3 goto Wild-pkmn-stats-viridian-forest
  1297. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=3
  1298. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=4
  1299. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=5
  1300. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=6
  1301. goto Wild-pkmn-appeared
  1302. :Wild-pkmnlvl-calc-digletts-cave
  1303. set wldpkmnk=!random:~-1!
  1304. if !wldpkmnk! GTR 4 goto Wild-pkmnlvl-calc-digletts-cave
  1305. if !wldpkmnk! equ 0 set wildpkmn=DIGLETT
  1306. if !wldpkmnk! equ 1 set wildpkmn=DIGLETT
  1307. if !wldpkmnk! equ 2 set wildpkmn=DIGLETT
  1308. if !wldpkmnk! equ 3 set wildpkmn=DIGLETT
  1309. if !wldpkmnk! equ 4 set wildpkmn=DUGTRIO
  1310. :Wild-pkmn-stats-digletts-cave
  1311. set wldpkmnlvlcalc=!random:~-1!
  1312. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-digletts-cave
  1313. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=15
  1314. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=16
  1315. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=17
  1316. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=18
  1317. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=19
  1318. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=20
  1319. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=21
  1320. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=22
  1321. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=29
  1322. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=31
  1323. goto Wild-pkmn-appeared
  1324. :Wild-pkmnlvl-calc-mt-moon
  1325. set wldpkmnk=!random:~-1!
  1326. if !wldpkmnk! GTR 4 goto Wild-pkmnlvl-calc-mt-moon
  1327. if !wldpkmnk! equ 0 set wildpkmn=SANDSHREW
  1328. if !wldpkmnk! equ 1 set wildpkmn=CLEFAIRY
  1329. if !wldpkmnk! equ 2 set wildpkmn=ZUBAT
  1330. if !wldpkmnk! equ 3 set wildpkmn=PARAS
  1331. if !wldpkmnk! equ 4 set wildpkmn=GEODUDE
  1332. :Wild-pkmn-stats-mt-moon
  1333. set wldpkmnlvlcalc=!random:~-1!
  1334. if !wldpkmnlvlcalc! GTR 7 goto Wild-pkmn-stats-mt-moon
  1335. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=6
  1336. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=7
  1337. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=8
  1338. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=9
  1339. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=10
  1340. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=11
  1341. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=12
  1342. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=13
  1343. goto Wild-pkmn-appeared
  1344. :Wild-pkmnlvl-calc-rock-tunnel-floor-1
  1345. :Wild-pkmnlvl-calc-rock-tunnel-floor-1-1
  1346. :Wild-pkmnlvl-calc-rock-tunnel-floor-1-2
  1347. :Wild-pkmnlvl-calc-rock-tunnel-floor-2
  1348. :Wild-pkmnlvl-calc-rock-tunnel-floor-2-1
  1349. set wldpkmnk=!random:~-1!
  1350. if !wldpkmnk! GTR 3 goto Wild-pkmnlvl-calc-rock-tunnel-floor-2-1
  1351. if !wldpkmnk! equ 0 set wildpkmn=ZUBAT
  1352. if !wldpkmnk! equ 1 set wildpkmn=GEODUDE
  1353. if !wldpkmnk! equ 2 set wildpkmn=MACHOP
  1354. if !wldpkmnk! equ 3 set wildpkmn=ONIX
  1355. :Wild-pkmn-stats-rock-tunnel
  1356. set wldpkmnlvlcalc=!random:~-1!
  1357. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-rock-tunnel
  1358. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=13
  1359. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=15
  1360. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=16
  1361. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=17
  1362. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=18
  1363. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=19
  1364. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=20
  1365. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=21
  1366. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=22
  1367. goto Wild-pkmn-appeared
  1368. :Wild-pkmnlvl-calc-power-plant
  1369. set wldpkmnk=!random:~-1!
  1370. if !wldpkmnk! GTR 8 goto Wild-pkmnlvl-calc-power-plant
  1371. if !wldpkmnk! equ 0 set wildpkmn=PIKACHU
  1372. if !wldpkmnk! equ 1 set wildpkmn=RAICHU
  1373. if !wldpkmnk! equ 2 set wildpkmn=MAGNEMITE
  1374. if !wldpkmnk! equ 3 set wildpkmn=MAGNETON
  1375. if !wldpkmnk! equ 4 set wildpkmn=GRIMER
  1376. if !wldpkmnk! equ 5 set wildpkmn=MUK
  1377. if !wldpkmnk! equ 6 set wildpkmn=VOLTORB
  1378. if !wldpkmnk! equ 7 set wildpkmn=ELACTABUZZ
  1379. if !wldpkmnk! equ 8 set wildpkmn=ELECTRODE
  1380. :Wild-pkmn-stats-power-plant
  1381. set wldpkmnlvlcalc=!random:~-1!
  1382. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-power-plant
  1383. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=21
  1384. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=23
  1385. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=24
  1386. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=30
  1387. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=32
  1388. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=33
  1389. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=35
  1390. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=37
  1391. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=40
  1392. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=43
  1393. goto Wild-pkmn-appeared
  1394. :Wild-pkmnlvl-calc-pkmn-tower
  1395. if not !Silphscope! equ 1 set wildpkmn=GHOST
  1396. set wldpkmnk=!random:~-1!
  1397. if !wldpkmnk! GTR 2 goto Wild-pkmnlvl-calc-pkmn-tower
  1398. if !wldpkmnk! equ 0 set wildpkmn=GASTLY
  1399. if !wldpkmnk! equ 1 set wildpkmn=HAUNTER
  1400. if !wldpkmnk! equ 2 set wildpkmn=CUBONE
  1401. :Wild-pkmn-stats-pkmn-tower
  1402. set wldpkmnlvlcalc=!random:~-1!
  1403. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-pkmn-tower
  1404. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=18
  1405. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=21
  1406. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=22
  1407. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=23
  1408. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=25
  1409. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=26
  1410. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=27
  1411. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=28
  1412. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=29
  1413. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=30
  1414. goto Wild-pkmn-appeared
  1415. :Wild-pkmnlvl-calc-seafoam-island
  1416. set wldpkmnk=!random:~-2!
  1417. if !wldpkmnk! GTR 13 goto Wild-pkmnlvl-calc-seafoam-island
  1418. if !wldpkmnk! equ 0 set wildpkmn=ZUBAT
  1419. if !wldpkmnk! equ 1 set wildpkmn=GOLBAT
  1420. if !wldpkmnk! equ 2 set wildpkmn=PSYDUCK
  1421. if !wldpkmnk! equ 3 set wildpkmn=GOLDUCK
  1422. if !wldpkmnk! equ 4 set wildpkmn=SLOPOKE
  1423. if !wldpkmnk! equ 5 set wildpkmn=SLOWBRO
  1424. if !wldpkmnk! equ 6 set wildpkmn=SEEL
  1425. if !wldpkmnk! equ 7 set wildpkmn=DEWGONG
  1426. if !wldpkmnk! equ 8 set wildpkmn=SHELLDER
  1427. if !wldpkmnk! equ 9 set wildpkmn=KRABBY
  1428. if !wldpkmnk! equ 10 set wildpkmn=KINGLER
  1429. if !wldpkmnk! equ 11 set wildpkmn=HORSEA
  1430. if !wldpkmnk! equ 12 set wildpkmn=SEADRA
  1431. if !wldpkmnk! equ 13 set wildpkmn=STARYU
  1432. :Wild-pkmn-stats-seafoam-island
  1433. set wldpkmnlvlcalc=!random:~-1!
  1434. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-seafoam-island
  1435. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=27
  1436. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=28
  1437. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=29
  1438. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=30
  1439. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=31
  1440. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=32
  1441. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=33
  1442. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=34
  1443. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=35
  1444. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=36
  1445. goto Wild-pkmn-appeared
  1446. :Wild-pkmnlvl-calc-cerulean-cave
  1447. set wldpkmnk=!random:~-2!
  1448. if !wldpkmnk! GTR 20 goto Wild-pkmnlvl-calc-cerulean-cave
  1449. if !wldpkmnk! equ 0 set wildpkmn=ARBOK
  1450. if !wldpkmnk! equ 1 set wildpkmn=RAICHU
  1451. if !wldpkmnk! equ 2 set wildpkmn=SANDSLASH
  1452. if !wldpkmnk! equ 3 set wildpkmn=GOLBAT
  1453. if !wldpkmnk! equ 4 set wildpkmn=GLOOM
  1454. if !wldpkmnk! equ 5 set wildpkmn=PARASECT
  1455. if !wldpkmnk! equ 6 set wildpkmn=VENOMOTH
  1456. if !wldpkmnk! equ 7 set wildpkmn=KADABRA
  1457. if !wldpkmnk! equ 8 set wildpkmn=WEEPINBELL
  1458. if !wldpkmnk! equ 9 set wildpkmn=HYPNO
  1459. if !wldpkmnk! equ 10 set wildpkmn=GRAVELER
  1460. if !wldpkmnk! equ 11 set wildpkmn=MAGNETON
  1461. if !wldpkmnk! equ 12 set wildpkmn=DODRIO
  1462. if !wldpkmnk! equ 13 set wildpkmn=DITTO
  1463. if !wldpkmnk! equ 14 set wildpkmn=WIGGLYTUFF
  1464. if !wldpkmnk! equ 15 set wildpkmn=ELECTRODE
  1465. if !wldpkmnk! equ 16 set wildpkmn=MAROWAK
  1466. if !wldpkmnk! equ 17 set wildpkmn=RYHORN
  1467. if !wldpkmnk! equ 18 set wildpkmn=RYDON
  1468. if !wldpkmnk! equ 19 set wildpkmn=CHANSEY
  1469. if !wldpkmnk! equ 20 set wildpkmn=LICKYTUNG
  1470. :Wild-pkmn-stats-cerulean-cave
  1471. set wldpkmnlvlcalc=!random:~-1!
  1472. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-cerulean-cave
  1473. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=45
  1474. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=49
  1475. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=51
  1476. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=55
  1477. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=57
  1478. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=59
  1479. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=61
  1480. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=63
  1481. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=65
  1482. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=67
  1483. goto Wild-pkmn-appeared
  1484. :Wild-pkmnlvl-calc-victory-road
  1485. set wldpkmnk=!random:~-1!
  1486. if !wldpkmnk! GTR 8 goto Wild-pkmnlvl-calc-victory-road
  1487. if !wldpkmnk! equ 0 set wildpkmn=ZUBAT
  1488. if !wldpkmnk! equ 1 set wildpkmn=GOLBAT
  1489. if !wldpkmnk! equ 2 set wildpkmn=MACHOP
  1490. if !wldpkmnk! equ 3 set wildpkmn=MACHOKE
  1491. if !wldpkmnk! equ 4 set wildpkmn=GEODUDE
  1492. if !wldpkmnk! equ 5 set wildpkmn=GRAVELER
  1493. if !wldpkmnk! equ 6 set wildpkmn=ONIX
  1494. if !wldpkmnk! equ 7 set wildpkmn=MAROWAK
  1495. if !wldpkmnk! equ 8 set wildpkmn=VENOMOTH
  1496. :Wild-pkmn-stats-victory-road
  1497. set wldpkmnlvlcalc=!random:~-1!
  1498. if !wldpkmnlvlcalc! GTR 9 goto Wild-pkmn-stats-victory-road
  1499. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=26
  1500. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=28
  1501. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=30
  1502. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=32
  1503. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=36
  1504. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=38
  1505. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=40
  1506. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=42
  1507. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=44
  1508. if !wldpkmnlvlcalc! equ 9 set wildpkmnlvl=47
  1509. goto Wild-pkmn-appeared
  1510. :Wild-pkmnlvl-calc-safari-zone
  1511. set wldpkmnk=!random:~-2!
  1512. if !wldpkmnk! GTR 19 goto Wild-pkmnlvl-calc-safari-zone
  1513. if !wldpkmnk! equ 0 set wildpkmn=NIDORAN-FEMALE
  1514. if !wldpkmnk! equ 1 set wildpkmn=NIDORAN-MALE
  1515. if !wldpkmnk! equ 2 set wildpkmn=NIDORINA
  1516. if !wldpkmnk! equ 3 set wildpkmn=NIDORINO
  1517. if !wldpkmnk! equ 4 set wildpkmn=PARAS
  1518. if !wldpkmnk! equ 5 set wildpkmn=PARASECT
  1519. if !wldpkmnk! equ 6 set wildpkmn=VENONAT
  1520. if !wldpkmnk! equ 7 set wildpkmn=EXEGGCUTE
  1521. if !wldpkmnk! equ 8 set wildpkmn=RHYHORN
  1522. if !wldpkmnk! equ 9 set wildpkmn=CHANSEY
  1523. if !wldpkmnk! equ 10 set wildpkmn=TANGELA
  1524. if !wldpkmnk! equ 11 set wildpkmn=SCYTHER
  1525. if !wldpkmnk! equ 12 set wildpkmn=PINSER
  1526. if !wldpkmnk! equ 13 set wildpkmn=DRATINI
  1527. if !wldpkmnk! equ 14 set wildpkmn=DRAGONAIR
  1528. if !wldpkmnk! equ 15 set wildpkmn=DODUO
  1529. if !wldpkmnk! equ 16 set wildpkmn=CUBONE
  1530. if !wldpkmnk! equ 17 set wildpkmn=MAROWAK
  1531. if !wldpkmnk! equ 18 set wildpkmn=TAUROS
  1532. if !wldpkmnk! equ 19 set wildpkmn=SLOWPOKE
  1533. :Wild-pkmn-stats-safari-zone
  1534. set wldpkmnlvlcalc=!random:~-1!
  1535. if !wldpkmnlvlcalc! GTR 8 goto Wild-pkmn-stats-safari-zone
  1536. if !wldpkmnlvlcalc! equ 0 set wildpkmnlvl=14
  1537. if !wldpkmnlvlcalc! equ 1 set wildpkmnlvl=17
  1538. if !wldpkmnlvlcalc! equ 2 set wildpkmnlvl=20
  1539. if !wldpkmnlvlcalc! equ 3 set wildpkmnlvl=22
  1540. if !wldpkmnlvlcalc! equ 4 set wildpkmnlvl=23
  1541. if !wldpkmnlvlcalc! equ 5 set wildpkmnlvl=24
  1542. if !wldpkmnlvlcalc! equ 6 set wildpkmnlvl=25
  1543. if !wldpkmnlvlcalc! equ 7 set wildpkmnlvl=30
  1544. if !wldpkmnlvlcalc! equ 8 set wildpkmnlvl=32
  1545. goto Wild-pkmn-appeared
  1546. :Wild-pkmn-appeared
  1547. set SoundURL=Wild-pkmn-Battle.mp3
  1548. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  1549. set pkmnbattle=1
  1550. set /a wildpkmnhp=!wildpkmnlvl!*4
  1551. cls
  1552. echo A wild !wildpkmn! has appeared
  1553. echo.
  1554. echo !wildpkmn!: !wildpkmn!!
  1555. echo.
  1556. echo !name!: Go !invpkmn1nick! I choose you!
  1557. echo.
  1558. echo !invpkmn1nick!: !invpkmn1!^!%p%
  1559. :Wild-pkmn-battle
  1560. cls
  1561. echo !ln!
  1562. echo !wildpkmn! LVL: !wildpkmnlvl! HP: !wildpkmnhp!
  1563. echo !ln!
  1564. echo.
  1565. echo.
  1566. echo.
  1567. echo.
  1568. echo !ln!
  1569. echo !invpkmn1nick! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  1570. echo !ln!
  1571. echo.
  1572. if !invpkmn1hp! LSS 1 echo !invpkmn1nick! fainted%p%&goto wild-pkmn-battle-switch
  1573. if !wildpkmn! equ GHOST echo The Pokedex says: RUN its a ghost!%p%&goto !location!
  1574. echo [1] Strong attack
  1575. echo [2] Accurate attack
  1576. echo [3] Use a potion, you have !potions! potion(s)
  1577. echo [4] [Run]
  1578. echo [5] Throw a pokeball, you have !pokeballs! pokeball(s)
  1579. echo [6] Switch pkmn
  1580. choice /c 123456 /n>nul
  1581. if !errorlevel! equ 1 (echo.
  1582. echo !ln!
  1583. echo !invpkmn1nick! uses Strong-attack
  1584. echo !ln!
  1585. set stronghit=!random:~-1!
  1586. if !stronghit! GTR 2 set /a wildpkmnhp-=5
  1587. if !stronghit! LSS 3 echo !invpkmn1! missed%p%
  1588. goto Wild-pkmn-attack-kind-calc)
  1589. if !errorlevel! equ 2 (echo.
  1590. echo !ln!
  1591. echo !invpkmn1nick! uses Accurate-attack
  1592. echo !ln!%p%
  1593. set /a wildpkmnhp-=3
  1594. goto Wild-pkmn-attack-kind-calc)
  1595. if !errorlevel! equ 3 goto Wild-pkmn-battle-potion
  1596. if !errorlevel! equ 4 (set rand=!random:~-1!
  1597. if !rand! GTR 2 cls&echo You run away as fast as you can%p%&set pkmnbattle=0&goto !sublocation!
  1598. if !rand! LSS 3 cls&echo The !wildpkmn! cut you off%p%&goto Wild-pkmn-attack-kind-calc)
  1599. if !errorlevel! equ 5 goto Pokeball-catch-chance
  1600. if !errorlevel! equ 6 goto Wild-pkmn-battle-switch
  1601. :Pokeball-catch-chance
  1602. if !pokeballs! equ 0 echo You dont have any pokeballs%p%&goto Wild-pkmn-battle
  1603. if !pkmnstorage! equ 20 echo storage is full, you cant catch any more pkmn%p%&goto Wild-pkmn-battle
  1604. :Caught-pkmn-sorting-system
  1605. set /a pokeballs-=1
  1606. set pokeballcatchratio=!random:~-1!
  1607. if !pokeballcatchratio! GTR 7 (echo You did it, !wildpkmn! was caught!%p%
  1608. if !pkmnstorage! equ 0 set pkmn1=!wildpkmn!&set pkmn1lvl=!wildpkmnlvl!
  1609. if !pkmnstorage! equ 1 set pkmn2=!wildpkmn!&set pkmn2lvl=!wildpkmnlvl!
  1610. if !pkmnstorage! equ 2 set pkmn3=!wildpkmn!&set pkmn3lvl=!wildpkmnlvl!
  1611. if !pkmnstorage! equ 3 set pkmn4=!wildpkmn!&set pkmn4lvl=!wildpkmnlvl!
  1612. if !pkmnstorage! equ 4 set pkmn5=!wildpkmn!&set pkmn5lvl=!wildpkmnlvl!
  1613. if !pkmnstorage! equ 5 set pkmn6=!wildpkmn!&set pkmn6lvl=!wildpkmnlvl!
  1614. if !pkmnstorage! equ 6 set pkmn7=!wildpkmn!&set pkmn7lvl=!wildpkmnlvl!
  1615. if !pkmnstorage! equ 7 set pkmn8=!wildpkmn!&set pkmn8lvl=!wildpkmnlvl!
  1616. if !pkmnstorage! equ 8 set pkmn9=!wildpkmn!&set pkmn9lvl=!wildpkmnlvl!
  1617. if !pkmnstorage! equ 9 set pkmn10=!wildpkmn!&set pkmn10lvl=!wildpkmnlvl!
  1618. if !pkmnstorage! equ 10 set pkmn11=!wildpkmn!&set pkmn11lvl=!wildpkmnlvl!
  1619. if !pkmnstorage! equ 11 set pkmn12=!wildpkmn!&set pkmn12lvl=!wildpkmnlvl!
  1620. if !pkmnstorage! equ 12 set pkmn13=!wildpkmn!&set pkmn13lvl=!wildpkmnlvl!
  1621. if !pkmnstorage! equ 13 set pkmn14=!wildpkmn!&set pkmn14lvl=!wildpkmnlvl!
  1622. if !pkmnstorage! equ 14 set pkmn15=!wildpkmn!&set pkmn15lvl=!wildpkmnlvl!
  1623. if !pkmnstorage! equ 15 set pkmn16=!wildpkmn!&set pkmn16lvl=!wildpkmnlvl!
  1624. if !pkmnstorage! equ 16 set pkmn17=!wildpkmn!&set pkmn17lvl=!wildpkmnlvl!
  1625. if !pkmnstorage! equ 17 set pkmn18=!wildpkmn!&set pkmn18lvl=!wildpkmnlvl!
  1626. if !pkmnstorage! equ 18 set pkmn19=!wildpkmn!&set pkmn19lvl=!wildpkmnlvl!
  1627. if !pkmnstorage! equ 19 set pkmn20=!wildpkmn!&set pkmn20lvl=!wildpkmnlvl!
  1628. set /a pkmnstorage+=1
  1629. set pkmnbattle=0
  1630. goto !sublocation!)
  1631. echo You missed the pokeball%p%&goto Wild-pkmn-attack-kind-calc
  1632. :Wild-pkmn-battle-potion
  1633. if !potions! LSS 1 cls&echo You dont have any potions left%p%
  1634. if !potions! GTR 0 set /a potions-=1&set /a invpkmn1hp+=20
  1635. goto Wild-pkmn-attack-kind-calc
  1636. :Wild-pkmn-battle-switch
  1637. set temppkmn=NAN
  1638. set temppkmnlvl=NAN
  1639. set temppkmnhp=NAN
  1640. cls
  1641. echo !ln!
  1642. echo Inventory
  1643. echo !ln!
  1644. echo 1:!invpkmn1nick! LVL:!invpkmn1lvl! HP:!invpkmn1hp!
  1645. echo 2:!invpkmn2nick! LVL:!invpkmn2lvl! HP:!invpkmn2hp!
  1646. echo 3:!invpkmn3nick! LVL:!invpkmn3lvl! HP:!invpkmn3hp!
  1647. echo 4:!invpkmn4nick! LVL:!invpkmn4lvl! HP:!invpkmn4hp!
  1648. echo 5:!invpkmn5nick! LVL:!invpkmn5lvl! HP:!invpkmn5hp!
  1649. echo 6:!invpkmn6nick! LVL:!invpkmn6lvl! HP:!invpkmn6hp!
  1650. echo !ln!
  1651. echo.
  1652. echo [1] Act like you faint
  1653. echo [2] Switch your 1st pkmn with your 2nd pkmn
  1654. echo [3] Switch your 1st pkmn with your 3rd pkmn
  1655. echo [4] Switch your 1st pkmn with your 4th pkmn
  1656. echo [5] Switch your 1st pkmn with your 5th pkmn
  1657. echo [6] Switch your 1st pkmn with your 6th pkmn
  1658. choice /c 123456 /n>nul
  1659. if !errorlevel! equ 1 goto Wild-pkmn-battle-lost
  1660. set temppkmn=!invpkmn1!&set temppkmnlvl=!invpkmn1lvl!&set temppkmnhp=!invpkmn1hp!&set pkmnbattle=1
  1661. if !errorlevel! equ 2 goto Wild-pkmn-battle-switch-2
  1662. if !errorlevel! equ 3 goto Wild-pkmn-battle-switch-3
  1663. if !errorlevel! equ 4 goto Wild-pkmn-battle-switch-4
  1664. if !errorlevel! equ 5 goto Wild-pkmn-battle-switch-5
  1665. if !errorlevel! equ 6 goto Wild-pkmn-battle-switch-6
  1666. :Wild-pkmn-battle-switch-2
  1667. set invpkmn1=!invpkmn2!&set invpkmn1lvl=!invpkmn2lvl!&set invpkmn1hp=!invpkmn2hp!
  1668. set invpkmn2=!temppkmn!&set invpkmn2lvl=!temppkmnlvl!&set invpkmn2hp=!temppkmnhp!
  1669. goto wild-pkmn-battle-switch-check
  1670. :Wild-pkmn-battle-switch-3
  1671. set invpkmn1=!invpkmn3!&set invpkmn1lvl=!invpkmn3lvl!&set invpkmn1hp=!invpkmn3hp!
  1672. set invpkmn3=!temppkmn!&set invpkmn3lvl=!temppkmnlvl!&set invpkmn3hp=!temppkmnhp!
  1673. goto wild-pkmn-battle-switch-check
  1674. :Wild-pkmn-battle-switch-4
  1675. set invpkmn1=!invpkmn4!&set invpkmn1lvl=!invpkmn4lvl!&set invpkmn1hp=!invpkmn4hp!
  1676. set invpkmn4=!temppkmn!&set invpkmn4lvl=!temppkmnlvl!&set invpkmn4hp=!temppkmnhp!
  1677. goto wild-pkmn-battle-switch-check
  1678. :Wild-pkmn-battle-switch-5
  1679. set invpkmn1=!invpkmn5!&set invpkmn1lvl=!invpkmn5lvl!&set invpkmn1hp=!invpkmn5hp!
  1680. set invpkmn5=!temppkmn!&set invpkmn5lvl=!temppkmnlvl!&set invpkmn5hp=!temppkmnhp!
  1681. goto wild-pkmn-battle-switch-check
  1682. :Wild-pkmn-battle-switch-6
  1683. set invpkmn1=!invpkmn6!&set invpkmn1lvl=!invpkmn6lvl!&set invpkmn1hp=!invpkmn6hp!
  1684. set invpkmn6=!temppkmn!&set invpkmn6lvl=!temppkmnlvl!&set invpkmn6hp=!temppkmnhp!
  1685. goto wild-pkmn-battle-switch-check
  1686. :Wild-pkmn-battle-switch-check
  1687. if !invpkmn1hp! GTR 0 goto Wild-pkmn-attack-kind-calc
  1688. goto Wild-pkmn-battle-switch
  1689. :Wild-pkmn-battle-win
  1690. set SoundURL=Victory.mp3
  1691. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  1692. set /a exptill=!exptill!-!exp!
  1693. if !exptill! LSS 1 (set /a invpkmn1lvl+=1
  1694. set /a exptill=!invpkmn1lvl!*5
  1695. echo.
  1696. echo Your !invpkmn1nick! has LVLd up%p%)
  1697. set pkmnbattle=0
  1698. goto !sublocation!
  1699. :Wild-pkmn-battle-lost
  1700. cls&echo You fainted when you realised you lost to a wild pkmn%p%
  1701. cls&echo Someone must have brought you to a pkmn center%p%
  1702. set /a invpkmn1hp=!invpkmn1lvl!*4
  1703. set pkmnbattle=0
  1704. goto pkmn-Center
  1705. :Wild-pkmn-attack-kind-calc
  1706. cls
  1707. if !wildpkmnhp! LSS 1 (set /a exp=!wildpkmnlvl!*5
  1708. echo.
  1709. echo !wildpkmn! fainted
  1710. echo.
  1711. echo !invpkmn1nick! gained some exp%p%&goto Wild-pkmn-battle-win)
  1712. set wildpkmnattackcalc=!random:~-1!
  1713. if !wildpkmnattackcalc! GTR 1 goto Wild-pkmn-attack-kind-calc
  1714. if !wildpkmnattackcalc! equ 0 (set wildpkmnattackkind=Strong-attack
  1715. set stronghit=!random:~-1!
  1716. if !stronghit! GTR 4 set /a invpkmn1hp-=4
  1717. goto Wild-pkmn-turn)
  1718. if !wildpkmnattackcalc! equ 1 (set wildpkmnattackkind=Accurate-attack
  1719. set /a invpkmn1hp-=2
  1720. goto Wild-pkmn-turn)
  1721. :Wild-pkmn-turn
  1722. cls
  1723. if !wildpkmnhp! LSS 1 goto Wild-pkmn-battle-win
  1724. echo !ln!
  1725. echo !wildpkmn! LVL: !wildpkmnlvl! HP: !wildpkmnhp!
  1726. echo !ln!
  1727. echo.
  1728. echo.
  1729. echo.
  1730. echo.
  1731. echo !ln!
  1732. echo !invpkmn1nick! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  1733. echo !ln!
  1734. echo.
  1735. echo.
  1736. echo !ln!
  1737. echo Wild !wildpkmn! uses !wildpkmnattackkind!
  1738. echo !ln!
  1739. if !stronghit! LSS 5 echo !wildpkmn! missed%p%
  1740. goto Wild-pkmn-battle
  1741. :Trainer-route-3
  1742. if !Trainer-route-3! equ 1 goto !sublocation!
  1743. set Trainer-route-3=1
  1744. set trainerpkmn=SANDSHREW
  1745. set trainerpkmnlvl=7
  1746. goto Trainer
  1747. :Trainer-mt-moon
  1748. if !Trainer-mt-moon! equ 1 goto !sublocation!
  1749. set Trainer-mt-moon=1
  1750. set trainerpkmn=GEODUDE
  1751. set trainerpkmnlvl=7
  1752. goto Trainer
  1753. :Trainer-route-24
  1754. if !Trainer-route-24! equ 1 goto !sublocation!
  1755. set Trainer-route-24=1
  1756. set trainerpkmn=ODDISH
  1757. set trainerpkmnlvl=8
  1758. goto Trainer
  1759. :Trainer-Rocket-Hideout-floor-4
  1760. if !Trainer-route-3! equ 1 goto !sublocation!
  1761. set Trainer-Rocket-Hideout-floor-4=1
  1762. set trainerpkmn=Zubat
  1763. set trainerpkmnlvl=16
  1764. goto Trainer
  1765. :Trainer-Rocket-Hideout-Giovanni
  1766. if !Trainer-route-3! equ 1 goto !sublocation!
  1767. set Trainer-Rocket-Hideout-Giovanni=1
  1768. set trainerpkmn=Ryhorn
  1769. set trainerpkmnlvl=28
  1770. goto Trainer
  1771. :Trainer
  1772. cls
  1773. set /a trainerpkmnhp=!trainerpkmnlvl!*4
  1774. set trainercalc=!random:~-1!
  1775. if !trainercalc! GTR 1 goto Trainer
  1776. if !trainercalc! equ 0 set trainermusic=Trainer1-appears
  1777. if !trainercalc! equ 1 set trainermusic=Trainer2-appears
  1778. set SoundURL=!trainermusic!.mp3
  1779. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  1780. echo A trainer wants to fight%p%&timeout 5 >nul
  1781. set SoundURL=Trainer.mp3
  1782. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  1783. :Trainer-battle
  1784. cls
  1785. echo !ln!
  1786. echo !trainerpkmn! LVL: !trainerpkmnlvl! HP: !trainerpkmnhp!
  1787. echo !ln!
  1788. echo.
  1789. echo.
  1790. echo.
  1791. echo.
  1792. echo !ln!
  1793. echo !invpkmn1nick! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  1794. echo !ln!
  1795. echo.
  1796. echo [1] Strong attack
  1797. echo [2] Accurate attack
  1798. echo [3] Use a potion, you have !potions! potion(s)
  1799. echo [4] Switch pkmn
  1800. if !invpkmn1hp! LSS 1 echo !invpkmn1nick! fainted%p%&goto Trainer-pkmn-switch
  1801. choice /c 1234 /n>nul
  1802. if !errorlevel! equ 1 (echo.
  1803. echo !ln!
  1804. echo !name!: !invpkmn1nick! use Strong-attack
  1805. echo !ln!
  1806. set stronghit=!random:~-1!
  1807. if !stronghit! GTR 2 set /a trainerpkmnhp-=5
  1808. if !stronghit! LSS 3 echo !invpkmn1nick! missed%p%
  1809. goto Trainer-pkmn-attack-kind-calc)
  1810. if !errorlevel! equ 2 (echo.
  1811. echo !ln!
  1812. echo !name!: !invpkmn1nick! use Accurate-attack
  1813. echo !ln!%p%
  1814. set /a trainerpkmnhp-=3
  1815. goto Trainer-pkmn-attack-kind-calc)
  1816. if !errorlevel! equ 3 goto Trainer-pkmn-battle-potion
  1817. if !errorlevel! equ 4 goto Trainer-pkmn-switch
  1818. :Trainer-pkmn-battle-potion
  1819. if !potions! LSS 1 echo You dont have any potions left%p%
  1820. if !potions! GTR 0 (set /a potions-=1
  1821. set /a invpkmn1hp+=20)
  1822. goto Trainer-pkmn-attack-kind-calc
  1823. :Trainer-pkmn-attack-kind-calc
  1824. if !trainerpkmnhp! LSS 1 (set /a exp=!trainerpkmnlvl!*5
  1825. echo.
  1826. echo !trainerpkmn! fainted
  1827. echo.
  1828. echo !invpkmn1nick! gained some exp%p%&goto Trainer-pkmn-battle-victory)
  1829. set trainerpkmnattackcalc=!random:~-1!
  1830. if !trainerpkmnattackcalc! GTR 1 goto Trainer-pkmn-attack-kind-calc
  1831. if !trainerpkmnattackcalc! equ 0 (set trainerpkmnattackkind=Strong-attack
  1832. set /a invpkmn1hp-=6
  1833. goto Trainer-pkmn-turn)
  1834. if !trainerpkmnattackcalc! equ 1 (set trainerpkmnattackkind=Accurate-attack
  1835. set /a invpkmn1hp-=3
  1836. goto Trainer-pkmn-turn)
  1837. :Trainer-pkmn-turn
  1838. cls
  1839. echo !ln!
  1840. echo !trainerpkmn! LVL: !trainerpkmnlvl! HP: !trainerpkmnhp!
  1841. echo !ln!
  1842. echo.
  1843. echo.
  1844. echo.
  1845. echo.
  1846. echo !ln!
  1847. echo !invpkmn1nick! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  1848. echo !ln!
  1849. echo.
  1850. echo.
  1851. echo !ln!
  1852. echo Trainer: !trainerpkmn! use !trainerpkmnattackkind!
  1853. echo !ln!%p%
  1854. goto Trainer-battle
  1855. :Trainer-pkmn-battle-lost
  1856. set SoundURL=Viridian-Pewter-Saffron-City.mp3
  1857. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  1858. cls&echo Trainer: I just cant get enough of winning, hahaha%p%
  1859. cls&echo Nurse Joy: Damnit !name! you got your !invpkmn1nick! hurt once again%p%
  1860. cls&echo Nurse Joy: If you keep this up !invpkmn1nick! could be hospitalized%p%
  1861. set /a invpkmn1hp=!invpkmn1lvl!*4
  1862. set pkmnbattle=0
  1863. goto pkmn-Center
  1864. :Trainer-pkmn-battle-victory
  1865. set SoundURL=Victory.mp3
  1866. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  1867. cls
  1868. set /a exptill=!exptill!-!exp!
  1869. if !exptill! LSS 1 (set /a invpkmn1lvl+=1
  1870. set /a exptill=!invpkmn1lvl!*5
  1871. echo Your !invpkmn1nick! has LVLd up
  1872. set /a invpkmn1hp+=4)
  1873. echo You got $500 for winning%p%
  1874. set /a money+=500
  1875. set pkmnbattle=0
  1876. goto !sublocation!
  1877. :Trainer-pkmn-switch
  1878. set temppkmn=NAN
  1879. set temppkmnlvl=NAN
  1880. set temppkmnhp=NAN
  1881. cls
  1882. echo !ln!
  1883. echo Inventory
  1884. echo !ln!
  1885. echo 1:!invpkmn1nick! LVL:!invpkmn1lvl! HP:!invpkmn1hp!
  1886. echo 2:!invpkmn2nick! LVL:!invpkmn2lvl! HP:!invpkmn2hp!
  1887. echo 3:!invpkmn3nick! LVL:!invpkmn3lvl! HP:!invpkmn3hp!
  1888. echo 4:!invpkmn4nick! LVL:!invpkmn4lvl! HP:!invpkmn4hp!
  1889. echo 5:!invpkmn5nick! LVL:!invpkmn5lvl! HP:!invpkmn5hp!
  1890. echo 6:!invpkmn6nick! LVL:!invpkmn6lvl! HP:!invpkmn6hp!
  1891. echo !ln!
  1892. echo.
  1893. echo [1] Act like you faint
  1894. echo [2] Switch your 1st pkmn with your 2nd pkmn
  1895. echo [3] Switch your 1st pkmn with your 3rd pkmn
  1896. echo [4] Switch your 1st pkmn with your 4th pkmn
  1897. echo [5] Switch your 1st pkmn with your 5th pkmn
  1898. echo [6] Switch your 1st pkmn with your 6th pkmn
  1899. echo [7] Cancel
  1900. choice /c 1234567 /n>nul
  1901. if !errorlevel! equ 1 goto Trainer-pkmn-lost
  1902. set temppkmn=!invpkmn1!&set temppkmnlvl=!invpkmn1lvl!&set temppkmnhp=!invpkmn1hp!&set pkmnbattle=3
  1903. if !errorlevel! equ 2 goto Trainer-pkmn-switch-2
  1904. if !errorlevel! equ 3 goto Trainer-pkmn-switch-3
  1905. if !errorlevel! equ 4 goto Trainer-pkmn-switch-4
  1906. if !errorlevel! equ 5 goto Trainer-pkmn-switch-5
  1907. if !errorlevel! equ 6 goto Trainer-pkmn-switch-6
  1908. if !errorlevel! equ 7 (cls
  1909. if !invpkmn1hp! GTR 0 goto goto Trainer-pkmn-battle)
  1910. :Trainer-pkmn-switch-2
  1911. set invpkmn1=!invpkmn2!&set invpkmn1lvl=!invpkmn2lvl!&set invpkmn1hp=!invpkmn2hp!
  1912. set invpkmn2=!temppkmn!&set invpkmn2lvl=!temppkmnlvl!&set invpkmn2hp=!temppkmnhp!
  1913. goto Trainer-pkmn-switch-check
  1914. :Trainer-pkmn-switch-3
  1915. set invpkmn1=!invpkmn3!&set invpkmn1lvl=!invpkmn3lvl!&set invpkmn1hp=!invpkmn3hp!
  1916. set invpkmn3=!temppkmn!&set invpkmn3lvl=!temppkmnlvl!&set invpkmn3hp=!temppkmnhp!
  1917. goto Trainer-pkmn-switch-check
  1918. :Trainer-pkmn-switch-4
  1919. set invpkmn1=!invpkmn4!&set invpkmn1lvl=!invpkmn4lvl!&set invpkmn1hp=!invpkmn4hp!
  1920. set invpkmn4=!temppkmn!&set invpkmn4lvl=!temppkmnlvl!&set invpkmn4hp=!temppkmnhp!
  1921. goto Trainer-pkmn-switch-check
  1922. :Trainer-pkmn-switch-5
  1923. set invpkmn1=!invpkmn5!&set invpkmn1lvl=!invpkmn5lvl!&set invpkmn1hp=!invpkmn5hp!
  1924. set invpkmn5=!temppkmn!&set invpkmn5lvl=!temppkmnlvl!&set invpkmn5hp=!temppkmnhp!
  1925. goto Trainer-pkmn-switch-check
  1926. :Trainer-pkmn-switch-6
  1927. set invpkmn1=!invpkmn6!&set invpkmn1lvl=!invpkmn6lvl!&set invpkmn1hp=!invpkmn6hp!
  1928. set invpkmn6=!temppkmn!&set invpkmn6lvl=!temppkmnlvl!&set invpkmn6hp=!temppkmnhp!
  1929. goto Trainer-pkmn-switch-check
  1930. :Trainer-pkmn-switch-check
  1931. if !invpkmn1hp! GTR 0 goto Trainer-pkmn-attack-kind-calc
  1932. goto Trainer-pkmn-switch
  1933. :gym-battle
  1934. cls
  1935. echo !ln!
  1936. echo !gymleaderpkmn! LVL: !gymleaderpkmnlvl! HP: !gymleaderpkmnhp!
  1937. echo !ln!
  1938. echo.
  1939. echo.
  1940. echo.
  1941. echo.
  1942. echo !ln!
  1943. echo !invpkmn1nick! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  1944. echo !ln!
  1945. echo.
  1946. echo [1] Strong attack
  1947. echo [2] Accurate attack
  1948. echo [3] Use a potion, you have !potions! potion(s)
  1949. echo [4] Switch pkmn
  1950. if !invpkmn1hp! LSS 1 echo !invpkmn1nick! fainted%p%&goto Gym-battle-switch
  1951. choice /c 1234 /n>nul
  1952. if !errorlevel! equ 1 (echo.
  1953. echo !ln!
  1954. echo !name!: !invpkmn1nick! use Strong-attack
  1955. echo !ln!
  1956. set stronghit=!random:~-1!
  1957. if !stronghit! GTR 2 set /a gymleaderpkmnhp-=5
  1958. if !stronghit! LSS 3 echo !invpkmn1nick! missed%p%
  1959. goto gymleader-pkmn-attack-kind-calc)
  1960. if !errorlevel! equ 2 (echo.
  1961. echo !ln!
  1962. echo !name!: !invpkmn1nick! use Accurate-attack
  1963. echo !ln!%p%
  1964. set /a gymleaderpkmnhp-=3
  1965. goto gymleader-pkmn-attack-kind-calc)
  1966. if !errorlevel! equ 3 goto gym-battle-potion
  1967. if !errorlevel! equ 4 goto gym-battle-switch
  1968. :gym-battle-potion
  1969. if !potions! LSS 1 echo You dont have any potions left%p%
  1970. if !potions! GTR 0 set /a potions-=1&set /a invpkmn1hp+=20
  1971. if !errorlevel! equ 4 goto restart
  1972. goto gymleader-pkmn-attack-kind-calc
  1973. :gymleader-pkmn-attack-kind-calc
  1974. if !gymleaderpkmnhp! LSS 1 (set /a exp=!gymleaderpkmnlvl!*5
  1975. echo.
  1976. echo !gymleaderpkmn! fainted
  1977. echo.
  1978. echo !invpkmn1! gained some exp%p%&goto gym-battle-victory)
  1979. set gymleaderpkmnattackcalc=!random:~-1!
  1980. if !gymleaderpkmnattackcalc! GTR 1 goto gymleader-pkmn-attack-kind-calc
  1981. if !gymleaderpkmnattackcalc! equ 0 set gymleaderpkmnattackkind=Strong-attack&set /a invpkmn1hp-=6&goto gymleader-pkmn-turn
  1982. if !gymleaderpkmnattackcalc! equ 1 set gymleaderpkmnattackkind=Accurate-attack&set /a invpkmn1hp-=3&goto gymleader-pkmn-turn
  1983. :gymleader-pkmn-turn
  1984. cls
  1985. echo !ln!
  1986. echo !gymleaderpkmn! LVL: !gymleaderpkmnlvl! HP: !gymleaderpkmnhp!
  1987. echo !ln!
  1988. echo.
  1989. echo.
  1990. echo.
  1991. echo.
  1992. echo !ln!
  1993. echo !invpkmn1nick! LVL: !invpkmn1lvl! HP: !invpkmn1hp!
  1994. echo !ln!
  1995. echo.
  1996. echo.
  1997. echo !ln!
  1998. echo !gymleader!: !gymleaderpkmn! use !gymleaderpkmnattackkind!
  1999. echo !ln!%p%
  2000. goto gym-battle
  2001. :gym-battle-lost
  2002. cls&echo !gymleader!: Come back when you can actually beat me !name!%p%
  2003. cls&echo Nurse Joy: Damnit !name! you got your !invpkmn1nick! hurt once again%p%
  2004. cls&echo Nurse Joy: If you keep this up !invpkmn1! could be hospitalized%p%
  2005. set /a invpkmn1hp=!invpkmn1lvl!*4
  2006. set pkmnbattle=0
  2007. goto pkmn-Center
  2008. :gym-battle-victory
  2009. set /a wincount+=1
  2010. set /a exptill=!exptill!-!exp!
  2011. if !exptill! LSS 1 (set /a invpkmn1lvl+=1
  2012. set /a exptill=!invpkmn1lvl!*5
  2013. cls&echo Your !invpkmn1nick! has LVLd up%p%
  2014. set /a invpkmn1hp+=4)
  2015. :gym-battle-2
  2016. if !wincount! equ 1 (
  2017. if !location! equ Pewter-City set gymleaderpkmn=ONIX&set gymleaderpkmnlvl=14
  2018. if !location! equ Cerulean-City set gymleaderpkmn=STARMIE&set gymleaderpkmnlvl=21
  2019. if !location! equ Vermillion-City set gymleaderpkmn=PIKACHU&set gymleaderpkmnlvl=18
  2020. if !location! equ Celadon-City set gymleaderpkmn=WEEPINBELL&set gymleaderpkmnlvl=32
  2021. if !location! equ Fuschia-City set gymleaderpkmn=KOFFING&set gymleaderpkmnlvl=37
  2022. if !location! equ Saffron-City set gymleaderpkmn=MR-MIME&set gymleaderpkmnlvl=37
  2023. if !location! equ Cinnabar-City set gymleaderpkmn=RAPIDASH&set gymleaderpkmnlvl=45
  2024. if !location! equ Viridian-City set gymleaderpkmn=DUGTRIO&set gymleaderpkmnlvl=42
  2025. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4&goto gym-battle)
  2026. if !wincount! equ 2 (
  2027. if !location! equ Pewter-City goto gym-battle-victory-2
  2028. if !location! equ Cerulean-City goto gym-battle-victory-2
  2029. if !location! equ Vermillion-City set gymleaderpkmn=RAICHU&set gymleaderpkmnlvl=24
  2030. if !location! equ Celadon-City set gymleaderpkmn=GLOOM&set gymleaderpkmnlvl=32
  2031. if !location! equ Fuschia-City set gymleaderpkmn=WEEZING&set gymleaderpkmnlvl=43
  2032. if !location! equ Saffron-City set gymleaderpkmn=KADABRA&set gymleaderpkmnlvl=38
  2033. if !location! equ Cinnabar-City set gymleaderpkmn=ARCANINE&set gymleaderpkmnlvl=46
  2034. if !location! equ Viridian-City set gymleaderpkmn=NIDOQUEEN&set gymleaderpkmnlvl=44
  2035. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4&goto gym-battle)
  2036. if !wincount! equ 3 (
  2037. if !location! equ Pewter-City goto gym-battle-victory-2
  2038. if !location! equ Cerulean-City goto gym-battle-victory-2
  2039. if !location! equ Vermillion-City goto gym-battle-victory-2
  2040. if !location! equ Celadon-City goto gym-battle-victory-2
  2041. if !location! equ Fuschia-City set gymleaderpkmn=MUK&set gymleaderpkmnlvl=39
  2042. if !location! equ Saffron-City set gymleaderpkmn=ALAKAZAM&set gymleaderpkmnlvl=43
  2043. if !location! equ Cinnabar-City goto gym-battle-victory-2
  2044. if !location! equ Viridian-City set gymleaderpkmn=NIDOKING&set gymleaderpkmnlvl=45
  2045. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4&goto gym-battle)
  2046. if !wincount! equ 4 (
  2047. if !location! equ Pewter-City goto gym-battle-victory-2
  2048. if !location! equ Cerulean-City goto gym-battle-victory-2
  2049. if !location! equ Vermillion-City goto gym-battle-victory-2
  2050. if !location! equ Celadon-City goto gym-battle-victory-2
  2051. if !location! equ Fuschia-City goto gym-battle-victory-2
  2052. if !location! equ Saffron-City goto gym-battle-victory-2
  2053. if !location! equ Cinnabar-City goto gym-battle-victory-2
  2054. if !location! equ Viridian-City set gymleaderpkmn=RHYDON&set gymleaderpkmnlvl=50
  2055. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4&goto gym-battle)
  2056. :gym-battle-victory-2
  2057. set /a exptill=!exptill!-!exp!
  2058. if !exptill! LSS 1 (set /a invpkmn1lvl+=1
  2059. set /a exptill=!invpkmn1lvl!*5
  2060. cls&echo Your !invpkmn1nick! has LVLd up
  2061. echo.
  2062. set /a invpkmn1hp+=4)
  2063. echo You got $1.000 for winning%p%
  2064. set /a money+=1000
  2065. set pkmnbattle=0
  2066. cls
  2067. if !location! equ Pewter-City (echo !gymleader!: Well done, you have proven yourself%p%
  2068. cls&echo !gymleader!: Here take this, its the Boulder Badge&set badges=1)
  2069. if !location! equ Cerulean-City (echo !gymleader!: Haha, oh shit I lost%p%
  2070. cls&echo !gymleader!: Here take this, its the Cascade Badge&set badges=2)
  2071. if !location! equ Vermillion-City (echo !gymleader!: Damn you!%p%
  2072. cls&echo !gymleader!: That means I have to give you this, the Thunder Badge&set badges=3)
  2073. if !location! equ Celadon-City (echo !gymleader!: Well done, you have proven yourself%p%
  2074. cls&echo !gymleader!: Here take this, its the Rainbow Badge&set badges=4)
  2075. if !location! equ Fuschia-City (echo !gymleader!: Haha, oh shit I lost%p%
  2076. cls&echo !gymleader!: Here take this, its the Soul Badge&set badges=5)
  2077. if !location! equ Saffron-City (echo !gymleader!: Damn you!%p%
  2078. cls&echo !gymleader!: That means I have to give you this, the Marsh Badge&set badges=6)
  2079. if !location! equ Cinnabar-Island (echo !gymleader!: Well done, you have proven yourself%p%
  2080. cls&echo !gymleader!: Here take this, its the Vulcano Badge&set badges=7)
  2081. if !location! equ Viridian-City (echo !gymleader!: Haha, oh shit I lost%p%
  2082. cls&echo !gymleader!: Here take this, its the Earth Badge&set badges=8)
  2083. pause>nul&goto !sublocation!
  2084. :Gym-battle-switch
  2085. set temppkmn=NAN
  2086. set temppkmnlvl=NAN
  2087. set temppkmnhp=NAN
  2088. cls
  2089. echo !ln!
  2090. echo Inventory
  2091. echo !ln!
  2092. echo 1:!invpkmn1nick! LVL:!invpkmn1lvl! HP:!invpkmn1hp!
  2093. echo 2:!invpkmn2nick! LVL:!invpkmn2lvl! HP:!invpkmn2hp!
  2094. echo 3:!invpkmn3nick! LVL:!invpkmn3lvl! HP:!invpkmn3hp!
  2095. echo 4:!invpkmn4nick! LVL:!invpkmn4lvl! HP:!invpkmn4hp!
  2096. echo 5:!invpkmn5nick! LVL:!invpkmn5lvl! HP:!invpkmn5hp!
  2097. echo 6:!invpkmn6nick! LVL:!invpkmn6lvl! HP:!invpkmn6hp!
  2098. echo !ln!
  2099. echo.
  2100. echo [1] Act like you faint
  2101. echo [2] Switch your 1st pkmn with your 2nd pkmn
  2102. echo [3] Switch your 1st pkmn with your 3rd pkmn
  2103. echo [4] Switch your 1st pkmn with your 4th pkmn
  2104. echo [5] Switch your 1st pkmn with your 5th pkmn
  2105. echo [6] Switch your 1st pkmn with your 6th pkmn
  2106. choice /c 123456 /n>nul
  2107. if !errorlevel! equ 1 goto Gym-battle-lost
  2108. set temppkmn=!invpkmn1!&set temppkmnlvl=!invpkmn1lvl!&set temppkmnhp=!invpkmn1hp!&set pkmnbattle=2
  2109. if !errorlevel! equ 2 goto Gym-battle-switch-2
  2110. if !errorlevel! equ 3 goto Gym-battle-switch-3
  2111. if !errorlevel! equ 4 goto Gym-battle-switch-4
  2112. if !errorlevel! equ 5 goto Gym-battle-switch-5
  2113. if !errorlevel! equ 6 goto Gym-battle-switch-6
  2114. :Gym-battle-switch-2
  2115. set invpkmn1=!invpkmn2!&set invpkmn1lvl=!invpkmn2lvl!&set invpkmn1hp=!invpkmn2hp!
  2116. set invpkmn2=!temppkmn!&set invpkmn2lvl=!temppkmnlvl!&set invpkmn2hp=!temppkmnhp!
  2117. goto Gym-battle-switch-check
  2118. :Gym-battle-switch-3
  2119. set invpkmn1=!invpkmn3!&set invpkmn1lvl=!invpkmn3lvl!&set invpkmn1hp=!invpkmn3hp!
  2120. set invpkmn3=!temppkmn!&set invpkmn3lvl=!temppkmnlvl!&set invpkmn3hp=!temppkmnhp!
  2121. goto Gym-battle-switch-check
  2122. :Gym-battle-switch-4
  2123. set invpkmn1=!invpkmn4!&set invpkmn1lvl=!invpkmn4lvl!&set invpkmn1hp=!invpkmn4hp!
  2124. set invpkmn4=!temppkmn!&set invpkmn4lvl=!temppkmnlvl!&set invpkmn4hp=!temppkmnhp!
  2125. goto Gym-battle-switch-check
  2126. :Gym-battle-switch-5
  2127. set invpkmn1=!invpkmn5!&set invpkmn1lvl=!invpkmn5lvl!&set invpkmn1hp=!invpkmn5hp!
  2128. set invpkmn5=!temppkmn!&set invpkmn5lvl=!temppkmnlvl!&set invpkmn5hp=!temppkmnhp!
  2129. goto Gym-battle-switch-check
  2130. :Gym-battle-switch-6
  2131. set invpkmn1=!invpkmn6!&set invpkmn1lvl=!invpkmn6lvl!&set invpkmn1hp=!invpkmn6hp!
  2132. set invpkmn6=!temppkmn!&set invpkmn6lvl=!temppkmnlvl!&set invpkmn6hp=!temppkmnhp!
  2133. goto Gym-battle-switch-check
  2134. :Gym-battle-switch-check
  2135. if !invpkmn1hp! GTR 0 goto gymleader-pkmn-attack-kind-calc
  2136. goto Gym-battle-switch
  2137. :Route-X
  2138. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2139. cls
  2140. echo !ln!
  2141. echo !sublocation!
  2142. echo !ln!
  2143. echo.
  2144. echo )\  )\ )\ )\ /(  (\ )\ )\ )\  /( /( )\  (\ (\ /)  )\
  2145. echo /( /( )\  (\ (\ /)  )\ )\ )\ )\ )\ /(  (\ )\  )\  )\
  2146. echo )\  (\ (\ /)  )\ (\ )\ )\ )\  /( /( )\ )\ )\ )\ /( (
  2147. echo.
  2148. set rand=!random:~-1!
  2149. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2150. goto !sublocation!-X
  2151. :Route-1
  2152. set sublocation=Route-1
  2153. set SoundURL=Route-1.mp3
  2154. goto Route-X
  2155. :Route-1-X
  2156. echo [1] !g!Pallet town!s!
  2157. echo [2] !g!Viridian City!n!
  2158. echo [3] !l!
  2159. choice /c 123 /n>nul
  2160. if !errorlevel! equ 1 goto Pallet-Town
  2161. if !errorlevel! equ 2 goto Viridian-City
  2162. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2163. :Route-2
  2164. set sublocation=Route-2
  2165. set SoundURL=Route-2-10-plus-16-22.mp3
  2166. goto Route-X
  2167. :Route-2-X
  2168. echo [1] !g!Viridian City!s!
  2169. echo [2] !g!the Viridian forest!n!
  2170. echo [3] !l!
  2171. choice /c 123 /n>nul
  2172. if !errorlevel! equ 1 goto Viridian-City
  2173. if !errorlevel! equ 2 goto Viridian-forest
  2174. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2175. :Route-3
  2176. set sublocation=Route-3
  2177. set SoundURL=Route-2-10-plus-16-22.mp3
  2178. goto Route-X
  2179. if !Trainer-route-3! equ 0 goto Trainer-route-3
  2180. :Route-3-X
  2181. echo [1] !g!Pewter City!w!
  2182. echo [2] !g!Mt. Moon!e!
  2183. echo [3] !l!
  2184. choice /c 123 /n>nul
  2185. if !errorlevel! equ 1 goto Pewter-City
  2186. if !errorlevel! equ 2 goto Mt-Moon
  2187. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2188. :Route-4
  2189. set sublocation=Route-4
  2190. set SoundURL=Route-2-10-plus-16-22.mp3
  2191. goto Route-X
  2192. :Route-4-X
  2193. echo [1] !g!Cerulean City!e!
  2194. echo [2] !l!
  2195. choice /c 12 /n>nul
  2196. if !errorlevel! equ 1 goto Cerulean-City
  2197. if !errorlevel! equ 2 goto Wild-pkmnlvl-calc
  2198. :Route-5
  2199. set sublocation=Route-5
  2200. set SoundURL=Route-2-10-plus-16-22.mp3
  2201. goto Route-X
  2202. :Route-5-X
  2203. echo [1] !g!Cerulean City!n!
  2204. echo [2] !g!Vermillion City through a tunnel!s!
  2205. echo [3] !g!Saffron City!s!
  2206. echo [4] !l!
  2207. choice /c 1234 /n>nul
  2208. if !errorlevel! equ 1 goto Cerulean-City
  2209. if !errorlevel! equ 2 set location=Vermillion-City&goto Underground-passage
  2210. if !errorlevel! equ 3 (cls
  2211. if not !guardwater! equ 1 echo The guard is mad for some reason and wont let you pass%p%
  2212. if !guardwater! equ 1 goto Saffron-City)
  2213. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2214. :Route-6
  2215. set sublocation=Route-6
  2216. set SoundURL=Route-2-10-plus-16-22.mp3
  2217. goto Route-X
  2218. :Route-6-X
  2219. echo [1] !g!Saffron City!n!
  2220. echo [2] !g!Vermillion City!s!
  2221. echo [3] !g!Cerulean City through a tunnel!n!
  2222. echo [4] !l!
  2223. choice /c 1234 /n>nul
  2224. if !errorlevel! equ 1 (cls
  2225. if not !guardwater! equ 1 echo The guard is mad for some reason and wont let you pass%p%
  2226. if !guardwater! equ 1 goto Saffron-City)
  2227. if !errorlevel! equ 2 goto Vermillion-City
  2228. if !errorlevel! equ 3 set location=Cerulean-City&goto Underground-passage
  2229. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2230. :Route-7
  2231. set sublocation=Route-7
  2232. set SoundURL=Route-2-10-plus-16-22.mp3
  2233. goto Route-X
  2234. :Route-7-X
  2235. echo [1] !g!Saffron City!e!
  2236. echo [2] !g!Celadon City!w!
  2237. echo [3] !g!Lavender town through a tunnel
  2238. echo [4] !l!
  2239. choice /c 1234 /n>nul
  2240. if !errorlevel! equ 1 (cls
  2241. if not !guardwater! equ 1 echo The guard is mad for some reason and wont let you pass%p%
  2242. if !guardwater! equ 1 goto Saffron-City)
  2243. if !errorlevel! equ 2 goto Celadon-City
  2244. if !errorlevel! equ 3 set location=Lavender-Town&goto Underground-passage
  2245. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2246. :Route-8
  2247. set sublocation=Route-8
  2248. set SoundURL=Route-2-10-plus-16-22.mp3
  2249. goto Route-X
  2250. :Route-8-X
  2251. echo [1] !g!Saffron City!w!
  2252. echo [2] !g!Lavender town!e!
  2253. echo [3] !g!Celadon City through a tunnel!w!
  2254. echo [4] !l!
  2255. choice /c 1234 /n>nul
  2256. if !errorlevel! equ 1 (cls
  2257. if !guardwater! equ 0 echo The guard is mad for some reason and wont let you pass%p%&goto !sublocation!
  2258. if !guardwater! equ 1 goto Saffron-City)
  2259. if !errorlevel! equ 2 goto Lavender-Town
  2260. if !errorlevel! equ 3 set location=Celadon-City&goto Underground-passage
  2261. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2262. :Route-9
  2263. set sublocation=Route-9
  2264. set SoundURL=Route-2-10-plus-16-22.mp3
  2265. goto Route-X
  2266. :Route-9-X
  2267. echo [1] !g!Cerulean City!w!
  2268. echo [2] !g!the Rock tunnel!s!
  2269. echo [3] !g!the Power plant (by crossing the lake)
  2270. echo [4] !l!
  2271. choice /c 123 /n>nul
  2272. if !errorlevel! equ 1 goto Cerulean-City
  2273. if !errorlevel! equ 2 goto Rock-tunnel
  2274. if !errorlevel! equ 3 cls&echo You need HM-surf to get there, which you dont have%p%&goto !sublocation!
  2275. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2276. :Route-10
  2277. set sublocation=Route-10
  2278. set SoundURL=Route-2-10-plus-16-22.mp3
  2279. goto Route-X
  2280. :Route-10-X
  2281. echo [1] !g!the Rock tunnel!n!
  2282. echo [2] !g!Lavender town!s!
  2283. echo [3] !l!
  2284. choice /c 123 /n>nul
  2285. if !errorlevel! equ 1 cls&echo Looks like the road only goes one way%p%
  2286. if !errorlevel! equ 2 goto Lavender-Town
  2287. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2288. :Route-11
  2289. set sublocation=Route-11
  2290. set SoundURL=Route-11-15.mp3
  2291. goto Route-X
  2292. :Route-11-X
  2293. echo [1] !g!Vermillion City!w!
  2294. echo [2] !g!!r!12!n!
  2295. echo [3] !g!the digletts cave
  2296. echo [4] !l!
  2297. choice /c 1234 /n>nul
  2298. if !errorlevel! equ 1 goto Vermillion-City
  2299. if !errorlevel! equ 2 goto Route-11-1
  2300. if !errorlevel! equ 2 goto Digletts-cave
  2301. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2302. :Route-11-1
  2303. if !snorlaks1! equ 1 goto Route-12
  2304. cls&echo There is a snorlaks blocking the road%p%
  2305. goto Route-X
  2306. :Route-12
  2307. set sublocation=Route-12
  2308. set SoundURL=Route-11-15.mp3
  2309. goto Route-X
  2310. :Route-12-X
  2311. echo [1] !g!!r!11!w!
  2312. echo [2] !g!Lavender town!n!
  2313. echo [3] !g!!r!13!s!
  2314. echo [4] !l!
  2315. choice /c 1234 /n>nul
  2316. if !errorlevel! equ 1 goto Route-12-1
  2317. if !errorlevel! equ 2 goto Lavender-Town
  2318. if !errorlevel! equ 3 goto Route-12-2
  2319. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2320. :Route-12-1
  2321. if !snorlaks1! equ 1 goto Route-11
  2322. cls&echo There is a snorlaks blocking the road%p%&goto Route-X
  2323. :Route-12-2
  2324. if !snorlaks1! equ 1 goto Route-13
  2325. cls&echo There is a snorlaks blocking the road%p%&goto Route-X
  2326. :Route-13
  2327. set sublocation=Route-13
  2328. set SoundURL=Route-11-15.mp3
  2329. goto Route-X
  2330. :Route-13-X
  2331. echo [1] !g!!r!12!n!
  2332. echo [2] !g!!r!14!s!
  2333. echo [3] !l!
  2334. choice /c 123 /n>nul
  2335. if !errorlevel! equ 1 goto Route-12
  2336. if !errorlevel! equ 2 goto Route-14
  2337. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2338. :Route-14
  2339. set sublocation=Route-14
  2340. set SoundURL=Route-11-15.mp3
  2341. goto Route-X
  2342. :Route-14-X
  2343. echo [1] !g!!r!13!n!
  2344. echo [2] !g!!r!15!w!
  2345. echo [3] !l!
  2346. choice /c 123 /n>nul
  2347. if !errorlevel! equ 1 goto Route-13
  2348. if !errorlevel! equ 2 goto Route-15
  2349. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2350. :Route-15
  2351. set sublocation=Route-15
  2352. set SoundURL=Route-11-15.mp3
  2353. goto Route-X
  2354. :Route-15-X
  2355. echo [1] !g!!r!14!n!
  2356. echo [2] !g!Fuschia City!w!
  2357. echo [3] !l!
  2358. choice /c 123 /n>nul
  2359. if !errorlevel! equ 1 goto Route-14
  2360. if !errorlevel! equ 2 goto Fuschia-City
  2361. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2362. :Route-16
  2363. set sublocation=Route-16
  2364. set SoundURL=Route-2-10-plus-16-22.mp3
  2365. goto Route-X
  2366. :Route-16-X
  2367. echo [1] !g!Celadon City!e!
  2368. echo [2] !g!!r!17!s!
  2369. echo [3] !g!Mr. fly like a pies house
  2370. echo [4] !l!
  2371. choice /c 123 /n>nul
  2372. if !errorlevel! equ 1 goto Celadon-City
  2373. if !errorlevel! equ 2 goto Route-16-1
  2374. if !errorlevel! equ 3 goto Fly-like-a-pie
  2375. if !errorlevel! equ 4 goto Wild-pkmnlvl-calc
  2376. :Route-16-1
  2377. if !snorlaks2! equ 0 cls&echo There is a snorlaks blocking the road%p%&goto Route-X
  2378. if !bike! equ 1 goto Route-17
  2379. goto Route-X
  2380. :Route-17
  2381. set sublocation=Route-17
  2382. set SoundURL=Cycling.mp3
  2383. goto Route-X
  2384. :Route-17-X
  2385. echo [1] !g!!r!16!n!
  2386. echo [2] !g!!r!18!s!
  2387. echo [3] !l!
  2388. choice /c 123 /n>nul
  2389. if !errorlevel! equ 1 goto Route-17-1
  2390. if !errorlevel! equ 2 goto Route-18
  2391. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2392. :Route-17-1
  2393. if!snorlaks2! equ 1 goto Route-16
  2394. cls&echo There is a snorlaks blocking the road%p%&goto Route-X
  2395. :Route-18
  2396. set sublocation=Route-18
  2397. set SoundURL=Route-2-10-plus-16-22.mp3
  2398. goto Route-X
  2399. :Route-18-X
  2400. echo [1] !g!!r!17!n!
  2401. echo [2] !g!Fuschia City!e!
  2402. echo [3] !l!
  2403. choice /c 123 /n>nul
  2404. if !errorlevel! equ 1 (cls
  2405. if !bike! equ 1 goto Route-17)
  2406. if !errorlevel! equ 2 goto Fuschia-City
  2407. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2408. :Route-19
  2409. set sublocation=Route-19
  2410. set SoundURL=Route-2-10-plus-16-22.mp3
  2411. goto Route-X
  2412. :Route-19-X
  2413. echo [1] !g!Fuschia City!n!
  2414. echo [2] !g!!r!20!s!
  2415. echo [3] !l!
  2416. choice /c 123 /n>nul
  2417. if !errorlevel! equ 1 goto Fuschia-City
  2418. if !errorlevel! equ 2 goto Route-20
  2419. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2420. :Route-20
  2421. set sublocation=Route-20
  2422. set SoundURL=Surfing.mp3
  2423. goto Route-X
  2424. :Route-20-X
  2425. echo [1] !g!!r!19!n!
  2426. echo [2] !g!the Seafoam islands!w!
  2427. echo [3] !l!
  2428. choice /c 123 /n>nul
  2429. if !errorlevel! equ 1 goto Route-19
  2430. if !errorlevel! equ 2 goto Seafoam-island
  2431. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2432. :Route-21
  2433. set sublocation=Route-21
  2434. set SoundURL=Surfing.mp3
  2435. goto Route-X
  2436. :Route-21-X
  2437. echo [1] !g!Pallet town!n!
  2438. echo [2] !g!Cinnabar Island!s!
  2439. echo [3] !l!
  2440. choice /c 123 /n>nul
  2441. if !errorlevel! equ 1 goto Pallet-Town
  2442. if !errorlevel! equ 2 goto Cinnabar-Island
  2443. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2444. :Route-22
  2445. set sublocation=Route-22
  2446. set SoundURL=Route-2-10-plus-16-22.mp3
  2447. goto Route-X
  2448. :Route-22-X
  2449. echo [1] !g!Viridian City!e!
  2450. echo [2] !g!!r!23!n!
  2451. echo [3] !l!
  2452. choice /c 123 /n>nul
  2453. if !errorlevel! equ 1 goto Viridian-City
  2454. if !errorlevel! equ 2 goto Route-22-1
  2455. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2456. :Route-22-1
  2457. if !badges! equ 8 goto Route-23
  2458. cls&echo Guard, You dont seem to have all 8 badges, I can not let you pass%p%
  2459. goto Route-X
  2460. :Route-23
  2461. set sublocation=Route-23
  2462. set SoundURL=The-final-road.mp3
  2463. goto Route-X
  2464. :Route-23-X
  2465. echo [1] !g!!r!22!s!
  2466. echo [2] !g!Victory road!n!
  2467. echo [3] !l!
  2468. choice /c 123 /n>nul
  2469. if !errorlevel! equ 1 goto Route-22
  2470. if !errorlevel! equ 2 goto Victory-road
  2471. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2472. :Route-24
  2473. set sublocation=Route-24
  2474. set SoundURL=Route-24-25.mp3
  2475. goto Route-X
  2476. if !Trainer-route-24! equ 0 goto Trainer-route-24
  2477. :Route-24-X
  2478. echo [1] !g!Cerulean City!s!
  2479. echo [2] !g!!r!25!n!
  2480. echo [3] !l!
  2481. choice /c 123 /n>nul
  2482. if !errorlevel! equ 1 goto Cerulean-City
  2483. if !errorlevel! equ 2 goto Route-25
  2484. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2485. :Route-25
  2486. set sublocation=Route-25
  2487. set SoundURL=Route-24-25.mp3
  2488. goto Route-X
  2489. :Route-25-X
  2490. echo [1] !g!!r!24!s!
  2491. echo [2] !g!Bills house!e!
  2492. echo [3] !l!
  2493. choice /c 123 /n>nul
  2494. if !errorlevel! equ 1 goto Route-24
  2495. if !errorlevel! equ 2 goto Bills-house
  2496. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2497. :Viridian-forest
  2498. set sublocation=Viridian-forest
  2499. set SoundURL=Viridian-Forest-Digletts-Cave-Seafoam-Islands.mp3
  2500. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2501. :Forest
  2502. cls
  2503. echo !ln!
  2504. echo !sublocation!
  2505. echo !ln!
  2506. echo.
  2507. echo \                                                                    \
  2508. echo /     /~\          /~\   /~\   /~\   /~\   /~\   /~\      )\         /
  2509. echo \    /~~~\        /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\   )\ )\        \
  2510. echo /      i            i     i     i     i     i     i                  /
  2511. echo \                                                                    \
  2512. echo /                                                                    /
  2513. echo \  /~\   /~\   /~\   /~\   /~\   /~\   /~\   /~\          /~\        \
  2514. echo / /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\ /~~~\        /~~~\       /
  2515. echo \   i     i     i     i     i     i     i     i            i         \
  2516. echo.
  2517. set rand=!random:~-1!
  2518. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2519. echo [1] !g!!r!2!s!
  2520. echo [2] !g!Pewter City!n!
  2521. echo [3] Go !l!
  2522. choice /c 123 /n>nul
  2523. if !errorlevel! equ 1 goto Route-2
  2524. if !errorlevel! equ 2 goto Pewter-City
  2525. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc-viridian-forest
  2526. :Mt-Moon
  2527. set SoundURL=Route-2-10-plus-16-22.mp3
  2528. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2529. set location=Mt-Moon
  2530. cls
  2531. echo !ln!
  2532. echo Mt. Moon
  2533. echo !ln!
  2534. echo.
  2535. echo [1] !g!the pkmn center
  2536. echo [2] Go inside the cave
  2537. echo [3] Go back to !r!3!w!
  2538. choice /c 123 /n>nul
  2539. if !errorlevel! equ 1 goto pkmn-Center
  2540. if !errorlevel! equ 2 goto Mt-Moon-2
  2541. if !errorlevel! equ 3 goto Route-3
  2542. :Mt-Moon-2
  2543. cls
  2544. echo !ln!
  2545. echo Mt. Moon cave entrance
  2546. echo !ln!
  2547. echo.
  2548. echo         /\    /\    /\    /\    /\    /\    /\    /\    /\
  2549. echo        /##\  /##\  /##\  /##\  /##\  /##\  /##\  /##\  /##\  /\
  2550. echo       /####\/####\/####\/####\/####\/####\/####\/####\/####\/##\
  2551. echo      /##########################################################\
  2552. echo     /############################################################\
  2553. echo    /##############################################################\
  2554. echo   /#######################/     \##################################\
  2555. echo  /#######################/       \##################################\
  2556. echo /#######################/         \##################################\
  2557. echo.%p%
  2558. goto Mt-Moon-2-1
  2559. :Mt-Moon-2-1
  2560. set sublocation=Mt-Moon-2-1
  2561. set SoundURL=Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3
  2562. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2563. cls
  2564. echo !ln!
  2565. echo Mt. Moon cave
  2566. echo !ln!
  2567. echo.
  2568. echo !cl!####################
  2569. echo #( ).....#...........................................................#
  2570. echo #........#....###############################........................#
  2571. echo #........#....#..........................................##..........#
  2572. echo #........#....#..........................................##..........#
  2573. echo #........#....#...........#...###############............##..........#
  2574. echo #.............#...........#...#..........................##..........#
  2575. echo #.............#...........#...#......................................#
  2576. echo ###########################(@)########################################
  2577. echo.
  2578. echo You are at @
  2579. echo.
  2580. set rand=!random:~-1!
  2581. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-mt-moon
  2582. echo [1] Go deeper into the cave
  2583. echo [2] Go back
  2584. choice /c 12 /n>nul
  2585. if !errorlevel! equ 1 goto Mt-Moon-2-1-1
  2586. if !errorlevel! equ 2 goto Mt-Moon
  2587. :Mt-Moon-2-1-1
  2588. set mtmoon211=!random:~-1!
  2589. if !mtmoon211! GTR 2 goto Trainer-Mt-Moon
  2590. goto Cerulean-City
  2591. :Bills-house
  2592. set SoundURL=Guidepost.mp3
  2593. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2594. cls
  2595. echo !ln!
  2596. echo Bills House
  2597. echo !ln!
  2598. echo.
  2599. echo                        __ii_______________
  2600. echo                       /  ii             /\\
  2601. echo                      /  /__\           /  \\
  2602. echo                     /_________________/    \\
  2603. echo                     i      __        i  /\  i
  2604. echo         )\)\        i     i__i       i / .\ i
  2605. echo       )\)\ /(       i________________i_i__i_i
  2606. echo.%p%
  2607. cls
  2608. if !ss-anne! equ 1 echo Bill: Sorry !name!, Im really busy right now%p%&goto !sublocation!
  2609. echo Creature: Gjelp, gjelp, gjelp mmmmi%p%
  2610. cls&echo !name!: I dont under.... ohhhhhh!%p%
  2611. cls&echo Creature: Cjanlp gjou pljes tjlun tje mjachilne ojn?%p%
  2612. cls&echo !name!: eeeeeeeeeh ok, but how do I do that?%p%
  2613. cls&echo Creature: Tjerl isj ja aj bjik rjeld buttjon njekst tjo mji pjecee%p%
  2614. cls&echo !name!: Do you mean, ohhhhhh I see, the big red button%p%
  2615. cls&echo The creature steps into the machine%p%
  2616. cls&echo You press the button%p%
  2617. cls&echo *poof*%p%
  2618. cls&echo Bill: I cant thank you enough, you saved my life.%p%
  2619. cls&echo Bill: I would have never gotten my human form back without you%p%
  2620. cls&echo Bill: You know what, here, you can have this S.S. Anne ticket%p%
  2621. cls&echo Bill: The S.S. Anne is in Vermillion City, you can get there by going
  2622. echo through the underground passage at Route 5%p%
  2623. cls&echo Bill: Im going to improve my machine, youre welcome to visit me%p%
  2624. set ss-anne=1
  2625. goto !sublocation!
  2626. :Bike-shop
  2627. set SoundURL=pkmn-Center-Mart.mp3
  2628. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2629. :Bike
  2630. cls
  2631. echo !ln!
  2632. echo !location! Bike shop
  2633. echo !ln!
  2634. echo.
  2635. echo Shop keeper: Well hello there young man, how can I help you?
  2636. echo.
  2637. echo You have money: !money!
  2638. echo.
  2639. echo [1] Buy a bike ($1.000.000)
  2640. echo [2] Get a bike for a Bike-Voucher
  2641. echo [3] Exit the bike shop
  2642. choice /c 123 /n>nul
  2643. if !errorlevel! equ 1 goto Bike-shop-1
  2644. if !errorlevel! equ 2 goto Bike-shop-2
  2645. if !errorlevel! equ 3 goto !location!
  2646. :Bike-shop-1
  2647. cls
  2648. if !money! GTR 999999 (set bike=1
  2649. set /a money-=1000000
  2650. echo Shop keeper: I have no idea where you got the money, but oh well%p%
  2651. cls&echo Shop keeper: Here you go, a brand new bike%p%&goto Bike)
  2652. echo You do not have enough money to buy that%p%&goto Bike
  2653. :Bike-shop-2
  2654. cls
  2655. if !bikevoucher! equ 1 (set bike=1
  2656. set bikevoucher=2
  2657. echo Shop keeper: Here you go, a brand new bike%p%&goto Bike)
  2658. echo Shop keeper: You dont seem to have a a Bike-Voucher%p%&goto Bike
  2659. :Day-care
  2660. cls&echo Nothing here yet%p%
  2661. goto Route-5
  2662. :Rock-Tunnel
  2663. set location=Rock-Tunnel
  2664. set sublocation=Rock-Tunnel
  2665. set SoundURL=Route-2-10-plus-16-22.mp3
  2666. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2667. cls
  2668. echo !ln!
  2669. echo Rock Tunnel entrance
  2670. echo !ln!
  2671. echo.
  2672. echo         /\    /\    /\    /\    /\    /\    /\    /\    /\
  2673. echo        /##\  /##\  /##\  /##\  /##\  /##\  /##\  /##\  /##\  /\
  2674. echo       /####\/####\/####\/####\/####\/####\/####\/####\/####\/##\
  2675. echo      /##########################################################\
  2676. echo     /############################################################\
  2677. echo    /#######################/   \##################################\
  2678. echo   /#######################/     \##################################\
  2679. echo.
  2680. echo [1] !g!!r!9!w!
  2681. echo [2] Go inside the cave
  2682. echo [3] !g!the pkmn Center
  2683. choice /c 123 /n>nul
  2684. if !errorlevel! equ 1 goto Route-9
  2685. if !errorlevel! equ 2 goto !location!-floor-1
  2686. if !errorlevel! equ 3 goto pkmn-Center
  2687. :Rock-tunnel-floor-1
  2688. set sublocation=Rock-Tunnel-floor-1
  2689. set SoundURL=Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3
  2690. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2691. cls
  2692. echo !ln!
  2693. echo Rock Tunnel - Floor 1
  2694. echo !ln!
  2695. echo.
  2696. echo !cl!####################
  2697. echo ###.( )......####################(@).....................####.....( )#
  2698. echo ###....#.....#######...( )##########.....####################........#
  2699. echo #......#.....####............#######.................................#
  2700. echo #............................#########################################
  2701. echo ####################################.....................####.....( )#
  2702. echo #..........................................#######.......####........#
  2703. echo ########.................( )...............#######...................#
  2704. echo !cl!####################
  2705. echo.
  2706. echo You are at @
  2707. echo.
  2708. set rand=!random:~-1!
  2709. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2710. echo [1] Go deeper into the cave
  2711. echo [2] Go back
  2712. echo [3] !l!
  2713. choice /c 123 /n>nul
  2714. if !errorlevel! equ 1 goto !location!-floor-2
  2715. if !errorlevel! equ 2 goto !location!
  2716. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2717. ::1 trainer
  2718. :Rock-tunnel-floor-1-1
  2719. set sublocation=Rock-Tunnel-floor-1-1
  2720. set SoundURL=Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3
  2721. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2722. cls
  2723. echo !ln!
  2724. echo Rock Tunnel - Floor 1
  2725. echo !ln!
  2726. echo.
  2727. echo !cl!####################
  2728. echo ###.(@)......####################( ).....................####.....( )#
  2729. echo ###....#.....#######...( )##########.....####################........#
  2730. echo #......#.....####............#######.................................#
  2731. echo #............................#########################################
  2732. echo ####################################.....................####.....( )#
  2733. echo #..........................................#######.......####........#
  2734. echo ########.................( )...............#######...................#
  2735. echo !cl!####################
  2736. echo.
  2737. echo You are at @
  2738. echo.
  2739. set rand=!random:~-1!
  2740. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2741. echo [1] Go deeper into the cave
  2742. echo [2] Go back
  2743. echo [3] !l!
  2744. choice /c 123 /n>nul
  2745. if !errorlevel! equ 1 goto !location!-floor-2-1
  2746. if !errorlevel! equ 2 goto !location!-floor-2
  2747. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2748. ::3 trainers
  2749. :Rock-tunnel-floor-1-2
  2750. set sublocation=Rock-Tunnel-floor-1-2
  2751. set SoundURL=Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3
  2752. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2753. cls
  2754. echo !ln!
  2755. echo Rock Tunnel - Floor 1
  2756. echo !ln!
  2757. echo.
  2758. echo !cl!####################
  2759. echo ###.( )......####################( ).....................####.....( )#
  2760. echo ###....#.....#######...( )##########.....####################........#
  2761. echo #......#.....####............#######.................................#
  2762. echo #............................#########################################
  2763. echo ####################################.....................####.....(@)#
  2764. echo #..........................................#######.......####........#
  2765. echo ########.................( )...............#######...................#
  2766. echo ###################000000000000000####################################
  2767. echo.
  2768. echo You are at @
  2769. echo.
  2770. set rand=!random:~-1!
  2771. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2772. echo [1] Go deeper into the cave
  2773. echo [2] Go back
  2774. echo [3] !l!
  2775. choice /c 123 /n>nul
  2776. if !errorlevel! equ 1 goto Lavender-Town
  2777. if !errorlevel! equ 2 goto !location!-floor-2-1
  2778. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2779. ::3 trainers
  2780. :Rock-tunnel-floor-2
  2781. set sublocation=Rock-Tunnel-floor-2
  2782. set SoundURL=Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3
  2783. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2784. cls
  2785. echo !ln!
  2786. echo Rock Tunnel - Floor 2
  2787. echo !ln!
  2788. echo.
  2789. echo !cl!####################
  2790. echo #.( )###......###.......................#####################( ).....#
  2791. echo #.............###........####...........#####################....##..#
  2792. echo #....###.................############################................#
  2793. echo ########......###...................( ).####..................########
  2794. echo #.............###........###################....###############......#
  2795. echo ############################################....###############.(@)..#
  2796. echo #....................................................................#
  2797. echo !cl!####################
  2798. echo.
  2799. echo You are at @
  2800. echo.
  2801. set rand=!random:~-1!
  2802. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2803. echo [1] Go deeper into the cave
  2804. echo [2] Go back
  2805. echo [3] !l!
  2806. choice /c 123 /n>nul
  2807. if !errorlevel! equ 1 goto !location!-floor-1-1
  2808. if !errorlevel! equ 2 goto !location!-floor-1
  2809. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2810. ::5 trainers
  2811. :Rock-tunnel-floor-2-1
  2812. set sublocation=Rock-Tunnel-floor-2-1
  2813. set SoundURL=Mt-Moon-Rock-Tunnel-Vicroty-Road.mp3
  2814. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2815. cls
  2816. echo !ln!
  2817. echo Rock Tunnel - Floor 2
  2818. echo !ln!
  2819. echo.
  2820. echo !cl!####################
  2821. echo #.( )###......###.......................#####################( ).....#
  2822. echo #.............###........####...........#####################....##..#
  2823. echo #....###.................############################................#
  2824. echo ########......###...................(@).####..................########
  2825. echo #.............###........###################....###############......#
  2826. echo ############################################....###############.( )..#
  2827. echo #....................................................................#
  2828. echo !cl!####################
  2829. echo.
  2830. echo You are at @
  2831. echo.
  2832. set rand=!random:~-1!
  2833. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2834. echo [1] Go deeper into the cave
  2835. echo [2] Go back
  2836. echo [3] !l!
  2837. choice /c 123 /n>nul
  2838. if !errorlevel! equ 1 goto !location!-floor-1-2
  2839. if !errorlevel! equ 2 goto !location!-floor-1-1
  2840. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc
  2841. ::3 trainers
  2842. :Digletts-cave
  2843. set sublocation=Digletts-cave
  2844. set SoundURL=Viridian-Forest-Digletts-Cave-Seafoam-Islands.mp3
  2845. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2846. cls
  2847. echo !ln!
  2848. echo Digletts cave
  2849. echo !ln!
  2850. echo.
  2851. set rand=!random:~-1!
  2852. if !rand! GTR 7 echo A wild pkmn appeared!%p%&goto Wild-pkmnlvl-calc-!sublocation!
  2853. echo [1] !g!Vermillion City
  2854. echo [2] !g!Pewter City
  2855. echo [3] !l!
  2856. choice /c 123 /n>nul
  2857. if !errorlevel! equ 1 goto Vermillion-City
  2858. if !errorlevel! equ 2 goto Digletts-cave-1
  2859. if !errorlevel! equ 3 goto Wild-pkmnlvl-calc-digletts-cave
  2860. :Digletts-cave-1
  2861. cls
  2862. if !HM-cut! equ 0 (echo You cant seem to get past the bush by the exit of the cave,
  2863. echo perhaps HM-cut can help you get past it%p%&goto Digletts-cave)
  2864. echo Your pkmn cuts right through the bushes blocking the entrance%p%&goto Pewter-City
  2865. :SS-anne
  2866. cls
  2867. if !ss-anne! equ 1 (echo Guard: Ah, there is your S.S. Anne ticket, go right ahead%p%
  2868. set sublocation=SS-anne
  2869. set SoundURL=SS-Anne.mp3
  2870. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2871. goto SS-anne-floor-1)
  2872. echo Guard: You do not have a ticket, so you cant get on the S.S. Anne%p%&goto !location!
  2873. :SS-anne-floor-1-empty
  2874. cls&echo The cabin seems to be empty%p%&goto SS-anne-floor-1
  2875. :SS-anne-floor-2-empty
  2876. cls&echo The cabin seems to be empty%p%&goto SS-anne-floor-2
  2877. :SS-anne-floor-1
  2878. set SoundURL=SS-Anne.mp3
  2879. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2880. set sublocation=SS-anne-floor-1
  2881. cls
  2882. echo !ln!
  2883. echo S.S. Anne - Floor 1
  2884. echo !ln!
  2885. echo.
  2886. echo [1] !g!cabin 1
  2887. echo [2] !g!cabin 2
  2888. echo [3] !g!cabin 3
  2889. echo [4] !g!cabin 4
  2890. echo [5] !g!cabin 5
  2891. echo [6] !g!cabin 6
  2892. echo [7] !g!cabin 7
  2893. echo [8] !g!cabin 8 (Nurses room)
  2894. echo [9] Go up the stairs
  2895. echo [0] Exit the S.S. Anne
  2896. choice /c 1234567890 /n>nul
  2897. if !errorlevel! equ 1 goto SS-anne-floor-1-1
  2898. if !errorlevel! equ 2 goto SS-anne-floor-1-2
  2899. if !errorlevel! equ 3 goto SS-anne-floor-1-empty
  2900. if !errorlevel! equ 4 goto SS-anne-floor-1-empty
  2901. if !errorlevel! equ 5 goto SS-anne-floor-1-empty
  2902. if !errorlevel! equ 6 goto SS-anne-floor-1-empty
  2903. if !errorlevel! equ 7 goto SS-anne-floor-1-empty
  2904. if !errorlevel! equ 8 goto SS-anne-floor-1-8
  2905. if !errorlevel! equ 9 goto SS-anne-floor-2
  2906. if !errorlevel! equ 0 goto SS-anne-floor-1a
  2907. :SS-anne-floor-1a
  2908. if !HM-cut! equ 1 goto Vermillion-City
  2909. cls&echo Guard, We are still at sea sir, you can not disembark yet%p%
  2910. goto !sublocation!
  2911. :SS-anne-floor-1-1
  2912. cls
  2913. if !trainer-SS-anne-floor-1-1! equ 1 (echo Trainer: Leave, losing is bad enough%p%
  2914. goto SS-anne-floor-1)
  2915. set sublocation=SS-anne-floor-1-1
  2916. set trainerpkmn=KRABY
  2917. set trainerpkmnlvl=10
  2918. set trainer-!sublocation!=1
  2919. echo Hey you!%p%&goto Trainer
  2920. :SS-anne-floor-1-2
  2921. cls
  2922. if !trainer-SS-anne-floor-1-2! equ 1 (echo Trainer: Leave, losing is bad enough%p%
  2923. goto SS-anne-floor-1)
  2924. set sublocation=SS-anne-floor-1-2
  2925. set trainerpkmn=SHELDER
  2926. set trainerpkmnlvl=11
  2927. set trainer-!sublocation!=1
  2928. echo Hey you!%p%&goto Trainer
  2929. :SS-anne-floor-1-6
  2930. cls
  2931. if !trainer-SS-anne-floor-1-6! equ 1 (echo Trainer: Leave, losing is bad enough%p%
  2932. goto SS-anne-floor-1)
  2933. set sublocation=SS-anne-floor-1-6
  2934. set trainerpkmn=SEAL
  2935. set trainerpkmnlvl=11
  2936. set trainer-!sublocation!=1
  2937. echo Hey you!%p%&goto Trainer
  2938. :SS-anne-floor-1-8
  2939. set SoundURL=pkmn-Center-Mart.mp3
  2940. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2941. set SoundURL=Heal.mp3
  2942. set sublocation=SS-anne-floor-1-8
  2943. cls
  2944. echo !ln!
  2945. echo S.S. Anne - Nurses room
  2946. echo !ln!
  2947. echo.
  2948. echo [1] Get your pkmn healed by Nurse Joy
  2949. echo [2] Save your game
  2950. echo [3] Exit this room
  2951. choice /c 123 /n>nul
  2952. if !errorlevel! equ 1 (cls&echo Nurse Joy: My my, your !invpkmn1! does not look good%p%
  2953. cls&echo Nurse Joy: Here let me fix him with my love%p%
  2954. cls&echo Your !invpkmn1! is blushed red%p%
  2955. cls&echo Nurse Joy: Here you go better than ever%p%
  2956. cls&echo !invpkmn1!: !invpkmn1!%p%
  2957. cls&echo All your pkmn have full hp now%p%
  2958. set /a invpkmn1hp=!invpkmn1lvl!*4
  2959. set /a invpkmn2hp=!invpkmn2lvl!*4
  2960. set /a invpkmn3hp=!invpkmn3lvl!*4
  2961. set /a invpkmn4hp=!invpkmn4lvl!*4
  2962. set /a invpkmn5hp=!invpkmn5lvl!*4
  2963. set /a invpkmn6hp=!invpkmn6lvl!*4
  2964. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!&timeout 3 >nul&goto !sublocation!)
  2965. if !errorlevel! equ 2 set location=SS-anne-floor-1-8&goto save-menu
  2966. if !errorlevel! equ 3 goto SS-anne-floor-1
  2967. :SS-anne-floor-2
  2968. set SoundURL=SS-Anne.mp3
  2969. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  2970. set sublocation=SS-anne-floor-2
  2971. cls
  2972. echo !ln!
  2973. echo S.S. Anne - Floor 2
  2974. echo !ln!
  2975. echo.
  2976. echo [1] !g!cabin 1
  2977. echo [2] !g!cabin 2
  2978. echo [3] !g!cabin 3
  2979. echo [4] !g!cabin 4
  2980. echo [5] Go up the stairs
  2981. echo [6] Go down the stairs
  2982. choice /c 123456 /n>nul
  2983. if !errorlevel! equ 1 goto SS-anne-floor-2-empty
  2984. if !errorlevel! equ 2 goto SS-anne-floor-2-empty
  2985. if !errorlevel! equ 3 goto SS-anne-floor-2-3
  2986. if !errorlevel! equ 4 goto SS-anne-floor-2-4
  2987. if !errorlevel! equ 5 goto SS-anne-floor-3
  2988. if !errorlevel! equ 6 goto SS-anne-floor-1
  2989. :SS-anne-floor-2-3
  2990. set sublocation=SS-anne-floor-2-3
  2991. cls
  2992. if !trainer-SS-anne-floor-2-3! equ 1 echo Trainer: Leave, losing is bad enough%p%&goto SS-anne-floor-2
  2993. set trainerpkmn=SLOWPOKE
  2994. set trainerpkmnlvl=10
  2995. set trainer-!sublocation!=1
  2996. echo Hey you!%p%&goto Trainer
  2997. :SS-anne-floor-2-4
  2998. set sublocation=SS-anne-floor-2-4
  2999. cls
  3000. if !trainer-SS-anne-floor-2-4! equ 1 echo Trainer: Leave, losing is bad enough%p%&goto SS-anne-floor-2
  3001. set trainerpkmn=GARYADOS
  3002. set trainerpkmnlvl=16
  3003. set trainer-!sublocation!=1
  3004. echo.
  3005. echo Hey you!%p%&goto Trainer
  3006. :SS-anne-floor-3
  3007. set location=SS-anne-floor-3
  3008. cls
  3009. if !HM-cut! equ 1 echo The Captain is "busy"%p%&goto SS-anne-floor-2
  3010. if !rivalencouter-SS-anne! equ 1 goto SS-anne-floor-3-1
  3011. if !starter! equ BALBASAUR set rivalstarter=CHARMELEON
  3012. if !starter! equ SQUIRTLE set rivalstarter=IVYSAUR
  3013. if !starter! equ CHARMANDER set rivalstarter=WARTORTLE
  3014. if !starter! equ PIKACHU set rivalstarter=JOLTEON
  3015. if !starter! equ EEVEE set rivalstarter=RAICHU
  3016. set rivalencounters=3
  3017. set rivalstarterlvl=17
  3018. echo !rival!: Hey !name!, long time no see!%p%
  3019. goto Rival-battle-start
  3020. :SS-anne-floor-3-1
  3021. set SoundURL=SS-Anne.mp3
  3022. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3023. cls&echo Captain: *pukes*%p%
  3024. cls&echo !name!: Here is a glass of water sir%p%
  3025. cls&echo Captain: *gulp*%p%
  3026. cls&echo Captain: Thanks allot, I feel so much better%p%
  3027. cls&echo Captain: Here take this, it is the HM-cut%p%
  3028. cls&echo !name!: Wow thanks Captain%p%
  3029. cls&echo Captain: We will arrive at Vermillion-City soon%p%
  3030. cls&echo Captain: You should go downstairs and pack your baggs%p%
  3031. set HM-cut=1
  3032. set ss-anne=2
  3033. goto SS-anne-floor-2
  3034. :Fly-like-a-pie
  3035. cls
  3036. if !fly! equ 1 echo Mr. Fly-like-a-pie: How fly are you?%p%&goto !sublocation!
  3037. echo Mr. Fly-like-a-pie: You look like a pkmn trainer%p%
  3038. cls&echo Mr. Fly-like-a-pie: You can have my HM-fly&set HM-fly=1%p%&goto !sublocation!
  3039. :pkmn-fanclub
  3040. set input=0
  3041. if not !bikevoucher! equ 0 (cls&echo Chairman: Hello, !name!!
  3042. cls&echo Did you come see me about my pkmn again? No? Too bad!%p%
  3043. goto !location!)
  3044. cls&echo Chairman: I chair the pkmn Fan Club!%p%
  3045. cls&echo Chairman: I have collected over 100 pkmn!%p%
  3046. cls&echo Chairman: Im very fussy when it comes to pkmn!%p%
  3047. cls&echo Chairman: So... Did you come to visit to hear about my pkmn?%p%
  3048. cls&echo Chairman: Good! Then listen up!%p%
  3049. cls&echo Chairman: My favorite Rapidash... It... cute... lovely... smart...%p%
  3050. cls&echo Chairman: plus... amazing...%p%
  3051. cls&echo Chairman: you think so?... oh yes... it... stunning... kindly... love it!%p%
  3052. cls&echo Chairman: Hug it... when... sleeping... warm and cuddly...%p%
  3053. cls&echo Chairman: spectacular... ravishing...%p%
  3054. cls&echo Chairman: ...Oops! Look at the time! I kept you too long!%p%
  3055. cls&echo Chairman: Thanks for hearing me out!%p%
  3056. cls&echo Chairman: I want you to have this! Its a bike-voucher%p%
  3057. cls&echo Chairman: Exchange that for a Bicycle!%p%
  3058. cls&echo Chairman: Dont worry, my Fearow will Fly me anywhere!%p%
  3059. cls&echo Chairman: So, I dont need a Bicycle! I hope you like cycling!%p%
  3060. set bikevoucher=1
  3061. goto !location!
  3062. :Power-plant
  3063. set SoundURL=pkmn-mansion-power-Plant.mp3
  3064. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3065. cls&echo There are large boulders blocking the road%p%&goto Route-9
  3066. :pkmn-tower
  3067. set SoundURL=pkmn-Tower.mp3
  3068. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3069. :pkmn-tower-floor-1
  3070. set sublocation=pkmn-tower-floor-1
  3071. cls
  3072. echo !ln!
  3073. echo pkmn Tower - Floor 1
  3074. echo !ln!
  3075. echo.
  3076. echo !cl!
  3077. echo !cl!
  3078. echo ####################...........###################
  3079. echo #################................#################
  3080. echo ############..........................############
  3081. echo ###########............................###########
  3082. echo #########.................................########
  3083. echo #########.................................########
  3084. echo ######......................................######
  3085. echo ###............................................###
  3086. echo ###............................................###
  3087. echo ###............................................###
  3088. echo ###.........................................(1)###
  3089. echo ###............................................###
  3090. echo ######......................................######
  3091. echo ######.........................###################
  3092. echo ######.........................###################
  3093. echo ######.........................###..........######
  3094. echo ############...................###.....###########
  3095. echo ############...................###.....###########
  3096. echo ####################...........###################
  3097. echo #########################(@)######################
  3098. echo [1] Exit the pkmn Tower
  3099. echo [2] Go upstairs to 1
  3100. choice /c 12 /n>nul
  3101. if !errorlevel! equ 1 goto Lavender-Town
  3102. if !errorlevel! equ 2 goto pkmn-tower-floor-2
  3103. :pkmn-tower-floor-2
  3104. set sublocation=pkmn-tower-floor-2
  3105. cls
  3106. echo !ln!
  3107. echo pkmn Tower - Floor 2
  3108. echo !ln!
  3109. echo.
  3110. echo !cl!
  3111. echo !cl!
  3112. echo !cl!
  3113. echo ###################..............#################
  3114. echo ###################...................############
  3115. echo ###################....................###########
  3116. echo ################..................##...###########
  3117. echo ########..........................##.....#########
  3118. echo #####...........#################...........######
  3119. echo #####...........######.........................###
  3120. echo ###........###########......###########........###
  3121. echo ###(1).....###########.....############.....(@)###
  3122. echo ###........###########......###########........###
  3123. echo ###.............######.........................###
  3124. echo ######..........######......................######
  3125. echo ########...#################.............#########
  3126. echo ############################.....#################
  3127. echo ############################.....#################
  3128. echo ###########......................#################
  3129. echo #################................#################
  3130. echo !cl!
  3131. echo !cl!
  3132. echo [1] Go back downstairs
  3133. echo [2] Go upstairs to 1
  3134. choice /c 12 /n>nul
  3135. if !errorlevel! equ 1 goto
  3136. if !errorlevel! equ 2 goto pkmn-tower-floor-3
  3137. :pkmn-tower-floor-3
  3138. set sublocation=pkmn-tower-floor-3
  3139. cls
  3140. echo !ln!
  3141. echo pkmn Tower - Floor 3
  3142. echo !ln!
  3143. echo.
  3144. echo !cl!
  3145. echo !cl!
  3146. echo ####################...........###################
  3147. echo ####################.............#################
  3148. echo ####################...................###########
  3149. echo #########................................#########
  3150. echo #########.................................########
  3151. echo #########.....####################################
  3152. echo ######........###...........................######
  3153. echo ###...........###...................######.....###
  3154. echo ###...........###...########......##...........###
  3155. echo ###(@)........###.....######......##........(1)###
  3156. echo ###...........###......#####......##...........###
  3157. echo ###...........###.................##...........###
  3158. echo ######........###.................##........######
  3159. echo #########.....###.....##############...###########
  3160. echo #########.............####..................######
  3161. echo #########...................................######
  3162. echo #################................#################
  3163. echo #################................#################
  3164. echo !cl!
  3165. echo !cl!
  3166. echo [1] Go back downstairs
  3167. echo [2] Go upstairs to 1
  3168. choice /c 12 /n>nul
  3169. if !errorlevel! equ 1 goto pkmn-Tower-Floor-2
  3170. if !errorlevel! equ 2 goto pkmn-tower-floor-4
  3171. :pkmn-tower-floor-4
  3172. set sublocation=pkmn-tower-floor-4
  3173. cls
  3174. echo !ln!
  3175. echo pkmn Tower - Floor 4
  3176. echo !ln!
  3177. echo.
  3178. echo !cl!
  3179. echo !cl!
  3180. echo ####################...........###################
  3181. echo ####################.............#################
  3182. echo ####################...................###########
  3183. echo ############...........##.........##.#############
  3184. echo ###########............##...##.##.################
  3185. echo #########.....######...##...######........########
  3186. echo ######................###...........######...#####
  3187. echo ###...........######.....#########.............###
  3188. echo ###....................##......................###
  3189. echo ###(1)##.........#####.##...##.##...........(@)###
  3190. echo ###########......#####......######.............###
  3191. echo ###..............##....................###.....###
  3192. echo ######...........######.....######..##############
  3193. echo #########..###............................########
  3194. echo #########.....###...##.........#####......########
  3195. echo #########.#....##...##...###...##.##.....#########
  3196. echo ############..#...#......###..........############
  3197. echo ####################........######################
  3198. echo #########################.....####################
  3199. echo !cl!
  3200. echo [1] Go back downstairs
  3201. echo [2] Go upstairs to 1
  3202. choice /c 12 /n>nul
  3203. if !errorlevel! equ 1 goto pkmn-Tower-Floor-3
  3204. if !errorlevel! equ 2 goto pkmn-tower-floor-5
  3205. :pkmn-tower-floor-5
  3206. set sublocation=pkmn-tower-floor-5
  3207. cls
  3208. echo !ln!
  3209. echo pkmn Tower - Floor 5
  3210. echo !ln!
  3211. echo.
  3212. echo !cl!
  3213. echo !cl!
  3214. echo ####################...........###################
  3215. echo #################...##...........#################
  3216. echo #################.#...............##...###########
  3217. echo #########..#########.#......##.##.##.....#########
  3218. echo #########...###########.....###########...########
  3219. echo ##############......................##############
  3220. echo ######......................................######
  3221. echo ###..............###########..............##...###
  3222. echo ###......##.##.################...##.##.##.....###
  3223. echo ###(@)...########.................########.....###
  3224. echo ###......########.................########..(1)###
  3225. echo ###......##.................######.............###
  3226. echo ######...##...........######................######
  3227. echo ##############.......................#############
  3228. echo #########..###########......#####.#####..#########
  3229. echo #########..###########......########.##..#########
  3230. echo ############...........................###########
  3231. echo #################................#################
  3232. echo ######################.........###################
  3233. echo #############################.####################
  3234. echo [1] Go back downstairs
  3235. echo [2] Go upstairs to 1
  3236. choice /c 12 /n>nul
  3237. if !errorlevel! equ 1 goto pkmn-Tower-Floor-4
  3238. if !errorlevel! equ 2 goto pkmn-tower-floor-6
  3239. :pkmn-tower-floor-6
  3240. set sublocation=pkmn-tower-floor-6
  3241. cls
  3242. echo !ln!
  3243. echo pkmn Tower - Floor 6
  3244. echo !ln!
  3245. echo.
  3246. echo !cl!
  3247. echo !cl!
  3248. echo !cl!
  3249. echo #######################..........#################
  3250. echo ##############........................############
  3251. echo ######################......#####......###########
  3252. echo ###########...########......#####......###########
  3253. echo #########..........###......#####......###########
  3254. echo ######......................#####......###########
  3255. echo ###.........................#####..............###
  3256. echo #################...........#####..............###
  3257. echo ###########...###################...........(@)###
  3258. echo ###########...##############.#.................###
  3259. echo ###..............#############.##.#....##......###
  3260. echo ###########.................########...###########
  3261. echo #########........................###.....#########
  3262. echo ###########......#####......########...###########
  3263. echo ###########......#####......########...###########
  3264. echo ############.######.##......######.##.############
  3265. echo ######################......######################
  3266. echo ####################(1).......####################
  3267. echo !cl!
  3268. echo [1] Go back downstairs
  3269. echo [2] Go upstairs to 1
  3270. choice /c 12 /n>nul
  3271. if !errorlevel! equ 1 goto pkmn-Tower-Floor-5
  3272. if !errorlevel! equ 2 goto pkmn-tower-floor-7
  3273. :pkmn-tower-floor-7
  3274. set sublocation=pkmn-tower-floor-7
  3275. cls
  3276. echo !ln!
  3277. echo pkmn Tower - Floor 7
  3278. echo !ln!
  3279. echo.
  3280. echo !cl!
  3281. echo !cl!
  3282. echo !cl!
  3283. echo ######################......######################
  3284. echo #########################...######################
  3285. echo #######################.....######################
  3286. echo ####################...........###################
  3287. echo ####################...........###################
  3288. echo ######################.........###################
  3289. echo ######################.........###################
  3290. echo ####################.........#####################
  3291. echo ####################........######################
  3292. echo ####################...........###################
  3293. echo ######################.........###################
  3294. echo ######################.........###################
  3295. echo ####################...........###################
  3296. echo #######################.....######################
  3297. echo #######################.....######################
  3298. echo #######################.....######################
  3299. echo #######################.....######################
  3300. echo #######################........###################
  3301. echo !cl!
  3302. echo [1] Go back downstairs
  3303. choice /c 12 /n>nul
  3304. if !errorlevel! equ 1 goto pkmn-Tower-Floor-6
  3305. :Safari-zone
  3306. set SoundURL=Evolution.mp3
  3307. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3308. :Safari-zone-floor-0
  3309. set sublocation=Safari-zone-Center-Area
  3310. cls
  3311. echo !ln!
  3312. echo Safari Zone - Center Area
  3313. echo !ln!
  3314. echo.
  3315. echo !cl!
  3316. echo #................................................#
  3317. echo #................................................#
  3318. echo #................................................#
  3319. echo #................................................#
  3320. echo #................................................#
  3321. echo #................................................#
  3322. echo #................................................#
  3323. echo #................................................#
  3324. echo #................................................#
  3325. echo #................................................#
  3326. echo #................................................#
  3327. echo #................................................#
  3328. echo #................................................#
  3329. echo !cl!
  3330. :Safari-zone-floor-1
  3331. set sublocation=Safari-zone-Area-1
  3332. cls
  3333. echo !ln!
  3334. echo Safari Zone - Area 1
  3335. echo !ln!
  3336. echo.
  3337. :Safari-zone-floor-2
  3338. set sublocation=Safari-zone-Area-2
  3339. cls
  3340. echo !ln!
  3341. echo Safari Zone - Area 2
  3342. echo !ln!
  3343. echo.
  3344. echo !cl!
  3345. echo #................................................#
  3346. echo #................................................#
  3347. echo #................................................#
  3348. echo #................................................#
  3349. echo #................................................#
  3350. echo #................................................#
  3351. echo #................................................#
  3352. echo #................................................#
  3353. echo #................................................#
  3354. echo #................................................#
  3355. echo #................................................#
  3356. echo #................................................#
  3357. echo #................................................#
  3358. echo !cl!
  3359. :Safari-zone-floor-3
  3360. set sublocation=Safari-zone-Area-3
  3361. cls
  3362. echo !ln!
  3363. echo Safari Zone - Area 3
  3364. echo !ln!
  3365. echo.
  3366. echo !cl!
  3367. echo #................................................#
  3368. echo #................................................#
  3369. echo #................................................#
  3370. echo #................................................#
  3371. echo #................................................#
  3372. echo #................................................#
  3373. echo #................................................#
  3374. echo #................................................#
  3375. echo #................................................#
  3376. echo #................................................#
  3377. echo #................................................#
  3378. echo #................................................#
  3379. echo #................................................#
  3380. echo !cl!
  3381. :pkmn-mansion
  3382. set SoundURL=pkmn-mansion-power-plant.mp3
  3383. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3384. ::begin floor 2
  3385. :pkmn-mansion-floor-1
  3386. set sublocation=pkmn-mansion-floor-1
  3387. cls
  3388. echo !ln!
  3389. echo pkmn Mansion - Floor 1
  3390. echo !ln!
  3391. echo.
  3392. echo !cl!
  3393. echo #................................................#
  3394. echo #................................................#
  3395. echo #................................................#
  3396. echo #................................................#
  3397. echo #................................................#
  3398. echo #................................................#
  3399. echo #................................................#
  3400. echo #................................................#
  3401. echo #................................................#
  3402. echo #................................................#
  3403. echo #................................................#
  3404. echo #................................................#
  3405. echo #................................................#
  3406. echo !cl!
  3407. :pkmn-mansion-floor-2
  3408. set sublocation=pkmn-mansion-floor-2
  3409. cls
  3410. echo !ln!
  3411. echo pkmn Mansion - Floor 2
  3412. echo !ln!
  3413. echo.
  3414. echo !cl!
  3415. echo #................................................#
  3416. echo #................................................#
  3417. echo #................................................#
  3418. echo #................................................#
  3419. echo #................................................#
  3420. echo #................................................#
  3421. echo #................................................#
  3422. echo #................................................#
  3423. echo #................................................#
  3424. echo #................................................#
  3425. echo #................................................#
  3426. echo #................................................#
  3427. echo #................................................#
  3428. echo !cl!
  3429. :pkmn-mansion-floor-3
  3430. set sublocation=pkmn-mansion-floor-3
  3431. cls
  3432. echo !ln!
  3433. echo pkmn Mansion - Floor 3
  3434. echo !ln!
  3435. echo.
  3436. :pkmn-mansion-floor-4
  3437. set sublocation=pkmn-mansion-floor-4
  3438. cls
  3439. echo !ln!
  3440. echo pkmn Mansion - Floor 4
  3441. echo !ln!
  3442. echo.
  3443. echo !cl!
  3444. echo #................................................#
  3445. echo #................................................#
  3446. echo #................................................#
  3447. echo #................................................#
  3448. echo #................................................#
  3449. echo #................................................#
  3450. echo #................................................#
  3451. echo #................................................#
  3452. echo #................................................#
  3453. echo #................................................#
  3454. echo #................................................#
  3455. echo #................................................#
  3456. echo #................................................#
  3457. echo !cl!
  3458. :Seafoam-islands
  3459. set SoundURL=Viridian-Forest-Digletts-Cave-Seafoam-Islands.mp3
  3460. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3461. cls&echo Nothing here yet%p%&goto !location!
  3462. :Seafoam-islands-floor-1
  3463. set sublocation=Seafoam-islands-floor-1
  3464. cls
  3465. echo !ln!
  3466. echo Seafoam Islands - Floor 1
  3467. echo !ln!
  3468. echo.
  3469. echo !cl!
  3470. echo #................................................#
  3471. echo #................................................#
  3472. echo #................................................#
  3473. echo #................................................#
  3474. echo #................................................#
  3475. echo #................................................#
  3476. echo #................................................#
  3477. echo #................................................#
  3478. echo #................................................#
  3479. echo #................................................#
  3480. echo #................................................#
  3481. echo #................................................#
  3482. echo #................................................#
  3483. echo !cl!
  3484. :Seafoam-islands-floor-2
  3485. set sublocation=Seafoam-islands-floor-2
  3486. cls
  3487. echo !ln!
  3488. echo Seafoam Islands - Floor 2
  3489. echo !ln!
  3490. echo.
  3491. echo !cl!
  3492. echo #................................................#
  3493. echo #................................................#
  3494. echo #................................................#
  3495. echo #................................................#
  3496. echo #................................................#
  3497. echo #................................................#
  3498. echo #................................................#
  3499. echo #................................................#
  3500. echo #................................................#
  3501. echo #................................................#
  3502. echo #................................................#
  3503. echo #................................................#
  3504. echo #................................................#
  3505. echo !cl!
  3506. :Seafoam-islands-floor-3
  3507. set sublocation=Seafoam-islands-floor-3
  3508. cls
  3509. echo !ln!
  3510. echo Seafoam Islands - Floor 3
  3511. echo !ln!
  3512. echo.
  3513. echo !cl!
  3514. echo #................................................#
  3515. echo #................................................#
  3516. echo #................................................#
  3517. echo #................................................#
  3518. echo #................................................#
  3519. echo #................................................#
  3520. echo #................................................#
  3521. echo #................................................#
  3522. echo #................................................#
  3523. echo #................................................#
  3524. echo #................................................#
  3525. echo #................................................#
  3526. echo #................................................#
  3527. echo !cl!
  3528. :Seafoam-islands-floor-4
  3529. set sublocation=Seafoam-islands-floor-4
  3530. cls
  3531. echo !ln!
  3532. echo Seafoam Islands - Floor 4
  3533. echo !ln!
  3534. echo.
  3535. echo !cl!
  3536. echo #................................................#
  3537. echo #................................................#
  3538. echo #................................................#
  3539. echo #................................................#
  3540. echo #................................................#
  3541. echo #................................................#
  3542. echo #................................................#
  3543. echo #................................................#
  3544. echo #................................................#
  3545. echo #................................................#
  3546. echo #................................................#
  3547. echo #................................................#
  3548. echo #................................................#
  3549. echo !cl!
  3550. :Seafoam-islands-floor-5
  3551. set sublocation=Seafoam-islands-floor-5
  3552. cls
  3553. echo !ln!
  3554. echo Seafoam Islands - Floor 5
  3555. echo !ln!
  3556. echo.
  3557. echo !cl!
  3558. echo #................................................#
  3559. echo #................................................#
  3560. echo #................................................#
  3561. echo #................................................#
  3562. echo #................................................#
  3563. echo #................................................#
  3564. echo #................................................#
  3565. echo #................................................#
  3566. echo #................................................#
  3567. echo #................................................#
  3568. echo #................................................#
  3569. echo #................................................#
  3570. echo #................................................#
  3571. echo !cl!
  3572. :Victory-road
  3573. set SoundURL=The-final-road.mp3
  3574. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3575. cls&echo Nothing here yet%p%&goto !location!
  3576. :Victory-road-floor-1
  3577. set sublocation=Victory-road-floor-1
  3578. cls
  3579. echo !ln!
  3580. echo Victory Road - Floor 1
  3581. echo !ln!
  3582. echo.
  3583. echo !cl!
  3584. echo #................................................#
  3585. echo #................................................#
  3586. echo #................................................#
  3587. echo #................................................#
  3588. echo #................................................#
  3589. echo #................................................#
  3590. echo #................................................#
  3591. echo #................................................#
  3592. echo #................................................#
  3593. echo #................................................#
  3594. echo #................................................#
  3595. echo #................................................#
  3596. echo #................................................#
  3597. echo !cl!
  3598. :Victory-road-floor-2
  3599. set sublocation=Victory-road-floor-2
  3600. cls
  3601. echo !ln!
  3602. echo Victory Road - Floor 2
  3603. echo !ln!
  3604. echo.
  3605. echo !cl!
  3606. echo #................................................#
  3607. echo #................................................#
  3608. echo #................................................#
  3609. echo #................................................#
  3610. echo #................................................#
  3611. echo #................................................#
  3612. echo #................................................#
  3613. echo #................................................#
  3614. echo #................................................#
  3615. echo #................................................#
  3616. echo #................................................#
  3617. echo #................................................#
  3618. echo #................................................#
  3619. echo !cl!
  3620. :Victory-road-floor-3
  3621. set sublocation=Victory-road-floor-3
  3622. cls
  3623. echo !ln!
  3624. echo Victory Road - Floor 3
  3625. echo !ln!
  3626. echo.
  3627. echo !cl!
  3628. echo #................................................#
  3629. echo #................................................#
  3630. echo #................................................#
  3631. echo #................................................#
  3632. echo #................................................#
  3633. echo #................................................#
  3634. echo #................................................#
  3635. echo #................................................#
  3636. echo #................................................#
  3637. echo #................................................#
  3638. echo #................................................#
  3639. echo #................................................#
  3640. echo #................................................#
  3641. echo !cl!
  3642. :Cerulean-cave
  3643. set SoundURL=Team-Rocket-Hideout-Cerulean-Cave-Power-Plant.mp3
  3644. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3645. :Cerulean-cave-floor-1
  3646. set sublocation=Cerulean-cave-floor-1
  3647. cls
  3648. echo !ln!
  3649. echo Cerulean Cave - Floor 1
  3650. echo !ln!
  3651. echo.
  3652. echo !cl!
  3653. echo #................................................#
  3654. echo #................................................#
  3655. echo #................................................#
  3656. echo #................................................#
  3657. echo #................................................#
  3658. echo #................................................#
  3659. echo #................................................#
  3660. echo #................................................#
  3661. echo #................................................#
  3662. echo #................................................#
  3663. echo #................................................#
  3664. echo #................................................#
  3665. echo #................................................#
  3666. echo !cl!
  3667. :Cerulean-cave-floor-2
  3668. set sublocation=Cerulean-cave-floor-2
  3669. cls
  3670. echo !ln!
  3671. echo Cerulean Cave - Floor 2
  3672. echo !ln!
  3673. echo.
  3674. echo !cl!
  3675. echo #................................................#
  3676. echo #................................................#
  3677. echo #................................................#
  3678. echo #................................................#
  3679. echo #................................................#
  3680. echo #................................................#
  3681. echo #................................................#
  3682. echo #................................................#
  3683. echo #................................................#
  3684. echo #................................................#
  3685. echo #................................................#
  3686. echo #................................................#
  3687. echo #................................................#
  3688. echo !cl!
  3689. :Cerulean-cave-floor-3
  3690. set sublocation=Cerulean-cave-floor-3
  3691. cls
  3692. echo !ln!
  3693. echo Cerulean Cave - Floor 3
  3694. echo !ln!
  3695. echo.
  3696. echo !cl!
  3697. echo #................................................#
  3698. echo #................................................#
  3699. echo #................................................#
  3700. echo #................................................#
  3701. echo #................................................#
  3702. echo #................................................#
  3703. echo #................................................#
  3704. echo #................................................#
  3705. echo #................................................#
  3706. echo #................................................#
  3707. echo #................................................#
  3708. echo #................................................#
  3709. echo #................................................#
  3710. echo !cl!
  3711. :Game-Corner
  3712. set SoundURL=Casino.mp3
  3713. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3714. :Game-Corner-0
  3715. cls
  3716. echo !ln!
  3717. echo Game corner - Coins: !coins! - Money: !money!
  3718. echo !ln!
  3719. echo.
  3720. echo [1] Buy 50 coins ($1.000)
  3721. echo [2] Get on the slot machine
  3722. echo [3] Exit the Game corner
  3723. echo [4] Take a look behind the odd poster
  3724. echo [5] Go to the price hall
  3725. choice /c 12345 /n>nul
  3726. if !errorlevel! equ 1 goto Game-Corner-1
  3727. if !errorlevel! equ 2 set bet=1&goto Bet
  3728. if !errorlevel! equ 3 goto Celadon-City
  3729. if !errorlevel! equ 4 goto Rocket-Hideout
  3730. if !errorlevel! equ 5 goto Game-Corner-5
  3731. :Game-Corner-1
  3732. if !money! GTR 999 set /a coins+=50&set /a money-=1000&echo Assistant: Here you go&goto Game-Corner-0
  3733. cls&echo Assistant: You dont have enough money for that%p%&goto Game-Corner-0
  3734. :Bet
  3735. cls
  3736. echo.
  3737. echo Slot Machine - Coins: !coins!
  3738. echo.
  3739. echo [1] Bet (!bet!)
  3740. echo [2] Change bet
  3741. echo [3] Quit
  3742. choice /c 123 /n>nul
  3743. if !errorlevel! equ 1 if !coins! LSS !bet! cls&echo You dont have enough coins%p%&goto Bet
  3744. if !errorlevel! equ 2 goto Changebet
  3745. if !errorlevel! equ 3 goto Game-corner-0
  3746. set slot=0&set /a coins=!coins!-!bet!&goto Slot0
  3747. :Changebet
  3748. cls&echo Bet how much? - (coins: !coins!)
  3749. set /p bet=
  3750. if !bet! LSS 2 goto changebet
  3751. if !bet! GTR !coins! goto changebet
  3752. goto Bet
  3753. :Slot0
  3754. set slot1-1=########
  3755. set slot1-2=       #
  3756. set slot1-3=       #
  3757. set slot1-4=       #
  3758. set slot1-5=       #
  3759. set slot1-6=       #
  3760. set slot1-7=       #
  3761. set slot1-8=       #
  3762. set slot1-9=       #
  3763. set slot1-10=       #
  3764. set slot1-11=       #
  3765. set slot1-12=       #
  3766. set slot1-13=########
  3767. set slot2-1=########
  3768. set slot2-2=       #
  3769. set slot2-3=       #
  3770. set slot2-4=       #
  3771. set slot2-5=       #
  3772. set slot2-6=       #
  3773. set slot2-7=       #
  3774. set slot2-8=       #
  3775. set slot2-9=       #
  3776. set slot2-10=       #
  3777. set slot2-11=       #
  3778. set slot2-12=       #
  3779. set slot2-13=########
  3780. set slot3-1=########
  3781. set slot3-2=       #
  3782. set slot3-3=       #
  3783. set slot3-4=       #
  3784. set slot3-5=       #
  3785. set slot3-6=       #
  3786. set slot3-7=       #
  3787. set slot3-8=       #
  3788. set slot3-9=       #
  3789. set slot3-10=       #
  3790. set slot3-11=       #
  3791. set slot3-12=       #
  3792. set slot3-13=########
  3793. goto Scoreboard
  3794. :Slot1
  3795. set slot=1
  3796. set input=!random:~-1!
  3797. set slot1=!input!
  3798. if !input! equ 0 goto 777
  3799. if !input! equ 1 goto BAR
  3800. if !input! equ 2 goto DIGLETT
  3801. if !input! equ 3 goto VOLTORB
  3802. if !input! equ 4 goto CHERRY
  3803. if !input! GTR 4 goto Slot1
  3804. :Slot2
  3805. set slot=2
  3806. set input=!random:~-1!
  3807. set slot2=!input!
  3808. if !input! equ 0 goto 777
  3809. if !input! equ 1 goto BAR
  3810. if !input! equ 2 goto DIGLETT
  3811. if !input! equ 3 goto VOLTORB
  3812. if !input! equ 4 goto CHERRY
  3813. if !input! GTR 4 goto Slot2
  3814. :Slot3
  3815. set slot=3
  3816. set input=!random:~-1!
  3817. set slot3=!input!
  3818. if !input! equ 0 goto 777
  3819. if !input! equ 1 goto BAR
  3820. if !input! equ 2 goto DIGLETT
  3821. if !input! equ 3 goto VOLTORB
  3822. if !input! equ 4 goto CHERRY
  3823. if !input! GTR 4 goto Slot3
  3824. :Scoreboard
  3825. cls
  3826. echo.
  3827. echo Coins: !coins!
  3828. echo.
  3829. echo U!slot1-1!!slot2-1!!slot3-1!
  3830. echo U!slot1-2!!slot2-2!!slot3-2!
  3831. echo U!slot1-3!!slot2-3!!slot3-3!
  3832. echo U!slot1-4!!slot2-4!!slot3-4!
  3833. echo U!slot1-5!!slot2-5!!slot3-5!
  3834. echo U!slot1-6!!slot2-6!!slot3-6!
  3835. echo U!slot1-7!!slot2-7!!slot3-7!
  3836. echo U!slot1-8!!slot2-8!!slot3-8!
  3837. echo U!slot1-9!!slot2-9!!slot3-9!
  3838. echo U!slot1-10!!slot2-10!!slot3-10!
  3839. echo U!slot1-11!!slot2-11!!slot3-11!
  3840. echo U!slot1-12!!slot2-12!!slot3-12!
  3841. echo U!slot1-13!!slot2-13!!slot3-13!
  3842. timeout 1 >nul
  3843. if !slot! equ 0 goto Slot1
  3844. if !slot! equ 1 goto Slot2
  3845. if !slot! equ 2 goto Slot3
  3846. if !slot! equ 3 pause>nul&goto Checkscore
  3847. :Checkscore
  3848. if !slot1! equ !slot2! if !slot2! equ !slot3! cls&echo Jackpot!!! - !slot1!!slot2!!slot3!%p%&set score=0&set /a coins+=25*!bet!&goto Bet
  3849. goto Bet
  3850. :777
  3851. set slot!slot!-1=########
  3852. set slot!slot!-2=       #
  3853. set slot!slot!-3=       #
  3854. set slot!slot!-4=  #### #
  3855. set slot!slot!-5=     # #
  3856. set slot!slot!-6=     # #
  3857. set slot!slot!-7=     # #
  3858. set slot!slot!-8=     # #
  3859. set slot!slot!-9=     # #
  3860. set slot!slot!-10=     # #
  3861. set slot!slot!-11=       #
  3862. set slot!slot!-12=       #
  3863. set slot!slot!-13=########
  3864. goto Scoreboard
  3865. :BAR
  3866. set slot!slot!-1=########
  3867. set slot!slot!-2=       #
  3868. set slot!slot!-3=       #
  3869. set slot!slot!-4=       #
  3870. set slot!slot!-5=       #
  3871. set slot!slot!-6= ##### #
  3872. set slot!slot!-7= #BAR# #
  3873. set slot!slot!-8= ##### #
  3874. set slot!slot!-9=       #
  3875. set slot!slot!-10=       #
  3876. set slot!slot!-11=       #
  3877. set slot!slot!-12=       #
  3878. set slot!slot!-13=########
  3879. goto Scoreboard
  3880. :DIGLETT
  3881. set slot!slot!-1=########
  3882. set slot!slot!-2=      ##
  3883. set slot!slot!-3=     # #
  3884. set slot!slot!-4=  ###  #
  3885. set slot!slot!-5= #   # #
  3886. set slot!slot!-6= #- -# #
  3887. set slot!slot!-7= #   # #
  3888. set slot!slot!-8= #\ /# #
  3889. set slot!slot!-9= #/ \# #
  3890. set slot!slot!-10= #   # #
  3891. set slot!slot!-11=  ###  #
  3892. set slot!slot!-12=  #  # #
  3893. set slot!slot!-13=########
  3894. goto Scoreboard
  3895. :VOLTORB
  3896. set slot!slot!-1=########
  3897. set slot!slot!-2=       #
  3898. set slot!slot!-3=       #
  3899. set slot!slot!-4=  ###  #
  3900. set slot!slot!-5= ##### #
  3901. set slot!slot!-6= #-#-# #
  3902. set slot!slot!-7= ##### #
  3903. set slot!slot!-8= #   # #
  3904. set slot!slot!-9= #   # #
  3905. set slot!slot!-10=  ###  #
  3906. set slot!slot!-11=       #
  3907. set slot!slot!-12=       #
  3908. set slot!slot!-13=########
  3909. goto Scoreboard
  3910. :CHERRY
  3911. set slot!slot!-1=########
  3912. set slot!slot!-2=       #
  3913. set slot!slot!-3=       #
  3914. set slot!slot!-4=       #
  3915. set slot!slot!-5=       #
  3916. set slot!slot!-6= ##  # #
  3917. set slot!slot!-7= ##### #
  3918. set slot!slot!-8=  ###  #
  3919. set slot!slot!-9= ## ## #
  3920. set slot!slot!-10= ## ## #
  3921. set slot!slot!-11=       #
  3922. set slot!slot!-12=       #
  3923. set slot!slot!-13=########
  3924. goto Scoreboard
  3925. :Game-Corner-5
  3926. cls
  3927. echo !ln!
  3928. echo Game corner Prize hall - Coins: !coins!
  3929. echo !ln!
  3930. echo.
  3931. echo [1]
  3932. echo [2]
  3933. echo [3] Go to the Game corner
  3934. echo [4]
  3935. echo [5]
  3936. choice /c 12345 /n>nul
  3937. if !errorlevel! equ 1 goto Game-Corner-0
  3938. if !errorlevel! equ 2 goto Game-Corner-0
  3939. if !errorlevel! equ 3 goto Game-Corner-0
  3940. if !errorlevel! equ 4 goto Game-Corner-0
  3941. if !errorlevel! equ 5 goto Game-Corner-0
  3942. :Rocket-Hideout
  3943. set sublocation=Rocket-Hideout
  3944. set SoundURL=Team-Rocket-Hideout-Cerulean-Cave-Power-Plant.mp3
  3945. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  3946. cls&echo There is something behind the poster%p%
  3947. :Rocket-Hideout-floor-1
  3948. set sublocation=Rocket-Hideout-floor-1
  3949. cls
  3950. echo !ln!
  3951. echo Rocket hideout - BFloor 1
  3952. echo !ln!
  3953. echo !cl!
  3954. echo !cl!
  3955. echo ##########################...(@)..(1)..###########
  3956. echo ##########################.............###########
  3957. echo ############################........##############
  3958. echo ###.............................................##
  3959. echo ###.............................................##
  3960. echo ########...##########.........#########...########
  3961. echo ###.............#####.........#####.............##
  3962. echo ###.............#####.........#####.............##
  3963. echo ###..#########..#####.........#####.##########..##
  3964. echo ###..#########..#####.........#####.##########..##
  3965. echo ###.............#####.........#####.............##
  3966. echo !cl!
  3967. echo #####.............................###...........##
  3968. echo #####....###############..........###(3)##########
  3969. echo #####....###############..........################
  3970. echo #####....###############..........################
  3971. echo #####....###############..........#####.........##
  3972. echo #####....###############......(2).#####.........##
  3973. echo #####.............................#####.........##
  3974. echo !cl!
  3975. echo [1] Go back upstairs
  3976. echo [2] Go downstairs to 1
  3977. echo [3] Go to the elavator to 3
  3978. choice /c 123 /n>nul
  3979. if !errorlevel! equ 1 goto Game-Corner
  3980. if !errorlevel! equ 2 goto Rocket-Hideout-floor-2
  3981. if !errorlevel! equ 3 echo You dont have a key for this%p%&goto !sublocation!
  3982. :Rocket-Hideout-floor-2
  3983. set sublocation=Rocket-Hideout-floor-2
  3984. cls
  3985. echo !ln!
  3986. echo Rocket hideout - BFloor 2
  3987. echo !ln!
  3988. echo !cl!
  3989. echo ##.........##.................##.......##........#
  3990. echo ##.........##..#..#..#..#.....##...(1).##....(@).#
  3991. echo ##..####................########.......##........#
  3992. echo ##........#######..##..................##........#
  3993. echo ######.............##..................##........#
  3994. echo ##..##...###..#.#..##......#####.......##........#
  3995. echo ##.........####.#..##......#...........##........#
  3996. echo ######.............##......#..##.................#
  3997. echo ##...................#######..##.................#
  3998. echo ##..###..#####.......###......####################
  3999. echo ##.......#######..............##.................#
  4000. echo ##..#####.....#...............##.................#
  4001. echo ##.......................##...##.......##(3)######
  4002. echo ##..####.#..##..#.........#............###########
  4003. echo ##..##......##..#######...#............###########
  4004. echo ##...##..#..##............#....#..(2)..###########
  4005. echo ##...##..#..##............#....#.......###########
  4006. echo ##...##..#..##.....########...##.......###########
  4007. echo ##..........#####.............##.......###########
  4008. echo ##.....#########################.......###########
  4009. echo !cl!
  4010. echo [1] Go back upstairs
  4011. echo [2] Go downstairs to 1
  4012. echo [3] Go upstairs to 2
  4013. echo [4] Go into the elavator to 3
  4014. choice /c 1234 /n>nul
  4015. if !errorlevel! equ 1 goto Rocket-Hideout-floor-1
  4016. if !errorlevel! equ 2 goto Rocket-Hideout-floor-3
  4017. if !errorlevel! equ 3 goto Rocket-Hideout-floor-1-1
  4018. if !errorlevel! equ 4 goto Rocket-Hideout-elavator
  4019. :Rocket-Hideout-floor-3
  4020. set sublocation=Rocket-Hideout-floor-3
  4021. cls
  4022. echo !ln!
  4023. echo Rocket hideout - BFloor 3
  4024. echo !ln!
  4025. echo !cl!
  4026. echo ###.............................................##
  4027. echo ###...................................(@).......##
  4028. echo ###.............................................##
  4029. echo ############################..##................##
  4030. echo ###...........................###########.......##
  4031. echo #############....###########..##................##
  4032. echo ###...........................##................##
  4033. echo #####...##...#####.....#########................##
  4034. echo ###....................#########.....#############
  4035. echo ###...####...#...#.....#####..##................##
  4036. echo ###...####...#................##................##
  4037. echo ###................####..#######................##
  4038. echo ###...####.........####..#######................##
  4039. echo ###................####..(1)..####################
  4040. echo ##########..###....####.......####################
  4041. echo ###.........##.....####.........##################
  4042. echo ###................####.........##################
  4043. echo ###...........#########.........##################
  4044. echo ############..#######.............################
  4045. echo ###...............................################
  4046. echo !cl!
  4047. echo [1] Go back upstairs
  4048. echo [2] Go downstairs to 1
  4049. choice /c 12 /n>nul
  4050. if !errorlevel! equ 1 goto Rocket-Hideout-floor-2
  4051. if !errorlevel! equ 2 goto Rocket-Hideout-floor-4
  4052. :Rocket-Hideout-floor-4
  4053. set sublocation=Rocket-Hideout-floor-4
  4054. if !Trainer-Rocket-Hideout-floor-4! equ 1 cls&set lift-key=1&echo You got the lift-key%p%
  4055. if !Trainer-Rocket-Hideout-floor-4! equ 0 set Trainer-Rocket-Hideout-floor-4=1&goto Trainer-Rocket-Hideout-floor-4
  4056. cls
  4057. echo !ln!
  4058. echo Rocket hideout - BFloor 4
  4059. echo !ln!
  4060. echo !cl!
  4061. echo #####################.........################..##
  4062. echo #####.............###.........##................##
  4063. echo #####.........................##................##
  4064. echo ###..#########................##.....#########..##
  4065. echo ###..#########....###.........##.....#########..##
  4066. echo ###...............###.........#####.............##
  4067. echo #####################.........#####...........####
  4068. echo ###...............###.........#####...........####
  4069. echo ###...............###....(@)..##................##
  4070. echo ###..#####........###.........####################
  4071. echo ###..#####....#######.........###...............##
  4072. echo ###..#####...............########...............##
  4073. echo ###......................###....................##
  4074. echo ###......................###.......###( )#########
  4075. echo ############################.......###############
  4076. echo #######################............###############
  4077. echo #####..............................###############
  4078. echo #####.....########.................###############
  4079. echo ###.......########.................###############
  4080. echo ###................................###############
  4081. echo !cl!
  4082. echo [1] Go back upstairs
  4083. choice /c 1 /n>nul
  4084. if !errorlevel! equ 1 goto Rocket-Hideout-floor-3
  4085. :Rocket-Hideout-floor-4-1
  4086. set sublocation=Rocket-Hideout-floor-4-1
  4087. if !Trainer-Rocket-Hideout-Giovanni! equ 1 set Silphscope=1&cls&echo You got the Silphscope^! %p%
  4088. cls
  4089. echo !ln!
  4090. echo Rocket hideout - BFloor 4
  4091. echo !ln!
  4092. echo !cl!
  4093. echo #####################.........################..##
  4094. echo #####.............###.........##................##
  4095. echo #####.........................##................##
  4096. echo ###..#########................##.....#########..##
  4097. echo ###..#########....###.........##.....#########..##
  4098. echo ###...............###.........#####.............##
  4099. echo #####################.........#####...........####
  4100. echo ###...............###.........#####...........####
  4101. echo ###...............###....( )..##................##
  4102. echo ###..#####........###.........####################
  4103. echo ###..#####....#######.........###...............##
  4104. echo ###..#####...............########...............##
  4105. echo ###......................###....................##
  4106. echo ###......................###.......###(@)#########
  4107. echo ############################.......###############
  4108. echo #######################............###############
  4109. echo #####..............................###############
  4110. echo #####.....########.................###############
  4111. echo ###.......########.................###############
  4112. echo ###................................###############
  4113. echo !cl!
  4114. echo [1] Go back to the elavator
  4115. echo [2] Go fight Giovanni
  4116. choice /c 12 /n>nul
  4117. if !errorlevel! equ 1 goto Rocket-Hideout-Elavator
  4118. if !errorlevel! equ 2 goto Trainer-Rocket-Hideout-Giovanni
  4119. :Rocket-Hideout-elavator
  4120. set sublocation=Rocket-Hideout-elavator
  4121. cls
  4122. echo !ln!
  4123. echo Rocket hideout - elavator
  4124. echo !ln!
  4125. echo !cl!
  4126. echo !cl!
  4127. echo !cl!
  4128. echo !cl!
  4129. echo !cl!
  4130. echo !cl!
  4131. echo !cl!
  4132. echo !cl!
  4133. echo !cl!
  4134. echo !cl!
  4135. echo !cl!
  4136. echo !cl!
  4137. echo !cl!
  4138. echo !cl!
  4139. echo ######################################(1)#########
  4140. echo ####################################.............#
  4141. echo ####################################......A......#
  4142. echo ####################################.............#
  4143. echo ####################################.............#
  4144. echo ####################################.............#
  4145. echo ####################################.............#
  4146. echo !cl!
  4147. echo [1] Go back to 1
  4148. echo [2] Select what floor you want to go to
  4149. choice /c 12 /n>nul
  4150. if !errorlevel! equ 1 goto Rocket-Hideout-floor-2
  4151. if !errorlevel! equ 2 goto Rocket-Hideout-floor-4-1
  4152. :Department-Store
  4153. cls
  4154. if !guardwater! equ 0 echo Shop keeper: Hey could you give this fresh water to a guard?%p%&set guardwater=1
  4155. goto Mart
  4156. :Department-Store-floor-1
  4157. set sublocation=Department-Store-floor-1
  4158. cls
  4159. echo !ln!
  4160. echo !location! - Department store - Floor 1
  4161. echo !ln!
  4162. echo.
  4163. echo !cl!
  4164. echo #................................................#
  4165. echo #................................................#
  4166. echo #................................................#
  4167. echo #................................................#
  4168. echo #................................................#
  4169. echo #................................................#
  4170. echo #................................................#
  4171. echo #................................................#
  4172. echo #................................................#
  4173. echo #................................................#
  4174. echo #................................................#
  4175. echo #................................................#
  4176. echo #................................................#
  4177. echo !cl!
  4178. :Department-Store-floor-2
  4179. set sublocation=Department-Store-floor-2
  4180. cls
  4181. echo !ln!
  4182. echo !location! - Department store - Floor 2
  4183. echo !ln!
  4184. echo.
  4185. echo !cl!
  4186. echo #................................................#
  4187. echo #................................................#
  4188. echo #................................................#
  4189. echo #................................................#
  4190. echo #................................................#
  4191. echo #................................................#
  4192. echo #................................................#
  4193. echo #................................................#
  4194. echo #................................................#
  4195. echo #................................................#
  4196. echo #................................................#
  4197. echo #................................................#
  4198. echo #................................................#
  4199. echo !cl!
  4200. :Department-Store-floor-3
  4201. set sublocation=Department-Store-floor-3
  4202. cls
  4203. echo !ln!
  4204. echo !location! - Department store - Floor 3
  4205. echo !ln!
  4206. echo.
  4207. echo !cl!
  4208. echo #................................................#
  4209. echo #................................................#
  4210. echo #................................................#
  4211. echo #................................................#
  4212. echo #................................................#
  4213. echo #................................................#
  4214. echo #................................................#
  4215. echo #................................................#
  4216. echo #................................................#
  4217. echo #................................................#
  4218. echo #................................................#
  4219. echo #................................................#
  4220. echo #................................................#
  4221. echo !cl!
  4222. :Department-Store-floor-4
  4223. set sublocation=Department-Store-floor-4
  4224. cls
  4225. echo !ln!
  4226. echo !location! - Department store - Floor 4
  4227. echo !ln!
  4228. echo.
  4229. echo !cl!
  4230. echo #................................................#
  4231. echo #................................................#
  4232. echo #................................................#
  4233. echo #................................................#
  4234. echo #................................................#
  4235. echo #................................................#
  4236. echo #................................................#
  4237. echo #................................................#
  4238. echo #................................................#
  4239. echo #................................................#
  4240. echo #................................................#
  4241. echo #................................................#
  4242. echo #................................................#
  4243. echo !cl!
  4244. :Department-Store-floor-5
  4245. set sublocation=Department-Store-floor-5
  4246. cls
  4247. echo !ln!
  4248. echo !location! - Department store - Floor 5
  4249. echo !ln!
  4250. echo.
  4251. echo !cl!
  4252. echo #................................................#
  4253. echo #................................................#
  4254. echo #................................................#
  4255. echo #................................................#
  4256. echo #................................................#
  4257. echo #................................................#
  4258. echo #................................................#
  4259. echo #................................................#
  4260. echo #................................................#
  4261. echo #................................................#
  4262. echo #................................................#
  4263. echo #................................................#
  4264. echo #................................................#
  4265. echo !cl!
  4266. :Department-Store-floor-6
  4267. set sublocation=Department-Store-floor-6
  4268. cls
  4269. echo !ln!
  4270. echo !location! - Department store - Rooftop
  4271. echo !ln!
  4272. echo.
  4273. echo !cl!
  4274. echo #................................................#
  4275. echo #................................................#
  4276. echo #................................................#
  4277. echo #................................................#
  4278. echo #................................................#
  4279. echo #................................................#
  4280. echo #................................................#
  4281. echo #................................................#
  4282. echo #................................................#
  4283. echo #................................................#
  4284. echo #................................................#
  4285. echo #................................................#
  4286. echo #................................................#
  4287. echo !cl!
  4288. :Silph-Co
  4289. set SoundURL=Silph-company.mp3
  4290. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  4291. :Silph-Co-floor-1
  4292. set sublocation=Silph-Co-floor-1
  4293. cls
  4294. echo !ln!
  4295. echo Silph Co. - Floor 1
  4296. echo !ln!
  4297. echo.
  4298. echo !cl!
  4299. echo #................................................#
  4300. echo #................................................#
  4301. echo #................................................#
  4302. echo #................................................#
  4303. echo #................................................#
  4304. echo #................................................#
  4305. echo #................................................#
  4306. echo #................................................#
  4307. echo #................................................#
  4308. echo #................................................#
  4309. echo #................................................#
  4310. echo #................................................#
  4311. echo #................................................#
  4312. echo !cl!
  4313. :Silph-Co-floor-2
  4314. set sublocation=Silph-Co-floor-2
  4315. cls
  4316. echo !ln!
  4317. echo Silph Co. - Floor 2
  4318. echo !ln!
  4319. echo.
  4320. echo !cl!
  4321. echo #................................................#
  4322. echo #................................................#
  4323. echo #................................................#
  4324. echo #................................................#
  4325. echo #................................................#
  4326. echo #................................................#
  4327. echo #................................................#
  4328. echo #................................................#
  4329. echo #................................................#
  4330. echo #................................................#
  4331. echo #................................................#
  4332. echo #................................................#
  4333. echo #................................................#
  4334. echo !cl!
  4335. :Silph-Co-floor-3
  4336. set sublocation=Silph-Co-floor-3
  4337. cls
  4338. echo !ln!
  4339. echo Silph Co. - Floor 3
  4340. echo !ln!
  4341. echo.
  4342. echo !cl!
  4343. echo #................................................#
  4344. echo #................................................#
  4345. echo #................................................#
  4346. echo #................................................#
  4347. echo #................................................#
  4348. echo #................................................#
  4349. echo #................................................#
  4350. echo #................................................#
  4351. echo #................................................#
  4352. echo #................................................#
  4353. echo #................................................#
  4354. echo #................................................#
  4355. echo #................................................#
  4356. echo !cl!
  4357. :Silph-Co-floor-4
  4358. set sublocation=Silph-Co-floor-4
  4359. cls
  4360. echo !ln!
  4361. echo Silph Co. - Floor 4
  4362. echo !ln!
  4363. echo.
  4364. echo !cl!
  4365. echo #................................................#
  4366. echo #................................................#
  4367. echo #................................................#
  4368. echo #................................................#
  4369. echo #................................................#
  4370. echo #................................................#
  4371. echo #................................................#
  4372. echo #................................................#
  4373. echo #................................................#
  4374. echo #................................................#
  4375. echo #................................................#
  4376. echo #................................................#
  4377. echo #................................................#
  4378. echo !cl!
  4379. :Silph-Co-floor-5
  4380. set sublocation=Silph-Co-floor-5
  4381. cls
  4382. echo !ln!
  4383. echo Silph Co. - Floor 5
  4384. echo !ln!
  4385. echo.
  4386. echo !cl!
  4387. echo #................................................#
  4388. echo #................................................#
  4389. echo #................................................#
  4390. echo #................................................#
  4391. echo #................................................#
  4392. echo #................................................#
  4393. echo #................................................#
  4394. echo #................................................#
  4395. echo #................................................#
  4396. echo #................................................#
  4397. echo #................................................#
  4398. echo #................................................#
  4399. echo #................................................#
  4400. echo !cl!
  4401. :Silph-Co-floor-6
  4402. set sublocation=Silph-Co-floor-6
  4403. cls
  4404. echo !ln!
  4405. echo Silph Co. - Floor 6
  4406. echo !ln!
  4407. echo.
  4408. echo !cl!
  4409. echo #................................................#
  4410. echo #................................................#
  4411. echo #................................................#
  4412. echo #................................................#
  4413. echo #................................................#
  4414. echo #................................................#
  4415. echo #................................................#
  4416. echo #................................................#
  4417. echo #................................................#
  4418. echo #................................................#
  4419. echo #................................................#
  4420. echo #................................................#
  4421. echo #................................................#
  4422. echo !cl!
  4423. :Silph-Co-floor-7
  4424. set sublocation=Silph-Co-floor-7
  4425. cls
  4426. echo !ln!
  4427. echo Silph Co. - Floor 7
  4428. echo !ln!
  4429. echo.
  4430. echo !cl!
  4431. echo #................................................#
  4432. echo #................................................#
  4433. echo #................................................#
  4434. echo #................................................#
  4435. echo #................................................#
  4436. echo #................................................#
  4437. echo #................................................#
  4438. echo #................................................#
  4439. echo #................................................#
  4440. echo #................................................#
  4441. echo #................................................#
  4442. echo #................................................#
  4443. echo #................................................#
  4444. echo !cl!
  4445. :Silph-Co-floor-8
  4446. set sublocation=Silph-Co-floor-8
  4447. cls
  4448. echo !ln!
  4449. echo Silph Co. - Floor 8
  4450. echo !ln!
  4451. echo.
  4452. echo !cl!
  4453. echo #................................................#
  4454. echo #................................................#
  4455. echo #................................................#
  4456. echo #................................................#
  4457. echo #................................................#
  4458. echo #................................................#
  4459. echo #................................................#
  4460. echo #................................................#
  4461. echo #................................................#
  4462. echo #................................................#
  4463. echo #................................................#
  4464. echo #................................................#
  4465. echo #................................................#
  4466. echo !cl!
  4467. :Silph-Co-floor-9
  4468. set sublocation=Silph-Co-floor-9
  4469. cls
  4470. echo !ln!
  4471. echo Silph Co. - Floor 9
  4472. echo !ln!
  4473. echo.
  4474. echo !cl!
  4475. echo #................................................#
  4476. echo #................................................#
  4477. echo #................................................#
  4478. echo #................................................#
  4479. echo #................................................#
  4480. echo #................................................#
  4481. echo #................................................#
  4482. echo #................................................#
  4483. echo #................................................#
  4484. echo #................................................#
  4485. echo #................................................#
  4486. echo #................................................#
  4487. echo #................................................#
  4488. echo !cl!
  4489. :Silph-Co-floor-10
  4490. set sublocation=Silph-Co-floor-10
  4491. cls
  4492. echo !ln!
  4493. echo Silph Co. - Floor 10
  4494. echo !ln!
  4495. echo.
  4496. echo !cl!
  4497. echo #................................................#
  4498. echo #................................................#
  4499. echo #................................................#
  4500. echo #................................................#
  4501. echo #................................................#
  4502. echo #................................................#
  4503. echo #................................................#
  4504. echo #................................................#
  4505. echo #................................................#
  4506. echo #................................................#
  4507. echo #................................................#
  4508. echo #................................................#
  4509. echo #................................................#
  4510. echo !cl!
  4511. :Silph-Co-floor-11
  4512. set sublocation=Silph-Co-floor-11
  4513. cls
  4514. echo !ln!
  4515. echo Silph Co. - Floor 11
  4516. echo !ln!
  4517. echo.
  4518. echo !cl!
  4519. echo #................................................#
  4520. echo #................................................#
  4521. echo #................................................#
  4522. echo #................................................#
  4523. echo #................................................#
  4524. echo #................................................#
  4525. echo #................................................#
  4526. echo #................................................#
  4527. echo #................................................#
  4528. echo #................................................#
  4529. echo #................................................#
  4530. echo #................................................#
  4531. echo #................................................#
  4532. echo !cl!
  4533. :Fighting-dojo
  4534. set SoundURL=Gym.mp3
  4535. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  4536. cls&echo Nothing here yet%p%&goto !location!
  4537. :Underground-passage
  4538. cls
  4539. echo !ln!
  4540. echo Underground passage to !location!
  4541. echo !ln!
  4542. echo.
  4543. echo                      ________________
  4544. echo                     /___________/    \
  4545. echo                     i          i  __  i
  4546. echo         )\)\        i          i i .i i
  4547. echo       )\)\ /(       i__________i_i__i_i
  4548. echo.
  4549. timeout 2 >nul
  4550. goto !location!
  4551. :pkmn-Center
  4552. set SoundURL=pkmn-Center-Mart.mp3
  4553. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  4554. set sublocation=pkmn-Center-0
  4555. :pkmn-Center-0
  4556. cls
  4557. echo !ln!
  4558. echo pkmn Center - !location!
  4559. echo !ln!
  4560. echo.
  4561. echo                      __________________
  4562. echo                     /                 / \
  4563. echo                   ___________________/  i
  4564. echo                  /___________________\ /i
  4565. echo                  i       //P\\       i/ i
  4566. echo                  i_______\\_//_______i  i
  4567. echo                  i     i  ___  i     i /
  4568. echo                  i     i i  .i i     i/   )\ )\
  4569. echo   )\ )\          i_____i_i___i_i_____i  )\ )\)\
  4570. echo.
  4571. echo [1] Get your pkmn healed by Nurse Joy
  4572. echo [2] Get other services from Nurse Joy
  4573. echo [3] Exit the pkmn center
  4574. echo [4] Get on the computer
  4575. echo [5] Options
  4576. echo [6] Fly to another location
  4577. choice /c 1234567 /n>nul
  4578. if !errorlevel! equ 1 goto pkmn-Center-1
  4579. if !errorlevel! equ 2 goto pkmn-Center-2
  4580. if !errorlevel! equ 3 goto !location!
  4581. if !errorlevel! equ 4 set sublocation=pkmn-Center-0&goto pkmn-Center-4
  4582. if !errorlevel! equ 5 goto pkmn-Center-5
  4583. if !errorlevel! equ 6 goto pkmn-Center-6
  4584. if !errorlevel! equ 7 goto pkmn-Center-7
  4585. :pkmn-Center-1
  4586. set SoundURL=Heal.mp3
  4587. cls&echo Nurse Joy: My my, your !invpkmn1! does not look good%p%
  4588. cls&echo Nurse Joy: Here let me fix him with my love%p%
  4589. cls&echo Your !invpkmn1! is blushed red%p%
  4590. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!&timeout 2 >nul
  4591. set SoundURL=pkmn-center-mart.mp3
  4592. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  4593. cls&echo Nurse Joy: Here you go better than ever%p%
  4594. cls&echo !invpkmn1!: !invpkmn1!%p%
  4595. cls&echo *All your pkmn have full hp now*%p%
  4596. set /a invpkmn1hp=!invpkmn1lvl!*4
  4597. set /a invpkmn2hp=!invpkmn2lvl!*4
  4598. set /a invpkmn3hp=!invpkmn3lvl!*4
  4599. set /a invpkmn4hp=!invpkmn4lvl!*4
  4600. set /a invpkmn5hp=!invpkmn5lvl!*4
  4601. set /a invpkmn6hp=!invpkmn6lvl!*4
  4602. goto pkmn-Center-0
  4603. :pkmn-Center-2
  4604. cls&echo !name!: Hey Joy, how about you show me your "pkmns"%p%
  4605. cls&echo Nurse Joy: I dont think you are trained enough to handle them kid%p%
  4606. cls&echo Nurse Joy: Buzz off like a Beedrill before I doublekick you!%p%
  4607. cls&echo "You run away to town hiding your face"%p%
  4608. goto !location!
  4609. :pkmn-Center-4
  4610. :: deleted the load from save file thingy
  4611. :pkmn-Center-4a
  4612. set /a totalpkmn=!pkmnstorage!+!inventory!
  4613. cls
  4614. echo !ln!
  4615. echo Computer storage: !pkmnstorage!    Inventory: !inventory!    Total pkmn: !totalpkmn!
  4616. echo !ln!
  4617. echo  1:!pkmn1nick! LVL:!pkmn1lvl!          1:!invpkmn1nick! LVL:!invpkmn1lvl!
  4618. echo  2:!pkmn2nick! LVL:!pkmn2lvl!          2:!invpkmn2nick! LVL:!invpkmn2lvl!
  4619. echo  3:!pkmn3nick! LVL:!pkmn3lvl!          3:!invpkmn3nick! LVL:!invpkmn3lvl!
  4620. echo  4:!pkmn4nick! LVL:!pkmn4lvl!          4:!invpkmn4nick! LVL:!invpkmn4lvl!
  4621. echo  5:!pkmn5nick! LVL:!pkmn5lvl!          5:!invpkmn5nick! LVL:!invpkmn5lvl!
  4622. echo  6:!pkmn6nick! LVL:!pkmn6lvl!          6:!invpkmn6nick! LVL:!invpkmn6lvl!
  4623. echo  7:!pkmn7nick! LVL:!pkmn7lvl!
  4624. echo  8:!pkmn8nick! LVL:!pkmn8lvl!
  4625. echo  9:!pkmn9nick! LVL:!pkmn9lvl!
  4626. echo 10:!pkmn10nick! LVL:!pkmn10lvl!
  4627. echo 11:!pkmn11nick! LVL:!pkmn11lvl!
  4628. echo 12:!pkmn12nick! LVL:!pkmn12lvl!
  4629. echo 13:!pkmn13nick! LVL:!pkmn13lvl!
  4630. echo 14:!pkmn14nick! LVL:!pkmn14lvl!
  4631. echo 15:!pkmn15nick! LVL:!pkmn15lvl!
  4632. echo 16:!pkmn16nick! LVL:!pkmn16lvl!
  4633. echo 17:!pkmn17nick! LVL:!pkmn17lvl!
  4634. echo 18:!pkmn18nick! LVL:!pkmn18lvl!
  4635. echo 19:!pkmn19nick! LVL:!pkmn19lvl!
  4636. echo 20:!pkmn20nick! LVL:!pkmn20lvl!
  4637. echo !ln!
  4638. echo [1] Start swapping pkmn
  4639. echo [2] Release a pkmn (from the left column)
  4640. echo [3] Go back
  4641. choice /c 123 /n>nul
  4642. if !errorlevel! equ 1 goto pkmn-Center-4-1
  4643. if !errorlevel! equ 2 goto pkmn-Center-4-2
  4644. if !errorlevel! equ 3 goto !sublocation!
  4645. :pkmn-Center-4-1
  4646. cls
  4647. echo !ln!
  4648. echo pkmn Swap
  4649. echo !ln!
  4650. echo Computer storage: !pkmnstorage!    Inventory: !inventory!    Total pkmn: !totalpkmn!
  4651. echo !ln!
  4652. echo  1:!pkmn1! LVL:!pkmn1lvl!          1:!invpkmn1! LVL:!invpkmn1lvl!
  4653. echo  2:!pkmn2! LVL:!pkmn2lvl!          2:!invpkmn2! LVL:!invpkmn2lvl!
  4654. echo  3:!pkmn3! LVL:!pkmn3lvl!          3:!invpkmn3! LVL:!invpkmn3lvl!
  4655. echo  4:!pkmn4! LVL:!pkmn4lvl!          4:!invpkmn4! LVL:!invpkmn4lvl!
  4656. echo  5:!pkmn5! LVL:!pkmn5lvl!          5:!invpkmn5! LVL:!invpkmn5lvl!
  4657. echo  6:!pkmn6! LVL:!pkmn6lvl!          6:!invpkmn6! LVL:!invpkmn6lvl!
  4658. echo  7:!pkmn7! LVL:!pkmn7lvl!
  4659. echo  8:!pkmn8! LVL:!pkmn8lvl!
  4660. echo  9:!pkmn9! LVL:!pkmn9lvl!
  4661. echo 10:!pkmn10! LVL:!pkmn10lvl!
  4662. echo 11:!pkmn11! LVL:!pkmn11lvl!
  4663. echo 12:!pkmn12! LVL:!pkmn12lvl!
  4664. echo 13:!pkmn13! LVL:!pkmn13lvl!
  4665. echo 14:!pkmn14! LVL:!pkmn14lvl!
  4666. echo 15:!pkmn15! LVL:!pkmn15lvl!
  4667. echo 16:!pkmn16! LVL:!pkmn16lvl!
  4668. echo 17:!pkmn17! LVL:!pkmn17lvl!
  4669. echo 18:!pkmn18! LVL:!pkmn18lvl!
  4670. echo 19:!pkmn19! LVL:!pkmn19lvl!
  4671. echo 20:!pkmn20! LVL:!pkmn20lvl!
  4672. echo !ln!
  4673. echo Type the number of the pkmn from the left column [1-20]
  4674. set /p swap1=
  4675. if !swap1! equ 1 set temppkmn=!pkmn1!&set temppkmnlvl=!pkmn1lvl!&goto pkmn-Center-4-1a
  4676. if !swap1! equ 2 set temppkmn=!pkmn2!&set temppkmnlvl=!pkmn2lvl!&goto pkmn-Center-4-1a
  4677. if !swap1! equ 3 set temppkmn=!pkmn3!&set temppkmnlvl=!pkmn3lvl!&goto pkmn-Center-4-1a
  4678. if !swap1! equ 4 set temppkmn=!pkmn4!&set temppkmnlvl=!pkmn4lvl!&goto pkmn-Center-4-1a
  4679. if !swap1! equ 5 set temppkmn=!pkmn5!&set temppkmnlvl=!pkmn5lvl!&goto pkmn-Center-4-1a
  4680. if !swap1! equ 6 set temppkmn=!pkmn6!&set temppkmnlvl=!pkmn6lvl!&goto pkmn-Center-4-1a
  4681. if !swap1! equ 7 set temppkmn=!pkmn7!&set temppkmnlvl=!pkmn7lvl!&goto pkmn-Center-4-1a
  4682. if !swap1! equ 8 set temppkmn=!pkmn8!&set temppkmnlvl=!pkmn8lvl!&goto pkmn-Center-4-1a
  4683. if !swap1! equ 9 set temppkmn=!pkmn9!&set temppkmnlvl=!pkmn9lvl!&goto pkmn-Center-4-1a
  4684. if !swap1! equ 10 set temppkmn=!pkmn10!&set temppkmnlvl=!pkmn10lvl!&goto pkmn-Center-4-1a
  4685. if !swap1! equ 11 set temppkmn=!pkmn11!&set temppkmnlvl=!pkmn11lvl!&goto pkmn-Center-4-1a
  4686. if !swap1! equ 12 set temppkmn=!pkmn12!&set temppkmnlvl=!pkmn12lvl!&goto pkmn-Center-4-1a
  4687. if !swap1! equ 13 set temppkmn=!pkmn13!&set temppkmnlvl=!pkmn13lvl!&goto pkmn-Center-4-1a
  4688. if !swap1! equ 14 set temppkmn=!pkmn14!&set temppkmnlvl=!pkmn14lvl!&goto pkmn-Center-4-1a
  4689. if !swap1! equ 15 set temppkmn=!pkmn15!&set temppkmnlvl=!pkmn15lvl!&goto pkmn-Center-4-1a
  4690. if !swap1! equ 16 set temppkmn=!pkmn16!&set temppkmnlvl=!pkmn16lvl!&goto pkmn-Center-4-1a
  4691. if !swap1! equ 17 set temppkmn=!pkmn17!&set temppkmnlvl=!pkmn17lvl!&goto pkmn-Center-4-1a
  4692. if !swap1! equ 18 set temppkmn=!pkmn18!&set temppkmnlvl=!pkmn18lvl!&goto pkmn-Center-4-1a
  4693. if !swap1! equ 19 set temppkmn=!pkmn19!&set temppkmnlvl=!pkmn19lvl!&goto pkmn-Center-4-1a
  4694. if !swap1! equ 20 set temppkmn=!pkmn20!&set temppkmnlvl=!pkmn20lvl!&goto pkmn-Center-4-1a
  4695. goto pkmn-Center-4-1
  4696. :pkmn-Center-4-1a
  4697. echo Type the number of the pkmn from the right column [1-6]
  4698. set /p swap2=
  4699. if !temppkmn! equ NAN if !swap2! equ 1 cls&echo ERROR:cant replace invpkmn1 with NAN%p%&goto pkmn-Center-4-1
  4700. if !swap2! equ 1 set pkmn!swap1!=!invpkmn1!&set pkmn!swap1!lvl=!invpkmn1lvl!&set swap3=!invpkmn1!&set invpkmn1=!temppkmn!&set invpkmn1lvl=!temppkmnlvl!&goto pkmn-Center-4-1b
  4701. if !swap2! equ 2 set pkmn!swap1!=!invpkmn2!&set pkmn!swap1!lvl=!invpkmn2lvl!&set swap3=!invpkmn2!&set invpkmn2=!temppkmn!&set invpkmn2lvl=!temppkmnlvl!&goto pkmn-Center-4-1b
  4702. if !swap2! equ 3 set pkmn!swap1!=!invpkmn3!&set pkmn!swap1!lvl=!invpkmn3lvl!&set swap3=!invpkmn3!&set invpkmn3=!temppkmn!&set invpkmn3lvl=!temppkmnlvl!&goto pkmn-Center-4-1b
  4703. if !swap2! equ 4 set pkmn!swap1!=!invpkmn4!&set pkmn!swap1!lvl=!invpkmn4lvl!&set swap3=!invpkmn4!&set invpkmn4=!temppkmn!&set invpkmn4lvl=!temppkmnlvl!&goto pkmn-Center-4-1b
  4704. if !swap2! equ 5 set pkmn!swap1!=!invpkmn5!&set pkmn!swap1!lvl=!invpkmn5lvl!&set swap3=!invpkmn5!&set invpkmn5=!temppkmn!&set invpkmn5lvl=!temppkmnlvl!&goto pkmn-Center-4-1b
  4705. if !swap2! equ 6 set pkmn!swap1!=!invpkmn6!&set pkmn!swap1!lvl=!invpkmn6lvl!&set swap3=!invpkmn6!&set invpkmn6=!temppkmn!&set invpkmn6lvl=!temppkmnlvl!&goto pkmn-Center-4-1b
  4706. goto pkmn-Center-4-1a
  4707. :pkmn-Center-4-1b
  4708. if not !temppkmn! equ NAN set /a inventory=!inventory!+1&set /a pkmnstorage-=1
  4709. if not !swap3! equ NAN set /a inventory-=1&set /a pkmnstorage+=1
  4710. :pkmn-Center-4-1c
  4711. if !invpkmn1! equ NAN set invpkmn1=!invpkmn2!&set invpkmn1lvl=!invpkmn2lvl!&set invpkmn2=NAN&set invpkmn2lvl=NAN
  4712. if !invpkmn2! equ NAN set invpkmn2=!invpkmn3!&set invpkmn2lvl=!invpkmn3lvl!&set invpkmn3=NAN&set invpkmn3lvl=NAN
  4713. if !invpkmn3! equ NAN set invpkmn3=!invpkmn4!&set invpkmn3lvl=!invpkmn4lvl!&set invpkmn4=NAN&set invpkmn4lvl=NAN
  4714. if !invpkmn4! equ NAN set invpkmn4=!invpkmn5!&set invpkmn4lvl=!invpkmn5lvl!&set invpkmn5=NAN&set invpkmn5lvl=NAN
  4715. if !invpkmn5! equ NAN set invpkmn5=!invpkmn6!&set invpkmn5lvl=!invpkmn6lvl!&set invpkmn6=NAN&set invpkmn6lvl=NAN
  4716. if !pkmn19! equ NAN set pkmn19=!pkmn20!&set pkmn19lvl=!pkmn20lvl!&set pkmn20=NAN&set pkmn20lvl=NAN
  4717. if !pkmn18! equ NAN set pkmn18=!pkmn19!&set pkmn18lvl=!pkmn19lvl!&set pkmn19=NAN&set pkmn19lvl=NAN
  4718. if !pkmn17! equ NAN set pkmn17=!pkmn18!&set pkmn17lvl=!pkmn18lvl!&set pkmn18=NAN&set pkmn18lvl=NAN
  4719. if !pkmn16! equ NAN set pkmn16=!pkmn17!&set pkmn16lvl=!pkmn17lvl!&set pkmn17=NAN&set pkmn17lvl=NAN
  4720. if !pkmn15! equ NAN set pkmn15=!pkmn16!&set pkmn15lvl=!pkmn16lvl!&set pkmn16=NAN&set pkmn16lvl=NAN
  4721. if !pkmn14! equ NAN set pkmn14=!pkmn15!&set pkmn14lvl=!pkmn15lvl!&set pkmn15=NAN&set pkmn15lvl=NAN
  4722. if !pkmn13! equ NAN set pkmn13=!pkmn14!&set pkmn13lvl=!pkmn14lvl!&set pkmn14=NAN&set pkmn14lvl=NAN
  4723. if !pkmn12! equ NAN set pkmn12=!pkmn13!&set pkmn12lvl=!pkmn13lvl!&set pkmn13=NAN&set pkmn13lvl=NAN
  4724. if !pkmn11! equ NAN set pkmn11=!pkmn12!&set pkmn11lvl=!pkmn12lvl!&set pkmn12=NAN&set pkmn12lvl=NAN
  4725. if !pkmn10! equ NAN set pkmn10=!pkmn11!&set pkmn10lvl=!pkmn11lvl!&set pkmn11=NAN&set pkmn11lvl=NAN
  4726. if !pkmn9! equ NAN set pkmn9=!pkmn10!&set pkmn9lvl=!pkmn10lvl!&set pkmn10=NAN&set pkmn10lvl=NAN
  4727. if !pkmn8! equ NAN set pkmn8=!pkmn9!&set pkmn8lvl=!pkmn9lvl!&set pkmn9=NAN&set pkmn9lvl=NAN
  4728. if !pkmn7! equ NAN set pkmn7=!pkmn8!&set pkmn7lvl=!pkmn8lvl!&set pkmn8=NAN&set pkmn8lvl=NAN
  4729. if !pkmn6! equ NAN set pkmn6=!pkmn7!&set pkmn6lvl=!pkmn7lvl!&set pkmn7=NAN&set pkmn7lvl=NAN
  4730. if !pkmn5! equ NAN set pkmn5=!pkmn6!&set pkmn5lvl=!pkmn6lvl!&set pkmn6=NAN&set pkmn6lvl=NAN
  4731. if !pkmn4! equ NAN set pkmn4=!pkmn5!&set pkmn4lvl=!pkmn5lvl!&set pkmn5=NAN&set pkmn5lvl=NAN
  4732. if !pkmn3! equ NAN set pkmn3=!pkmn4!&set pkmn3lvl=!pkmn4lvl!&set pkmn4=NAN&set pkmn4lvl=NAN
  4733. if !pkmn2! equ NAN set pkmn2=!pkmn3!&set pkmn2lvl=!pkmn3lvl!&set pkmn3=NAN&set pkmn3lvl=NAN
  4734. if !pkmn1! equ NAN set pkmn1=!pkmn2!&set pkmn1lvl=!pkmn2lvl!&set pkmn2=NAN&set pkmn2lvl=NAN
  4735. set /a invpkmn1hp=!invpkmn1lvl!*4
  4736. set /a invpkmn2hp=!invpkmn2lvl!*4
  4737. set /a invpkmn3hp=!invpkmn3lvl!*4
  4738. set /a invpkmn4hp=!invpkmn4lvl!*4
  4739. set /a invpkmn5hp=!invpkmn5lvl!*4
  4740. set /a invpkmn6hp=!invpkmn6lvl!*4
  4741. goto Save-menu
  4742. :pkmn-Center-4-2
  4743. echo Select a pkmn from the left column [1-20] for release or type cancel
  4744. set /p input=
  4745. if !input! equ cancel goto pkmn-Center-4a
  4746. if not !input! GTR 0 goto pkmn-Center-4a
  4747. if not !input! LSS 21 goto pkmn-Center-4a
  4748. if !input! equ 1 set temp=!pkmn1!
  4749. if !input! equ 2 set temp=!pkmn2!
  4750. if !input! equ 3 set temp=!pkmn3!
  4751. if !input! equ 4 set temp=!pkmn4!
  4752. if !input! equ 5 set temp=!pkmn5!
  4753. if !input! equ 6 set temp=!pkmn6!
  4754. if !input! equ 7 set temp=!pkmn7!
  4755. if !input! equ 8 set temp=!pkmn8!
  4756. if !input! equ 9 set temp=!pkmn9!
  4757. if !input! equ 10 set temp=!pkmn10!
  4758. if !input! equ 11 set temp=!pkmn11!
  4759. if !input! equ 12 set temp=!pkmn12!
  4760. if !input! equ 13 set temp=!pkmn13!
  4761. if !input! equ 14 set temp=!pkmn14!
  4762. if !input! equ 15 set temp=!pkmn15!
  4763. if !input! equ 16 set temp=!pkmn16!
  4764. if !input! equ 17 set temp=!pkmn17!
  4765. if !input! equ 18 set temp=!pkmn18!
  4766. if !input! equ 19 set temp=!pkmn19!
  4767. if !input! equ 20 set temp=!pkmn20!
  4768. if not !temp! equ NAN set /a pkmnstorage-=1
  4769. set pkmn!input!=NAN&set pkmn!input!lvl=NAN&goto Save-menu
  4770. :pkmn-Center-5
  4771. cls
  4772. echo !ln!
  4773. echo Options
  4774. echo !ln!
  4775. echo.
  4776. echo [1] Set the background and text color as black on lightgray
  4777. echo [2] Set the background and text color back to default
  4778. echo [3] Save the game
  4779. echo [4] Load a game
  4780. echo [5] Set music to off
  4781. echo [6] Set music to on
  4782. echo [7] look at the world map
  4783. echo [8] Go back
  4784. choice /c 12345678 /n>nul
  4785. if !errorlevel! equ 1 set color=1&color 07&set sublocation=pkmn-Center-5&goto !sublocation!
  4786. if !errorlevel! equ 2 (set color=0
  4787. if !starter! equ BULBASAUR color 27
  4788. if !starter! equ SQUIRTLE color 97
  4789. if !starter! equ CHARMANDER color 47
  4790. if !starter! equ PIKACHU color 67
  4791. if !starter! equ EEVEE color 57)
  4792. if !errorlevel! equ 3 set sublocation=pkmn-Center-5&goto Save-menu
  4793. if !errorlevel! equ 4 goto Load-menu
  4794. if !errorlevel! equ 5 (set music=0
  4795. taskkill /FI "windowtitle eq terminator">nul
  4796. taskkill /F /IM wscript.exe>nul)
  4797. if !errorlevel! equ 6 set music=1&start sound.vbs !SoundURL!&start /min terminator.bat
  4798. if !errorlevel! equ 7 goto World-map
  4799. if !errorlevel! equ 8 goto pkmn-Center-0
  4800. set sublocation=pkmn-Center-5&goto !sublocation!
  4801. :pkmn-Center-6
  4802. cls
  4803. if !HM-fly! equ 0 echo You do not have HM-fly %p%&goto pkmn-Center-0
  4804. echo !ln!
  4805. echo Fly menu
  4806. echo !ln!
  4807. echo.
  4808. echo [1] !g!Pallet Town
  4809. echo [2] !g!Viridian City
  4810. echo [3] !g!Pewter City
  4811. echo [4] !g!Mt. Moon
  4812. echo [5] !g!Cerulean City
  4813. echo [6] !g!Vermillion City
  4814. echo [7] !g!Rock Tunnel
  4815. echo [8] !g!Lavender Town
  4816. echo [9] !g!Celadon City
  4817. echo [0] !g!Saffron City
  4818. echo [q] !g!Fuschia City
  4819. echo [w] !g!Cinnabar Island
  4820. echo [e] !g!Indigo Plateau
  4821. choice /c 1234567890qwe /n>nul
  4822. if !errorlevel! equ 1 goto Pallet-Town
  4823. if !errorlevel! equ 2 goto Viridian-City
  4824. if !errorlevel! equ 3 goto Pewter-City
  4825. if !errorlevel! equ 4 goto Mt-Moon
  4826. if !errorlevel! equ 5 goto Cerulean-City
  4827. if !errorlevel! equ 6 goto Vermillion-City
  4828. if !errorlevel! equ 7 goto Rock-Tunnel
  4829. if !errorlevel! equ 8 goto Lavender-Town
  4830. if !errorlevel! equ 9 goto Celadon-City
  4831. if !errorlevel! equ 10 echo Nothing here yet%p%
  4832. if !errorlevel! equ 11 echo Nothing here yet%p%
  4833. if !errorlevel! equ 12 echo Nothing here yet%p%
  4834. if !errorlevel! equ 13 echo Nothing here yet%p%
  4835. :pkmn-Center-7
  4836. cls
  4837. echo !ln!
  4838. echo Memory
  4839. echo !ln!
  4840. echo.
  4841. echo music=!music!
  4842. echo name=!name!
  4843. echo starter=!starter!
  4844. echo rival=!rival!
  4845. echo rivalstarter=!rivalstarter!
  4846. echo money=!money!
  4847. echo potions=!potions!
  4848. echo fishingrod=!fishingrod!
  4849. echo HM-surf=!HM-surf!
  4850. echo HM-fly=!HM-fly!
  4851. echo HM-cut=!HM-cut!
  4852. echo location=!location!
  4853. echo sublocation=!sublocation!
  4854. echo exp=!exp!
  4855. echo exptill=!exptill!
  4856. echo badges=!badges!
  4857. echo bikevoucher=!bikevoucher!
  4858. echo bike=!bike!
  4859. echo pkmnstorage=!pkmnstorage!
  4860. echo pokeballs=!pokeballs!
  4861. echo rivalencounters=!rivalencounters!
  4862. echo ss-anne=!ss-anne!
  4863. echo color=!color!
  4864. echo snorlaks1=!snorlaks1!
  4865. echo snorlaks2=!snorlaks2!
  4866. pause>nul
  4867. cls
  4868. echo !ln!
  4869. echo Memory
  4870. echo !ln!
  4871. echo.
  4872. echo pkmn1=!pkmn1!
  4873. echo pkmn1lvl=!pkmn1lvl!
  4874. echo pkmn2=!pkmn2!
  4875. echo pkmn2lvl=!pkmn2lvl!
  4876. echo pkmn3=!pkmn3!
  4877. echo pkmn3lvl=!pkmn3lvl!
  4878. echo pkmn4=!pkmn4!
  4879. echo pkmn4lvl=!pkmn4lvl!
  4880. echo pkmn5=!pkmn5!
  4881. echo pkmn5lvl=!pkmn5lvl!
  4882. echo pkmn6=!pkmn6!
  4883. echo pkmn6lvl=!pkmn6lvl!
  4884. echo pkmn7=!pkmn7!
  4885. echo pkmn7lvl=!pkmn7lvl!
  4886. echo pkmn8=!pkmn8!
  4887. echo pkmn8lvl=!pkmn8lvl!
  4888. echo pkmn9=!pkmn9!
  4889. echo pkmn9lvl=!pkmn9lvl!
  4890. echo pkmn10=!pkmn10!
  4891. echo pkmn10lvl=!pkmn10lvl!
  4892. pause>nul
  4893. cls
  4894. echo !ln!
  4895. echo Memory
  4896. echo !ln!
  4897. echo.
  4898. echo pkmn11=!pkmn11!
  4899. echo pkmn11lvl=!pkmn11lvl!
  4900. echo pkmn12=!pkmn12!
  4901. echo pkmn12lvl=!pkmn12lvl!
  4902. echo pkmn13=!pkmn13!
  4903. echo pkmn13lvl=!pkmn13lvl!
  4904. echo pkmn14=!pkmn14!
  4905. echo pkmn14lvl=!pkmn14lvl!
  4906. echo pkmn15=!pkmn15!
  4907. echo pkmn15lvl=!pkmn15lvl!
  4908. echo pkmn16=!pkmn16!
  4909. echo pkmn16lvl=!pkmn16lvl!
  4910. echo pkmn17=!pkmn17!
  4911. echo pkmn17lvl=!pkmn17lvl!
  4912. echo pkmn18=!pkmn18!
  4913. echo pkmn18lvl=!pkmn18lvl!
  4914. echo pkmn19=!pkmn19!
  4915. echo pkmn19lvl=!pkmn19lvl!
  4916. echo pkmn20=!pkmn20!
  4917. echo pkmn20lvl=!pkmn20lvl!
  4918. pause>nul
  4919. cls
  4920. echo !ln!
  4921. echo Memory
  4922. echo !ln!
  4923. echo.
  4924. echo invpkmn1=!invpkmn1!
  4925. echo invpkmn1lvl=!invpkmn1lvl!
  4926. echo invpkmn1hp=!invpkmn1hp!
  4927. echo invpkmn2=!invpkmn2!
  4928. echo invpkmn2lvl=!invpkmn2lvl!
  4929. echo invpkmn2hp=!invpkmn2hp!
  4930. echo invpkmn3=!invpkmn3!
  4931. echo invpkmn3lvl=!invpkmn3lvl!
  4932. echo invpkmn3hp=!invpkmn3hp!
  4933. echo invpkmn4=!invpkmn4!
  4934. echo invpkmn4lvl=!invpkmn4lvl!
  4935. echo invpkmn4hp=!invpkmn4hp!
  4936. echo invpkmn5=!invpkmn5!
  4937. echo invpkmn5lvl=!invpkmn5lvl!
  4938. echo invpkmn5hp=!invpkmn5hp!
  4939. echo invpkmn6=!invpkmn6!
  4940. echo invpkmn6lvl=!invpkmn6lvl!
  4941. echo invpkmn6hp=!invpkmn6hp!
  4942. pause>nul
  4943. cls
  4944. echo !ln!
  4945. echo Memory
  4946. echo !ln!
  4947. echo.
  4948. echo trainer-SS-anne-floor-1-1=!trainer-SS-anne-floor-1-1!
  4949. echo trainer-SS-anne-floor-1-2=!trainer-SS-anne-floor-1-2!
  4950. echo trainer-SS-anne-floor-1-6=!trainer-SS-anne-floor-1-6!
  4951. echo trainer-SS-anne-floor-2-3=!trainer-SS-anne-floor-2-3!
  4952. echo trainer-SS-anne-floor-2-4=!trainer-SS-anne-floor-2-4!
  4953. echo profoakparcel=!profoakparcel!
  4954. echo Trainer-route-3=!Trainer-route-3!
  4955. echo Trainer-route-24=!Trainer-route-24!
  4956. echo Trainer-mt-moon=!Trainer-mt-moon!
  4957. echo inventory=!inventory!
  4958. echo guardwater=!guardwater!
  4959. echo Silphscope=!Silphscope!
  4960. echo coins=!coins!
  4961. echo Trainer-Rocket-Hideout-floor-4=!Trainer-Rocket-Hideout-floor-4!
  4962. echo lift-key=!lift-key!
  4963. echo Trainer-Rocket-Hideout-Giovanni=!Trainer-Rocket-Hideout-Giovanni!
  4964. pause>nul
  4965. cls
  4966. echo !ln!
  4967. echo Memory
  4968. echo !ln!
  4969. echo.
  4970. echo pkmn1nick=!pkmn1nick!
  4971. echo pkmn2nick=!pkmn2nick!
  4972. echo pkmn3nick=!pkmn3nick!
  4973. echo pkmn4nick=!pkmn4nick!
  4974. echo pkmn5nick=!pkmn5nick!
  4975. echo pkmn6nick=!pkmn6nick!
  4976. echo pkmn7nick=!pkmn7nick!
  4977. echo pkmn8nick=!pkmn8nick!
  4978. echo pkmn9nick=!pkmn9nick!
  4979. echo pkmn10nick=!pkmn10nick!
  4980. echo pkmn11nick=!pkmn11nick!
  4981. echo pkmn12nick=!pkmn12nick!
  4982. echo pkmn13nick=!pkmn13nick!
  4983. echo pkmn14nick=!pkmn14nick!
  4984. echo pkmn15nick=!pkmn15nick!
  4985. echo pkmn16nick=!pkmn16nick!
  4986. echo pkmn17nick=!pkmn17nick!
  4987. echo pkmn18nick=!pkmn18nick!
  4988. echo pkmn19nick=!pkmn19nick!
  4989. echo pkmn20nick=!pkmn20nick!
  4990. pause>nul
  4991. cls
  4992. echo !ln!
  4993. echo Memory
  4994. echo !ln!
  4995. echo.
  4996. echo invpkmn1nick=!pkmn1nick!
  4997. echo invpkmn2nick=!pkmn2nick!
  4998. echo invpkmn3nick=!pkmn3nick!
  4999. echo invpkmn4nick=!pkmn4nick!
  5000. echo invpkmn5nick=!pkmn5nick!
  5001. echo invpkmn6nick=!pkmn6nick!
  5002. pause>nul
  5003. goto pkmn-Center-0
  5004. :World-map
  5005. cls
  5006. echo !ln!
  5007. echo Kanto Region Map, you are at !location!
  5008. echo !ln!
  5009. echo                                           :::25:::Bills-house
  5010. echo                                           :24:
  5011. echo Idigo-Plateau         ::::Mt-Moon::4:Cerulean-City:::::::::9:::::::
  5012. echo     ::::   Pewter-City::3:                ::::             Rock-Tunnel
  5013. echo     ::::      ::::                        ::5:                 :10:
  5014. echo Victory-Road  ::::    Celadon-City::7:Saffron-City:::8:::Lavender-Town
  5015. echo     ::::  Viridian-Forest  :16:           ::::                 ::::
  5016. echo     :23:      ::2:         ::::           ::6:                 ::::
  5017. echo     ::::      ::::         :17:           ::::                 :12:
  5018. echo     ::22:Viridian-City     ::::           ::::                 ::::
  5019. echo               ::1:         ::::      Vermillion-City:::::::11::::::
  5020. echo               ::::         ::::                                ::::
  5021. echo            Pallet-Town     ::::                          ::::13::::
  5022. echo               ::::         ::::                          :14:
  5023. echo               :21:         :::::::18:::Fuschia-City:::::15:::
  5024. echo               ::::                        :19:
  5025. echo         Cinnabar-Island::Seafoam-Islands::20::
  5026. echo !ln!%p%&goto !sublocation!
  5027. :pkmn-Mart
  5028. set SoundURL=pkmn-Center-Mart.mp3
  5029. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5030. if !location! equ Celadon-City goto Department-store
  5031. if !profoakparcel! equ 0 (cls&echo Shop keeper: Hey you!%p%
  5032. cls&echo Shop keeper: You are from Pallet-Town right?%p%
  5033. cls&echo Shop keeper: Could you take this Parcel to Prof. Oak?%p%
  5034. set profoakparcel=1
  5035. set rivalstarterlvl=5
  5036. cls&echo Shop keeper: Thanks, bye%p%
  5037. goto !location!)
  5038. if !profoakparcel! equ 1 (echo Shop keeper: Please take the parcel to Prof. Oak
  5039. cls&echo Shop keeper: Prof. Oak has been waiting for it for 2 weeks%p%
  5040. goto !location!)
  5041. :Mart
  5042. cls
  5043. echo !ln!
  5044. echo pkmn Mart - !location!
  5045. echo !ln!
  5046. echo.
  5047. echo                      __________________
  5048. echo                     /                 / \
  5049. echo                   ___________________/  i
  5050. echo                  /___________________\ /i
  5051. echo                  i       //M\\       i/ i
  5052. echo                  i_______\\_//_______i  i
  5053. echo                  i     i  ___  i     i /
  5054. echo                  i     i i  .i i     i/   )\ )\
  5055. echo   )\ )\          i_____i_i___i_i_____i  )\ )\)\
  5056. echo.
  5057. echo Shop keeper: Hello there little man, what can I do for you
  5058. echo.
  5059. echo You have money: !money!
  5060. echo Potions: !potions!
  5061. echo Pokeballs: !pokeballs!
  5062. echo.
  5063. echo [1] Buy potion for $400
  5064. echo [2] Buy pokeball for $275
  5065. echo [3] Go back
  5066. choice /c 123 /n>nul
  5067. if !errorlevel! equ 1 goto pkmn-Mart-1
  5068. if !errorlevel! equ 2 goto pkmn-Mart-2
  5069. if !errorlevel! equ 3 goto !location!
  5070. :pkmn-Mart-1
  5071. if !money! GTR 399 (echo.&echo Shop keeper: That will be $400%p%
  5072. set /a money-=400&set /a potions+=1&goto Mart)
  5073. echo Shop keeper: You do not have enough money to buy that%p%&goto Mart
  5074. :pkmn-Mart-2
  5075. if !money! GTR 274 (echo.&echo Shop keeper: That will be $275%p%
  5076. set /a money-=275&set /a pokeballs+=1&goto Mart)
  5077. echo Shop keeper: You dont have enough money to buy that%p%&goto Mart
  5078. :pkmn-Gym
  5079. set sublocation=pkmn-Gym
  5080. set SoundURL=Gym.mp3
  5081. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5082. cls
  5083. echo !ln!
  5084. echo !location! Gym
  5085. echo !ln!
  5086. echo.
  5087. echo                     __________________
  5088. echo                    /                 / \
  5089. echo                  ___________________/  i
  5090. echo                 /                   \ /i
  5091. echo                 i        Gym        i/ i
  5092. echo                 i-------------------i  i
  5093. echo                 i  i  i  ___  i  i  i /
  5094. echo                 i  i  i i   i i  i  i/   )\
  5095. echo   )\ )\         i__i__i_i___i_i__i__i  )\ )\
  5096. echo.
  5097. echo [1] Enter the Gym
  5098. echo [2] Go back
  5099. choice /c 12 /n>nul
  5100. if !errorlevel! equ 1 goto !sublocation!-!location!
  5101. if !errorlevel! equ 2 goto !location!
  5102. :pkmn-Gym-Pewter-City
  5103. cls
  5104. if !badges! equ 0 (echo Brock: So you think you got what it takes to beat me%p%
  5105. cls&echo Brock: Alright lets get started in here%p%
  5106. goto pkmn-Gym-Pewter-City-1)
  5107. echo Brock: !name! you have already proven yourself%p%
  5108. cls&echo Brock: There is no point in fighting me again%p%
  5109. goto !sublocation!
  5110. :pkmn-Gym-Pewter-City-1
  5111. set gymleader=Brock
  5112. set gymleaderpkmn=GEODUDE
  5113. set gymleaderpkmnlvl=12
  5114. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5115. set SoundURL=Gym-Leader-Elite-Four.mp3
  5116. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5117. set wincount=0
  5118. goto gym-battle
  5119. :pkmn-Gym-Cerulean-City
  5120. cls
  5121. if !badges! equ 1 (echo Misty: So you think you got what it takes to beat me%p%
  5122. cls&echo Misty: Alright lets get started in here%p%
  5123. goto pkmn-Gym-Cerulean-City-1)
  5124. echo Misty: !name! you have already proven yourself%p%
  5125. cls&echo Misty: There is no point in fighting me again%p%
  5126. goto !sublocation!
  5127. :pkmn-Gym-Cerulean-City-1
  5128. set gymleader=Misty
  5129. set gymleaderpkmn=STARYU
  5130. set gymleaderpkmnlvl=18
  5131. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5132. set SoundURL=Gym-Leader-Elite-Four.mp3
  5133. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5134. set wincount=0
  5135. goto gym-battle
  5136. :pkmn-Gym-Vermillion-City
  5137. cls
  5138. if !badges! equ 2 (echo Lt-Surge: So you think you got what it takes to beat me%p%
  5139. cls&echo Lt-Surge: Alright lets get started in here%p%
  5140. goto pkmn-Gym-Vermillion-City-1)
  5141. echo Lt-Surge: !name! you have already proven yourself%p%
  5142. cls&echo Lt-Surge: There is no point in fighting me again%p%
  5143. goto !sublocation!
  5144. :pkmn-Gym-Vermillion-City-1
  5145. set gymleader=Lt-Surge
  5146. set gymleaderpkmn=VOLTORB
  5147. set gymleaderpkmnlvl=21
  5148. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5149. set SoundURL=Gym-Leader-Elite-Four.mp3
  5150. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5151. set wincount=0
  5152. goto gym-battle
  5153. :pkmn-Gym-Celadon-City
  5154. cls
  5155. if !badges! equ 3 (echo Erika: So you think you got what it takes to beat me%p%
  5156. cls&echo Erika: Alright lets get started in here%p%
  5157. goto pkmn-Gym-Celadon-City-1)
  5158. echo Erika: !name! you have already proven yourself%p%
  5159. cls&echo Erika: There is no point in fighting me again%p%
  5160. goto !sublocation!
  5161. :pkmn-Gym-Celadon-City-1
  5162. set gymleader=Erika
  5163. set gymleaderpkmn=TANGELA
  5164. set gymleaderpkmnlvl=30
  5165. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5166. set SoundURL=Gym-Leader-Elite-Four.mp3
  5167. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5168. set wincount=0
  5169. goto gym-battle
  5170. :pkmn-Gym-Fuschia-City
  5171. cls
  5172. if !badges! equ 4 (echo Koga: So you think you got what it takes to beat me%p%
  5173. cls&echo Koga: Alright lets get started in here%p%
  5174. goto pkmn-Gym-Fuschia-City-1)
  5175. echo Koga: !name! you have already proven yourself%p%
  5176. cls&echo Koga: There is no point in fighting me again%p%
  5177. goto !sublocation!
  5178. :pkmn-Gym-Fuschia-City-1
  5179. set gymleader=Koga
  5180. set gymleaderpkmn=KOFFING
  5181. set gymleaderpkmnlvl=37
  5182. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5183. set SoundURL=Gym-Leader-Elite-Four.mp3
  5184. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5185. set wincount=0
  5186. goto gym-battle
  5187. :pkmn-Gym-Saffron-City
  5188. cls
  5189. if !badges! equ 5 (echo Sabrina: So you think you got what it takes to beat me%p%
  5190. cls&echo Sabrina: Alright lets get started in here%p%
  5191. goto pkmn-Gym-Saffron-City-1)
  5192. echo Sabrina: !name! you have already proven yourself%p%
  5193. cls&echo Sabrina: There is no point in fighting me again%p%
  5194. goto !sublocation!
  5195. :pkmn-Gym-Saffron-City-1
  5196. set gymleader=Sabrina
  5197. set gymleaderpkmn=VENOMOTH
  5198. set gymleaderpkmnlvl=38
  5199. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5200. set SoundURL=Gym-Leader-Elite-Four.mp3
  5201. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5202. set wincount=0
  5203. goto gym-battle
  5204. :pkmn-Gym-Cinnabar-City
  5205. cls
  5206. if !badges! equ 6 (echo Blaine: So you think you got what it takes to beat me%p%
  5207. cls&echo Blaine: Alright lets get started in here%p%
  5208. goto pkmn-Gym-Cinnabar-City-1)
  5209. echo Blaine: !name! you have already proven yourself%p%
  5210. cls&echo Blaine: There is no point in fighting me again%p%
  5211. goto !sublocation!
  5212. :pkmn-Gym-Cinnabar-City-1
  5213. set gymleader=Blaine
  5214. set gymleaderpkmn=NINETAILS
  5215. set gymleaderpkmnlvl=43
  5216. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5217. set SoundURL=Gym-Leader-Elite-Four.mp3
  5218. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5219. set wincount=0
  5220. goto gym-battle
  5221. :pkmn-Gym-Viridian-City
  5222. cls
  5223. if !badges! lss 7 echo You do not have enough experience and are not allowed to enter%p%
  5224. if !badges! equ 7 (echo Giovanni: So you think you got what it takes to beat me%p%
  5225. cls&echo Giovanni: Alright lets get started in here%p%
  5226. goto pkmn-Gym-Viridian-City-1)
  5227. echo Giovanni: !name! you have already proven yourself%p%
  5228. cls&echo Giovanni: There is no point in fighting me again%p%
  5229. goto !sublocation!
  5230. :pkmn-Gym-Viridian-City-1
  5231. set gymleader=Giovanni
  5232. set gymleaderpkmn=RYHORN
  5233. set gymleaderpkmnlvl=45
  5234. set /a gymleaderpkmnhp=!gymleaderpkmnlvl!*4
  5235. set SoundURL=Gym-Leader-Elite-Four.mp3
  5236. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5237. set wincount=0
  5238. goto gym-battle
  5239. :Pallet-Town
  5240. set SoundURL=Pallet-Town.mp3
  5241. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5242. set location=Pallet-Town
  5243. cls
  5244. echo !ln!
  5245. echo !location!
  5246. echo !ln!
  5247. echo.
  5248. echo [1] !g!!name! house
  5249. echo [2] !g!!rival!s house
  5250. echo [3] !g!the pkmn Lab
  5251. echo [4] !g!!r!1!n!
  5252. echo [5] !g!the water and begin surfing
  5253. echo [6] !g!the water and begin fishing
  5254. choice /c 123456 /n>nul
  5255. if !errorlevel! equ 1 goto Pallet-Town-1
  5256. if !errorlevel! equ 2 goto Pallet-Town-2
  5257. if !errorlevel! equ 3 goto Pallet-Town-3
  5258. if !errorlevel! equ 4 goto Route-1
  5259. if !errorlevel! equ 5 goto Pallet-Town-5
  5260. if !errorlevel! equ 6 goto Pallet-Town-6
  5261. :Pallet-Town-1
  5262. set location=Pallet-Town
  5263. set sublocation=Pallet-Town-1
  5264. cls
  5265. echo !ln!
  5266. echo Home
  5267. echo !ln!
  5268. echo.
  5269. echo                        __ii_______________
  5270. echo                       /  ii       __     /\
  5271. echo                      /  /__\     i__i   / \\
  5272. echo                     /__________________/   \\
  5273. echo                     i                i  /\  i
  5274. echo         )\)\        i                i / .\ i
  5275. echo       )\)\ /(       i________________i_i__i_i
  5276. echo.
  5277. echo [1] Talk to your Mom
  5278. echo [2] Rest here for a while (heals your pkmn)
  5279. echo [3] Go back
  5280. echo [4] Save the game
  5281. echo [5] Get on your computer
  5282. choice /c 12345 /n>nul
  5283. if !errorlevel! equ 1 goto Pallet-Town-1-1
  5284. if !errorlevel! equ 2 set /a invpkmn1hp=!invpkmn1lvl!*4
  5285. if !errorlevel! equ 3 goto Pallet-Town
  5286. if !errorlevel! equ 4 goto Save-menu
  5287. if !errorlevel! equ 5 goto pkmn-Center-4
  5288. :Pallet-Town-1-1
  5289. cls
  5290. set location=Pallet-Town
  5291. echo Mom: !name!! Its a shame that your dad isnt around to
  5292. echo see you grow up%p%
  5293. cls&echo Mom: Youve grown so fast, but I guess all birds leave
  5294. echo the nest at some point%p%
  5295. cls&echo Mom: You have my permission to go and travel the Kanto region,
  5296. echo but you have to contact me every week to keep in touch%p%
  5297. goto Pallet-Town-1
  5298. :Pallet-Town-2
  5299. cls
  5300. echo !ln!
  5301. echo Garys House
  5302. echo !ln!
  5303. echo.
  5304. echo                        __ii_______________
  5305. echo                       /  ii             /\\
  5306. echo                      /  /__\           /  \\
  5307. echo                     /_________________/    \\
  5308. echo                     i      __        i  /\  i
  5309. echo         )\)\        i     i__i       i / .\ i
  5310. echo       )\)\ /(       i________________i_i__i_i
  5311. echo.
  5312. echo [1] Talk to Garys Mom
  5313. echo [2] Go back
  5314. choice /c 12 /n>nul
  5315. if !errorlevel! equ 1 goto Pallet-Town-2-1
  5316. if !errorlevel! equ 2 goto Pallet-Town
  5317. :Pallet-Town-2-1
  5318. cls&echo !rival!s Mom: Hey, youre the boii from next door right%p%
  5319. cls&echo !rival!s Mom: Here take this, its a Town-map%p%
  5320. cls&echo !rival!s Mom: It may or may not influence your experiences%p%
  5321. goto Pallet-Town-2
  5322. :Pallet-Town-3
  5323. set SoundURL=pkmn-Lab.mp3
  5324. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5325. cls
  5326. echo !ln!
  5327. echo pkmn Lab
  5328. echo !ln!
  5329. echo.
  5330. echo                         _______ ______  
  5331. echo                     __./   _   \.__ /  \
  5332. echo                   /      // \\      \ / i
  5333. echo                  i_______\\_//_______i  i
  5334. echo                  /___________________\  i
  5335. echo                  i     i  ___  i     i /
  5336. echo                  i     i /   \ i     i/   )\)\ /(
  5337. echo      )\ )\       i_____i_i___i_i_____i   )\ )\)\)\
  5338. echo.
  5339. echo [1] Talk to Professor Oak
  5340. echo [2] Go back
  5341. choice /c 12 /n>nul
  5342. if !errorlevel! equ 1 goto Pallet-Town-3-1
  5343. if !errorlevel! equ 2 goto Pallet-Town
  5344. :Pallet-Town-3-1
  5345. if !profoakparcel! equ 1 (set profoakparcel=2
  5346. cls&echo Prof. Oak: Thanks a lot !name!, here are 5 Pokeballs in return%p%
  5347. set pokeballs=5
  5348. cls&echo !rival!: Hey !name! lets try out our new pkmn%p%
  5349. set sublocation=Pallet-Town-3
  5350. set /a invpkmn1hp=!invpkmn1lvl!*4
  5351. goto Rival-battle-start)
  5352. cls&echo Prof Oak: Oh hi !name! I am a little busy right now%p%
  5353. cls&echo Prof Oak: Its about compressing pkmn into data so they can
  5354. echo be stored in a computer, its really complicated and also crazy%p%
  5355. goto Pallet-Town
  5356. :Pallet-Town-5
  5357. cls
  5358. if !HM-surf! equ 0 echo You do not have the HM-surf%p%&goto Pallet-Town
  5359. if !HM-surf! equ 1 echo You used one of your pkmn to surf%p%&goto Route-21
  5360. :Pallet-Town-6
  5361. cls
  5362. if !fishingrod! equ 0 echo You do not have a fishing rod, so you cant fish
  5363. if !fishingrod! equ 1 echo nothing here yet%p%&goto Pallet-Town
  5364. :City-X
  5365. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5366. cls
  5367. echo !ln!
  5368. echo !location!
  5369. echo !ln!
  5370. echo.
  5371. echo [1] !g!the pkmn center
  5372. echo [2] !g!the pkmn gym
  5373. echo [3] !g!the pkmn mart
  5374. goto !location!-X
  5375. :Viridian-City
  5376. set location=Viridian-City&set SoundURL=Viridian-Pewter-Saffron-City.mp3&goto City-X
  5377. :Viridian-City-X
  5378. echo [4] !g!!r!2!n!
  5379. echo [5] !g!!r!1!s!
  5380. echo [6] !g!!r!22!w!
  5381. choice /c 123456 /n>nul
  5382. if !errorlevel! equ 1 goto pkmn-Center
  5383. if !errorlevel! equ 2 goto pkmn-Gym
  5384. if !errorlevel! equ 3 goto pkmn-Mart
  5385. if !errorlevel! equ 4 goto Route-2
  5386. if !errorlevel! equ 5 goto Route-1
  5387. if !errorlevel! equ 6 goto Route-22
  5388. :Viridian-City-1
  5389. if !profoakparcel! equ 2 goto Route-2
  5390. cls&echo Old man: Stop right there!%p%
  5391. cls&echo Old man: You are tresspassing private property, so turn around mister%p%
  5392. cls&echo Little girl: Sorry mister, my grandpa hasnt had his coffee yet%p%
  5393. goto !loacation!
  5394. :Pewter-City
  5395. set location=Pewter-City&set SoundURL=Viridian-Pewter-Saffron-City.mp3&goto City-X
  5396. :Pewter-City-X
  5397. echo [4] !g!!r!3!e!
  5398. echo [5] !g!the Viridian forest!s!
  5399. echo [6] !g!the digletts cave
  5400. choice /c 123456 /n>nul
  5401. if !errorlevel! equ 1 goto pkmn-Center
  5402. if !errorlevel! equ 2 goto pkmn-Gym
  5403. if !errorlevel! equ 3 goto pkmn-Mart
  5404. if !errorlevel! equ 4 goto !location!-4
  5405. if !errorlevel! equ 5 goto Viridian-forest
  5406. if !errorlevel! equ 6 goto !location!-6
  5407. :Pewter-City-4
  5408. if !badges! LSS 1 cls&echo [The road is blocked]%p%&goto Pewter-City
  5409. goto Route-3
  5410. :Pewter-City-6
  5411. cls
  5412. if !HM-cut! equ 0 (echo The bushes are blocking the entrance, you cant seem to get through
  5413. echo Perhaps if you had HM-cut one of you pkmn could clear it%p%&goto !location!)
  5414. goto Digletts-cave
  5415. :Cerulean-City
  5416. set location=Cerulean-City&set SoundURL=Cerulean-Fussia-City.mp3&goto City-X
  5417. :Cerulean-City-X
  5418. echo [4] !g!the bike shop
  5419. echo [5] !g!the bridge!n!
  5420. echo [6] !g!!r!4!w!
  5421. echo [7] !g!!r!5!s!
  5422. echo [8] !g!!r!9!e!
  5423. choice /c 12345678 /n>nul
  5424. if !errorlevel! equ 1 goto pkmn-Center
  5425. if !errorlevel! equ 2 goto pkmn-Gym
  5426. if !errorlevel! equ 3 goto pkmn-Mart
  5427. if !errorlevel! equ 4 goto Bike-shop
  5428. if !errorlevel! equ 5 goto !location!-6
  5429. if !errorlevel! equ 6 goto Route-4
  5430. if !errorlevel! equ 7 goto Route-5
  5431. if !errorlevel! equ 8 goto Cerulean-City-8
  5432. :Cerulean-City-6
  5433. cls
  5434. set sublocation=Cerulean-City-6
  5435. set SoundURL=Route-24-25.mp3
  5436. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5437. echo !ln!
  5438. echo !location! Bridge
  5439. echo !ln!
  5440. echo _____________________________         ________________________________
  5441. echo                              \ _____ /
  5442. echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i     i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5443. echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i     i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5444. echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i     i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5445. echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i     i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5446. echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i     i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5447. echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i     i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5448. echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i_____i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5449. echo _____________________________/       \________________________________
  5450. echo.
  5451. echo [1] Cross the bridge
  5452. echo [2] !g!Cerulean City
  5453. choice /c 12 /n>nul
  5454. if !errorlevel! equ 1 goto !location!-6-1
  5455. if !errorlevel! equ 2 goto !location!
  5456. :Cerulean-City-6-1
  5457. if !rivalencounters! equ 2 goto Route-24
  5458. cls&echo !rival!: Oh hey !name! how about we fight again, its been a while%p%
  5459. set rivalencounters=2
  5460. set rivalstarterlvl=10
  5461. set /a rivalstarterhp=!rivalstarterlvl!*4
  5462. goto Rival-battle-start
  5463. :Cerulean-City-8
  5464. cls
  5465. if !HM-cut! equ 1 echo One of your pkmn uses HM-cut to clear the way%p%&goto Route-9
  5466. echo The path is blocked by bushes, maby if oyu had HM-cut
  5467. echo you could get through%p%
  5468. goto !location!
  5469. :Vermillion-City
  5470. set location=Vermillion-City&set SoundURL=Vermillion-City.mp3&goto City-X
  5471. :Vermillion-City-X
  5472. echo [4] !g!the S.S. Anne
  5473. echo [5] !g!the Digletts cave
  5474. echo [6] !g!the pkmn fanclub
  5475. echo [7] !g!the fishy smelling house
  5476. echo [8] !g!!r!6!n!
  5477. echo [9] !g!!r!11!e!
  5478. choice /c 123456789 /n>nul
  5479. if !errorlevel! equ 1 goto pkmn-Center
  5480. if !errorlevel! equ 2 goto Vermillion-City-1
  5481. if !errorlevel! equ 3 goto pkmn-Mart
  5482. if !errorlevel! equ 4 goto SS-anne
  5483. if !errorlevel! equ 5 goto Digletts-cave
  5484. if !errorlevel! equ 6 goto pkmn-fanclub
  5485. if !errorlevel! equ 7 goto Vermillion-City-2
  5486. if !errorlevel! equ 8 goto Route-6
  5487. if !errorlevel! equ 9 goto Route-11
  5488. :Vermillion-City-1
  5489. if !HM-cut! equ 1 (cls&echo Your pkmn cuts right though the bushes surrounding
  5490. echo the pkmn Gym, you would almost think that it is someones yard...%p%
  5491. goto pkmn-Gym)
  5492. cls&echo You dont have HM-cut and get get into the yard of the gymleader%p%
  5493. goto !location!
  5494. :Vermillion-City-2
  5495. if !fishingrod! equ 1 cls&echo Fishy guy: Have you caught anything big yet?%p%&goto !location!
  5496. cls&echo Fishy guy: Hey, you look like a pkmn trainer%p%
  5497. cls&echo Fishy guy: Here, you can have my old fishing rod%p%
  5498. set fishingrod=1
  5499. goto !location!
  5500. :Lavender-Town
  5501. set location=Lavender-Town&set SoundURL=Lavender-Town.mp3
  5502. if !music! equ 1 taskkill /F /IM wscript.exe>nul&start sound.vbs !SoundURL!
  5503. :Lavender-Town-X
  5504. cls
  5505. echo !ln!
  5506. echo !location!
  5507. echo !ln!
  5508. echo.
  5509. echo [1] !g!the pkmn center
  5510. echo [2] !g!the pkmn Tower
  5511. echo [3] !g!!r!8!w!
  5512. echo [4] !g!!r!10!n!
  5513. echo [5] !g!!r!12!s!
  5514. choice /c 12345 /n>nul
  5515. if !errorlevel! equ 1 goto pkmn-Center
  5516. if !errorlevel! equ 2 goto pkmn-tower
  5517. if !errorlevel! equ 3 goto Route-8
  5518. if !errorlevel! equ 4 goto Route-10
  5519. if !errorlevel! equ 5 goto Route-12
  5520. :Celadon-City
  5521. set location=Celadon-City&set SoundURL=Celadon-City.mp3&goto City-X
  5522. :Celadon-City-X
  5523. echo [4] !g!Game Corner
  5524. echo [5] !g!!r!7!e!
  5525. echo [6] !g!!r!16!w!
  5526. choice /c 123456 /n>nul
  5527. if !errorlevel! equ 1 goto pkmn-Center
  5528. if !errorlevel! equ 2 goto pkmn-Gym
  5529. if !errorlevel! equ 3 goto pkmn-Mart
  5530. if !errorlevel! equ 4 goto Game-Corner
  5531. if !errorlevel! equ 5 goto Route-7
  5532. if !errorlevel! equ 6 goto Route-16
  5533. :Fuschia-City
  5534. set location=Fuschia-City&set SoundURL=Cerulean-Fussia-City.mp3&goto City-X
  5535. :Fuschia-City-X
  5536. echo [4] !g!the Safari zone
  5537. echo [5] !g!!r!15!e!
  5538. echo [6] !g!!r!18!w!
  5539. echo [7] !g!!r!19!s!
  5540. choice /c 1234567 /n>nul
  5541. if !errorlevel! equ 1 goto pkmn-Center
  5542. if !errorlevel! equ 2 goto pkmn-Gym
  5543. if !errorlevel! equ 3 goto pkmn-Mart
  5544. if !errorlevel! equ 4 goto Safari-zone
  5545. if !errorlevel! equ 5 goto Route-15
  5546. if !errorlevel! equ 6 goto Route-18
  5547. if !errorlevel! equ 7 goto Route-19
  5548. :Saffron-City
  5549. set location=Saffron-City&set SoundURL=Viridian-Pewter-Saffron-City.mp3&goto City-X
  5550. :Saffron-City-X
  5551. echo [4] !g!!r!5!n!
  5552. echo [5] !g!!r!6!s!
  5553. echo [6] !g!!r!7!w!
  5554. echo [7] !g!!r!8!e!
  5555. choice /c 1234567 /n>nul
  5556. if !errorlevel! equ 1 goto pkmn-Center
  5557. if !errorlevel! equ 2 goto pkmn-Gym
  5558. if !errorlevel! equ 3 goto pkmn-Mart
  5559. if !errorlevel! equ 4 goto Route-5
  5560. if !errorlevel! equ 5 goto Route-6
  5561. if !errorlevel! equ 6 goto Route-7
  5562. if !errorlevel! equ 7 goto Route-8
  5563. :Cinnabar-Island
  5564. set location=Cinnabar-Island&set SoundURL=Cinnabar-Island.mp3&goto City-X
  5565. :Cinnabar-Island-X
  5566. echo [4] !g!the pkmn mansion
  5567. echo [5] !g!!r!21!n!
  5568. echo [6] !g!the Seafoam islands!e!
  5569. choice /c 123456 /n>nul
  5570. if !errorlevel! equ 1 goto pkmn-Center
  5571. if !errorlevel! equ 2 goto pkmn-Gym
  5572. if !errorlevel! equ 3 goto pkmn-Mart
  5573. if !errorlevel! equ 4 goto pkmn-mansion
  5574. if !errorlevel! equ 5 goto Route-21
  5575. if !errorlevel! equ 6 goto Seafoam-islands
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand