Snake Game

@echo off
title Snake Game
set maindir=%cd%
set version=2.2
if not exist FILES mkdir FILES
cd %cd%\FILES
call :default
if exist config.bat call config.bat

if /i "%autoupdate%" == "On " goto checkforupdates

:menu
title Snake Game
if exist config.bat call config.bat
color 04
mode 80,30
if exist "batchsnakepatcher.bat" del "batchsnakepatcher.bat"
cls
echo.
echo.
echo                               1. Play Snake
echo                               2. How To Play
echo                               3. Configure
echo                               4. High Scores
echo                               5. About
echo                               6. Exit
echo.
set /p choose=^>                            CzpySnake:
if "%choose%" == "1" goto loadmap
if "%choose%" == "2" goto howtoplay
if "%choose%" == "3" goto config
if "%choose%" == "4" call :highscores
if "%choose%" == "5" goto about
if "%choose%" == "6" EXIT
goto menu

::: GAME BEGIN :::

:loadmap
set curmap=2
set scoremode=
set mappack=off
set mapcount=0
set totalmoves=0
set totalscore=0
mode 80,30
cls
echo.
echo Choose a map:
echo.
echo  1. Large
echo  2. Medium
echo  3. Small
echo.
echo b/Back   l/Load custom map
echo.
set /p choose=Choose a number:
if /i "%choose%" == "l" (
set loadtype=map
call :loadcustom
)
if /i "%choose%" == "b" goto menu
if "%choose%" == "1" (
set mapname=Large Default
set map=:large
set mapload=:largeborder
set fixlocate=505
set totalvariables=1000
set width=50
set mode=mode 58,24
goto start
)
if "%choose%" == "2" (
set mapname=Medium Default
set map=:medium
set mapload=:mediumborder
set fixlocate=215
set totalvariables=450
set width=30
set mode=mode 38,19
goto start
)
if not "%choose%" == "3" goto loadmap
set mapname=Small Default
set map=:small
set mapload=:smallborder
set fixlocate=105
set totalvariables=200
set width=20
set mode=mode 28,14
goto start


if not "%loadtype%" == "skin" if /i "%mapname%" == "m" (
goto loadmappack
:lmpback
if not "%mappack%" == "on" goto loadcustom
:scoremodeask
cls
echo.
echo Select Score Mode:
echo.
echo  1. Adventure
echo  2. Free Score
echo.
echo NOTE: High scores are not logged while playing map packs!
echo.
echo b/Back
echo.
set /p choose=Choose a mode number:
if /i "%choose%" == "b" goto loadcustom
if not "%choose%" == "1" if not "%choose%" == "2" goto scoremodeask
if "%choose%" == "1" set scoremode=adventure
if "%choose%" == "2" set scoremode=freescore
if "%scoremode%" == "adventure" call :diff
goto start2
)

if /i "%mapname%" == "f" (set find=true) && (mode 100,1000) && goto loadcustom
if "%loadtype%" == "skin" (
if /i not exist %mapname%.skin.bat goto notfound
call %mapname%.skin.bat
exit /b
)
if not "%loadtype%" == "skin" if /i "%mapname%" == "fm" (
set find=true
set loadtype=mappack
mode 100,100
goto loadcustom
)
set mapload=%mapname%.load.bat
set map=%mapname%.map.bat
if /i not exist %mapload% goto notfound
if /i not exist %map% (
:notfound
echo.
if "%loadtype%" == "map" (echo "%mapname%.%loadtype%.bat" or "%mapname%.load.bat" was not found.) ELSE echo "%mapname%.skin.bat" was not found.
echo.
pause
goto loadcustom
)
goto start2

:diff
cls
echo.
echo Select a difficulty number:
echo.
echo  1. Normal   - Nothing is reset. Scores will not drop after death.
echo  2. Hardcore - Goes back 1 map after death. Scores won't add if already beaten.
echo  3. Extreme  - Resets the map pack after death. All scores are dropped.
echo.
echo b/Back
echo.
set /p choose=Difficulty:
if /i "%choose%" == "b" goto scoremodeask
if not "%choose%" == "1" if not "%choose%" == "2" if not "%choose%" == "3" goto diff
if "%choose%" == "1" set diff=Normal
if "%choose%" == "2" set diff=Hardcore
if "%choose%" == "3" set diff=Extreme
exit /b

:loadmappack
echo.
set /p mappackname=Map Pack Name:
if not exist %mappackname%.mappack.bat echo. && echo "%mappackname%.mappack.bat" was not found. && echo. && pause && goto lmpback
set mapcount=1
call %mappackname%.mappack.bat
set mappack=on
call set map=%mapnum1%.map.bat
call set mapload=%mapnum1%.load.bat
goto lmpback

:start
set default=true
for /l %%g in (1,1,%totalvariables%) do set a%%g=%grass%
%mode%

:start2
for /l %%u in (1,1,%totalvariables%) do set und%%u=
if exist trail.bat del trail.bat
if exist trail2.bat del trail2.bat
if not exist "input.bat" goto inputbuild


echo goto skip>trail.bat
echo :switch>>trail.bat
echo if exist %%filevar2%%.bat del %%filevar2%%.bat>>trail.bat
echo find /v "%%findread%%" ^<%%filevar%%.bat^> %%filevar2%%.bat>>trail.bat
echo if '%%filevar%%' == 'trail' (>>trail.bat
echo set filevar=trail2>>trail.bat
echo set filevar2=trail>>trail.bat
echo ) else (>>trail.bat
echo set filevar=trail>>trail.bat
echo set filevar2=trail2>>trail.bat
echo )>>trail.bat
echo exit /b>>trail.bat
echo :skip>>trail.bat
echo.>>trail.bat

set speed=REM
if not "%speednumber%" == "0" set speed=ping 127.0.0.0 -n %speednumber% -l 1 -w ^%speednumber% ^>nul
if "%mappack%" == "on" call set scorevar=%%maxscore%mapcount%%%
set scorecheck=
set rank=Neonate
set firstpause=true
set fix=0
set filevar=trail
set filevar2=trail2
set loadcounter=0
set movecounter=0
set trailcounter=1
set choice=d
set score=0
set undefined=^^^^
call %mapload%
if /i not "%allowtheme%" == "On " call config.bat
color %bf%
set curpos=%fixlocate%
set a%fixlocate%=%head%
if /i "%rockgen%" == "On " if not "%mappack%" == "on" call :rockgen
cls
start input.bat
call :food
set countdown=%delay%
set choice=%choice%
echo %choice%>bridge.txt

:delayloop
cls
echo Score: %score%
echo.
call %map%
if "%countdown%" == "%delay%" echo Press anything to start Snake. && pause>nul
if not "%delay%" == "0" (
if "%countdown%" == "%delay%" (
cls
echo Score: %score%
echo.
call %map%
)
echo     Snake starting in %countdown%
set /a countdown=%countdown%-1
ping 127.0.0.0 -n 2 -l 1 -w 2 >nul
)
if not "%countdown%" == "0" goto delayloop
cls

REM Please send feedback if you know how to increase the speed of the game.
:game
%f%
echo Score: %score%
echo.
call %map%
%speed%
if not "%buffer%" == "0" (
for /l %%B in (1,1,%buffer%) do echo BUFFER>buffer.txt
del buffer.txt
)

if exist bridge.txt set /p gotolabel=< bridge.txt
if exist bridge.txt del bridge.txt

if %score% GTR 0 (
if "%gotolabel%" == "%opp%" (
call :%choice%
goto game
)
)
goto %gotolabel%


:w
set choice=w
set opp=s
set origcurpos=%curpos%
set /a curpos=%curpos%-%width%
call :check
goto game

:a
set choice=a
set opp=d
set origcurpos=%curpos%
set /a curpos=%curpos%-1
call :check
goto game

:s
set choice=s
set opp=w
set origcurpos=%curpos%
set /a curpos=%curpos%+%width%
call :check
goto game

:d
set choice=d
set opp=a
set origcurpos=%curpos%
set /a curpos=%curpos%+1
call :check
goto game

:pause
set choice=%choice%
echo %choice%>bridge.txt
cls
echo.
echo Game is paused.
echo.
echo 1. Continue
echo 2. Menu
echo.
set /p choose=Choose a number:
if "%choose%" == "1" (
cls
echo Score: %score%
echo.
call %map%
ping localhost -n 3 >nul
goto game
)
if "%choose%" == "2" (
if exist trail.bat del trail.bat
if exist trail2.bat del trail2.bat
if exist bridge.txt del bridge.txt
goto menu
)
goto pause


:check
if %curpos% GTR %totalvariables% set /a curpos=%curpos%-%totalvariables%
if %curpos% LSS 1 set /a curpos=%curpos%+%totalvariables%
call set outvar=%%a%curpos%%%
if "%outvar%" == "%border%" goto gameover
if "%outvar%" == "%tail%" goto gameover
if "%outvar%" == "%rocks%" goto gameover
set var=a%curpos%
if "%var%" == "%foodlocate%" (
set /a score=%score%+25
set /a trailcounter=%trailcounter%+%tailadd%
call :food
)

