@echo off
title 游戏
mode con:cols=22 lines=12
color f0
setlocal EnableDelayedExpansion
set js=0
set fen=0
:a
set /a js=%js%+1
set dwall=**********          **********
set /a sjs=%random%%%7+2
for %%b in (%sjs%) do (set wall=%wall%!dwall:~%%b,20!)
if not %js%==10 goto a
:b
cls
for /l %%f in (0 20 180) do (echo. !wall:~%%f,20!)
set /a x2=%x%-1
if not %x2% leq 1 (for /l %%g in (1 1 %x2%) do (set /p= <nul))
echo 
echo %fen%分
cmos 0 1 0 0 10
set /a fen=%fen%+1
set /a P=%errorlevel%
if "%p:~0,1%"=="-" set p=%p:~1,10%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
set /a hg=%x%-2+180
for %%a in (%hg%) do (
if %x%==1 goto zb
if %x%==22 goto zb
if "!wall:~%%a,1!"=="*" goto death)
cls
set /a sjs=%random%%%6
for %%c in (%sjs%) do (set xwall=!dwall:~%%c,20!)
for /l %%d in (0 1 19) do (set w%%d=!xwall:~%%d,1!)
set /a sjs=%random%%%16+3
set /a sjs2=%sjs%+1
for /l %%e in (%sjs% 1 %sjs2%) do (set w%%e=*)
set xwall=%w0%%w1%%w2%%w3%%w4%%w5%%w6%%w7%%w8%%w9%%w10%%w11%%w12%%w13%%w14%%w15%%w16%%w17%%w18%%w19%
set wall=%xwall%%wall:~0,180%
goto b
:death
cls
color fc
echo 你撞墙了。
echo 得了%fen%分。
pause>nul
exit
:zb
clscolor fc
echo 作弊可恶！
pause>nul
复制代码