API tools faq
paste
Advertisement
hidde663

PokeBatch2(D) - Debugger

hidde663
Apr 8th, 2016
475
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 35.36 KB | None | 0 0
raw download clone embed print report
  1. @echo off&mode 44,26&title Debugger []&setlocal enabledelayedexpansion&Pushd "%~dp0"
  2. ::Version 12-Apr-2018
  3. :Presets
  4. if not exist "invisible.vbs" (echo CreateObject^("Wscript.Shell"^).Run """" ^& WScript.Arguments^(0^) ^& """", 0, False)>invisible.vbs
  5. set "v=set /p "
  6. set char=#
  7. set x=1
  8. set y=1
  9. set leftkey=1
  10. set temp=
  11. goto Char8
  12. :Room
  13. cls
  14. echo 1=Ú 2=Ä 3=¿ 4=³ 5=Ù 6=À 7=Sav 8=Lo 9=ÿ 0=??
  15. echo b=É c=Í e=» f=º g=¼ h=È i=° j=± k=² l=¹ m=~
  16. echo n=Û o=´ p=Ë q=Ê r=Ì t=Ü u=Á v=Â x=Ã y=ß z=#
  17. for /L %%A in (1,1,24) do for /L %%a in (1,1,43) do set temp=!temp!!%%A,%%a!&if %%a EQU 43 if '%startmenu%'=='0' (echo !temp!&set "temp=") else (echo !temp!&set "temp=")
  18. choice /c wasd1234567890bcefghijklmnopqrtuvxyz /n>nul
  19. if %errorlevel% equ 1 goto Up
  20. if %errorlevel% equ 2 goto Left
  21. if %errorlevel% equ 3 goto Down
  22. if %errorlevel% equ 4 goto Right
  23. if %errorlevel% equ 5 goto Char1
  24. if %errorlevel% equ 6 goto Char2
  25. if %errorlevel% equ 7 goto Char3
  26. if %errorlevel% equ 8 goto Char4
  27. if %errorlevel% equ 9 goto Char5
  28. if %errorlevel% equ 10 goto Char6
  29. if %errorlevel% equ 11 goto Char7
  30. if %errorlevel% equ 12 goto Char8
  31. if %errorlevel% equ 13 goto Char9
  32. if %errorlevel% equ 14 goto Char0
  33. if %errorlevel% equ 15 goto Charb
  34. if %errorlevel% equ 16 goto Charc
  35. if %errorlevel% equ 17 goto Chare
  36. if %errorlevel% equ 18 goto Charf
  37. if %errorlevel% equ 19 goto Charg
  38. if %errorlevel% equ 20 goto Charh
  39. if %errorlevel% equ 21 goto Chari
  40. if %errorlevel% equ 22 goto Charj
  41. if %errorlevel% equ 23 goto Chark
  42. if %errorlevel% equ 24 goto Charl
  43. if %errorlevel% equ 25 goto Charm
  44. if %errorlevel% equ 26 goto Charn
  45. if %errorlevel% equ 27 goto Charo
  46. if %errorlevel% equ 28 goto Charp
  47. if %errorlevel% equ 29 goto Charq
  48. if %errorlevel% equ 30 goto Charr
  49. if %errorlevel% equ 31 goto Chart
  50. if %errorlevel% equ 32 goto Charu
  51. if %errorlevel% equ 33 goto Charv
  52. if %errorlevel% equ 34 goto Charx
  53. if %errorlevel% equ 35 goto Chary
  54. if %errorlevel% equ 36 goto Charz
  55. :Up
  56. if !x! equ 1 goto Room
  57. set /a x-=1
  58. goto Room
  59. :Left
  60. if !y! equ 1 goto Room
  61. set /a y-=1
  62. goto Room
  63. :Down
  64. if !x! equ 24 goto Room
  65. set /a x+=1
  66. goto Room
  67. :Right
  68. if !y! equ 43 goto Room
  69. set /a y+=1
  70. goto Room
  71. :Char1
  72. set !x!,!y!=Ú
  73. goto Room
  74. :Char2
  75. set !x!,!y!=Ä
  76. goto Room
  77. :Char3
  78. set !x!,!y!=¿
  79. goto Room
  80. :Char4
  81. set !x!,!y!=³
  82. goto Room
  83. :Char5
  84. set !x!,!y!=Ù
  85. goto Room
  86. :Char6
  87. set !x!,!y!=À
  88. goto Room
  89. :Char7
  90. cls
  91. echo Overrite %lm%? y/n
  92. choice /c yn /n>nul
  93. if %errorlevel% equ 1 set map=%lm%>nul&goto Skipsaveas
  94. if %errorlevel% equ 2 cls
  95. echo Give this map a name
  96. %v%map=
  97. if '%map%'=='' goto Char7
  98. if exist %map%.txt (
  99. cls&echo Overrite %map%? y/n
  100. choice /c yn /n>nul
  101. if %errorlevel% equ 1 set lm=%map%
  102. if %errorlevel% equ 2 goto Room)
  103. set lm=%map%
  104. :Skipsaveas
  105. set "temp="
  106. for /l %%A in (1,1,24) do for /L %%a in (1,1,43) do set "temp=!temp!!%%A,%%a!"
  107. echo !temp!>%map%.txt
  108. title Debugger - [%map%]
  109. goto Room
  110. :Char8
  111. cls
  112. echo [W]alker or [E]ditor?
  113. choice /c we /n>nul
  114. if %errorlevel% equ 1 goto Char8-walker
  115. if %errorlevel% equ 2 goto Char8-editor
  116. :Char8-walker
  117. set walker=1
  118. set x=6
  119. set y=10
  120. set char=#
  121. set g=0
  122. mode 44,26
  123. goto Char8-selectroom
  124. :Char8-editor
  125. set walker=0
  126. mode 44,28
  127. :Char8-selectroom
  128. cls
  129. echo Map name?
  130. %v%lm=
  131. :SkipLoadRoom
  132. title Debugger - [%lm%]
  133. for /f "skip=2 tokens=1 delims=[]" %%a in ('find /N ":map-data" "PokeBatch2(D).bat"') do set map-data-line=%%a
  134. for /f "skip=2 tokens=2 delims=[];" %%a in ('find /N /I ";%lm%" "PokeBatch2(D).bat"') do set/a test1=%%a+%map-data-line%-1&for /f %%a in ('more "PokeBatch2(D).bat" +!test1!') do set "m=%%a"&goto SLRNext
  135. :SLRNext
  136. for /f %%a in ('more "PokeBatch2(D).bat" +%test1%') do set "m=%%a"&goto SLRNext2
  137. :SLRNext2
  138. set iamo=0
  139. set "string=%m%"
  140. call :strlen iamo string
  141. for /l %%a in (1,1,%number_of_processors%) do set/a numberaft%%a=(%iamo%/%number_of_processors%*%%a)-1
  142. set/a numberaft%number_of_processors%+=1
  143. set/a temp1=%iamo%-(%iamo%/4*4)
  144. if %temp1% GTR 0 set/a numberaft%number_of_processors%+=%temp1%
  145. for /l %%a in (1,1,%number_of_processors%) do set/a numberlast%%a=(%iamo%/%number_of_processors%*%%a)-1-(%iamo%/%number_of_processors%)
  146. set numberlast1=0
  147. for /l %%A in (1,1,%number_of_processors%) do del "%%A.txt" 2>nul
  148. set cnt5=1
  149. :loop
  150. (echo @echo off^&setlocal enabledelayedexpansion)>!cnt5!.bat
  151. (echo title pkb2core!cnt5!)>>!cnt5!.bat
  152. (echo set numberlast1=!numberlast%cnt5%!)>>!cnt5!.bat
  153. (echo set/a numberaft1=!numberaft%cnt5%!-!numberlast%cnt5%!)>>!cnt5!.bat
  154. (echo set "m=-^!m:~%%numberlast1%%,%%numberaft1%%^!")>>!cnt5!.bat
  155. (echo set bef=0)>>!cnt5!.bat
  156. (echo set aft=1)>>!cnt5!.bat
  157. (echo :loop)>>!cnt5!.bat
  158. (echo if "^!m:~%%bef%%,1^!"=="6" set "m=^!m:~0,%%bef%%^!ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^!m:~%%aft%%^!"^&set/a bef+=14^&set/a aft+=14^&goto loop)>>!cnt5!.bat
  159. (echo if "^!m:~%%bef%%,1^!"=="7" set "m=^!m:~0,%%bef%%^!ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ^!m:~%%aft%%^!"^&set/a bef+=40^&set/a aft+=40^&goto loop)>>!cnt5!.bat
  160. (echo if "^!m:~%%bef%%,1^!"=="8" set "m=^!m:~0,%%bef%%^!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^!m:~%%aft%%^!"^&set/a bef+=33^&set/a aft+=33^&goto loop)>>!cnt5!.bat
  161. (echo if "^!m:~%%bef%%,1^!"=="9" set "m=^!m:~0,%%bef%%^!°°°°°°°°°°°°°°°°°°^!m:~%%aft%%^!"^&set/a bef+=18^&set/a aft+=18^&goto loop)>>!cnt5!.bat
  162. (echo if "^!m:~%%bef%%,1^!"=="5" set "m=^!m:~0,%%bef%%^!ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ^!m:~%%aft%%^!"^&set/a bef+=17^&set/a aft+=17^&goto loop)>>!cnt5!.bat
  163. (echo if "^!m:~%%bef%%,1^!"=="4" set "m=^!m:~0,%%bef%%^!ÿÿÿÿÿÿÿÿÿÿ^!m:~%%aft%%^!"^&set/a bef+=10^&set/a aft+=10^&goto loop)>>!cnt5!.bat
  164. (echo if "^!m:~%%bef%%,1^!"=="3" set "m=^!m:~0,%%bef%%^!ßÜßÜßÜßÜßÜ^!m:~%%aft%%^!"^&set/a bef+=10^&set/a aft+=10^&goto loop)>>!cnt5!.bat
  165. (echo if "^!m:~%%bef%%,1^!"=="2" set "m=^!m:~0,%%bef%%^!ÛÛ~~~~~~~~~~~~~~~~~~ÿÿÿÿÿ~~~~~~~~~~~~~~~~~~^!m:~%%aft%%^!"^&set/a bef+=43^&set/a aft+=43^&goto loop)>>!cnt5!.bat
  166. (echo if "^!m:~%%bef%%,1^!"=="1" set "m=^!m:~0,%%bef%%^!²ÿÿÿÿÿÿÿ^!m:~%%aft%%^!"^&set/a bef+=7^&set/a aft+=7^&goto loop)>>!cnt5!.bat
  167. (echo if %%aft%% LEQ 625 set/a bef+=1^&set/a aft+=1^&goto loop)>>!cnt5!.bat
  168. (echo for /L %%%%a in ^(1,1,625^) do if not "^!m:~%%%%a,1^!"=="" echo "^!m:~%%%%a,1^!"^>^>!cnt5!.txt)>>!cnt5!.bat
  169. if !cnt5! LSS %number_of_processors% set/a cnt5+=1&goto loop
  170. for /l %%a in (1,1,%number_of_processors%) do wscript.exe "invisible.vbs" "%%a.bat"
  171. :loop20
  172. for /f "skip=3" %%a in ('tasklist /FI "windowtitle eq pkb2core*"') do if not "%%a"=="" (goto loop20)
  173. set "m="
  174. for /l %%A in (1,1,%number_of_processors%) do for /f %%a in (%%A.txt) do set "m=!m!%%~a"
  175. if not exist tlm.txt echo off>tlm.txt&set c1=0&for /L %%a in (1,1,24) do for /L %%A in (1,1,43) do echo %%a,%%A=!c1!>>tlm.txt&set/a c1+=1
  176. for /f "tokens=1,2 delims==" %%a in (tlm.txt) do if "!m:~%%b,1!"=="0" (set "%%a=^") else (set %%a=!m:~%%b,1!)
  177. for /L %%a in (36,1,43) do set 24,%%a=Û
  178. for /l %%A in (1,1,%number_of_processors%) do del "%%A.txt" 2>nul&del "%%A.bat" 2>nul
  179. del tlm.txt 2>nul
  180. if %walker% equ 1 goto WRoom
  181. goto Room
  182. :Char9
  183. set !x!,!y!=ÿ
  184. goto Room
  185. :Char0
  186. set /p !x!,!y!=
  187. goto Room
  188. :Charb
  189. set !x!,!y!=É
  190. goto Room
  191. :Charc
  192. set !x!,!y!=Í
  193. goto Room
  194. :Chare
  195. set !x!,!y!=»
  196. goto Room
  197. :Charf
  198. set !x!,!y!=º
  199. goto Room
  200. :Charg
  201. set !x!,!y!=¼
  202. goto Room
  203. :Charh
  204. set !x!,!y!=È
  205. goto Room
  206. :Chari
  207. set !x!,!y!=°
  208. goto Room
  209. :Charj
  210. set !x!,!y!=±
  211. goto Room
  212. :Chark
  213. set !x!,!y!=²
  214. goto Room
  215. :Charl
  216. set !x!,!y!=¹
  217. goto Room
  218. :Charm
  219. set !x!,!y!=~
  220. goto Room
  221. :Charn
  222. set !x!,!y!=Û
  223. goto Room
  224. :Charo
  225. set !x!,!y!=´
  226. goto Room
  227. :Charp
  228. set !x!,!y!=Ë
  229. goto Room
  230. :Charq
  231. set !x!,!y!=Ê
  232. goto Room
  233. :Charr
  234. set !x!,!y!=Ì
  235. goto Room
  236. :Chart
  237. set !x!,!y!=Ü
  238. goto Room
  239. :Charu
  240. set !x!,!y!=Á
  241. goto Room
  242. :Charv
  243. set !x!,!y!=Â
  244. goto Room
  245. :Charx
  246. set !x!,!y!=Ã
  247. goto Room
  248. :Chary
  249. set !x!,!y!=ß
  250. goto Room
  251. :Charz
  252. set !x!,!y!=#
  253. goto Room
  254. :Walker
  255. goto SkipLoadRoom
  256. :WRoom
  257. cls&set !x!,!y!=%char%&set "temp="
  258. for /L %%A in (1,1,24) do for /L %%a in (1,1,43) do set temp=!temp!!%%A,%%a!&if %%a EQU 43 if '%startmenu%'=='0' (echo !temp!&set "temp=") else (echo !temp!&set "temp=")
  259. choice /c wasd8 /n>nul
  260. if %errorlevel% equ 1 goto CheckUp
  261. if %errorlevel% equ 2 goto CheckLeft
  262. if %errorlevel% equ 3 goto CheckDown
  263. if %errorlevel% equ 4 goto CheckRight
  264. if %errorlevel% equ 5 goto Char8
  265. :CheckUp
  266. set checky=!y!
  267. set /a checkx=!x!-1
  268. set check=!checkx!,!checky!
  269. set check2=!%check%!
  270. if '!check2!'=='' goto CheckSpecial
  271. if '!check2!'=='²' goto CheckSpecial
  272. if '!check2!'=='#' goto CheckSpecial
  273. if '!check2!'=='o' goto Up
  274. if '"!check2!"'=='"ÿ"' (
  275. if !g! EQU 4 (
  276. set g=0
  277. set char=#
  278. set !x!,!y!=~
  279. set /a x-=1
  280. goto WRoom
  281. )
  282. if !g! EQU 3 (
  283. set g=0
  284. set char=#
  285. set !x!,!y!=~
  286. set /a x-=1
  287. goto WRoom
  288. )
  289. if !g! EQU 2 (
  290. set g=0
  291. set char=#
  292. set !x!,!y!=°
  293. set /a x-=1
  294. goto WRoom
  295. )
  296. if !g! EQU 1 (
  297. set g=0
  298. set char=#
  299. set !x!,!y!=°
  300. set /a x-=1
  301. goto WRoom
  302. )
  303. if !g! EQU 0 (
  304. goto Up
  305. )
  306. )
  307. if '!check2!'=='~' (
  308. if !g! EQU 4 (
  309. set g=3
  310. set char=Ü
  311. set !x!,!y!=~
  312. set /a x-=1
  313. goto WRoom
  314. )
  315. if !g! EQU 3 (
  316. set g=3
  317. set char=Ü
  318. set !x!,!y!=~
  319. set /a x-=1
  320. goto WRoom
  321. )
  322. if !g! EQU 2 (
  323. set !x!,!y!=°
  324. set /a x-=1
  325. set g=3
  326. set char=Ü
  327. goto WRoom
  328. )
  329. if !g! EQU 1 (
  330. set g=3
  331. set char=²
  332. set !x!,!y!=°
  333. set /a x-=1
  334. goto WRoom
  335. )
  336. if !g! EQU 0 (
  337. set g=3
  338. set char=Ü
  339. goto Up
  340. )
  341. )
  342. if '!check2!'=='°' (
  343. if !g! EQU 4 (
  344. set g=2
  345. set char=²
  346. set !x!,!y!=~
  347. set /a x-=1
  348. goto WRoom
  349. )
  350. if !g! EQU 3 (
  351. set g=2
  352. set char=²
  353. set !x!,!y!=~
  354. set /a x-=1
  355. goto WRoom
  356. )
  357. if !g! EQU 2 (
  358. set !x!,!y!=°
  359. set /a x-=1
  360. goto WRoom
  361. )
  362. if !g! EQU 1 (
  363. set g=2
  364. set !x!,!y!=°
  365. set /a x-=1
  366. goto WRoom
  367. )
  368. if !g! EQU 0 (
  369. set g=1
  370. set char=²
  371. goto Up
  372. )
  373. )
  374. if '!check2!'=='Â' goto Up
  375. if '!check2!'=='±' goto Checkdest
  376. if '!check2!'=='Û' goto Up
  377. goto WRoom
  378. :Up
  379. if !x! EQU 1 goto WRoom
  380. set !x!,!y!=ÿ
  381. set /a x-=1
  382. goto WRoom
  383. :CheckLeft
  384. set checkx=!x!
  385. set /a checky=!y!-1
  386. set check=!checkx!,!checky!
  387. set check2=!%check%!
  388. if '!check2!'=='' goto CheckSpecial
  389. if '!check2!'=='²' goto CheckSpecial
  390. if '!check2!'=='#' goto CheckSpecial
  391. if '!check2!'=='o' goto Left
  392. if '!check2!'=='³' goto JumpLeft
  393. if '"!check2!"'=='"ÿ"' (
  394. if !g! EQU 4 (
  395. set g=0
  396. set char=#
  397. set !x!,!y!=~
  398. set /a y-=1
  399. goto WRoom
  400. )
  401. if !g! EQU 3 (
  402. set g=0
  403. set char=#
  404. set !x!,!y!=~
  405. set /a y-=1
  406. goto WRoom
  407. )
  408. if !g! EQU 2 (
  409. set g=0
  410. set char=#
  411. set !x!,!y!=°
  412. set /a y-=1
  413. goto WRoom
  414. )
  415. if !g! EQU 1 (
  416. set g=0
  417. set char=#
  418. set !x!,!y!=°
  419. set /a y-=1
  420. goto WRoom
  421. )
  422. if !g! EQU 0 (
  423. goto Left
  424. )
  425. )
  426. if '!check2!'=='~' (
  427. if !g! EQU 4 (
  428. set g=3
  429. set char=Ü
  430. set !x!,!y!=~
  431. set /a y-=1
  432. goto WRoom
  433. )
  434. if !g! EQU 3 (
  435. set g=3
  436. set char=Ü
  437. set !x!,!y!=~
  438. set /a y-=1
  439. goto WRoom
  440. )
  441. if !g! EQU 2 (
  442. set !x!,!y!=°
  443. set /a y-=1
  444. set g=3
  445. set char=Ü
  446. goto WRoom
  447. )
  448. if !g! EQU 1 (
  449. set g=3
  450. set char=²
  451. set !x!,!y!=°
  452. set /a y-=1
  453. goto WRoom
  454. )
  455. if !g! EQU 0 (
  456. set g=3
  457. set char=Ü
  458. goto Left
  459. )
  460. )
  461. if '!check2!'=='°' (
  462. if !g! EQU 4 (
  463. set g=2
  464. set char=²
  465. set !x!,!y!=~
  466. set /a y-=1
  467. goto WRoom
  468. )
  469. if !g! EQU 3 (
  470. set g=2
  471. set char=²
  472. set !x!,!y!=~
  473. set /a y-=1
  474. goto WRoom
  475. )
  476. if !g! EQU 2 (
  477. set !x!,!y!=°
  478. set /a y-=1
  479. goto WRoom
  480. )
  481. if !g! EQU 1 (
  482. set g=2
  483. set !x!,!y!=°
  484. set /a y-=1
  485. goto WRoom
  486. )
  487. if !g! EQU 0 (
  488. set g=1
  489. set char=²
  490. goto Left
  491. )
  492. )
  493. if '!check2!'=='Â' goto Left
  494. if '!check2!'=='±' goto Checkdest
  495. if '!check2!'=='Û' goto Left
  496. goto WRoom
  497. :JumpLeft
  498. if '%g%'=='2' (set !x!,!y!=°) else set !x!,!y!=ÿ
  499. set char=#&set g=0
  500. set /a y-=1
  501. set !x!,!y!=³
  502. set /a y-=1
  503. goto WRoom
  504. :Left
  505. if !y! EQU 1 goto WRoom
  506. set !x!,!y!=ÿ
  507. set /a y-=1
  508. goto WRoom
  509. :CheckDown
  510. set checky=!y!
  511. set /a checkx=!x!+1
  512. set check=!checkx!,!checky!
  513. set check2=!%check%!
  514. if '"!check2!"'=='""' goto CheckSpecial
  515. if '!check2!'=='²' goto CheckSpecial
  516. if '!check2!'=='#' goto CheckSpecial
  517. if '!check2!'=='o' goto Down
  518. if '!check2!'=='Ä' goto JumpDown
  519. if '"!check2!"'=='"ÿ"' (
  520. if !g! EQU 4 (
  521. set g=0
  522. set char=#
  523. set !x!,!y!=~
  524. set /a x+=1
  525. goto WRoom
  526. )
  527. if !g! EQU 3 (
  528. set g=0
  529. set char=#
  530. set !x!,!y!=~
  531. set /a x+=1
  532. goto WRoom
  533. )
  534. if !g! EQU 2 (
  535. set g=0
  536. set char=#
  537. set !x!,!y!=°
  538. set /a x+=1
  539. goto WRoom
  540. )
  541. if !g! EQU 1 (
  542. set g=0
  543. set char=#
  544. set !x!,!y!=°
  545. set /a x+=1
  546. goto WRoom
  547. )
  548. if !g! EQU 0 (
  549. goto Down
  550. )
  551. )
  552. if '!check2!'=='~' (
  553. if !g! EQU 4 (
  554. set g=3
  555. set char=Ü
  556. set !x!,!y!=~
  557. set /a x+=1
  558. goto WRoom
  559. )
  560. if !g! EQU 3 (
  561. set g=3
  562. set char=Ü
  563. set !x!,!y!=~
  564. set /a x+=1
  565. goto WRoom
  566. )
  567. if !g! EQU 2 (
  568. set !x!,!y!=°
  569. set /a x+=1
  570. set g=3
  571. set char=Ü
  572. goto WRoom
  573. )
  574. if !g! EQU 1 (
  575. set g=3
  576. set char=²
  577. set !x!,!y!=°
  578. set /a x+=1
  579. goto WRoom
  580. )
  581. if !g! EQU 0 (
  582. set g=3
  583. set char=Ü
  584. goto Down
  585. )
  586. )
  587. if '!check2!'=='°' (
  588. if !g! EQU 4 (
  589. set g=2
  590. set char=²
  591. set !x!,!y!=~
  592. set /a x+=1
  593. goto WRoom
  594. )
  595. if !g! EQU 3 (
  596. set g=2
  597. set char=²
  598. set !x!,!y!=~
  599. set /a x+=1
  600. goto WRoom
  601. )
  602. if !g! EQU 2 (
  603. set !x!,!y!=°
  604. set /a x+=1
  605. goto WRoom
  606. )
  607. if !g! EQU 1 (
  608. set g=2
  609. set !x!,!y!=°
  610. set /a x+=1
  611. goto WRoom
  612. )
  613. if !g! EQU 0 (
  614. set g=1
  615. set char=²
  616. goto Down
  617. )
  618. )
  619. if '!check2!'=='Â' goto Down
  620. if '!check2!'=='±' goto Checkdest
  621. if '!check2!'=='Û' goto Down
  622. goto WRoom
  623. :JumpDown
  624. if '%g%'=='2' (set !x!,!y!=°) else set !x!,!y!=ÿ
  625. set char=#&set g=0
  626. set /a x+=1
  627. set !x!,!y!=Ä
  628. set /a x+=1
  629. goto WRoom
  630. :Down
  631. if !x! EQU 24 goto WRoom
  632. set !x!,!y!=ÿ
  633. set /a x+=1
  634. goto WRoom
  635. :CheckRight
  636. set checkx=!x!
  637. set /a checky=!y!+1
  638. set check=!checkx!,!checky!
  639. set check2=!%check%!
  640. if '!check2!'=='' goto CheckSpecial
  641. if '!check2!'=='²' goto CheckSpecial
  642. if '!check2!'=='#' goto CheckSpecial
  643. if '!check2!'=='o' goto Right
  644. if '!check2!'=='³' goto JumpRight
  645. if '"!check2!"'=='"ÿ"' (
  646. if !g! EQU 4 (
  647. set g=0
  648. set char=#
  649. set !x!,!y!=~
  650. set /a y+=1
  651. goto WRoom
  652. )
  653. if !g! EQU 3 (
  654. set g=0
  655. set char=#
  656. set !x!,!y!=~
  657. set /a y+=1
  658. goto WRoom
  659. )
  660. if !g! EQU 2 (
  661. set g=0
  662. set char=#
  663. set !x!,!y!=°
  664. set /a y+=1
  665. goto WRoom
  666. )
  667. if !g! EQU 1 (
  668. set g=0
  669. set char=#
  670. set !x!,!y!=°
  671. set /a y+=1
  672. goto WRoom
  673. )
  674. if !g! EQU 0 (
  675. goto Right
  676. )
  677. )
  678. if '!check2!'=='~' (
  679. if !g! EQU 4 (
  680. set g=3
  681. set char=Ü
  682. set !x!,!y!=~
  683. set /a y+=1
  684. goto WRoom
  685. )
  686. if !g! EQU 3 (
  687. set g=3
  688. set char=Ü
  689. set !x!,!y!=~
  690. set /a y+=1
  691. goto WRoom
  692. )
  693. if !g! EQU 2 (
  694. set !x!,!y!=°
  695. set /a y+=1
  696. set g=3
  697. set char=Ü
  698. goto WRoom
  699. )
  700. if !g! EQU 1 (
  701. set g=3
  702. set char=²
  703. set !x!,!y!=°
  704. set /a y+=1
  705. goto WRoom
  706. )
  707. if !g! EQU 0 (
  708. set g=3
  709. set char=Ü
  710. set !x!,!y!=ÿ
  711. goto Right
  712. )
  713. )
  714. if '!check2!'=='°' (
  715. if !g! EQU 4 (
  716. set g=2
  717. set char=²
  718. set !x!,!y!=~
  719. set /a y+=1
  720. goto WRoom
  721. )
  722. if !g! EQU 3 (
  723. set g=2
  724. set char=²
  725. set !x!,!y!=~
  726. set /a y+=1
  727. goto WRoom
  728. )
  729. if !g! EQU 2 (
  730. set !x!,!y!=°
  731. set /a y+=1
  732. goto WRoom
  733. )
  734. if !g! EQU 1 (
  735. set g=2
  736. set !x!,!y!=°
  737. set /a y+=1
  738. goto WRoom
  739. )
  740. if !g! EQU 0 (
  741. set g=1
  742. set char=²
  743. goto Right
  744. )
  745. )
  746. if '!check2!'=='Â' goto Right
  747. if '!check2!'=='±' goto Checkdest
  748. if '!check2!'=='Û' goto Right
  749. goto WRoom
  750. :JumpRight
  751. if '%g%'=='2' (set !x!,!y!=°) else set !x!,!y!=ÿ
  752. set char=#&set g=0
  753. set /a y+=1
  754. set !x!,!y!=³
  755. set /a y+=1
  756. goto WRoom
  757. :Right
  758. if !y! EQU 43 goto WRoom
  759. set !x!,!y!=ÿ
  760. set /a y+=1
  761. goto WRoom
  762. :Checkdest
  763. set dest="%lm%-!check!"
  764. echo %dest%&pause>nul
  765. if '%dest%'=='"Route-1-24,22"' set lm=Pallet-Town&set x=2&set y=22&set g=0
  766. if '%dest%'=='"Route-21-1,16"' set lm=Pallet-Town&set x=23&set y=11&set g=4
  767. if '%dest%'=='"Viridian-City-24,18"' set lm=Route-1&set x=2&set y=22&set g=0
  768. if '%dest%'=='"Pallet-Town-1,22"' set lm=Route-1&set x=23&set y=22&set g=0
  769. if '%dest%'=='"Route-2-14,18"' set lm=Viridian-Forest&set x=23&set y=18&set g=0
  770. if '%dest%'=='"Route-2-8,8"' set lm=Viridian-Forest&set x=2&set y=3&set g=2
  771. if '%dest%'=='"Vermilion-City-12,41"' set lm=Diglett-Cave&set x=22&set y=38&set g=2
  772. if '%dest%'=='"Route-2-4,29"' set lm=Diglett-Cave&set x=4&set y=5&set g=2
  773. if '%dest%'=='"Route-19-1-12,1"' set lm=Seafoam-Islands&set x=6&set y=42&set g=0
  774. if '%dest%'=='"Route-20-21,43"' set lm=Seafoam-Islands&set x=21&set y=2&set g=4
  775. if '%dest%'=='"Route-3-7,43"' set lm=Route-4&set x=17&set y=2&set g=0
  776. if '%dest%'=='"Route-4-17,1"' set lm=Route-3&set x=7&set y=42&set g=0
  777. if '%dest%'=='"Route-2-9,38"' set lm=Route-2&set x=12&set y=40&set g=0
  778. if '%dest%'=='"Route-2-11,40"' set lm=Route-2&set x=8&set y=38&set g=0
  779. if '%dest%'=='"Route-5-19,40"' set lm=Route-6&set x=6&set y=39&set g=0
  780. if '%dest%'=='"Route-6-5,39"' set lm=Route-5&set x=20&set y=40&set g=0
  781. if '%dest%'=='"Route-7-17,16"' set lm=Route-8&set x=6&set y=6&set g=0
  782. if '%dest%'=='"Route-7-17,16"' set lm=Route-8&set x=6&set y=6&set g=0
  783. if '%dest%'=='"Route-8-5,6"' set lm=Route-7&set x=18&set y=16&set g=0
  784. if '%dest%'=='"Route-9-13,43"' set lm=Route-10&set x=6&set y=2&set g=0
  785. if '%dest%'=='"Route-10-6,1"' set lm=Route-9&set x=13&set y=42&set g=0
  786. if '%dest%'=='"Route-10-24,38"' set lm=Route-10-1&set x=2&set y=37&set g=4
  787. if '%dest%'=='"Route-10-1-1,37"' set lm=Route-10&set x=23&set y=38&set g=4
  788. if '%dest%'=='"Route-16-4,14"' set !x!,!y!=ÿ&set/a y+=13&goto WRoom
  789. if '%dest%'=='"Route-16-4,25"' set !x!,!y!=ÿ&set/a y-=13&goto WRoom
  790. if '%dest%'=='"Route-16-6,14"' set !x!,!y!=ÿ&set/a y+=13&goto WRoom
  791. if '%dest%'=='"Route-16-6,25"' set !x!,!y!=ÿ&set/a y-=13&goto WRoom
  792. if '%dest%'=='"Route-16-24,7"' set lm=Route-17&set x=2&set y=22&set g=0
  793. if '%dest%'=='"Route-17-1,22"' set lm=Route-16&set x=23&set y=7&set g=0
  794. if '%dest%'=='"Route-17-24,22"' set lm=Route-18&set x=2&set y=8&set g=0
  795. if '%dest%'=='"Route-18-1,8"' set lm=Route-17&set x=23&set y=22&set g=0
  796. if '%dest%'=='"Route-18-17,30"' set !x!,!y!=ÿ&set/a y+=9&goto WRoom
  797. if '%dest%'=='"Route-18-17,37"' set !x!,!y!=ÿ&set/a y-=9&goto WRoom
  798. if '%dest%'=='"Route-19-24,22"' set lm=Route-19-1&set x=2&set y=37&set g=4
  799. if '%dest%'=='"Route-19-1-1,37"' set lm=Route-19&set x=23&set y=22&set g=4
  800. if '%dest%'=='"Seafoam-Islands-21,1"' set lm=Route-20&set x=21&set y=42&set g=4
  801. if '%dest%'=='"Seafoam-Islands-6,43"' set lm=Route-19-1&set x=12&set y=2&set g=4
  802. if '%dest%'=='"Viridian-Forest-24,18"' set lm=Route-2&set x=15&set y=18&set g=0
  803. if '%dest%'=='"Viridian-Forest-1,3"' set lm=Route-2&set x=7&set y=8&set g=0
  804. if '%dest%'=='"Diglett-Cave-4,4"' set lm=Route-2&set x=5&set y=29&set g=0
  805. if '%dest%'=='"Pallet-Town-24,11"' set lm=Route-21&set x=2&set y=16&set g=4
  806. if '%dest%'=='"Viridian-City-1,18"' set lm=Route-2&set x=23&set y=18&set g=0
  807. if '%dest%'=='"Viridian-City-14,1"' set lm=Route-22&set x=12&set y=42&set g=0
  808. if '%dest%'=='"Pewter-City-24,22"' set lm=Route-2&set x=2&set y=18&set g=0
  809. if '%dest%'=='"Pewter-City-12,43"' set lm=Route-3&set x=14&set y=2&set g=0
  810. if '%dest%'=='"Saffron-City-13,1"' set lm=Route-7&set x=14&set y=30&set g=0
  811. if '%dest%'=='"Saffron-City-1,23"' set lm=Route-5&set x=20&set y=22&set g=0
  812. if '%dest%'=='"Saffron-City-13,43"' set lm=Route-8&set x=12&set y=2&set g=0
  813. if '%dest%'=='"Saffron-City-24,23"' set lm=Route-6&set x=3&set y=21&set g=0
  814. if '%dest%'=='"Mt-Moon-1-24,20"' set lm=Route-4&set x=4&set y=39&set g=0
  815. if '%dest%'=='"Fuchsia-City-12,1"' set lm=Route-18&set x=17&set y=42&set g=0
  816. if '%dest%'=='"Fuchsia-City-24,23"' set lm=Route-19&set x=2&set y=25&set g=0
  817. if '%dest%'=='"Cerulean-City-9,43"' set lm=Route-9&set x=13&set y=2&set g=0
  818. if '%dest%'=='"Cerulean-City-24,8"' set lm=Route-5&set x=2&set y=6&set g=0
  819. if '%dest%'=='"Cerulean-City-24,29"' set lm=Route-5&set x=2&set y=39&set g=0
  820. if '%dest%'=='"Cerulean-City-24,19"' set lm=Route-5&set x=2&set y=22&set g=0
  821. if '%dest%'=='"Cerulean-City-12,1"' set lm=Route-4-1&set x=17&set y=42&set g=0
  822. if '%dest%'=='"Cerulean-City-2,1"' set lm=Route-4-1&set x=4&set y=42&set g=0
  823. if '%dest%'=='"Rock-Tunnel-Floor-1-3,18"' set lm=Route-10&set x=15&set y=22&set g=0
  824. if '%dest%'=='"Victory-Road-Badge-Gates-24,13"' set lm=Route-22&set x=7&set y=8&set g=0
  825. if '%dest%'=='"Mt-Moon-2-2,38"' set lm=Route-4-1&set x=7&set y=2&set g=0
  826. if '%dest%'=='"Lavender-Town-14,1"' set lm=Route-8&set x=19&set y=42&set g=0
  827. if '%dest%'=='"Vermilion-City-1,24"' set lm=Route-6&set x=23&set y=18&set g=0
  828. if '%dest%'=='"Celadon-City-9,43"' set lm=Route-7&set x=6&set y=2&set g=0
  829. if '%dest%'=='"Celadon-City-13,1"' set lm=Route-16&set x=6&set y=42&set g=0
  830. if '%dest%'=='"Cinnabar-Island-1,20"' set lm=Route-21&set x=23&set y=16&set g=4
  831. if '%dest%'=='"Cinnabar-Island-14,43"' set lm=Route-20&set x=12&set y=2&set g=4
  832. if '%dest%'=='"Route-1-1,22"' set lm=Viridian-City&set x=23&set y=18&set g=0
  833. if '%dest%'=='"Route-22-12,43"' set lm=Viridian-City&set x=14&set y=2&set g=0
  834. if '%dest%'=='"Route-2-24,18"' set lm=Viridian-City&set x=2&set y=18&set g=0
  835. if '%dest%'=='"Route-2-1,18"' set lm=Pewter-City&set x=23&set y=22&set g=0
  836. if '%dest%'=='"Route-3-14,1"' set lm=Pewter-City&set x=12&set y=42&set g=0
  837. if '%dest%'=='"Route-6-2,21"' set lm=Saffron-City&set x=23&set y=23&set g=0
  838. if '%dest%'=='"Route-7-14,31"' set lm=Saffron-City&set x=13&set y=2&set g=0
  839. if '%dest%'=='"Route-5-21,22"' set lm=Saffron-City&set x=2&set y=23&set g=0
  840. if '%dest%'=='"Route-8-12,1"' set lm=Saffron-City&set x=13&set y=42&set g=0
  841. if '%dest%'=='"Route-4-3,39"' set lm=Mt-Moon-1&set x=23&set y=20&set g=2
  842. if '%dest%'=='"Route-4-1-6,2"' set lm=Mt-Moon-2&set x=2&set y=37&Set g=2
  843. if '%dest%'=='"Mt-Moon-1-11,30"' set lm=Mt-Moon-2&set x=13&set y=35&set g=2
  844. if '%dest%'=='"Mt-Moon-2-22,6"' set lm=Mt-Moon-3&set x=19&set y=15&set g=2
  845. if '%dest%'=='"Mt-Moon-3-19,14"' set lm=Mt-Moon-2&set x=22&set y=7&set g=2
  846. if '%dest%'=='"Mt-Moon-1-9,21"' set lm=Mt-Moon-2&set x=7&set y=33&set g=2
  847. if '%dest%'=='"Mt-Moon-2-7,34"' set lm=Mt-Moon-1&set x=9&set y=20&set g=2
  848. if '%dest%'=='"Mt-Moon-2-9,21"' set lm=Mt-Moon-3&set x=5&set y=28&set g=2
  849. if '%dest%'=='"Mt-Moon-3-5,27"' set lm=Mt-Moon-2&set x=9&set y=22&set g=2
  850. if '%dest%'=='"Mt-Moon-1-4,5"' set lm=Mt-Moon-2&set x=4&set y=6&set g=2
  851. if '%dest%'=='"Mt-Moon-2-4,5"' set lm=Mt-Moon-1&set x=4&set y=6&set g=2
  852. if '%dest%'=='"Mt-Moon-2-14,28"' set lm=Mt-Moon-3&set x=12&set y=21&set g=2
  853. if '%dest%'=='"Mt-Moon-3-12,22"' set lm=Mt-Moon-2&set x=14&set y=27&set g=2
  854. if '%dest%'=='"Mt-Moon-2-13,34"' set lm=Mt-Moon-1&set x=11&set y=31&set g=2
  855. if '%dest%'=='"Mt-Moon-3-7,4"' set lm=Mt-Moon-2&set x=3&set y=30&set g=2
  856. if '%dest%'=='"Mt-Moon-2-3,29"' set lm=Mt-Moon-3&set x=7&set y=5&set g=2
  857. if '%dest%'=='"Rock-Tunnel-Floor-1-3,41"' set lm=Rock-Tunnel-Floor-2&set x=19&set y=39&set g=2
  858. if '%dest%'=='"Rock-Tunnel-Floor-2-18,39"' set lm=Rock-Tunnel-Floor-1&set x=4&set y=41&set g=2
  859. if '%dest%'=='"Rock-Tunnel-Floor-2-2,33"' set lm=Rock-Tunnel-Floor-1&set x=4&set y=4&set g=2
  860. if '%dest%'=='"Rock-Tunnel-Floor-1-3,42"' set lm=Rock-Tunnel-Floor-2&set x=3&set y=33&set g=2
  861. if '%dest%'=='"Rock-Tunnel-Floor-1-3,4"' set lm=Rock-Tunnel-Floor-2&set x=3&set y=33&set g=2
  862. if '%dest%'=='"Rock-Tunnel-Lavender-Town-5,19"' set lm=Rock-Tunnel-Floor-1&set x=21&set y=17&set g=2
  863. if '%dest%'=='"Route-10-14,22"' set lm=Rock-Tunnel-Floor-1&set x=3&set y=19&set g=2
  864. if '%dest%'=='"Rock-Tunnel-Floor-1-13,42"' set lm=Rock-Tunnel-Floor-2&set x=3&set y=5&set g=2
  865. if '%dest%'=='"Rock-Tunnel-Floor-2-3,4"' set lm=Rock-Tunnel-Floor-1&set x=13&set y=41&set g=2
  866. if '%dest%'=='"Rock-Tunnel-Floor-2-9,28"' set lm=Rock-Tunnel-Floor-1&set x=7&set y=21&set g=2
  867. if '%dest%'=='"Rock-Tunnel-Floor-1-7,22"' set lm=Rock-Tunnel-Floor-2&set x=9&set y=27&set g=2
  868. if '%dest%'=='"Route-24-24,16"' set lm=Cerulean-City&set x=2&set y=9&set g=4
  869. if '%dest%'=='"Route-24-24,20"' set lm=Cerulean-City&set x=2&set y=20&set g=0
  870. if '%dest%'=='"Route-24-24,24"' set lm=Cerulean-City&set x=2&set y=24&set g=0
  871. if '%dest%'=='"Route-9-13,1"' set lm=Cerulean-City&set x=9&set y=42&set g=0
  872. if '%dest%'=='"Route-4-1-4,43"' set lm=Cerulean-City&set x=2&set y=2&set g=0
  873. if '%dest%'=='"Route-4-1-17,43"' set lm=Cerulean-City&set x=12&set y=2&set g=0
  874. if '%dest%'=='"Route-5-1,6"' set lm=Cerulean-City&set x=23&set y=8&set g=0
  875. if '%dest%'=='"Route-5-1,39"' set lm=Cerulean-City&set x=23&set y=29&set g=0
  876. if '%dest%'=='"Route-5-1,22"' set lm=Cerulean-City&set x=23&set y=19&set g=0
  877. if '%dest%'=='"Route-18-17,43"' set lm=Fuchsia-City&set x=12&set y=2&set g=0
  878. if '%dest%'=='"Route-19-1,25"' set lm=Fuchsia-City&set x=23&set y=23&set g=0
  879. if '%dest%'=='"Route-15-12,1"' set lm=Fuchsia-City&set x=16&set y=42&set g=0
  880. if '%dest%'=='"Bills-House-12,1"' set lm=Route-25&set x=12&set y=42&set g=0
  881. if '%dest%'=='"Bills-House-8,1"' set lm=Route-25&set x=8&set y=42&set g=0
  882. if '%dest%'=='"Route-24-7,43"' set lm=Route-25&set x=7&set y=2&set g=0
  883. if '%dest%'=='"Route-24-12,43"' set lm=Route-25&set x=12&set y=2&set g=0
  884. if '%dest%'=='"Route-25-7,1"' set lm=Route-24&set x=7&set y=42&set g=0
  885. if '%dest%'=='"Route-25-12,1"' set lm=Route-24&set x=12&set y=42&set g=0
  886. if '%dest%'=='"Route-25-8,43"' set lm=Bills-House&set x=8&set y=2&set g=0
  887. if '%dest%'=='"Route-25-12,43"' set lm=Bills-House&set x=12&set y=2&set g=0
  888. if '%dest%'=='"Cerulean-City-1,9"' set lm=Route-24&set x=23&set y=16&set g=4
  889. if '%dest%'=='"Cerulean-City-1,20"' set lm=Route-24&set x=23&set y=20&set g=0
  890. ::above("Cerulean-City-1,20").FirstTime = RivalFight Cerulean-Bridge(Route-24)
  891. if '%dest%'=='"Route-8-19,43"' set lm=Lavender-Town&set x=14&set y=2&set g=0
  892. if '%dest%'=='"Rock-Tunnel-Lavender-Town-24,16"' set lm=Lavender-Town&set x=2&set y=23&set g=0
  893. if '%dest%'=='"Route-12-1,22"' set lm=Lavender-Town&set x=23&set y=26&set g=0
  894. if '%dest%'=='"Celadon-City-14,27"' set lm=Game-Corner&set x=17&set y=32&set g=0
  895. if '%dest%'=='"Route-6-24,18"' set lm=Vermilion-City&set x=2&set y=24&set g=0
  896. if '%dest%'=='"Diglett-Cave-22,39"' set lm=Vermilion-City&set x=13&set y=41&set g=0
  897. if '%dest%'=='"SS-Anne-Floor-1-1,30"' set lm=Vermilion-City&set x=23&set y=24&set g=0
  898. if '%dest%'=='"Route-11-11,1"' set lm=Vermilion-City&set x=14&set y=42&set g=0
  899. if '%dest%'=='"Route-7-6,1"' set lm=Celadon-City&set x=9&set y=42&set g=0
  900. if '%dest%'=='"Route-16-6,43"' set lm=Celadon-City&set x=13&set y=2&set g=0
  901. if '%dest%'=='"Game-Corner-18,32"' set lm=Celadon-City&set x=15&set y=27&set g=0
  902. if '%dest%'=='"Route-20-12,1"' set lm=Cinnabar-Island&set x=14&set y=42&set g=4
  903. if '%dest%'=='"Route-21-24,16"' set lm=Cinnabar-Island&set x=2&set y=20&set g=0
  904. if '%dest%'=='"Route-22-6,8"' set lm=Victory-Road-Badge-Gates&set x=23&set y=13&set g=0
  905. if '%dest%'=='"Victory-Road-Badge-Gates-1,31"' set lm=Victory-Road-Badge-Gates-1&set x=23&set y=29&set g=0
  906. if '%dest%'=='"Victory-Road-Badge-Gates-1-24,29"' set lm=Victory-Road-Badge-Gates&set x=2&set y=31&set g=0
  907. if '%dest%'=='"Route-23-24,8"' set lm=Victory-Road-Badge-Gates-2&set x=2&set y=18&set g=0
  908. if '%dest%'=='"Victory-Road-Badge-Gates-1-1,22"' set lm=Victory-Road-Badge-Gates-2&set x=23&set y=22&set g=0
  909. if '%dest%'=='"Victory-Road-Badge-Gates-2-24,22"' set lm=Victory-Road-Badge-Gates-1&set x=2&set y=22&set g=0
  910. if '%dest%'=='"Rock-Tunnel-Floor-1-22,17"' set lm=Rock-Tunnel-Lavender-Town&set x=6&set y=19&set g=0
  911. if '%dest%'=='"Lavender-Town-1,23"' set lm=Rock-Tunnel-Lavender-Town&set x=23&set y=16&set g=0
  912. if '%dest%'=='"Lavender-Town-24,26"' set lm=Route-12&set x=2&set y=22&set g=0
  913. if '%dest%'=='"Vermilion-City-14,43"' set lm=Route-11&set x=11&set y=2&set g=0
  914. if '%dest%'=='"Route-11-12,43"' set lm=Route-12-1&set x=9&set y=2&set g=0
  915. if '%dest%'=='"Route-12-1-9,1"' set lm=Route-11&set x=12&set y=42&set g=0
  916. if '%dest%'=='"Route-12-24,7"' set lm=Route-12-1&set x=2&set y=7&set g=0
  917. if '%dest%'=='"Route-12-1-1,7"' set lm=Route-12&set x=23&set y=7&set g=0
  918. if '%dest%'=='"Route-12-2-24,30"' set lm=Route-13&set x=22&set y=42&set g=0
  919. if '%dest%'=='"Route-12-2-21,1"' set lm=Route-13&set x=3&set y=42&set g=0
  920. if '%dest%'=='"Route-12-1-24,30"' set lm=Route-12-2&set x=2&set y=30&set g=0
  921. if '%dest%'=='"Route-12-2-1,30"' set lm=Route-12-1&set x=23&set y=30&set g=0
  922. if '%dest%'=='"Route-13-24,6"' set lm=Route-14&set x=2&set y=22&set g=0
  923. if '%dest%'=='"Route-13-3,43"' set lm=Route-12-2&set x=21&set y=2&set g=0
  924. if '%dest%'=='"Route-13-22,43"' set lm=Route-12-2&set x=23&set y=30&set g=0
  925. if '%dest%'=='"Route-14-20,1"' set lm=Route-15&set x=12&set y=42&set g=0
  926. if '%dest%'=='"Route-14-1,22"' set lm=Route-13&set x=23&set y=6&set g=0
  927. if '%dest%'=='"Route-15-12,43"' set lm=Route-14&set x=20&set y=2&set g=0
  928. if '%dest%'=='"Victory-Road-Badge-Gates-2-1,18"' set lm=Route-23&set x=23&set y=8&set g=0
  929. if '%dest%'=='"Fuchsia-City-16,43"' set lm=Route-15&set x=12&set y=2&set g=0
  930. if '%dest%'=='"Vermilion-City-24,24"' set lm=SS-Anne-Floor-1&set x=2&set y=30&set g=0
  931. if '%dest%'=='"SS-Anne-Floor-1-10,41"' set lm=SS-Anne-Floor-1&set x=13&set y=38&set g=0
  932. if '%dest%'=='"SS-Anne-Floor-1-13,39"' set lm=SS-Anne-Floor-1&set x=9&set y=41&set g=0
  933. if '%dest%'=='"SS-Anne-Floor-1-3,2"' set lm=SS-Anne-Floor-1&set x=22&set y=3&set g=0
  934. if '%dest%'=='"SS-Anne-Floor-1-22,2"' set lm=SS-Anne-Floor-1&set x=3&set y=3&set g=0
  935. if '%dest%'=='"SS-Anne-Floor-1-15,41"' set lm=SS-Anne-Floor-2&set x=16&set y=22&set g=0
  936. if '%dest%'=='"SS-Anne-Floor-2-17,22"' set lm=SS-Anne-Floor-1&set x=16&set y=41&set g=0
  937. if '%dest%'=='"SS-Anne-Floor-1-22,2"' set lm=SS-Anne-Bow&set x=12&set y=42&set g=0
  938. if '%dest%'=='"SS-Anne-Bow-12,43"' set lm=SS-Anne-Floor-1&set x=22&set y=3&set g=0
  939. if '%dest%'=='"Rocket-Hideout-Floor-1-2,26"' set lm=Game-Corner&set x=8&set y=19&set g=0
  940. if '%dest%'=='"Rocket-Hideout-Floor-1-2,29"' set lm=Rocket-Hideout-Floor-2&set x=4&set y=40&set g=0
  941. if '%dest%'=='"Rocket-Hideout-Floor-2-3,40"' set lm=Rocket-Hideout-Floor-1&set x=3&set y=29&set g=0
  942. if '%dest%'=='"Rocket-Hideout-Floor-2-3,34"' set lm=Rocket-Hideout-Floor-3&set x=4&set y=37&set g=0
  943. if '%dest%'=='"Rocket-Hideout-Floor-3-3,37"' set lm=Rocket-Hideout-Floor-2&set x=4&set y=34&set g=0
  944. if '%dest%'=='"Rocket-Hideout-Floor-3-17,25"' set lm=Rocket-Hideout-Floor-4&set x=12&set y=22&set g=0
  945. if '%dest%'=='"Rocket-Hideout-Floor-4-11,22"' set lm=Rocket-Hideout-Floor-3&set x=18&set y=25&set g=0
  946. if '%dest%'=='"Rocket-Hideout-Floor-2-22,34"' set lm=Rocket-Hideout-Floor-1&set x=22&set y=25&set g=0
  947. if '%dest%'=='"Rocket-Hideout-Floor-1-21,25"' set lm=Rocket-Hideout-Floor-2&set x=21&set y=34&set g=0
  948. if '%dest%'=='"Rocket-Hideout-Floor-1-14,33"' if '%leftkey%'=='1' (if '%x%'=='13' (set /a x+=2&goto SkipLoadRoom) else (set /a x-=2&goto SkipLoadRoom)) else cls&echo You do not have the key to unlock this barrier.&pause>nul&goto SkipLoadRoom
  949. if '%dest%'=='"Rocket-Hideout-Floor-4-13,34"' if '%leftkey%'=='1' (if '%x%'=='12' (set /a x+=2&goto SkipLoadRoom) else (set /a x-=2&goto SkipLoadRoom)) else cls&echo You do not have the key to unlock this barrier.&pause>nul&goto SkipLoadRoom
  950. ::if '%dest%'=='"Rocket-Hideout-Floor-4-17,34"' set lm=&set x=&set y=&set g=0 LIFT FLOOR 4
  951. ::if '%dest%'=='"Rocket-Hideout-Floor-2-17,39"' set lm=&set x=&set y=&set g=0 LIFT FLOOR 2
  952. ::if '%dest%'=='"Rocket-Hideout-Floor-1-17,33"' set lm=&set x=&set y=&set g=0 LIFT FLOOR 1
  953. if '%dest%'=='"Lavender-Town-10,37"' set lm=Pkmn-Tower-Floor-1&set x=13&set y=40&set g=2
  954. if '%dest%'=='"Pkmn-Tower-Floor-1-13,41"' set lm=Lavender-Town&set x=11&set y=37&set g=0
  955. if '%dest%'=='"Pkmn-Tower-Floor-1-13,4"' set lm=Pkmn-Tower-Floor-2&set x=13&set y=5&set g=2
  956. if '%dest%'=='"Pkmn-Tower-Floor-2-13,4"' set lm=Pkmn-Tower-Floor-1&set x=13&set y=5&set g=2
  957. if '%dest%'=='"Pkmn-Tower-Floor-2-14,40"' set lm=Pkmn-Tower-Floor-3&set x=14&set y=40&set g=2
  958. if '%dest%'=='"Pkmn-Tower-Floor-3-14,41"' set lm=Pkmn-Tower-Floor-2&set x=14&set y=39&set g=2
  959. if '%dest%'=='"Pkmn-Tower-Floor-3-13,4"' set lm=Pkmn-Tower-Floor-4&set x=13&set y=4&set g=2
  960. if '%dest%'=='"Pkmn-Tower-Floor-4-14,41"' set lm=Pkmn-Tower-Floor-5&set x=14&set y=40&set g=2
  961. if '%dest%'=='"Pkmn-Tower-Floor-5-14,41"' set lm=Pkmn-Tower-Floor-4&set x=14&set y=40&set g=2
  962. if '%dest%'=='"Pkmn-Tower-Floor-5-23,19"' set lm=Pkmn-Tower-Floor-6&set x=23&set y=21&set g=2
  963. if '%dest%'=='"Pkmn-Tower-Floor-6-23,20"' set lm=Pkmn-Tower-Floor-5&set x=23&set y=20&set g=2
  964. if '%dest%'=='"Pkmn-Tower-Floor-4-13,3"' set lm=Pkmn-Tower-Floor-3&set x=13&set y=5&set g=2
  965. if '%dest%'=='"Safari-Zone-1-11,43"' set lm=Safari-Zone-2&set x=22&set y=2&set g=0
  966. if '%dest%'=='"Safari-Zone-2-22,1"' set lm=Safari-Zone-1&set x=11&set y=42&set g=0
  967. if '%dest%'=='"Safari-Zone-2-6,1"' set lm=Safari-Zone-3&set x=22&set y=42&set g=0
  968. if '%dest%'=='"Safari-Zone-3-22,43"' set lm=Safari-Zone-2&set x=6&set y=2&set g=0
  969. if '%dest%'=='"Safari-Zone-3-24,23"' set lm=Safari-Zone-1&set x=2&set y=23&set g=0
  970. if '%dest%'=='"Safari-Zone-1-1,23"' set lm=Safari-Zone-3&set x=23&set y=24&set g=0
  971. if '%dest%'=='"Safari-Zone-3-24,10"' set lm=Safari-Zone-4&set x=2&set y=40&set g=0
  972. if '%dest%'=='"Safari-Zone-4-1,40"' set lm=Safari-Zone-3&set x=23&set y=10&set g=0
  973. if '%dest%'=='"Safari-Zone-4-1,31"' set lm=Safari-Zone-3&set x=23&set y=4&set g=0
  974. if '%dest%'=='"Safari-Zone-3-24,4"' set lm=Safari-Zone-4&set x=2&set y=31&set g=0
  975. if '%dest%'=='"Safari-Zone-4-22,43"' set lm=Safari-Zone-1&set x=11&set y=2&set g=0
  976. if '%dest%'=='"Safari-Zone-1-11,1"' set lm=Safari-Zone-4&set x=22&set y=42&set g=0
  977. if '%dest%'=='"Route-23-19,8"' set !x!,!y!=ÿ&set/a y+=21&goto WRoom
  978. if '%dest%'=='"Route-23-19,29"' set !x!,!y!=ÿ&set/a y-=21&goto WRoom
  979. if '%dest%'=='"Route-10-1-13,10"' set lm=Power-Plant&set x=23&set y=5&set g=2
  980. if '%dest%'=='"Power-Plant-24,5"' set lm=Route-10-1&set x=14&set y=10&set g=0
  981. if '%dest%'=='"Power-Plant-8,1"' set lm=Route-10-1&set x=14&set y=10&set g=0
  982. if '%dest%'=='"Celadon-City-14,31"' set lm=Price-hall&set x=19&set y=23&set g=0
  983. if '%dest%'=='"Price-hall-20,23"' set lm=Celadon-City&set x=15&set y=31&set g=0
  984. if '%dest%'=='"Fossil-Lab-18,9"' set lm=Cinnabar-Island&set x=17&set y=10&set g=0
  985. if '%dest%'=='"Cinnabar-Island-16,10"' set lm=Fossil-Lab&set x=17&set y=9&set g=0
  986. if '%dest%'=='"Route-23-1,22"' set lm=Indigo-Plateau&set x=23&set y=22
  987. if '%dest%'=='"Indigo-Plateau-24,22"' set lm=Route-23&set x=2&set y=22&set g=0
  988. if '%dest%'=='"Elite-Four-Lorelei-1,22"' set lm=Elite-Four-Bruno&set x=23&set y=24&set g=0
  989. if '%dest%'=='"Elite-Four-Bruno-1,24"' set lm=Elite-Four-Agatha&set x=23&set y=22&set g=0
  990. if '%dest%'=='"Elite-Four-Lance-1,22"' set lm=Elite-Four-Rival&set x=23&set y=22&set g=0
  991. if '%dest%'=='"Pewter-City-Gym-24,22"' set lm=Pewter-City&set x=14&set y=20&set g=0
  992. if '%dest%'=='"Saffron-City-Gym-24,22"' set lm=Saffron-City&set x=4&set y=40&set g=0
  993. if '%dest%'=='"Cerulean-City-Gym-24,23"' set lm=Cerulean-City&set x=12&set y=32&set g=0
  994. if '%dest%'=='"Vermilion-City-Gym-24,22"' set lm=Vermilion-City&set x=17&set y=17&set g=0
  995. if '%dest%'=='"Celadon-City-Gym-24,22"' set lm=Celadon-City&set x=22&set y=13&set g=0
  996. if '%dest%'=='"Fuchsia-City-Gym-24,22"' set lm=Fuchsia-City&set x=21&set y=9&set g=0
  997. if '%dest%'=='"Cinnabar-Island-Gym-24,35"' set lm=Cinnabar-Island&set x=9&set y=35&set g=0
  998. if '%dest%'=='"Viridian-City-Gym-24,35"' set lm=Viridian-City&set x=8&set y=37&set g=0
  999. ::if '%dest%'=='' set lm=&set x=&set y=&set g=0
  1000.  
  1001. if '%g%'=='' set g=0
  1002. if %g% EQU 0 set char=#
  1003. if %g% GTR 0 set char=²
  1004. if %g% GTR 2 set char=Ü
  1005. goto SkipLoadRoom
  1006. :CheckSpecial
  1007. set dest="%lm%-!check!"
  1008. echo %dest%&pause>nul
  1009. ::if '%dest%'=='"Rocket-Hideout-Floor-4-4,35"' FIGHT GIOVANNI
  1010.  
  1011. if '%dest%'=='"Game-Corner-7,19"' set lm=Rocket-Hideout-Floor-1&set x=3&set y=26&set grass=0&goto SkipLoadRoom
  1012. goto WRoom
  1013. :strlen
  1014. ::modified from: https://stackoverflow.com/questions/5837418/how-do-you-get-the-string-length-in-a-batch-file
  1015. (
  1016. setlocal
  1017. set "s=!%~2!#"
  1018. set "len=0"
  1019. for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
  1020. if "!s:~%%P,1!" NEQ "" (
  1021. set/a "len+=%%P"
  1022. set "s=!s:~%%P!"
  1023. )))
  1024. (
  1025. endlocal
  1026. set "%~1=%len%"
  1027. exit/b
  1028. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!