set /a movecounter=%movecounter%+1

if not "%trailcounter%" == "0" (
set a%origcurpos%=%tail%
set /a nextdel=%movecounter%+%trailcounter%
call :trailfollow
)
set a%curpos%=%head%
if %fix% EQU 0 call :fix
exit /b


:food
if "%scoremode%" == "adventure" if %score% GEQ %scorevar% goto gameover3
set /A r=%RANDOM% %% %totalvariables% + 1
call set outvar=%%a%r%%%
call set outvar2=%%und%r%%%
if "%outvar2%" == "s" goto food
if "%outvar2%" == "g" goto food
if not "%outvar:~1%"=="" goto food
if not "%outvar%" == "%grass%" goto food
set a%r%=%food%
set foodlocate=a%r%
exit /b

:trailfollow
set trailvar=if '%nextdel%' == '%%movecounter%%'
set findread=if '%nextdel%'
echo %trailvar% ((set findread=%findread%) ^&^& (call :switch) ^&^& (set a%curpos%=%grass%)  ^&^& exit /b)>>%filevar%.bat
call %filevar%.bat
exit /b

:fix
set a%fixlocate%=%grass%
set fix=1
exit /b


:small
echo     %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%%a10%%a11%%a12%%a13%%a14%%a15%%a16%%a17%%a18%%a19%%a20%
echo     %a21%%a22%%a23%%a24%%a25%%a26%%a27%%a28%%a29%%a30%%a31%%a32%%a33%%a34%%a35%%a36%%a37%%a38%%a39%%a40%
echo     %a41%%a42%%a43%%a44%%a45%%a46%%a47%%a48%%a49%%a50%%a51%%a52%%a53%%a54%%a55%%a56%%a57%%a58%%a59%%a60%
echo     %a61%%a62%%a63%%a64%%a65%%a66%%a67%%a68%%a69%%a70%%a71%%a72%%a73%%a74%%a75%%a76%%a77%%a78%%a79%%a80%
echo     %a81%%a82%%a83%%a84%%a85%%a86%%a87%%a88%%a89%%a90%%a91%%a92%%a93%%a94%%a95%%a96%%a97%%a98%%a99%%a100%
echo     %a101%%a102%%a103%%a104%%a105%%a106%%a107%%a108%%a109%%a110%%a111%%a112%%a113%%a114%%a115%%a116%%a117%%a118%%a119%%a120%
echo     %a121%%a122%%a123%%a124%%a125%%a126%%a127%%a128%%a129%%a130%%a131%%a132%%a133%%a134%%a135%%a136%%a137%%a138%%a139%%a140%
echo     %a141%%a142%%a143%%a144%%a145%%a146%%a147%%a148%%a149%%a150%%a151%%a152%%a153%%a154%%a155%%a156%%a157%%a158%%a159%%a160%
echo     %a161%%a162%%a163%%a164%%a165%%a166%%a167%%a168%%a169%%a170%%a171%%a172%%a173%%a174%%a175%%a176%%a177%%a178%%a179%%a180%
echo     %a181%%a182%%a183%%a184%%a185%%a186%%a187%%a188%%a189%%a190%%a191%%a192%%a193%%a194%%a195%%a196%%a197%%a198%%a199%%a200%
exit /b

:medium
echo     %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%%a10%%a11%%a12%%a13%%a14%%a15%%a16%%a17%%a18%%a19%%a20%%a21%%a22%%a23%%a24%%a25%%a26%%a27%%a28%%a29%%a30%
echo     %a31%%a32%%a33%%a34%%a35%%a36%%a37%%a38%%a39%%a40%%a41%%a42%%a43%%a44%%a45%%a46%%a47%%a48%%a49%%a50%%a51%%a52%%a53%%a54%%a55%%a56%%a57%%a58%%a59%%a60%
echo     %a61%%a62%%a63%%a64%%a65%%a66%%a67%%a68%%a69%%a70%%a71%%a72%%a73%%a74%%a75%%a76%%a77%%a78%%a79%%a80%%a81%%a82%%a83%%a84%%a85%%a86%%a87%%a88%%a89%%a90%
echo     %a91%%a92%%a93%%a94%%a95%%a96%%a97%%a98%%a99%%a100%%a101%%a102%%a103%%a104%%a105%%a106%%a107%%a108%%a109%%a110%%a111%%a112%%a113%%a114%%a115%%a116%%a117%%a118%%a119%%a120%
echo     %a121%%a122%%a123%%a124%%a125%%a126%%a127%%a128%%a129%%a130%%a131%%a132%%a133%%a134%%a135%%a136%%a137%%a138%%a139%%a140%%a141%%a142%%a143%%a144%%a145%%a146%%a147%%a148%%a149%%a150%
echo     %a151%%a152%%a153%%a154%%a155%%a156%%a157%%a158%%a159%%a160%%a161%%a162%%a163%%a164%%a165%%a166%%a167%%a168%%a169%%a170%%a171%%a172%%a173%%a174%%a175%%a176%%a177%%a178%%a179%%a180%
echo     %a181%%a182%%a183%%a184%%a185%%a186%%a187%%a188%%a189%%a190%%a191%%a192%%a193%%a194%%a195%%a196%%a197%%a198%%a199%%a200%%a201%%a202%%a203%%a204%%a205%%a206%%a207%%a208%%a209%%a210%
echo     %a211%%a212%%a213%%a214%%a215%%a216%%a217%%a218%%a219%%a220%%a221%%a222%%a223%%a224%%a225%%a226%%a227%%a228%%a229%%a230%%a231%%a232%%a233%%a234%%a235%%a236%%a237%%a238%%a239%%a240%
echo     %a241%%a242%%a243%%a244%%a245%%a246%%a247%%a248%%a249%%a250%%a251%%a252%%a253%%a254%%a255%%a256%%a257%%a258%%a259%%a260%%a261%%a262%%a263%%a264%%a265%%a266%%a267%%a268%%a269%%a270%
echo     %a271%%a272%%a273%%a274%%a275%%a276%%a277%%a278%%a279%%a280%%a281%%a282%%a283%%a284%%a285%%a286%%a287%%a288%%a289%%a290%%a291%%a292%%a293%%a294%%a295%%a296%%a297%%a298%%a299%%a300%
echo     %a301%%a302%%a303%%a304%%a305%%a306%%a307%%a308%%a309%%a310%%a311%%a312%%a313%%a314%%a315%%a316%%a317%%a318%%a319%%a320%%a321%%a322%%a323%%a324%%a325%%a326%%a327%%a328%%a329%%a330%
echo     %a331%%a332%%a333%%a334%%a335%%a336%%a337%%a338%%a339%%a340%%a341%%a342%%a343%%a344%%a345%%a346%%a347%%a348%%a349%%a350%%a351%%a352%%a353%%a354%%a355%%a356%%a357%%a358%%a359%%a360%
echo     %a361%%a362%%a363%%a364%%a365%%a366%%a367%%a368%%a369%%a370%%a371%%a372%%a373%%a374%%a375%%a376%%a377%%a378%%a379%%a380%%a381%%a382%%a383%%a384%%a385%%a386%%a387%%a388%%a389%%a390%
echo     %a391%%a392%%a393%%a394%%a395%%a396%%a397%%a398%%a399%%a400%%a401%%a402%%a403%%a404%%a405%%a406%%a407%%a408%%a409%%a410%%a411%%a412%%a413%%a414%%a415%%a416%%a417%%a418%%a419%%a420%
echo     %a421%%a422%%a423%%a424%%a425%%a426%%a427%%a428%%a429%%a430%%a431%%a432%%a433%%a434%%a435%%a436%%a437%%a438%%a439%%a440%%a441%%a442%%a443%%a444%%a445%%a446%%a447%%a448%%a449%%a450%
exit /b

