批处理之家 - Powered by Discuz! Board

@echo off
setlocal enabledelayedexpansion
set char=o
:head
cls
set menu=
set /p menu=Select map (1-3):
if not "!menu!"=="1" if not "!menu!"=="2" if not "!menu!"=="3" goto head
call :loadlevel!menu!
:gamedisp
cls
for /l %%i in (1 1 !numline!) do (
echo !line%%i! )
ckey 38 40 37 39
call :checkinput
goto gamedisp
:loadlevel1
set line1=::::::::::::::::::::::
set line2=:[o]:x ::
set line3=:: :::::::::: ::
set line4=:: ::
set line5=::::::::::::::::::::::
set oldy=2
set oldx=2
set numline=5
exit /b
:loadlevel2
set line1=::::::::::::::
set line2=:: [o] ::
set line3=:: ::
set line4=:: :::::::::::
set line5=:: ::
set line6=::::::::::: ::
set line7=::x ::
set line8=::::::::::::::
set oldx=2
set oldy=7
set numline=8
exit /b
:loadlevel3
set line1=:::::::::::::::::
set line2=:[o]: :: ::
set line3=:: :: :: :: :: ::
set line4=:: :: :: :: :: ::
set line5=:: :: :: :: ::
set line6=:::::::: :: :: ::
set line7=:: :: :: ::
set line8=:: :::::::: :: ::
set line9=:: ::x::
set line10=:::::::::::::::::
set oldx=2
set oldy=2
set numline=10
exit /b
:win
cls
echo Map !menu! completed..
echo You Win.
pause>nul
goto head
:checkinput
if errorlevel 4 (call :right) else (
if errorlevel 3 (call :left) else (
if errorlevel 2 (call :down) else (
if errorlevel 1 (call :up))))
exit /b
:up
set /a newx=!oldx!-1
set /a tempy=!oldy!+1
if "!line%newx%:~%oldy%,1!"==":" exit /b
if "!line%newx%:~%oldy%,1!"=="]" exit /b
if "!line%newx%:~%oldy%,1!"=="[" exit /b
if "!line%newx%:~%oldy%,1!"=="x" goto win
set line%oldx%=!line%oldx%:~0,%oldy%! !line%oldx%:~%tempy%!
set line%newx%=!line%newx%:~0,%oldy%!!char!!line%newx%:~%tempy%!
set oldx=!newx!
exit /b
:right
set /a tempy=!oldy!+1
if "!line%oldx%:~%tempy%,1!"==":" exit /b
if "!line%oldx%:~%tempy%,1!"=="]" exit /b
if "!line%oldx%:~%tempy%,1!"=="[" exit /b
if "!line%oldx%:~%tempy%,1!"=="x" goto win
set line%oldx%=!line%oldx%:~0,%oldy%! !line%oldx%:~%tempy%!
set /a oldy+=1
set /a newy=!oldy!+1
set line%oldx%=!line%oldx%:~0,%oldy%!!char!!line%oldx%:~%newy%!
exit /b
:left
set /a tempy=!oldy!+1
set /a tempy2=!oldy!-1
if "!line%oldx%:~%tempy2%,1!"==":" exit /b
if "!line%oldx%:~%tempy2%,1!"=="]" exit /b
if "!line%oldx%:~%tempy2%,1!"=="[" exit /b
if "!line%oldx%:~%tempy2%,1!"=="x" goto win
set line%oldx%=!line%oldx%:~0,%oldy%! !line%oldx%:~%tempy%!
set /a oldy-=1
set /a newy=!oldy!+1
set line%oldx%=!line%oldx%:~0,%oldy%!!char!!line%oldx%:~%newy%!
exit /b
:down
set /a newx=!oldx!+1
set /a tempy=!oldy!+1
if "!line%newx%:~%oldy%,1!"==":" exit /b
if "!line%newx%:~%oldy%,1!"=="]" exit /b
if "!line%newx%:~%oldy%,1!"=="[" exit /b
if "!line%newx%:~%oldy%,1!"=="x" goto win
set line%oldx%=!line%oldx%:~0,%oldy%! !line%oldx%:~%tempy%!
set line%newx%=!line%newx%:~0,%oldy%!!char!!line%newx%:~%tempy%!
set oldx=!newx!
exit /b

复制代码

@echo off
set "Data_Level_1=22050201:::::::::::::::::::::::[ ]:x :::: :::::::::: :::: ::::::::::::::::::::::::"
set "Data_Level_2=14080701:::::::::::::::: [ ] :::: :::: ::::::::::::: ::::::::::::: ::::x ::::::::::::::::"
set "Data_Level_3=17100201::::::::::::::::::[ ]: :: :::: :: :: :: :: :::: :: :: :: :: :::: :: :: :: :::::::::: :: :: :::: :: :: :::: :::::::: :: :::: ::x:::::::::::::::::::"
set "LoadMap=set /a W=1!Data_Map:~0,2!-100,H=1!Data_Map:~2,2!-100,X=1!Data_Map:~4,2!-100,Y=1!Data_Map:~6,2!-100,Size=(H-1)*W"
set "DrawMap=set /a l1=Y*W+X,l2=l1+9&(for /f "tokens=1,2" %%a in ("!l1! !l2!") do set "ScreenMap=!Data_Map:~8,%%a!o!Data_Map:~%%b!")&(for %%a in (!W!) do (cls&for /l %%b in (0,!W!,!Size!) do echo !ScreenMap:~%%b,%%a!))"
setlocal enabledelayedexpansion
:Main
cls&set /p p=Choice Map (1-3) :
if not defined Data_Level_!p! goto Main
set "Data_Map=!Data_Level_%p%!"
%LoadMap%
:Refresh
%DrawMap%
CKey 37 38 39 40
set /a e=%errorlevel%,New_X=X+(e%%2)*(e-2),New_Y=Y+((e+1)%%2)*(e-3),l=New_Y*W+New_X+8
if "!Data_Map:~%l%,1!"==" " (set /a X=New_X,Y=New_Y) else (if "!Data_Map:~%l%,1!"=="x" cls&echo YOU WIN&pause&goto Main)
goto Refresh

复制代码