Create Snake Game Using Codes

@echo off

color a

title CMD THE Snake -NOB

if "%~1" == "startGame" goto :game

if "%~1" == "startController" goto :controller

set "choice="

2>nul >nul choice /c:yn /t 0 /d y

if errorlevel 1 if not errorlevel 2 set "choice=choice /cs"

if not defined choice (

2>nul >nul choice /c:yn /t:y,1

if errorlevel 1 if not errorlevel 2 set "choice=choice /s"

)

if not defined choice (

echo ERROR: This game requires the CHOICE command, but it is missing.

echo Game aborte

set "keys=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

set "keyFile=key.txt"

set "cmdFile=cmd.txt"

set "highs

start "" /b "%~f0" startController 9^>^>%keyFile% 2^>nul ^>nul

cmd /c "%~f0" startGame 9^<%keyFile% ^

echo(

:close

2>nul (>>"%keyFile%" call )||goto :close

del "%keyFile%"

exit /b

:;ZemByte

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:game

setlocal disableDelayedExpansion

title %~nx0

cls

set "up=W"

set "down=S"

set "left=A"

set "right=D"

::Both max to 99! And width to 40 and height to 25!

set "width=40" max=99

set "height=25" max=99

:: max playing field: (width-2)*(height-2) <= 1365

set /a cols=width+1, lines=height+10, area=(width-2)*(height-2)

if %area% gtr 1365 (

echo ERROR: Playfield area too large

>"%cmdFile%" (echo quit)

exit

)

if %lines% lss 14 set lines=14

if %cols% lss 46 set cols=46

mode con: cols=%cols% lines=%lines%

set "spinner1=|"

set "spinner2=/"

set "spinner3=-"

set "spinner4=\"

set "spinner5=O"

set "spinner6=$"

set "spinner= spinner1 spinner2 spinner3 spinner4 spinner5 spinner6"

set "space= "

set "bound=*"

set "food=+"

set "head=@"

set "body=O"

set "death=X"

set "playerSpace=%space%%food%"

set "xDiff%up%=+0"

set "xDiff%down%=+0"

set "xDiff%left%=-1"

set "xDiff%right%=+1"

set "yDiff%up%=-1"

set "yDiff%down%=+1"

set "yDiff%left%=+0"

set "yDiff%right%=+0"

set "%up%Axis=Y"

set "%down%Axis=Y"

set "%left%Axis=X"

set "%right%Axis=X"

set "delay1=20"

set "delay2=16"

set "delay3=12"

set "delay4=7"

set "delay5=5"

set "delay6=3"

set "delay0=0"

set "desc1=Mega Slow"

set "desc2=Crawler"

set "desc3=Slow"

set "desc4=Normal"

set "desc5=Fast"

set "desc6=Insane"

set "desc0=Impossible"

set "spinnerDelay=3"

set /a "width-=1, height-=1"

set LF=^

set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"

:: setErr

::: Sets the ERRORLEVEL to 1

set "setErr=(call)"

:: clrErr

::: Sets the ERRORLEVEL to 0

set "clrErr=(call )"

set getKey=%\n%

for %%# in (1 2) do if %%#==2 (for /f "eol= delims= " %%1 in ("!args!") do (%\n%

set "validKeys=%%1"%\n%

set "key="%\n%

^<^&9 set /p "key="%\n%

if defined key if "!key!" neq ":" (%\n%

set /a key-=1%\n%

for %%K in (!key!) do set "key=!keys:~%%K,1!"%\n%

)%\n%

for %%K in (!key!) do if "!validKeys:%%K=!" equ "!validKeys!" set "key="%\n%

)) else set args=

set draw=%\n%

cls%\n%

for /l %%Y in (0,1,%height%) do echo(!line%%Y!%\n%

echo Mode=!Difficulty!%\n%

echo Score=!score!

set test=%\n%

for %%# in (1 2) do if %%#==2 (for /f "tokens=1-3" %%1 in ("!args!") do (%\n%

for %%A in ("!line%%2:~%%1,1!") do if "!%%3:%%~A=!" neq "!%%3!" %clrErr% else %setErr%%\n%

)) else set args=

::ZemByte

set plot=%\n%

for %%# in (1 2) do if %%#==2 (for /f "tokens=1-3" %%1 in ("!args!") do (%\n%

set "part2=!line%%2:~%%1!"%\n%

set "line%%2=!line%%2:~0,%%1!!%%3!!part2:~1!"%\n%

)) else set args=

::--------------------------------------

:: start the game

setlocal enableDelayedExpansion

call :initialize

::--------------------------------------

:: main loop (infinite loop)

for /l %%. in (1 0 1) do (

%=== compute time since last move ===%

for /f "tokens=

play and enjoy the game