:large
echo     %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%%a10%%a11%%a12%%a13%%a14%%a15%%a16%%a17%%a18%%a19%%a20%%a21%%a22%%a23%%a24%%a25%%a26%%a27%%a28%%a29%%a30%%a31%%a32%%a33%%a34%%a35%%a36%%a37%%a38%%a39%%a40%%a41%%a42%%a43%%a44%%a45%%a46%%a47%%a48%%a49%%a50%
echo     %a51%%a52%%a53%%a54%%a55%%a56%%a57%%a58%%a59%%a60%%a61%%a62%%a63%%a64%%a65%%a66%%a67%%a68%%a69%%a70%%a71%%a72%%a73%%a74%%a75%%a76%%a77%%a78%%a79%%a80%%a81%%a82%%a83%%a84%%a85%%a86%%a87%%a88%%a89%%a90%%a91%%a92%%a93%%a94%%a95%%a96%%a97%%a98%%a99%%a100%
echo     %a101%%a102%%a103%%a104%%a105%%a106%%a107%%a108%%a109%%a110%%a111%%a112%%a113%%a114%%a115%%a116%%a117%%a118%%a119%%a120%%a121%%a122%%a123%%a124%%a125%%a126%%a127%%a128%%a129%%a130%%a131%%a132%%a133%%a134%%a135%%a136%%a137%%a138%%a139%%a140%%a141%%a142%%a143%%a144%%a145%%a146%%a147%%a148%%a149%%a150%
echo     %a151%%a152%%a153%%a154%%a155%%a156%%a157%%a158%%a159%%a160%%a161%%a162%%a163%%a164%%a165%%a166%%a167%%a168%%a169%%a170%%a171%%a172%%a173%%a174%%a175%%a176%%a177%%a178%%a179%%a180%%a181%%a182%%a183%%a184%%a185%%a186%%a187%%a188%%a189%%a190%%a191%%a192%%a193%%a194%%a195%%a196%%a197%%a198%%a199%%a200%
echo     %a201%%a202%%a203%%a204%%a205%%a206%%a207%%a208%%a209%%a210%%a211%%a212%%a213%%a214%%a215%%a216%%a217%%a218%%a219%%a220%%a221%%a222%%a223%%a224%%a225%%a226%%a227%%a228%%a229%%a230%%a231%%a232%%a233%%a234%%a235%%a236%%a237%%a238%%a239%%a240%%a241%%a242%%a243%%a244%%a245%%a246%%a247%%a248%%a249%%a250%
echo     %a251%%a252%%a253%%a254%%a255%%a256%%a257%%a258%%a259%%a260%%a261%%a262%%a263%%a264%%a265%%a266%%a267%%a268%%a269%%a270%%a271%%a272%%a273%%a274%%a275%%a276%%a277%%a278%%a279%%a280%%a281%%a282%%a283%%a284%%a285%%a286%%a287%%a288%%a289%%a290%%a291%%a292%%a293%%a294%%a295%%a296%%a297%%a298%%a299%%a300%
echo     %a301%%a302%%a303%%a304%%a305%%a306%%a307%%a308%%a309%%a310%%a311%%a312%%a313%%a314%%a315%%a316%%a317%%a318%%a319%%a320%%a321%%a322%%a323%%a324%%a325%%a326%%a327%%a328%%a329%%a330%%a331%%a332%%a333%%a334%%a335%%a336%%a337%%a338%%a339%%a340%%a341%%a342%%a343%%a344%%a345%%a346%%a347%%a348%%a349%%a350%
echo     %a351%%a352%%a353%%a354%%a355%%a356%%a357%%a358%%a359%%a360%%a361%%a362%%a363%%a364%%a365%%a366%%a367%%a368%%a369%%a370%%a371%%a372%%a373%%a374%%a375%%a376%%a377%%a378%%a379%%a380%%a381%%a382%%a383%%a384%%a385%%a386%%a387%%a388%%a389%%a390%%a391%%a392%%a393%%a394%%a395%%a396%%a397%%a398%%a399%%a400%
echo     %a401%%a402%%a403%%a404%%a405%%a406%%a407%%a408%%a409%%a410%%a411%%a412%%a413%%a414%%a415%%a416%%a417%%a418%%a419%%a420%%a421%%a422%%a423%%a424%%a425%%a426%%a427%%a428%%a429%%a430%%a431%%a432%%a433%%a434%%a435%%a436%%a437%%a438%%a439%%a440%%a441%%a442%%a443%%a444%%a445%%a446%%a447%%a448%%a449%%a450%
echo     %a451%%a452%%a453%%a454%%a455%%a456%%a457%%a458%%a459%%a460%%a461%%a462%%a463%%a464%%a465%%a466%%a467%%a468%%a469%%a470%%a471%%a472%%a473%%a474%%a475%%a476%%a477%%a478%%a479%%a480%%a481%%a482%%a483%%a484%%a485%%a486%%a487%%a488%%a489%%a490%%a491%%a492%%a493%%a494%%a495%%a496%%a497%%a498%%a499%%a500%
echo     %a501%%a502%%a503%%a504%%a505%%a506%%a507%%a508%%a509%%a510%%a511%%a512%%a513%%a514%%a515%%a516%%a517%%a518%%a519%%a520%%a521%%a522%%a523%%a524%%a525%%a526%%a527%%a528%%a529%%a530%%a531%%a532%%a533%%a534%%a535%%a536%%a537%%a538%%a539%%a540%%a541%%a542%%a543%%a544%%a545%%a546%%a547%%a548%%a549%%a550%
echo     %a551%%a552%%a553%%a554%%a555%%a556%%a557%%a558%%a559%%a560%%a561%%a562%%a563%%a564%%a565%%a566%%a567%%a568%%a569%%a570%%a571%%a572%%a573%%a574%%a575%%a576%%a577%%a578%%a579%%a580%%a581%%a582%%a583%%a584%%a585%%a586%%a587%%a588%%a589%%a590%%a591%%a592%%a593%%a594%%a595%%a596%%a597%%a598%%a599%%a600%
echo     %a601%%a602%%a603%%a604%%a605%%a606%%a607%%a608%%a609%%a610%%a611%%a612%%a613%%a614%%a615%%a616%%a617%%a618%%a619%%a620%%a621%%a622%%a623%%a624%%a625%%a626%%a627%%a628%%a629%%a630%%a631%%a632%%a633%%a634%%a635%%a636%%a637%%a638%%a639%%a640%%a641%%a642%%a643%%a644%%a645%%a646%%a647%%a648%%a649%%a650%
echo     %a651%%a652%%a653%%a654%%a655%%a656%%a657%%a658%%a659%%a660%%a661%%a662%%a663%%a664%%a665%%a666%%a667%%a668%%a669%%a670%%a671%%a672%%a673%%a674%%a675%%a676%%a677%%a678%%a679%%a680%%a681%%a682%%a683%%a684%%a685%%a686%%a687%%a688%%a689%%a690%%a691%%a692%%a693%%a694%%a695%%a696%%a697%%a698%%a699%%a700%
echo     %a701%%a702%%a703%%a704%%a705%%a706%%a707%%a708%%a709%%a710%%a711%%a712%%a713%%a714%%a715%%a716%%a717%%a718%%a719%%a720%%a721%%a722%%a723%%a724%%a725%%a726%%a727%%a728%%a729%%a730%%a731%%a732%%a733%%a734%%a735%%a736%%a737%%a738%%a739%%a740%%a741%%a742%%a743%%a744%%a745%%a746%%a747%%a748%%a749%%a750%
echo     %a751%%a752%%a753%%a754%%a755%%a756%%a757%%a758%%a759%%a760%%a761%%a762%%a763%%a764%%a765%%a766%%a767%%a768%%a769%%a770%%a771%%a772%%a773%%a774%%a775%%a776%%a777%%a778%%a779%%a780%%a781%%a782%%a783%%a784%%a785%%a786%%a787%%a788%%a789%%a790%%a791%%a792%%a793%%a794%%a795%%a796%%a797%%a798%%a799%%a800%
echo     %a801%%a802%%a803%%a804%%a805%%a806%%a807%%a808%%a809%%a810%%a811%%a812%%a813%%a814%%a815%%a816%%a817%%a818%%a819%%a820%%a821%%a822%%a823%%a824%%a825%%a826%%a827%%a828%%a829%%a830%%a831%%a832%%a833%%a834%%a835%%a836%%a837%%a838%%a839%%a840%%a841%%a842%%a843%%a844%%a845%%a846%%a847%%a848%%a849%%a850%
echo     %a851%%a852%%a853%%a854%%a855%%a856%%a857%%a858%%a859%%a860%%a861%%a862%%a863%%a864%%a865%%a866%%a867%%a868%%a869%%a870%%a871%%a872%%a873%%a874%%a875%%a876%%a877%%a878%%a879%%a880%%a881%%a882%%a883%%a884%%a885%%a886%%a887%%a888%%a889%%a890%%a891%%a892%%a893%%a894%%a895%%a896%%a897%%a898%%a899%%a900%
echo     %a901%%a902%%a903%%a904%%a905%%a906%%a907%%a908%%a909%%a910%%a911%%a912%%a913%%a914%%a915%%a916%%a917%%a918%%a919%%a920%%a921%%a922%%a923%%a924%%a925%%a926%%a927%%a928%%a929%%a930%%a931%%a932%%a933%%a934%%a935%%a936%%a937%%a938%%a939%%a940%%a941%%a942%%a943%%a944%%a945%%a946%%a947%%a948%%a949%%a950%
echo     %a951%%a952%%a953%%a954%%a955%%a956%%a957%%a958%%a959%%a960%%a961%%a962%%a963%%a964%%a965%%a966%%a967%%a968%%a969%%a970%%a971%%a972%%a973%%a974%%a975%%a976%%a977%%a978%%a979%%a980%%a981%%a982%%a983%%a984%%a985%%a986%%a987%%a988%%a989%%a990%%a991%%a992%%a993%%a994%%a995%%a996%%a997%%a998%%a999%%a1000%
exit /b

