@echo off&mode 44,26&title Debugger []&setlocal enabledelayedexpansion&Pushd "%~dp0"
::Version 12-Apr-2018
:Presets
if not exist "invisible.vbs" (echo CreateObject^("Wscript.Shell"^).Run """" ^& WScript.Arguments^(0^) ^& """", 0, False)>invisible.vbs
set "v=set /p "
set char=#
set x=1
set y=1
set leftkey=1
set temp=
goto Char8
:Room
cls
echo 1=Ú 2=Ä 3=¿ 4=³ 5=Ù 6=À 7=Sav 8=Lo 9=ÿ 0=??
echo b=É c=Í e=» f=º g=¼ h=È i=° j=± k=² l=¹ m=~
echo n=Û o=´ p=Ë q=Ê r=Ì t=Ü u=Á v=Â x=Ã y=ß z=#
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=")
choice /c wasd1234567890bcefghijklmnopqrtuvxyz /n>nul
if %errorlevel% equ 1 goto Up
if %errorlevel% equ 2 goto Left
if %errorlevel% equ 3 goto Down
if %errorlevel% equ 4 goto Right
if %errorlevel% equ 5 goto Char1
if %errorlevel% equ 6 goto Char2
if %errorlevel% equ 7 goto Char3
if %errorlevel% equ 8 goto Char4
if %errorlevel% equ 9 goto Char5
if %errorlevel% equ 10 goto Char6
if %errorlevel% equ 11 goto Char7
if %errorlevel% equ 12 goto Char8
if %errorlevel% equ 13 goto Char9
if %errorlevel% equ 14 goto Char0
if %errorlevel% equ 15 goto Charb
if %errorlevel% equ 16 goto Charc
if %errorlevel% equ 17 goto Chare
if %errorlevel% equ 18 goto Charf
if %errorlevel% equ 19 goto Charg
if %errorlevel% equ 20 goto Charh
if %errorlevel% equ 21 goto Chari
if %errorlevel% equ 22 goto Charj
if %errorlevel% equ 23 goto Chark
if %errorlevel% equ 24 goto Charl
if %errorlevel% equ 25 goto Charm
if %errorlevel% equ 26 goto Charn
if %errorlevel% equ 27 goto Charo
if %errorlevel% equ 28 goto Charp
if %errorlevel% equ 29 goto Charq
if %errorlevel% equ 30 goto Charr
if %errorlevel% equ 31 goto Chart
if %errorlevel% equ 32 goto Charu
if %errorlevel% equ 33 goto Charv
if %errorlevel% equ 34 goto Charx
if %errorlevel% equ 35 goto Chary
if %errorlevel% equ 36 goto Charz
:Up
if !x! equ 1 goto Room
set /a x-=1
goto Room
:Left
if !y! equ 1 goto Room
set /a y-=1
goto Room
:Down
if !x! equ 24 goto Room
set /a x+=1
goto Room
:Right
if !y! equ 43 goto Room
set /a y+=1
goto Room
:Char1
set !x!,!y!=Ú
goto Room
:Char2
set !x!,!y!=Ä
goto Room
:Char3
set !x!,!y!=¿
goto Room
:Char4
set !x!,!y!=³
goto Room
:Char5
set !x!,!y!=Ù
goto Room
:Char6
set !x!,!y!=À
goto Room
:Char7
cls
echo Overrite %lm%? y/n
choice /c yn /n>nul
if %errorlevel% equ 1 set map=%lm%>nul&goto Skipsaveas
if %errorlevel% equ 2 cls
echo Give this map a name
%v%map=
if '%map%'=='' goto Char7
if exist %map%.txt (
cls&echo Overrite %map%? y/n
choice /c yn /n>nul
if %errorlevel% equ 1 set lm=%map%
if %errorlevel% equ 2 goto Room)
set lm=%map%
:Skipsaveas
set "temp="
for /l %%A in (1,1,24) do for /L %%a in (1,1,43) do set "temp=!temp!!%%A,%%a!"
echo !temp!>%map%.txt
title Debugger - [%map%]
goto Room
:Char8
cls
echo [W]alker or [E]ditor?
choice /c we /n>nul
if %errorlevel% equ 1 goto Char8-walker
if %errorlevel% equ 2 goto Char8-editor
:Char8-walker
set walker=1
set x=6
set y=10
set char=#
set g=0
mode 44,26
goto Char8-selectroom
:Char8-editor
set walker=0
mode 44,28
:Char8-selectroom
cls
echo Map name?
%v%lm=
:SkipLoadRoom
title Debugger - [%lm%]
for /f "skip=2 tokens=1 delims=[]" %%a in ('find /N ":map-data" "PokeBatch2(D).bat"') do set map-data-line=%%a
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
:SLRNext
for /f %%a in ('more "PokeBatch2(D).bat" +%test1%') do set "m=%%a"&goto SLRNext2
:SLRNext2
set iamo=0
set "string=%m%"
call :strlen iamo string
for /l %%a in (1,1,%number_of_processors%) do set/a numberaft%%a=(%iamo%/%number_of_processors%*%%a)-1
set/a numberaft%number_of_processors%+=1
set/a temp1=%iamo%-(%iamo%/4*4)
if %temp1% GTR 0 set/a numberaft%number_of_processors%+=%temp1%
for /l %%a in (1,1,%number_of_processors%) do set/a numberlast%%a=(%iamo%/%number_of_processors%*%%a)-1-(%iamo%/%number_of_processors%)
set numberlast1=0
for /l %%A in (1,1,%number_of_processors%) do del "%%A.txt" 2>nul
set cnt5=1
:loop
(echo @echo off^&setlocal enabledelayedexpansion)>!cnt5!.bat
(echo title pkb2core!cnt5!)>>!cnt5!.bat
(echo set numberlast1=!numberlast%cnt5%!)>>!cnt5!.bat
(echo set/a numberaft1=!numberaft%cnt5%!-!numberlast%cnt5%!)>>!cnt5!.bat
(echo set "m=-^!m:~%%numberlast1%%,%%numberaft1%%^!")>>!cnt5!.bat
(echo set bef=0)>>!cnt5!.bat
(echo set aft=1)>>!cnt5!.bat
(echo :loop)>>!cnt5!.bat
(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
(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
(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
(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
(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
(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
(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
(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
(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
(echo if %%aft%% LEQ 625 set/a bef+=1^&set/a aft+=1^&goto loop)>>!cnt5!.bat
(echo for /L %%%%a in ^(1,1,625^) do if not "^!m:~%%%%a,1^!"=="" echo "^!m:~%%%%a,1^!"^>^>!cnt5!.txt)>>!cnt5!.bat
if !cnt5! LSS %number_of_processors% set/a cnt5+=1&goto loop
for /l %%a in (1,1,%number_of_processors%) do wscript.exe "invisible.vbs" "%%a.bat"
:loop20
for /f "skip=3" %%a in ('tasklist /FI "windowtitle eq pkb2core*"') do if not "%%a"=="" (goto loop20)
set "m="
for /l %%A in (1,1,%number_of_processors%) do for /f %%a in (%%A.txt) do set "m=!m!%%~a"
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
for /f "tokens=1,2 delims==" %%a in (tlm.txt) do if "!m:~%%b,1!"=="0" (set "%%a=^") else (set %%a=!m:~%%b,1!)
for /L %%a in (36,1,43) do set 24,%%a=Û
for /l %%A in (1,1,%number_of_processors%) do del "%%A.txt" 2>nul&del "%%A.bat" 2>nul
del tlm.txt 2>nul
if %walker% equ 1 goto WRoom
goto Room
:Char9
set !x!,!y!=ÿ
goto Room
:Char0
set /p !x!,!y!=
goto Room
:Charb
set !x!,!y!=É
goto Room
:Charc
set !x!,!y!=Í
goto Room
:Chare
set !x!,!y!=»
goto Room
:Charf
set !x!,!y!=º
goto Room
:Charg
set !x!,!y!=¼
goto Room
:Charh
set !x!,!y!=È
goto Room
:Chari
set !x!,!y!=°
goto Room
:Charj
set !x!,!y!=±
goto Room
:Chark
set !x!,!y!=²
goto Room
:Charl
set !x!,!y!=¹
goto Room
:Charm
set !x!,!y!=~
goto Room
:Charn
set !x!,!y!=Û
goto Room
:Charo
set !x!,!y!=´
goto Room
:Charp
set !x!,!y!=Ë
goto Room
:Charq
set !x!,!y!=Ê
goto Room
:Charr
set !x!,!y!=Ì
goto Room
:Chart
set !x!,!y!=Ü
goto Room
:Charu
set !x!,!y!=Á
goto Room
:Charv
set !x!,!y!=Â
goto Room
:Charx
set !x!,!y!=Ã
goto Room
:Chary
set !x!,!y!=ß
goto Room
:Charz
set !x!,!y!=#
goto Room
:Walker
goto SkipLoadRoom
:WRoom
cls&set !x!,!y!=%char%&set "temp="
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=")
choice /c wasd8 /n>nul
if %errorlevel% equ 1 goto CheckUp
if %errorlevel% equ 2 goto CheckLeft
if %errorlevel% equ 3 goto CheckDown
if %errorlevel% equ 4 goto CheckRight
if %errorlevel% equ 5 goto Char8
:CheckUp
set checky=!y!
set /a checkx=!x!-1
set check=!checkx!,!checky!
set check2=!%check%!
if '!check2!'=='
' goto CheckSpecial
if '!check2!'=='²' goto CheckSpecial
if '!check2!'=='#' goto CheckSpecial
if '!check2!'=='o' goto Up
if '"!check2!"'=='"ÿ"' (
	if !g! EQU 4 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 2 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 1 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 0 (
		goto Up
	)
)
if '!check2!'=='~' (
	if !g! EQU 4 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a x-=1
		set g=3
		set char=Ü
		goto WRoom
	)
	if !g! EQU 1 (
		set g=3
		set char=²
		set !x!,!y!=°
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=3
		set char=Ü
		goto Up
	)
)
if '!check2!'=='°' (
	if !g! EQU 4 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 1 (
		set g=2
		set !x!,!y!=°
		set /a x-=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=1
		set char=²
		goto Up
	)
)
if '!check2!'=='Â' goto Up
if '!check2!'=='±' goto Checkdest
if '!check2!'=='Û' goto Up
goto WRoom
:Up
if !x! EQU 1 goto WRoom
set !x!,!y!=ÿ
set /a x-=1
goto WRoom
:CheckLeft
set checkx=!x!
set /a checky=!y!-1
set check=!checkx!,!checky!
set check2=!%check%!
if '!check2!'=='
' goto CheckSpecial
if '!check2!'=='²' goto CheckSpecial
if '!check2!'=='#' goto CheckSpecial
if '!check2!'=='o' goto Left
if '!check2!'=='³' goto JumpLeft
if '"!check2!"'=='"ÿ"' (
	if !g! EQU 4 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a y-=1
		goto WRoom 
	)
	if !g! EQU 3 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 2 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a y-=1
		goto WRoom 
	)
	if !g! EQU 1 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 0 (
		goto Left
	)
)
if '!check2!'=='~' (
	if !g! EQU 4 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a y-=1
		set g=3
		set char=Ü
		goto WRoom
	)
	if !g! EQU 1 (
		set g=3
		set char=²
		set !x!,!y!=°
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=3
		set char=Ü
		goto Left
	)
)
if '!check2!'=='°' (
	if !g! EQU 4 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 1 (
		set g=2
		set !x!,!y!=°
		set /a y-=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=1
		set char=²
		goto Left
	)
)
if '!check2!'=='Â' goto Left
if '!check2!'=='±' goto Checkdest
if '!check2!'=='Û' goto Left
goto WRoom
:JumpLeft
if '%g%'=='2' (set !x!,!y!=°) else set !x!,!y!=ÿ
set char=#&set g=0
set /a y-=1
set !x!,!y!=³
set /a y-=1
goto WRoom
:Left
if !y! EQU 1 goto WRoom
set !x!,!y!=ÿ
set /a y-=1
goto WRoom
:CheckDown
set checky=!y!
set /a checkx=!x!+1
set check=!checkx!,!checky!
set check2=!%check%!
if '"!check2!"'=='"
"' goto CheckSpecial
if '!check2!'=='²' goto CheckSpecial
if '!check2!'=='#' goto CheckSpecial
if '!check2!'=='o' goto Down
if '!check2!'=='Ä' goto JumpDown
if '"!check2!"'=='"ÿ"' (
	if !g! EQU 4 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 2 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 1 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 0 (
		goto Down
	)
)
if '!check2!'=='~' (
	if !g! EQU 4 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a x+=1
		set g=3
		set char=Ü
		goto WRoom
	)
	if !g! EQU 1 (
		set g=3
		set char=²
		set !x!,!y!=°
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=3
		set char=Ü
		goto Down
	)
)
if '!check2!'=='°' (
	if !g! EQU 4 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 1 (
		set g=2
		set !x!,!y!=°
		set /a x+=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=1
		set char=²
		goto Down
	)
)
if '!check2!'=='Â' goto Down
if '!check2!'=='±' goto Checkdest
if '!check2!'=='Û' goto Down
goto WRoom
:JumpDown
if '%g%'=='2' (set !x!,!y!=°) else set !x!,!y!=ÿ
set char=#&set g=0
set /a x+=1
set !x!,!y!=Ä
set /a x+=1
goto WRoom
:Down
if !x! EQU 24 goto WRoom
set !x!,!y!=ÿ
set /a x+=1
goto WRoom
:CheckRight
set checkx=!x!
set /a checky=!y!+1
set check=!checkx!,!checky!
set check2=!%check%!
if '!check2!'=='
' goto CheckSpecial
if '!check2!'=='²' goto CheckSpecial
if '!check2!'=='#' goto CheckSpecial
if '!check2!'=='o' goto Right
if '!check2!'=='³' goto JumpRight
if '"!check2!"'=='"ÿ"' (
	if !g! EQU 4 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a y+=1
		goto WRoom 
	)
	if !g! EQU 3 (
		set g=0
		set char=#
		set !x!,!y!=~
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 2 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a y+=1
		goto WRoom 
	)
	if !g! EQU 1 (
		set g=0
		set char=#
		set !x!,!y!=°
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 0 (
		goto Right
	)
)
if '!check2!'=='~' (
	if !g! EQU 4 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=3
		set char=Ü
		set !x!,!y!=~
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a y+=1
		set g=3
		set char=Ü
		goto WRoom
	)
		if !g! EQU 1 (
		set g=3
		set char=²
		set !x!,!y!=°
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=3
		set char=Ü
		set !x!,!y!=ÿ
		goto Right
	)
)
if '!check2!'=='°' (
	if !g! EQU 4 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 3 (
		set g=2
		set char=²
		set !x!,!y!=~
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 2 (
		set !x!,!y!=°
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 1 (
		set g=2
		set !x!,!y!=°
		set /a y+=1
		goto WRoom
	)
	if !g! EQU 0 (
		set g=1
		set char=²
		goto Right
	)
)
if '!check2!'=='Â' goto Right
if '!check2!'=='±' goto Checkdest
if '!check2!'=='Û' goto Right
goto WRoom
:JumpRight
if '%g%'=='2' (set !x!,!y!=°) else set !x!,!y!=ÿ
set char=#&set g=0
set /a y+=1
set !x!,!y!=³
set /a y+=1
goto WRoom
:Right
if !y! EQU 43 goto WRoom
set !x!,!y!=ÿ
set /a y+=1
goto WRoom
:Checkdest
set dest="%lm%-!check!"
echo %dest%&pause>nul
if '%dest%'=='"Route-1-24,22"' set lm=Pallet-Town&set x=2&set y=22&set g=0
if '%dest%'=='"Route-21-1,16"' set lm=Pallet-Town&set x=23&set y=11&set g=4
if '%dest%'=='"Viridian-City-24,18"' set lm=Route-1&set x=2&set y=22&set g=0
if '%dest%'=='"Pallet-Town-1,22"' set lm=Route-1&set x=23&set y=22&set g=0
if '%dest%'=='"Route-2-14,18"' set lm=Viridian-Forest&set x=23&set y=18&set g=0
if '%dest%'=='"Route-2-8,8"' set lm=Viridian-Forest&set x=2&set y=3&set g=2
if '%dest%'=='"Vermilion-City-12,41"' set lm=Diglett-Cave&set x=22&set y=38&set g=2
if '%dest%'=='"Route-2-4,29"' set lm=Diglett-Cave&set x=4&set y=5&set g=2
if '%dest%'=='"Route-19-1-12,1"' set lm=Seafoam-Islands&set x=6&set y=42&set g=0
if '%dest%'=='"Route-20-21,43"' set lm=Seafoam-Islands&set x=21&set y=2&set g=4
if '%dest%'=='"Route-3-7,43"' set lm=Route-4&set x=17&set y=2&set g=0
if '%dest%'=='"Route-4-17,1"' set lm=Route-3&set x=7&set y=42&set g=0
if '%dest%'=='"Route-2-9,38"' set lm=Route-2&set x=12&set y=40&set g=0
if '%dest%'=='"Route-2-11,40"' set lm=Route-2&set x=8&set y=38&set g=0
if '%dest%'=='"Route-5-19,40"' set lm=Route-6&set x=6&set y=39&set g=0
if '%dest%'=='"Route-6-5,39"' set lm=Route-5&set x=20&set y=40&set g=0
if '%dest%'=='"Route-7-17,16"' set lm=Route-8&set x=6&set y=6&set g=0
if '%dest%'=='"Route-7-17,16"' set lm=Route-8&set x=6&set y=6&set g=0
if '%dest%'=='"Route-8-5,6"' set lm=Route-7&set x=18&set y=16&set g=0
if '%dest%'=='"Route-9-13,43"' set lm=Route-10&set x=6&set y=2&set g=0
if '%dest%'=='"Route-10-6,1"' set lm=Route-9&set x=13&set y=42&set g=0
if '%dest%'=='"Route-10-24,38"' set lm=Route-10-1&set x=2&set y=37&set g=4
if '%dest%'=='"Route-10-1-1,37"' set lm=Route-10&set x=23&set y=38&set g=4
if '%dest%'=='"Route-16-4,14"' set !x!,!y!=ÿ&set/a y+=13&goto WRoom
if '%dest%'=='"Route-16-4,25"' set !x!,!y!=ÿ&set/a y-=13&goto WRoom
if '%dest%'=='"Route-16-6,14"' set !x!,!y!=ÿ&set/a y+=13&goto WRoom
if '%dest%'=='"Route-16-6,25"' set !x!,!y!=ÿ&set/a y-=13&goto WRoom
if '%dest%'=='"Route-16-24,7"' set lm=Route-17&set x=2&set y=22&set g=0
if '%dest%'=='"Route-17-1,22"' set lm=Route-16&set x=23&set y=7&set g=0
if '%dest%'=='"Route-17-24,22"' set lm=Route-18&set x=2&set y=8&set g=0
if '%dest%'=='"Route-18-1,8"' set lm=Route-17&set x=23&set y=22&set g=0
if '%dest%'=='"Route-18-17,30"' set !x!,!y!=ÿ&set/a y+=9&goto WRoom
if '%dest%'=='"Route-18-17,37"' set !x!,!y!=ÿ&set/a y-=9&goto WRoom
if '%dest%'=='"Route-19-24,22"' set lm=Route-19-1&set x=2&set y=37&set g=4
if '%dest%'=='"Route-19-1-1,37"' set lm=Route-19&set x=23&set y=22&set g=4
if '%dest%'=='"Seafoam-Islands-21,1"' set lm=Route-20&set x=21&set y=42&set g=4
if '%dest%'=='"Seafoam-Islands-6,43"' set lm=Route-19-1&set x=12&set y=2&set g=4
if '%dest%'=='"Viridian-Forest-24,18"' set lm=Route-2&set x=15&set y=18&set g=0
if '%dest%'=='"Viridian-Forest-1,3"' set lm=Route-2&set x=7&set y=8&set g=0
if '%dest%'=='"Diglett-Cave-4,4"' set lm=Route-2&set x=5&set y=29&set g=0
if '%dest%'=='"Pallet-Town-24,11"' set lm=Route-21&set x=2&set y=16&set g=4
if '%dest%'=='"Viridian-City-1,18"' set lm=Route-2&set x=23&set y=18&set g=0
if '%dest%'=='"Viridian-City-14,1"' set lm=Route-22&set x=12&set y=42&set g=0
if '%dest%'=='"Pewter-City-24,22"' set lm=Route-2&set x=2&set y=18&set g=0
if '%dest%'=='"Pewter-City-12,43"' set lm=Route-3&set x=14&set y=2&set g=0
if '%dest%'=='"Saffron-City-13,1"' set lm=Route-7&set x=14&set y=30&set g=0
if '%dest%'=='"Saffron-City-1,23"' set lm=Route-5&set x=20&set y=22&set g=0
if '%dest%'=='"Saffron-City-13,43"' set lm=Route-8&set x=12&set y=2&set g=0
if '%dest%'=='"Saffron-City-24,23"' set lm=Route-6&set x=3&set y=21&set g=0
if '%dest%'=='"Mt-Moon-1-24,20"' set lm=Route-4&set x=4&set y=39&set g=0
if '%dest%'=='"Fuchsia-City-12,1"' set lm=Route-18&set x=17&set y=42&set g=0
if '%dest%'=='"Fuchsia-City-24,23"' set lm=Route-19&set x=2&set y=25&set g=0
if '%dest%'=='"Cerulean-City-9,43"' set lm=Route-9&set x=13&set y=2&set g=0
if '%dest%'=='"Cerulean-City-24,8"' set lm=Route-5&set x=2&set y=6&set g=0
if '%dest%'=='"Cerulean-City-24,29"' set lm=Route-5&set x=2&set y=39&set g=0
if '%dest%'=='"Cerulean-City-24,19"' set lm=Route-5&set x=2&set y=22&set g=0
if '%dest%'=='"Cerulean-City-12,1"' set lm=Route-4-1&set x=17&set y=42&set g=0
if '%dest%'=='"Cerulean-City-2,1"' set lm=Route-4-1&set x=4&set y=42&set g=0
if '%dest%'=='"Rock-Tunnel-Floor-1-3,18"' set lm=Route-10&set x=15&set y=22&set g=0
if '%dest%'=='"Victory-Road-Badge-Gates-24,13"' set lm=Route-22&set x=7&set y=8&set g=0
if '%dest%'=='"Mt-Moon-2-2,38"' set lm=Route-4-1&set x=7&set y=2&set g=0
if '%dest%'=='"Lavender-Town-14,1"' set lm=Route-8&set x=19&set y=42&set g=0
if '%dest%'=='"Vermilion-City-1,24"' set lm=Route-6&set x=23&set y=18&set g=0
if '%dest%'=='"Celadon-City-9,43"' set lm=Route-7&set x=6&set y=2&set g=0
if '%dest%'=='"Celadon-City-13,1"' set lm=Route-16&set x=6&set y=42&set g=0
if '%dest%'=='"Cinnabar-Island-1,20"' set lm=Route-21&set x=23&set y=16&set g=4
if '%dest%'=='"Cinnabar-Island-14,43"' set lm=Route-20&set x=12&set y=2&set g=4
if '%dest%'=='"Route-1-1,22"' set lm=Viridian-City&set x=23&set y=18&set g=0
if '%dest%'=='"Route-22-12,43"' set lm=Viridian-City&set x=14&set y=2&set g=0
if '%dest%'=='"Route-2-24,18"' set lm=Viridian-City&set x=2&set y=18&set g=0
if '%dest%'=='"Route-2-1,18"' set lm=Pewter-City&set x=23&set y=22&set g=0
if '%dest%'=='"Route-3-14,1"' set lm=Pewter-City&set x=12&set y=42&set g=0
if '%dest%'=='"Route-6-2,21"' set lm=Saffron-City&set x=23&set y=23&set g=0
if '%dest%'=='"Route-7-14,31"' set lm=Saffron-City&set x=13&set y=2&set g=0
if '%dest%'=='"Route-5-21,22"' set lm=Saffron-City&set x=2&set y=23&set g=0
if '%dest%'=='"Route-8-12,1"' set lm=Saffron-City&set x=13&set y=42&set g=0
if '%dest%'=='"Route-4-3,39"' set lm=Mt-Moon-1&set x=23&set y=20&set g=2
if '%dest%'=='"Route-4-1-6,2"' set lm=Mt-Moon-2&set x=2&set y=37&Set g=2
if '%dest%'=='"Mt-Moon-1-11,30"' set lm=Mt-Moon-2&set x=13&set y=35&set g=2
if '%dest%'=='"Mt-Moon-2-22,6"' set lm=Mt-Moon-3&set x=19&set y=15&set g=2
if '%dest%'=='"Mt-Moon-3-19,14"' set lm=Mt-Moon-2&set x=22&set y=7&set g=2
if '%dest%'=='"Mt-Moon-1-9,21"' set lm=Mt-Moon-2&set x=7&set y=33&set g=2
if '%dest%'=='"Mt-Moon-2-7,34"' set lm=Mt-Moon-1&set x=9&set y=20&set g=2
if '%dest%'=='"Mt-Moon-2-9,21"' set lm=Mt-Moon-3&set x=5&set y=28&set g=2
if '%dest%'=='"Mt-Moon-3-5,27"' set lm=Mt-Moon-2&set x=9&set y=22&set g=2
if '%dest%'=='"Mt-Moon-1-4,5"' set lm=Mt-Moon-2&set x=4&set y=6&set g=2
if '%dest%'=='"Mt-Moon-2-4,5"' set lm=Mt-Moon-1&set x=4&set y=6&set g=2
if '%dest%'=='"Mt-Moon-2-14,28"' set lm=Mt-Moon-3&set x=12&set y=21&set g=2
if '%dest%'=='"Mt-Moon-3-12,22"' set lm=Mt-Moon-2&set x=14&set y=27&set g=2
if '%dest%'=='"Mt-Moon-2-13,34"' set lm=Mt-Moon-1&set x=11&set y=31&set g=2
if '%dest%'=='"Mt-Moon-3-7,4"' set lm=Mt-Moon-2&set x=3&set y=30&set g=2
if '%dest%'=='"Mt-Moon-2-3,29"' set lm=Mt-Moon-3&set x=7&set y=5&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-1-3,41"' set lm=Rock-Tunnel-Floor-2&set x=19&set y=39&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-2-18,39"' set lm=Rock-Tunnel-Floor-1&set x=4&set y=41&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-2-2,33"' set lm=Rock-Tunnel-Floor-1&set x=4&set y=4&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-1-3,42"' set lm=Rock-Tunnel-Floor-2&set x=3&set y=33&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-1-3,4"' set lm=Rock-Tunnel-Floor-2&set x=3&set y=33&set g=2
if '%dest%'=='"Rock-Tunnel-Lavender-Town-5,19"' set lm=Rock-Tunnel-Floor-1&set x=21&set y=17&set g=2
if '%dest%'=='"Route-10-14,22"' set lm=Rock-Tunnel-Floor-1&set x=3&set y=19&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-1-13,42"' set lm=Rock-Tunnel-Floor-2&set x=3&set y=5&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-2-3,4"' set lm=Rock-Tunnel-Floor-1&set x=13&set y=41&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-2-9,28"' set lm=Rock-Tunnel-Floor-1&set x=7&set y=21&set g=2
if '%dest%'=='"Rock-Tunnel-Floor-1-7,22"' set lm=Rock-Tunnel-Floor-2&set x=9&set y=27&set g=2
if '%dest%'=='"Route-24-24,16"' set lm=Cerulean-City&set x=2&set y=9&set g=4
if '%dest%'=='"Route-24-24,20"' set lm=Cerulean-City&set x=2&set y=20&set g=0
if '%dest%'=='"Route-24-24,24"' set lm=Cerulean-City&set x=2&set y=24&set g=0
if '%dest%'=='"Route-9-13,1"' set lm=Cerulean-City&set x=9&set y=42&set g=0
if '%dest%'=='"Route-4-1-4,43"' set lm=Cerulean-City&set x=2&set y=2&set g=0
if '%dest%'=='"Route-4-1-17,43"' set lm=Cerulean-City&set x=12&set y=2&set g=0
if '%dest%'=='"Route-5-1,6"' set lm=Cerulean-City&set x=23&set y=8&set g=0
if '%dest%'=='"Route-5-1,39"' set lm=Cerulean-City&set x=23&set y=29&set g=0
if '%dest%'=='"Route-5-1,22"' set lm=Cerulean-City&set x=23&set y=19&set g=0
if '%dest%'=='"Route-18-17,43"' set lm=Fuchsia-City&set x=12&set y=2&set g=0
if '%dest%'=='"Route-19-1,25"' set lm=Fuchsia-City&set x=23&set y=23&set g=0
if '%dest%'=='"Route-15-12,1"' set lm=Fuchsia-City&set x=16&set y=42&set g=0
if '%dest%'=='"Bills-House-12,1"' set lm=Route-25&set x=12&set y=42&set g=0
if '%dest%'=='"Bills-House-8,1"' set lm=Route-25&set x=8&set y=42&set g=0
if '%dest%'=='"Route-24-7,43"' set lm=Route-25&set x=7&set y=2&set g=0
if '%dest%'=='"Route-24-12,43"' set lm=Route-25&set x=12&set y=2&set g=0
if '%dest%'=='"Route-25-7,1"' set lm=Route-24&set x=7&set y=42&set g=0
if '%dest%'=='"Route-25-12,1"' set lm=Route-24&set x=12&set y=42&set g=0
if '%dest%'=='"Route-25-8,43"' set lm=Bills-House&set x=8&set y=2&set g=0
if '%dest%'=='"Route-25-12,43"' set lm=Bills-House&set x=12&set y=2&set g=0
if '%dest%'=='"Cerulean-City-1,9"' set lm=Route-24&set x=23&set y=16&set g=4
if '%dest%'=='"Cerulean-City-1,20"' set lm=Route-24&set x=23&set y=20&set g=0
::above("Cerulean-City-1,20").FirstTime = RivalFight Cerulean-Bridge(Route-24)
if '%dest%'=='"Route-8-19,43"' set lm=Lavender-Town&set x=14&set y=2&set g=0
if '%dest%'=='"Rock-Tunnel-Lavender-Town-24,16"' set lm=Lavender-Town&set x=2&set y=23&set g=0
if '%dest%'=='"Route-12-1,22"' set lm=Lavender-Town&set x=23&set y=26&set g=0
if '%dest%'=='"Celadon-City-14,27"' set lm=Game-Corner&set x=17&set y=32&set g=0
if '%dest%'=='"Route-6-24,18"' set lm=Vermilion-City&set x=2&set y=24&set g=0
if '%dest%'=='"Diglett-Cave-22,39"' set lm=Vermilion-City&set x=13&set y=41&set g=0
if '%dest%'=='"SS-Anne-Floor-1-1,30"' set lm=Vermilion-City&set x=23&set y=24&set g=0
if '%dest%'=='"Route-11-11,1"' set lm=Vermilion-City&set x=14&set y=42&set g=0
if '%dest%'=='"Route-7-6,1"' set lm=Celadon-City&set x=9&set y=42&set g=0
if '%dest%'=='"Route-16-6,43"' set lm=Celadon-City&set x=13&set y=2&set g=0
if '%dest%'=='"Game-Corner-18,32"' set lm=Celadon-City&set x=15&set y=27&set g=0
if '%dest%'=='"Route-20-12,1"' set lm=Cinnabar-Island&set x=14&set y=42&set g=4
if '%dest%'=='"Route-21-24,16"' set lm=Cinnabar-Island&set x=2&set y=20&set g=0
if '%dest%'=='"Route-22-6,8"' set lm=Victory-Road-Badge-Gates&set x=23&set y=13&set g=0
if '%dest%'=='"Victory-Road-Badge-Gates-1,31"' set lm=Victory-Road-Badge-Gates-1&set x=23&set y=29&set g=0
if '%dest%'=='"Victory-Road-Badge-Gates-1-24,29"' set lm=Victory-Road-Badge-Gates&set x=2&set y=31&set g=0
if '%dest%'=='"Route-23-24,8"' set lm=Victory-Road-Badge-Gates-2&set x=2&set y=18&set g=0
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
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
if '%dest%'=='"Rock-Tunnel-Floor-1-22,17"' set lm=Rock-Tunnel-Lavender-Town&set x=6&set y=19&set g=0
if '%dest%'=='"Lavender-Town-1,23"' set lm=Rock-Tunnel-Lavender-Town&set x=23&set y=16&set g=0
if '%dest%'=='"Lavender-Town-24,26"' set lm=Route-12&set x=2&set y=22&set g=0
if '%dest%'=='"Vermilion-City-14,43"' set lm=Route-11&set x=11&set y=2&set g=0
if '%dest%'=='"Route-11-12,43"' set lm=Route-12-1&set x=9&set y=2&set g=0
if '%dest%'=='"Route-12-1-9,1"' set lm=Route-11&set x=12&set y=42&set g=0
if '%dest%'=='"Route-12-24,7"' set lm=Route-12-1&set x=2&set y=7&set g=0
if '%dest%'=='"Route-12-1-1,7"' set lm=Route-12&set x=23&set y=7&set g=0
if '%dest%'=='"Route-12-2-24,30"' set lm=Route-13&set x=22&set y=42&set g=0
if '%dest%'=='"Route-12-2-21,1"' set lm=Route-13&set x=3&set y=42&set g=0
if '%dest%'=='"Route-12-1-24,30"' set lm=Route-12-2&set x=2&set y=30&set g=0
if '%dest%'=='"Route-12-2-1,30"' set lm=Route-12-1&set x=23&set y=30&set g=0
if '%dest%'=='"Route-13-24,6"' set lm=Route-14&set x=2&set y=22&set g=0
if '%dest%'=='"Route-13-3,43"' set lm=Route-12-2&set x=21&set y=2&set g=0
if '%dest%'=='"Route-13-22,43"' set lm=Route-12-2&set x=23&set y=30&set g=0
if '%dest%'=='"Route-14-20,1"' set lm=Route-15&set x=12&set y=42&set g=0
if '%dest%'=='"Route-14-1,22"' set lm=Route-13&set x=23&set y=6&set g=0
if '%dest%'=='"Route-15-12,43"' set lm=Route-14&set x=20&set y=2&set g=0
if '%dest%'=='"Victory-Road-Badge-Gates-2-1,18"' set lm=Route-23&set x=23&set y=8&set g=0
if '%dest%'=='"Fuchsia-City-16,43"' set lm=Route-15&set x=12&set y=2&set g=0
if '%dest%'=='"Vermilion-City-24,24"' set lm=SS-Anne-Floor-1&set x=2&set y=30&set g=0
if '%dest%'=='"SS-Anne-Floor-1-10,41"' set lm=SS-Anne-Floor-1&set x=13&set y=38&set g=0
if '%dest%'=='"SS-Anne-Floor-1-13,39"' set lm=SS-Anne-Floor-1&set x=9&set y=41&set g=0
if '%dest%'=='"SS-Anne-Floor-1-3,2"' set lm=SS-Anne-Floor-1&set x=22&set y=3&set g=0
if '%dest%'=='"SS-Anne-Floor-1-22,2"' set lm=SS-Anne-Floor-1&set x=3&set y=3&set g=0
if '%dest%'=='"SS-Anne-Floor-1-15,41"' set lm=SS-Anne-Floor-2&set x=16&set y=22&set g=0
if '%dest%'=='"SS-Anne-Floor-2-17,22"' set lm=SS-Anne-Floor-1&set x=16&set y=41&set g=0
if '%dest%'=='"SS-Anne-Floor-1-22,2"' set lm=SS-Anne-Bow&set x=12&set y=42&set g=0
if '%dest%'=='"SS-Anne-Bow-12,43"' set lm=SS-Anne-Floor-1&set x=22&set y=3&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-1-2,26"' set lm=Game-Corner&set x=8&set y=19&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-1-2,29"' set lm=Rocket-Hideout-Floor-2&set x=4&set y=40&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-2-3,40"' set lm=Rocket-Hideout-Floor-1&set x=3&set y=29&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-2-3,34"' set lm=Rocket-Hideout-Floor-3&set x=4&set y=37&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-3-3,37"' set lm=Rocket-Hideout-Floor-2&set x=4&set y=34&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-3-17,25"' set lm=Rocket-Hideout-Floor-4&set x=12&set y=22&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-4-11,22"' set lm=Rocket-Hideout-Floor-3&set x=18&set y=25&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-2-22,34"' set lm=Rocket-Hideout-Floor-1&set x=22&set y=25&set g=0
if '%dest%'=='"Rocket-Hideout-Floor-1-21,25"' set lm=Rocket-Hideout-Floor-2&set x=21&set y=34&set g=0
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
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
::if '%dest%'=='"Rocket-Hideout-Floor-4-17,34"' set lm=&set x=&set y=&set g=0 LIFT FLOOR 4
::if '%dest%'=='"Rocket-Hideout-Floor-2-17,39"' set lm=&set x=&set y=&set g=0 LIFT FLOOR 2
::if '%dest%'=='"Rocket-Hideout-Floor-1-17,33"' set lm=&set x=&set y=&set g=0 LIFT FLOOR 1
if '%dest%'=='"Lavender-Town-10,37"' set lm=Pkmn-Tower-Floor-1&set x=13&set y=40&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-1-13,41"' set lm=Lavender-Town&set x=11&set y=37&set g=0
if '%dest%'=='"Pkmn-Tower-Floor-1-13,4"' set lm=Pkmn-Tower-Floor-2&set x=13&set y=5&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-2-13,4"' set lm=Pkmn-Tower-Floor-1&set x=13&set y=5&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-2-14,40"' set lm=Pkmn-Tower-Floor-3&set x=14&set y=40&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-3-14,41"' set lm=Pkmn-Tower-Floor-2&set x=14&set y=39&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-3-13,4"' set lm=Pkmn-Tower-Floor-4&set x=13&set y=4&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-4-14,41"' set lm=Pkmn-Tower-Floor-5&set x=14&set y=40&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-5-14,41"' set lm=Pkmn-Tower-Floor-4&set x=14&set y=40&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-5-23,19"' set lm=Pkmn-Tower-Floor-6&set x=23&set y=21&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-6-23,20"' set lm=Pkmn-Tower-Floor-5&set x=23&set y=20&set g=2
if '%dest%'=='"Pkmn-Tower-Floor-4-13,3"' set lm=Pkmn-Tower-Floor-3&set x=13&set y=5&set g=2
if '%dest%'=='"Safari-Zone-1-11,43"' set lm=Safari-Zone-2&set x=22&set y=2&set g=0
if '%dest%'=='"Safari-Zone-2-22,1"' set lm=Safari-Zone-1&set x=11&set y=42&set g=0
if '%dest%'=='"Safari-Zone-2-6,1"' set lm=Safari-Zone-3&set x=22&set y=42&set g=0
if '%dest%'=='"Safari-Zone-3-22,43"' set lm=Safari-Zone-2&set x=6&set y=2&set g=0
if '%dest%'=='"Safari-Zone-3-24,23"' set lm=Safari-Zone-1&set x=2&set y=23&set g=0
if '%dest%'=='"Safari-Zone-1-1,23"' set lm=Safari-Zone-3&set x=23&set y=24&set g=0
if '%dest%'=='"Safari-Zone-3-24,10"' set lm=Safari-Zone-4&set x=2&set y=40&set g=0
if '%dest%'=='"Safari-Zone-4-1,40"' set lm=Safari-Zone-3&set x=23&set y=10&set g=0
if '%dest%'=='"Safari-Zone-4-1,31"' set lm=Safari-Zone-3&set x=23&set y=4&set g=0
if '%dest%'=='"Safari-Zone-3-24,4"' set lm=Safari-Zone-4&set x=2&set y=31&set g=0
if '%dest%'=='"Safari-Zone-4-22,43"' set lm=Safari-Zone-1&set x=11&set y=2&set g=0
if '%dest%'=='"Safari-Zone-1-11,1"' set lm=Safari-Zone-4&set x=22&set y=42&set g=0
if '%dest%'=='"Route-23-19,8"' set !x!,!y!=ÿ&set/a y+=21&goto WRoom
if '%dest%'=='"Route-23-19,29"' set !x!,!y!=ÿ&set/a y-=21&goto WRoom
if '%dest%'=='"Route-10-1-13,10"' set lm=Power-Plant&set x=23&set y=5&set g=2
if '%dest%'=='"Power-Plant-24,5"' set lm=Route-10-1&set x=14&set y=10&set g=0
if '%dest%'=='"Power-Plant-8,1"' set lm=Route-10-1&set x=14&set y=10&set g=0
if '%dest%'=='"Celadon-City-14,31"' set lm=Price-hall&set x=19&set y=23&set g=0
if '%dest%'=='"Price-hall-20,23"' set lm=Celadon-City&set x=15&set y=31&set g=0
if '%dest%'=='"Fossil-Lab-18,9"' set lm=Cinnabar-Island&set x=17&set y=10&set g=0
if '%dest%'=='"Cinnabar-Island-16,10"' set lm=Fossil-Lab&set x=17&set y=9&set g=0
if '%dest%'=='"Route-23-1,22"' set lm=Indigo-Plateau&set x=23&set y=22
if '%dest%'=='"Indigo-Plateau-24,22"' set lm=Route-23&set x=2&set y=22&set g=0
if '%dest%'=='"Elite-Four-Lorelei-1,22"' set lm=Elite-Four-Bruno&set x=23&set y=24&set g=0
if '%dest%'=='"Elite-Four-Bruno-1,24"' set lm=Elite-Four-Agatha&set x=23&set y=22&set g=0
if '%dest%'=='"Elite-Four-Lance-1,22"' set lm=Elite-Four-Rival&set x=23&set y=22&set g=0
if '%dest%'=='"Pewter-City-Gym-24,22"' set lm=Pewter-City&set x=14&set y=20&set g=0
if '%dest%'=='"Saffron-City-Gym-24,22"' set lm=Saffron-City&set x=4&set y=40&set g=0
if '%dest%'=='"Cerulean-City-Gym-24,23"' set lm=Cerulean-City&set x=12&set y=32&set g=0
if '%dest%'=='"Vermilion-City-Gym-24,22"' set lm=Vermilion-City&set x=17&set y=17&set g=0
if '%dest%'=='"Celadon-City-Gym-24,22"' set lm=Celadon-City&set x=22&set y=13&set g=0
if '%dest%'=='"Fuchsia-City-Gym-24,22"' set lm=Fuchsia-City&set x=21&set y=9&set g=0
if '%dest%'=='"Cinnabar-Island-Gym-24,35"' set lm=Cinnabar-Island&set x=9&set y=35&set g=0
if '%dest%'=='"Viridian-City-Gym-24,35"' set lm=Viridian-City&set x=8&set y=37&set g=0
::if '%dest%'=='' set lm=&set x=&set y=&set g=0

if '%g%'=='' set g=0
if %g% EQU 0 set char=#
if %g% GTR 0 set char=²
if %g% GTR 2 set char=Ü
goto SkipLoadRoom
:CheckSpecial
set dest="%lm%-!check!"
echo %dest%&pause>nul
::if '%dest%'=='"Rocket-Hideout-Floor-4-4,35"' FIGHT GIOVANNI

if '%dest%'=='"Game-Corner-7,19"' set lm=Rocket-Hideout-Floor-1&set x=3&set y=26&set grass=0&goto SkipLoadRoom
goto WRoom
:strlen
::modified from: https://stackoverflow.com/questions/5837418/how-do-you-get-the-string-length-in-a-batch-file
(
setlocal
set "s=!%~2!#"
set "len=0"
for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
if "!s:~%%P,1!" NEQ "" (
set/a "len+=%%P"
set "s=!s:~%%P!"
)))
(
endlocal
set "%~1=%len%"
exit/b
)