:mapecho
for /l %%h in (1,1,10) do (
set e%%h=call echo
for /l %%w in (!n!,1,!n2!) do (
echo !n!  !n2!

set e%%h=!e%%h!%%a%%w%%
)
set /a n=!n!+!width!
set /a n2=!n2!+!width!
)
for /l %%a in (1,1,10) do !e%%a!
pause
exit /b


:gameover3
set scorecheck=true
set /a mapcount=%mapcount%+1

:gameover
if "%mappack%" == "on" if "%scoremode%" == "freescore" set /a mapcount=%mapcount%+1
if "%mappack%" == "on" if "%scoremode%" == "freescore" set /a curmap=%mapcount%
REM Clean up
REM taskkill /F /IM cmd.exe /FI "WINDOWTITLE eq Input">nul
if exist trail.bat del trail.bat
if exist trail2.bat del trail2.bat
if exist bridge.txt del bridge.txt
echo.

if not "%mappack%" == "on" (echo Game Over!  Press anything to continue.) Else (
if not "%scorecheck%" == "true" (
echo You have died. Press anything to continue.
pause>nul
))

if "%mappack%" == "on" (
if "%scoremode%" == "freescore" goto freescorelabel
:nextadventure
if "%scoremode%" == "adventure" (
mode 80,30
cls
echo.
echo Map: %map%
echo.
echo Score: %score%
echo Required Score: %scorevar%
echo.
if "%scorecheck%" == "true" (
echo Required score met. Press anything to continue.
pause>nul
) ELSE (
goto tryagain
)
)
:freescorelabel
if %mapcount% EQU %curmap% (
set /a totalmoves=%totalmoves%+%movecounter%
set /a totalscore=%totalscore%+%score%
set /a curmap=%curmap%+1
)
if %mapcount% GTR %numofmaps% goto gameover2
call set mapload=%%mapnum%mapcount%%%.load.bat
call set map=%%mapnum%mapcount%%%.map.bat
goto start2
)
pause>nul
set hs=true
:gameover2
if exist bridge.txt del bridge.txt
mode 80,30
call :ranks
cls
echo.
echo Game Over!
echo.
if not "%mappack%" == "on" (echo Map: %mapname%) ELSE echo Map Pack: %mappackname%
echo.
if "%mappack%" == "on" (
if "%scoremode%" == "adventure" (
echo Mode: Adventure
echo Difficulty: %diff%
)
if "%scoremode%" == "freescore" echo Mode: Free Score
)
if not "%mappack%" == "on" (echo Score: %score%) ELSE echo Total score: %totalscore%
if not "%mappack%" == "on" (echo Moves: %movecounter%) ELSE echo Total moves: %totalmoves%
echo.
if not "%mappack%" == "on" (
echo Rank: %rank%
echo.
)
if not "%mappack%" == "on" (
if not "%score%" == "0" (
if "%hs%" == "true" (
if /i "%highscorelog%" == "On " call :highscorecheck
set hs=
)))
echo.
echo Play again?
echo.
set /p choose=[y/n]:
if /i "%choose%" == "y" (
if "%default%" == "true" goto start
if "%mappack%" == "on" (
call %mappackname%.mappack.bat
set mapcount=1
set curmap=2
set totalmoves=0
set totalscore=0
set score=0
set moves=0
goto freescorelabel
)
goto start2
)
if /i "%choose%" == "n" (
set default=
set mode=
goto menu
)
goto gameover2

:tryagain
echo Required score not met. Try again?
echo.
set /p choose=[y/n]:
if /i "%choose%" == "y" (
if "%diff%" == "Normal" goto start2
set score=0
set movecounter=0
if "%diff%" == "Hardcore" if not "%mapcount%" == "1" set /a mapcount=%mapcount%-1
if "%diff%" == "Extreme" (
set totalscore=0
set totalmoves=0
set curmap=2
set mapcount=1
)
goto freescorelabel
)
if /i "%choose%" == "n" goto menu
goto nextadventure

:ranks
REM Snake Ranks are 1 above what they should be.
if %trailcounter% GEQ 2 set rank=Garter Snake
if %trailcounter% GEQ 6 set rank=Corn Snake
if %trailcounter% GEQ 9 set rank=Ribbon Snake
if %trailcounter% GEQ 13 set rank=Boa Constricter
if %trailcounter% GEQ 16 set rank=Anaconda
if %trailcounter% GEQ 19 set rank=King Cobra
if %trailcounter% GEQ 27 set rank=Reticulated Python
if %trailcounter% GEQ 34 set rank=Gigantophis garstini
if %trailcounter% GEQ 51 set rank=Titanoboa
exit /b


::: GAME END :::

:rockgen
set counter=0
set /a usevariables=%totalvariables%-%width%-%width%-%height%-%height%+4
set /a usevar=%usevariables%/6
set usevariables=%usevar%
cls
echo How many rocks to you wish to spawn?
echo.
echo Max: %usevariables%
echo.
set /p number=# of Rock Spawns:
if "%number%" == " " goto rockgen
if %number% EQU 0 exit /b
if %number% LSS 0 goto rockgen
if %number% GTR %usevariables% goto rockgen
echo.
echo Generating rocks... This may take a little bit...
:rockgenloop
set /A r=%RANDOM% %% %totalvariables% + 1
call set outvar=%%a%r%%%
if not "%outvar%" == "%grass%" goto rockgenloop
set /a check=%r%-%width%-1
set /a check2=%r%+%width%+1
set /a check3=%r%-%width%
set /a check4=%r%+%width%
set /a check5=%r%+2
set /a check6=%r%-2
set /a check7=%r%-%width%-%width%
set /a check8=%r%+%width%+%width%
set /a check9=%r%-%width%+1
call set outvar=%%a%check%%%
call set outvar2=%%a%check2%%%
call set outvar3=%%a%check3%%%
call set outvar4=%%a%check4%%%
call set outvar5=%%a%check5%%%
call set outvar6=%%a%check6%%%
call set outvar7=%%a%check7%%%
call set outvar8=%%a%check8%%%
call set outvar8=%%a%check9%%%

if "%outvar%" == "%rocks%" goto rockgenloop
if "%outvar2%" == "%rocks%" goto rockgenloop
if "%outvar%" == "%border%" goto horizborderoutvar
if "%outvar2%" == "%border%" goto horizborderoutvar

if "%outvar%" == "%border%" goto vertborderoutvar
if "%outvar2%" == "%border%" (
:vertborderoutvar
if not "%outvar7%" == "%grass%" goto rockgenloop
if not "%outvar8%" == "%grass%" goto rockgenloop
)

if "%outvar3%" == "%border%" goto horizborderoutvar
if "%outvar4%" == "%border%" (
:horizborderoutvar
if not "%outvar5%" == "%grass%" goto rockgenloop
if not "%outvar6%" == "%grass%" goto rockgenloop
if "%outvar3%" == "%border%" (
if not "%outvar%" == "%grass%" goto rockgenloop
if not "%outvar2%" == "%grass%" goto rockgenloop
)
if "%outvar4%" == "%border%" (
if not "%outvar%" == "%grass%" goto rockgenloop
if not "%outvar9%" == "%grass%" goto rockgenloop
)
)
set a%r%=%rocks%
set /a counter=%counter%+1
if %counter% EQU %number% exit /b
goto rockgenloop

:inputbuild
echo @echo off>input.bat
echo @title Input>>input.bat
echo mode 21,^5>>input.bat
echo.>>input.bat
echo :loop>>input.bat
echo cls>>input.bat
echo echo Use the WASD to move>>input.bat
echo echo p/Pause  c/Close>>input.bat
echo.>>input.bat
echo choice /c:wasdpc /n>>input.bat
echo.>>input.bat
echo if ERRORLEVEL 6 exit>>input.bat
echo.>>input.bat
echo if ERRORLEVEL 5 (>>input.bat
echo echo pause^>bridge.txt>>input.bat
echo goto loop)>>input.bat
echo.>>input.bat
echo if ERRORLEVEL 4 (>>input.bat
echo echo d^>bridge.txt>>input.bat
echo goto loop)>>input.bat
echo.>>input.bat
echo if ERRORLEVEL 3 (>>input.bat
echo echo s^>bridge.txt>>input.bat
echo goto loop)>>input.bat
echo.>>input.bat
echo if ERRORLEVEL 2 (>>input.bat
echo echo a^>bridge.txt>>input.bat
echo goto loop)>>input.bat
echo.>>input.bat
echo if ERRORLEVEL 1 echo w^>bridge.txt>>input.bat
echo goto loop>>input.bat
goto start2


:smallborder
for %%b in (a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a40 a41 a60 a61 a80 a81 a100 a101 a120 a121 a140 a141 a160 a161 a180 a181 a182 a183 a184 a185 a186 a187 a188 a189 a190 a191 a192 a193 a194 a195 a196 a197 a198 a199 a200) do set %%b=%border%
exit /b

:mediumborder
for %%b in (a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25 a26 a27 a28 a29 a30 a31 a60 a61 a90 a91 a120 a121 a150 a151 a180 a181 a210 a211 a240 a241 a270 a271 a300 a301 a330 a331 a360 a361 a390 a391 a420 a421 a422 a423 a424 a425 a426 a427 a428 a429 a430 a431 a432 a433 a434 a435 a436 a437 a438 a439 a440 a441 a442 a443 a444 a445 a446 a447 a448 a449 a450) do set %%b=%border%
exit /b

:largeborder
for %%b in (a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25 a26 a27 a28 a29 a30 a31 a32 a33 a34 a35 a36 a37 a38 a39 a40 a41 a42 a43 a44 a45 a46 a47 a48 a49 a50 a51 a100 a101 a150 a151 a200 a201 a250 a251 a300 a301 a350 a351 a400 a401 a450 a451 a500 a501 a550 a551 a600 a601 a650 a651 a700 a701 a750 a751 a800 a801 a850 a851 a900 a901 a950 a951 a952 a953 a954 a955 a956 a957 a958 a959 a960 a961 a962 a963 a964 a965 a966 a967 a968 a969 a970 a971 a972 a973 a974 a975 a976 a977 a978 a979 a980 a981 a982 a983 a984 a985 a986 a987 a988 a989 a990 a991 a992 a993 a994 a995 a996 a997 a998 a999 a1000) do set %%b=%border%
exit /b

:highscores
if /i "%highscorelog%" == "On " (
if not exist highscores.bat call :highscoregen
)
if exist highscores.bat call highscores.bat
REM formatted using tabs
cls
echo.
echo                                  High Scores
echo                                  -----------
if not exist highscores.bat echo                           No highscores were found.
echo.
echo                             1. %scorename1%	     %highscore1%
echo                             2. %scorename2%	     %highscore2%
echo                             3. %scorename3%	     %highscore3%
echo                             4. %scorename4%	     %highscore4%
echo                             5. %scorename5%	     %highscore5%
echo                             6. %scorename6%	     %highscore6%
echo                             7. %scorename7%	     %highscore7%
echo                             8. %scorename8%	     %highscore8%
echo                             9. %scorename9%	     %highscore9%
echo                             10. %scorename10%	     %highscore10%
echo.
echo.
echo                          Press anything to continue
pause>nul
exit /b


:highscorecheck
if not exist highscores.bat call :highscoregen
call highscores.bat
set scorereplace=0
set scorecounter=0
if %score% GEQ %highscore10% set scorereplace=10
if %score% GEQ %highscore9% set scorereplace=9
if %score% GEQ %highscore8% set scorereplace=8
if %score% GEQ %highscore7% set scorereplace=7
if %score% GEQ %highscore6% set scorereplace=6
if %score% GEQ %highscore5% set scorereplace=5
if %score% GEQ %highscore4% set scorereplace=4
if %score% GEQ %highscore3% set scorereplace=3
if %score% GEQ %highscore2% set scorereplace=2
if %score% GEQ %highscore1% set scorereplace=1
if %scorereplace% == "0" exit /b
set scorecounter=11
set scorecounter2=10
:nh
echo New Highscore!
echo.
set /p scorename=Enter your name (1-8 characters):
if not "%scorename:~8%"=="" (
echo.
echo You may only enter up to 8 characters
echo.
pause
cls
goto nh
)
if "%scorename%" == " " (cls && goto nh)

:scoreloop
set /a scorecounter=%scorecounter%-1
set /a scorecounter2=%scorecounter2%-1
call set outvar=%%scorename%scorecounter2%%%
call set outvar2=%%highscore%scorecounter2%%%
set scorename%scorecounter%=%outvar%
set highscore%scorecounter%=%outvar2%
if not "%scorecounter%" == "%scorereplace%" goto scoreloop
set scorename%scorereplace%=%scorename%
set highscore%scorereplace%=%score%
call :loghighscores
call :highscores
exit /b

:highscoregen
echo set scorename1=Kolto101>highscores.bat
echo set highscore1=1000>>highscores.bat
echo set scorename2=Monkey>>highscores.bat
echo set highscore2=25>>highscores.bat
echo set scorename3=Empty>>highscores.bat
echo set highscore3=000>>highscores.bat
echo set scorename4=Empty>>highscores.bat
echo set highscore4=000>>highscores.bat
echo set scorename5=Empty>>highscores.bat
echo set highscore5=000>>highscores.bat
echo set scorename6=Empty>>highscores.bat
echo set highscore6=000>>highscores.bat
echo set scorename7=Empty>>highscores.bat
echo set highscore7=000>>highscores.bat
echo set scorename8=Empty>>highscores.bat
echo set highscore8=000>>highscores.bat
echo set scorename9=Empty>>highscores.bat
echo set highscore9=000>>highscores.bat
echo set scorename10=Guard>>highscores.bat
echo set highscore10=-51>>highscores.bat
exit/b

:about
title Batch Snake v2.2 By Kolt Koding
mode 80,33
cls
echo.
echo                                  Release v2.2
echo.
echo.
echo                                                    ÎÎÎÎÎÎÎÎÎÎÎÎÎ
echo                Batch Snake                         Î        @
echo         By Kolto101 and Klt Kding                Î  @          @
echo         Tester/Editor - Guard13007                 Î
echo                                                    ÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎ
echo            Copyright (c) 2011                         @           Î
echo                                                                @  Î
echo                                                           @       Î
echo                                                    ÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎ
echo.
echo  Release Notes:
echo.
echo  Tested and works on Windows: XP (with choice.COM), Vista, and 7.
echo.
echo  I have tried to include as many features as possible. Please refer to the
echo  tutorial section for help on how to play. Also read the How To Play section
echo  for more information about Batch Snake. If you like the game, then you are
echo  encouraged to redistribute and share.
echo.
echo  ** PLEASE report ANY bugs or crashes that may occur to: kolto101@gmail.com **
echo.             Visit http://www.koltkoding.tk/ for updates and more
echo.
echo.
echo  b/Back  y/Play Youtube Snake  k/Kolt Koding Website  g/Guard's Website
echo.
set /p choose=Choose a letter:
if /i "%choose%" == "b" goto menu
if /i "%choose%" == "k" start http://www.koltkoding.tk/
if /i "%choose%" == "g" start http://guard13007productions.wordpress.com/
if /i "%choose%" == "y" start http://www.youtube.com/watch?v=k5zGHQjO2z8
goto about


REM K01t K0d1^g
:howtoplay
mode 80,30
title How To Play Batch Snake
cls
echo.
echo   °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °ÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°ÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°ÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°ÛÛ°°°°How°°°°ÛÛ°°°To°°°°ÛÛ°°°Play°°°°ÛÛ°°Batch°°ÛÛ°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛ°°°°°°°°°°°ÛÛ°°°°°°°°°ÛÛÛÛÛÛ°°°°°°°°
echo   °ÛÛ°°°°°°°°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °ÛÛ°°°°1.°Goal°°°°°4.°Customizing°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °ÛÛ°°°°2.°Tips°°°°°5.°Custom°Maps°°°°°°8""""8°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°8°°°°°°eeeee°eeeee°e°°°e°°eeee°°°°°°°
echo   °ÛÛ°°°°3.°Notes°°°°°°°°°°°°°°°°°°°°°°°°8eeeee°8°°°8°8°°°8°8°°°8°°8°°°°°°°°°°
echo   °ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°88°8e°°8°8eee8°8eee8e°8eee°°°°°°°
echo   °ÛÛ°°°°b/Back°°°°°°°°°°°°°°°°°°°°°°°°°°e°°°88°88°°8°88°°8°88°°°8°88°°°°°°°°°
echo   °ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°8eee88°88°°8°88°°8°88°°°8°88ee°°°°°°°
echo   °ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °°°°°°°°°°°°°ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo   °°°°°°°°°°°°°ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo.
set /p choose=Select a section number
if /i "%choose%" == "b" goto menu
if "%choose%" == "1" call :goal
if "%choose%" == "2" call :tips
if "%choose%" == "3" call :othernotes
if "%choose%" == "4" call :customizenotes
if "%choose%" == "5" call :custommapnotes
goto howtoplay

:goal
mode 80,35
cls
title The Goal
echo.
echo 1 - The Goal
echo -------------
echo.
echo   Goal of Snake
echo.
echo  The object of Snake is to get the snake to eat as much food as possible by
echo  moving the snake. The food is represented by a batch gear () and is randomly
echo  placed throughout the map. This happens at the very beginning and every time
echo  food is eaten by the snake. Since Snake cannot be won, the goal is to achieve
echo  the highest score possible.
echo.
echo                                  yum!
echo                                    \
echo                               ÎÎÎÎÎÎ
echo.
echo   Losing
echo.
echo  The player loses if the snake runs into the wall, a rock, or its own tail.
echo  The snake is always moving, so it must constantly turn in order to stay alive,
echo  or else it will eventually collide.
echo.
echo
echo                Û                     ouch!        Î /
echo                ÛÎÎÎÎÎÎ        ÎÎÎÎÎ /            ÎÎÎ
echo                Û \                               Î  Î
echo                Û uh-oh!            @              ÎÎÎÎ
echo.
echo.
echo                          PRESS ANY KEY TO CONTINUE
pause>nul
exit /b

:tips
cls
title Tips
echo.
echo 2 - Tips
echo ---------
echo.
echo  -Sometimes the game may "freeze" momentarily. When this happens, simply
echo   press the corresponding key in the direction you wish to go, and wait
echo   until it "unfreezes."
echo.
echo  -Once the snake has eaten food, it will not grow until its ENTIRE tail
echo   has gone through that particular spot where the food was located.
echo.
echo  -Sometimes it is hard to accurately turn the snake at a particular point. If
echo   food spawns next to a wall, try turning a little early to avoid collision.
echo   If the snake ends up turning too soon, simply circle back around and try
echo   again.
echo.
echo  -NEVER spiral inward against the snakes body. This will lead to
echo   inevitable death.
echo.
echo  -If the snake is growing too long, sometimes the best method is to circle
echo   around the map to stretch out the snake and move its tail away from the
echo   middle. This will give enough room to get food without running into the
echo   tail.
echo.
echo                          PRESS ANY KEY TO CONTINUE
pause>nul
exit /b

:othernotes
cls
title Other Notes
echo.
echo 3 - Other Notes
echo ----------------
echo.
echo -KNOWN BUGS: Food may occasionally not appear when spawned. When this happens,
echo  retrace the snake's path and search until it's found.
echo  Taskkill does not seem to close input.bat.
echo.
echo -Snake requires choice.COM. If your operating system does not support
echo  the choice command, download it via www.koltkoding.tk.
echo.
echo -Sometimes the game may "freeze" momentarily. This is usually when
echo  necessary files are being created or used.
echo.
echo -If the game is too fast, try changing the speed and/or buffer in the
echo  configuration-settings menu.
echo.
echo -Snake will generate files needed to run the game. Some of these files
echo  are automatically deleted when the game is over. The other files that
echo  are not deleted may still be deleted without damaging the game. The
echo  built-in scripts will generate a file to replace the deleted ones.
echo  DO NOT delete any files with the extensions: .map.bat, .load.bat, .skin.bat,
echo  or config.bat.
echo.
echo -Report any crashes, bugs, missing features, or special requests to:
echo  kolto101@gmail.com
echo.
echo                          PRESS ANY KEY TO CONTINUE
pause>nul
exit /b

:customizenotes
mode 80,35
cls
title Customizing
echo.
echo 4 - Customizing
echo ----------------
echo.
echo  Batch Snake was made with the intention to be almost completely customizable.
echo  There are a number of things that can be changed, such as the theme, graphics,
echo  rock spawns, delays, and speed.
echo.
echo   Custom Graphics
echo.
echo  All of the graphics in Snake are customizable. They can be set to almost any
echo  letter, number, or symbol. This includes most extended characters, which can
echo  be accessed when changing the graphics.
echo.
echo  The pipe ("|") is not a valid character. The grass and food objects MAY NOT
echo  share the same graphic with any other object. They must be completely unique.
echo.
echo   Skins
echo.
echo  Skins are saved sets of customizable graphics. They may be created using the
echo  included Editor program. To load them, the skin files must be located in the
echo  FILES folder.
echo.
echo   Spawning Rocks
echo.
echo  When rock spawning is turned on, you may choose how many rocks randomly appear
echo  throughout the map. This is only recommended for default maps, since the
echo  generator will place rocks in places that may obstruct custom maps.
echo.
echo.
echo                          PRESS ANY KEY TO CONTINUE
pause>nul
exit /b

:custommapnotes
mode 80,35
cls
title Custom Maps
echo.
echo 5 - Custom Maps
echo ----------------
echo.
echo   Custom Maps
echo.
echo  Custom maps may be created using the Editor. Maps may be in all different
echo  sizes, with varying borders and terrain.
echo.
echo  All maps MUST be located in the FILES folder in order to load them. They
echo  must ALSO have a corresponding ".load.bat" file, which is also created
echo  by the editor.
echo.
echo   Map Packs
echo.
echo  Also made using the Snake editor, map packs are sets of maps combined into
echo  what could be called a campaign. There are 2 modes:
echo.
echo  Adventure - The player must reach the map's required score to move on to the
echo  next map. The required score is set by the map pack's creator. Depending on
echo  the difficulty, the map pack may reset or go back a map if the snake dies.
echo.
echo  Free Score - No particular score is required for each map. When the snake
echo  dies, the next map in the map pack will be loaded. At the end, all of the
echo  scores will combine to form a total score.
echo.
echo  NOTE: High scores are not logged while playing map packs!
echo.
echo.
echo                          PRESS ANY KEY TO CONTINUE
pause>nul
exit /b

:save
setlocal EnableDelayedExpansion

if exist config.bat del config.bat
echo set speednumber=!speednumber!>>config.bat
echo set buffer=!buffer!>>config.bat
echo set delay=!delay!>>config.bat
echo set tailadd=!tailadd!>>config.bat
echo set food=!food!>>config.bat
echo set tail=!tail!>>config.bat
echo set border=!border!>>config.bat
echo set rocks=!rocks!>>config.bat
echo set grass=!grass!>>config.bat
echo set head=!head!>>config.bat
echo set bf=!bf!>>config.bat
echo set rockgen=!rockgen!>>config.bat
echo set allowtheme=!allowtheme!>>config.bat
echo set autoupdate=!autoupdate!>>config.bat
echo set f=!f!>>config.bat
echo set highscorelog=!highscorelog!>>config.bat

setlocal DisableDelayedExpansion
exit/b

:loghighscores
if exist highscores.bat del highscores.bat
set logcounter=0
:logloop
set /a logcounter=%logcounter%+1
call set outvar=%%scorename%logcounter%%%
call set outvar2=%%highscore%logcounter%%%
set scorename%logcounter%=%outvar%>>highscores.bat
set highscore%logcounter%=%outvar2%>>highscores.bat
if not "%logcounter%" == "10" goto logloop
exit /b


:default
set tailadd=1
set speednumber=1
set buffer=0
set delay=3
set highscorelog=On
set autoupdate=Off
set f=cls
set rockgen=Off
set allowtheme=On
set bf=0A
:default2
set undefined=^^^^
set food=
set tail=Î
set border=Û
set rocks=@
set grass=
set head=
exit /b


:config
mode 80,30
cls
echo.
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º     Configure      º
echo  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹
echo  º 1. Customize       º
echo  º 2. Themes          º
echo  º 3. Settings        º
echo  º 4. Debug           º
echo  º                    º
echo  º Press b to go back º
echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼
echo.
set /p choose=Choose a number:
if "%choose%" == "1" goto customize
if "%choose%" == "2" goto themes
if "%choose%" == "3" goto settings
if "%choose%" == "4" goto debug
if /i "%choose%" == "b" goto menu
goto config

:settings
cls
if "%f%" == "cls" (set noflick=Off) ELSE set noflick=On
echo.
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º            Settings            º
echo  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹
echo  º   1. Set Growth Rate           º
echo  º   2. Set Speed                 º
echo  º   3. Set Buffer                º
echo  º   4. Set Initial Delay         º
echo  º   5. Allow Theme Change   %allowtheme%  º
echo  º   6. Spawn Rocks          %rockgen%  º
echo  º   7. High Score Logging   %highscorelog%  º
echo  º   8. No Flick             %noflick%  º
echo  º   9. Automatic Updating   %autoupdate%  º
echo  º                                º
echo  º      Press b to go back        º
echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼
echo.
set /p choose=Choose a number:
if /i "%choose%" == "b" goto config
if "%choose%" == "1" call :growthrate
if "%choose%" == "2" call :speedchange
if "%choose%" == "3" call :buffer
if "%choose%" == "4" call :initialdelay
if "%choose%" == "5" (
if "%allowtheme%" == "Off" (set allowtheme=On ) ELSE set allowtheme=Off
)
if "%choose%" == "6" (
if "%rockgen%" == "Off" (set rockgen=On ) ELSE set rockgen=Off
)
if "%choose%" == "7" (
if "%highscorelog%" == "Off" (set highscorelog=On ) ELSE set highscorelog=Off
)
if "%choose%" == "8" (
if "%f%" == "cls" (
echo.
echo WARNING: This may slightly slow down the game, but it will result in
echo          a much smoother display. Give it a try to see which is best.
echo.
pause
set f=colous 0 0 1,1
) ELSE set f=cls
)
if "%choose%" == "9" (
if "%autoupdate%" == "Off" (set autoupdate=On ) ELSE set autoupdate=Off
)
call :save
goto settings

:growthrate
cls
echo.
echo  -Set Growth Rate-
echo.
echo The growth rate is how much the snake will grow after eating food.
echo Only 1 or 2 is recommended.
echo.
echo Current Growth Rate: %tailadd%
echo.
echo b/Back
echo.
set /p number=Growth Rate:
if /i "%number%" == "b" exit /b
if "%number%" == " " goto growthrate
if %number% LEQ 0 goto growthrate
if %number% GEQ a goto growthrate
set tailadd=%number%
call :save
exit /b

:buffer
cls
echo.
echo  -Set Buffer (Experimental)-
echo.
echo Buffering the game will slow it down enough to play for fast computers. It can
echo be used in combination with the speed of the game, or used all by itself.
echo Higher numbers (in the hundreds) may be required to see noticeable changes.
echo Don't be afraid to experiment with numbers. Try using different numbers and
echo see which is best for your needs.
echo.
echo Current Buffer: %buffer%
echo.
echo b/Back
echo.
set /p number=Growth Rate:
if /i "%number%" == "b" exit /b
if "%number%" == " " goto buffer
if %number% LSS 0 goto buffer
if %number% GEQ a goto buffer
set buffer=%number%
call :save
exit /b


:initialdelay
cls
echo.
echo  -Initial Delay-
echo.
echo Enter how long you wish to delay the start of every game. This is
echo helpful when switching control between the game window and input.
echo.
echo Current Delay: %delay%
echo.
echo b/Back
echo.
set /p number=Delay:
if /i "%number%" == "b" exit /b
if "%number%" == " " goto initialdelay
if not %number% GEQ 0 goto initialdelay
if %number% GEQ a goto initialdelay
set delay=%number%
call :save
exit /b


:speedchange
cls
echo.
echo  -Set Speed-
echo.
echo Enter an integer for the speed of the game. The lower the number, the faster
echo the game will be. At least a 1 is recommened. Also experiment with the buffer
echo setting to get the best results.
echo.
echo 0 - fastest (A little unstable - Not recommended!)
echo.
echo Current Speed: %speednumber%
echo.
echo b/Back
echo.
set /p number=Speed:
if /i "%number%" == "b" exit /b
if "%number%" == " " goto speedchange
if not %number% GEQ 0 goto speedchange
if %number% GEQ a goto speedchange
set speednumber=%number%
call :save
exit /b


:themes
set previousbf=%bf%
cls
echo.
echo                           0 = Black      8 = Gray
echo                           1 = Blue       9 = Light Blue
echo                           2 = Green      A = Light Green
echo                           3 = Aqua       B = Light Aqua
echo                           4 = Red        C = Light Red
echo                           5 = Purple     D = Light Purple
echo                           6 = Yellow     E = Light Yellow
echo                           7 = White      F = Bright White
echo.
echo                                  Default: 0A
echo                                  OS Default: 07
echo.
echo               Set the background color and the foreground color.
echo               The first letter/number is the background color,
echo               the second is the foreground. Do not use spaces.
echo.
echo                               Type "m" to go back.
echo.
set /p bf=Set Background/Foreground:
if /i "%bf%" == "m" (
set bf=%previousbf%
goto config)
if %bf% LSS a if %bf% GTR 99 goto themes
if not "%bf:~2%"=="" (
echo The color code cannot be more than 2 characters long.
echo.
pause
goto themes
)
if %bf% GTR FF goto themes
if %bf% LSS 00 goto themes
color %bf%
call :save
goto themes


:debug
REM Debug by Kolto101 and Kolt Koding
cls
mode 80,30
echo If you are familiar with Batch scripting, then use the debug for whatever.
echo For example, typing "set" would execute the set command and give a full list
echo of variables. Type "(command name here) /?" to find out what a command does.
echo.
echo b/Back
echo.
set /p debug=Debug code:
call :debugcheck
mode 100,10000
echo Executing code...
echo.
%debug%
echo.
pause
goto debug

:debugcheck
if not "%debug:~1%"=="" exit /b
if not '%debug%' == 'b' (exit /b) ELSE (
if '%debugexit%' == 'true' (
set debugexit=
goto play)
goto config
)

:customize
mode 80,30
cls
echo.
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º     Customize      º
echo  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹
echo  º                    º
echo  º 1. Head: %head%         º
echo  º                    º
echo  º 2. Tail: %tail%         º
echo  º                    º
echo  º 3. Border: %border%       º
echo  º                    º
echo  º 4. Food: %food%         º
echo  º                    º
echo  º 5. Rocks: %rocks%        º
echo  º                    º
echo  º 6. Grass: %grass%        º
echo  º                    º
echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼
echo.
echo b/Back   l/Load Skins   d/Default   h/Help
echo.
set /p choose=Choose a number to change the current graphic:
if /i "%choose%" == "b" goto config
if /i "%choose%" == "h" call :customizenotes
if "%choose%" == "1" set tochange=head
if "%choose%" == "2" set tochange=tail
if "%choose%" == "3" set tochange=border
if "%choose%" == "4" set tochange=food
if "%choose%" == "5" set tochange=rocks
if "%choose%" == "6" set tochange=grass
if %choose% GEQ 1 (
if %choose% LEQ 6 (
goto changegraphic
))
if /i "%choose%" == "l" (
set loadtype=skin
call :loadcustom
if not "%grass%" == "%rocks%" if not "%grass%" == "%border%" if not "%grass%" == "%tail%" if not "%grass%" == "%food%" if not "%grass%" == "%head%" if not "%food%" == "%rocks%" if not "%food%" == "%border%" if not "%food%" == "%tail%" if not "%food%" == "%head%" (
call :save
) ELSE (
echo.
echo Invalid skin file.
pause
)
)
if /i "%choose%" == "d" call :default2 && call :save
goto customize


:changegraphic
cls
echo Currently editting: %tochange%
echo Enter a character below, or choose and extended character.
echo.
echo -b/Back   -s/Open extended characters
echo.
set /p symbol=Chracter:
if /i "%symbol%" == "-b" goto customize
if "%symbol%" == "" goto changegraphic
if not "%tochange%" == "grass" if not "%tochange%" == "rocks" if "%symbol%" == " " goto changegraphic
if not "%symbol:~1%"=="" (
if /i not "%symbol%" == "-s" (
echo You may only use 1 character.
echo.
pause
goto changegraphic
))
if /i "%symbol%" == "-s" call :symbolstart
if /i "%symbol%" == "-s" goto changegraphic
if not "%tochange%" == "grass" if "%symbol%" == "%grass%" goto changegraphic
if not "%tochange%" == "food" if "%symbol%" == "%food%" goto changegraphic
set %tochange%=%symbol%
call :save
goto customize


:symbolstart
mode 80,50
cls
call :symbolecho
set symbolnum=
echo b/Back
echo.
set /p symbolnum=Enter the character number to output #
if /i "%symbolnum%" == "b" exit /b

if not %symbolnum% GTR 0 goto symbolstart
if %symbolnum% GTR 254 goto symbolstart
call :symbol
if %symbolnum% GEQ 32 (
if %symbolnum% LEQ 126 (
echo.
echo Characters 32-126 can be accessed via keyboard.
pause>nul
goto symbolstart
))
if "%symbol%" == "N/A" goto symbolstart
:symbolask
cls
echo.
echo Symbol: %symbol%
echo.
echo Would you like to use this symbol?
set /p choose=[y/n]:
if /i "%choose%" == "n" goto symbolstart
if /i "%choose%" == "y" exit /b
goto symbolask

:symbol
set symbol=N/A
if "%symbolnum%" == "1" set symbol=
if "%symbolnum%" == "2" set symbol=
if "%symbolnum%" == "3" set symbol=
if "%symbolnum%" == "4" set symbol=
if "%symbolnum%" == "5" set symbol=
if "%symbolnum%" == "6" set symbol=
if "%symbolnum%" == "11" set symbol=
if "%symbolnum%" == "12" set symbol=
if "%symbolnum%" == "14" set symbol=
if "%symbolnum%" == "15" set symbol=
if "%symbolnum%" == "16" set symbol=
if "%symbolnum%" == "17" set symbol=
if "%symbolnum%" == "18" set symbol=
if "%symbolnum%" == "19" set symbol=
if "%symbolnum%" == "20" set symbol=
if "%symbolnum%" == "21" set symbol=
if "%symbolnum%" == "22" set symbol=
if "%symbolnum%" == "23" set symbol=
if "%symbolnum%" == "24" set symbol=
if "%symbolnum%" == "25" set symbol=
if "%symbolnum%" == "27" set symbol=
if "%symbolnum%" == "28" set symbol=
if "%symbolnum%" == "29" set symbol=
if "%symbolnum%" == "30" set symbol=
if "%symbolnum%" == "31" set symbol=
REM 32 - 126 are accessible via Keyboard
if "%symbolnum%" == "127" set symbol=
if "%symbolnum%" == "128" set symbol=€
if "%symbolnum%" == "129" set symbol=
if "%symbolnum%" == "130" set symbol=‚
if "%symbolnum%" == "131" set symbol=ƒ
if "%symbolnum%" == "132" set symbol=„
if "%symbolnum%" == "133" set symbol=…
if "%symbolnum%" == "134" set symbol=†
if "%symbolnum%" == "135" set symbol=‡
if "%symbolnum%" == "136" set symbol=ˆ
if "%symbolnum%" == "137" set symbol=‰
if "%symbolnum%" == "138" set symbol=Š
if "%symbolnum%" == "139" set symbol=‹
if "%symbolnum%" == "140" set symbol=Œ
if "%symbolnum%" == "141" set symbol=
if "%symbolnum%" == "142" set symbol=Ž
if "%symbolnum%" == "143" set symbol=
if "%symbolnum%" == "144" set symbol=
if "%symbolnum%" == "145" set symbol=‘
if "%symbolnum%" == "146" set symbol=’
if "%symbolnum%" == "147" set symbol=“
if "%symbolnum%" == "148" set symbol=”
if "%symbolnum%" == "149" set symbol=•
if "%symbolnum%" == "150" set symbol=–
if "%symbolnum%" == "151" set symbol=—
if "%symbolnum%" == "152" set symbol=˜
if "%symbolnum%" == "153" set symbol=™
if "%symbolnum%" == "154" set symbol=š
if "%symbolnum%" == "155" set symbol=›
if "%symbolnum%" == "156" set symbol=œ
if "%symbolnum%" == "157" set symbol=
if "%symbolnum%" == "158" set symbol=ž
if "%symbolnum%" == "159" set symbol=Ÿ
if "%symbolnum%" == "160" set symbol=
if "%symbolnum%" == "161" set symbol=¡
if "%symbolnum%" == "162" set symbol=¢
if "%symbolnum%" == "163" set symbol=£
if "%symbolnum%" == "164" set symbol=¤
if "%symbolnum%" == "165" set symbol=¥
if "%symbolnum%" == "166" set symbol=¦
if "%symbolnum%" == "167" set symbol=§
if "%symbolnum%" == "168" set symbol=¨
if "%symbolnum%" == "169" set symbol=©
if "%symbolnum%" == "170" set symbol=ª
if "%symbolnum%" == "171" set symbol=«
if "%symbolnum%" == "172" set symbol=¬
if "%symbolnum%" == "173" set symbol=
if "%symbolnum%" == "174" set symbol=®
if "%symbolnum%" == "175" set symbol=¯
if "%symbolnum%" == "176" set symbol=°
if "%symbolnum%" == "177" set symbol=±
if "%symbolnum%" == "178" set symbol=²
if "%symbolnum%" == "179" set symbol=³
if "%symbolnum%" == "180" set symbol=´
if "%symbolnum%" == "181" set symbol=µ
if "%symbolnum%" == "182" set symbol=¶
if "%symbolnum%" == "183" set symbol=·
if "%symbolnum%" == "184" set symbol=¸
if "%symbolnum%" == "185" set symbol=¹
if "%symbolnum%" == "186" set symbol=º
if "%symbolnum%" == "187" set symbol=»
if "%symbolnum%" == "188" set symbol=¼
if "%symbolnum%" == "189" set symbol=½
if "%symbolnum%" == "190" set symbol=¾
if "%symbolnum%" == "191" set symbol=¿
if "%symbolnum%" == "192" set symbol=À
if "%symbolnum%" == "193" set symbol=Á
if "%symbolnum%" == "194" set symbol=Â
if "%symbolnum%" == "195" set symbol=Ã
if "%symbolnum%" == "196" set symbol=Ä
if "%symbolnum%" == "197" set symbol=Å
if "%symbolnum%" == "198" set symbol=Æ
if "%symbolnum%" == "199" set symbol=Ç
if "%symbolnum%" == "200" set symbol=È
if "%symbolnum%" == "201" set symbol=É
if "%symbolnum%" == "202" set symbol=Ê
if "%symbolnum%" == "203" set symbol=Ë
if "%symbolnum%" == "204" set symbol=Ì
if "%symbolnum%" == "205" set symbol=Í
if "%symbolnum%" == "206" set symbol=Î
if "%symbolnum%" == "207" set symbol=Ï
if "%symbolnum%" == "208" set symbol=Ð
if "%symbolnum%" == "209" set symbol=Ñ
if "%symbolnum%" == "210" set symbol=Ò
if "%symbolnum%" == "211" set symbol=Ó
if "%symbolnum%" == "212" set symbol=Ô
if "%symbolnum%" == "213" set symbol=Õ
if "%symbolnum%" == "214" set symbol=Ö
if "%symbolnum%" == "215" set symbol=×
if "%symbolnum%" == "216" set symbol=Ø
if "%symbolnum%" == "217" set symbol=Ù
if "%symbolnum%" == "218" set symbol=Ú
if "%symbolnum%" == "219" set symbol=Û
if "%symbolnum%" == "220" set symbol=Ü
if "%symbolnum%" == "221" set symbol=Ý
if "%symbolnum%" == "222" set symbol=Þ
if "%symbolnum%" == "223" set symbol=ß
if "%symbolnum%" == "224" set symbol=à
if "%symbolnum%" == "225" set symbol=á
if "%symbolnum%" == "226" set symbol=â
if "%symbolnum%" == "227" set symbol=ã
if "%symbolnum%" == "228" set symbol=ä
if "%symbolnum%" == "229" set symbol=å
if "%symbolnum%" == "230" set symbol=æ
if "%symbolnum%" == "231" set symbol=ç
if "%symbolnum%" == "232" set symbol=è
if "%symbolnum%" == "233" set symbol=é
if "%symbolnum%" == "234" set symbol=ê
if "%symbolnum%" == "235" set symbol=ë
if "%symbolnum%" == "236" set symbol=ì
if "%symbolnum%" == "237" set symbol=í
if "%symbolnum%" == "238" set symbol=î
if "%symbolnum%" == "239" set symbol=ï
if "%symbolnum%" == "240" set symbol=ð
if "%symbolnum%" == "241" set symbol=ñ
if "%symbolnum%" == "242" set symbol=ò
if "%symbolnum%" == "243" set symbol=ó
if "%symbolnum%" == "244" set symbol=ô
if "%symbolnum%" == "245" set symbol=õ
if "%symbolnum%" == "246" set symbol=ö
if "%symbolnum%" == "247" set symbol=÷
if "%symbolnum%" == "248" set symbol=ø
if "%symbolnum%" == "249" set symbol=ù
if "%symbolnum%" == "250" set symbol=ú
if "%symbolnum%" == "251" set symbol=û
if "%symbolnum%" == "252" set symbol=ü
if "%symbolnum%" == "253" set symbol=ý
if "%symbolnum%" == "254" set symbol=þ
exit /b

:symbolecho
echo.
echo      1:      2:      3:      4:      5:      6:      11:     12:
echo.
echo      14:     15:     16:     17:     18:     19:     20:     21:
echo.
echo      22:     23:     24:     25:     27:     28:     29:     30:
echo.
echo      31:
echo.
echo                 Characters 32-126 can be accessed via keyboard.
echo.
echo.
echo      127:    128: €   129:    130: ‚   131: ƒ   132: „   133: …   134: †
echo.
echo      135: ‡   136: ˆ   137: ‰   138: Š   139: ‹   140: Œ   141:    142: Ž
echo.
echo      143:    144:    145: ‘   146: ’   147: “   148: ”   149: •   150: –
echo.
echo      151: —   152: ˜   153: ™   154: š   155: ›   156: œ   157:    158: ž
echo.
echo      159: Ÿ   160:     161: ¡   162: ¢   163: £   164: ¤   165: ¥   166: ¦
echo.
echo      167: §   168: ¨   169: ©   170: ª   171: «   172: ¬   173:    174: ®
echo.
echo      175: ¯   176: °   177: ±   178: ²   179: ³   180: ´   181: µ   182: ¶
echo.
echo      183: ·   184: ¸   185: ¹   186: º   187: »   188: ¼   189: ½   190: ¾
echo.
echo      191: ¿   192: À   193: Á   194: Â   195: Ã   196: Ä   197: Å   198: Æ
echo.
echo      199: Ç   200: È   201: É   202: Ê   203: Ë   204: Ì   205: Í   206: Î
echo.
echo      207: Ï   208: Ð   209: Ñ   210: Ò   211: Ó   212: Ô   213: Õ   214: Ö
echo.
echo      215: ×   216: Ø   217: Ù   218: Ú   219: Û   220: Ü   221: Ý   222: Þ
echo.
echo      223: ß   224: à   225: á   226: â   227: ã   228: ä   229: å   230: æ
echo.
echo      231: ç   232: è   233: é   234: ê   235: ë   236: ì   237: í   238: î
echo.
echo      239: ï   240: ð   241: ñ   242: ò   243: ó   244: ô   245: õ   246: ö
echo.
echo      247: ÷   248: ø   249: ù   250: ú   251: û   252: ü   253: ý   254: þ
echo.
echo.
exit /b