N6：批处理写的俄罗斯方块

转抄之，应该有不少经验可以借鉴。

@echo off&rem 俄罗斯方块游戏，由netbenton编写，在bathome首发，完成时间：2009年9月25日 ver 2.0if "%1" equ "para2" goto :para2set "d-v=for %%a in (!str!) do set/a one=0x%%a,x=one/4+n,y=one%%4+m&(for %%b in ("r!x!.!y!") do if "!%%~b!" equ "　" (set r!x!.!y!=■) else (set err=1))"::函数d-v，把str中的图标数据，放置到总坐标空间中，如果有覆盖，则err=1。调用方法：(%d-v%)::变量使用：one  x  yset "d-e=set aec=!cr!!cr!        ┌───────────┐!cr!&(for /l %%a in (2,1,#) do for %%b in ("│!ebuf:@=%%a!│　　!ebu%%a!") do set aec=!aec!        %%~b!cr!)&cls&echo;!aec!        └───────────┘"::函数d-e，把总坐标空间显示出来，调用方法：(%d-e:#=行数%)set ebu4=第!guan!关set ebu6=总分：!fen!set cr=^::各种图标定义set ga1=0 1 5 6set ga2=1 4 5 8::■■::  ■■set gb1=1 2 4 5set gb2=0 4 5 9::  ■■::■■set za1=4 5 6 7set za2=1 5 9 d::■■■■set qa1=1 5 9 8set qa2=0 4 5 6set qa3=0 1 4 8set qa4=0 1 2 6::■■::  ■::  ■set qb1=0 4 8 9set qb2=0 1 2 4set qb3=0 1 5 9set qb4=2 4 5 6::■■::■::■set ta1=0 1 4 5::■■::■■set sa1=0 1 2 5set sa2=1 4 5 9set sa3=1 4 5 6set sa4=0 4 5 8::  ■::■■■set tw1=0 1set tw2=0 4set on1=0set on2=0set sh1=1 4 5 6 9set sh2=1 4 5 6 9set ao1=0 1 2 4 6set ao2=0 1 4 8 9set ao3=0 4 5 6 2set ao4=0 1 5 8 9set tt1=0 1 2 5 9set tt2=0 4 8 5 6set tt3=1 5 8 9 aset tt4=2 4 5 6 a::cdef::89ab::4567::0123echo 0 2 >%~n0.tmpstart "aswd" %0 para2::起动控制窗口set k3=k%%=mx,k+set k4=downset k1=m-set k2=m+set k5=t+::按键定义setlocal enabledelayedexpansionfor /l %%a in (0,1,10) do (set "ebuf=!ebuf!^!r@.%%a^!")for %%a in (sa_4 ta_1 qb_4 qa_4 za_2 ga_2 gb_2 tw_2 on_2 sh_2 ao_4 tt_4) do (for /f "tokens=1,2 delims=_" %%b in ("%%a") do (set _%%b=%%cfor /l %%d in (1,1,%%c) do set/a nx+=1&set ran!nx!=%%b%%d))::定义各种图型的可变型数，及单个图的随机号        :restartfor /l %%a in (0,1,18) do (for /l %%b in (0,1,10) do set r%%a.%%b=　)set/a fen=0,guan=1::初始化坐标空间18行，10列:loopset/a "m=4,t=2,n=1,down=450/(guan<<2),bti=0"set/a r=!random!%%nx+1set err=set ttr=!_ttr!set _ttr=!ran%r%!::随机取一个图标，if not defined ttr goto :loopset mx=!_%ttr:~,2%!set k=%ttr:~2%set str=!%ttr%!set _str=!%_ttr%!setlocal enabledelayedexpansionfor %%a in (!_str!) do set/a one=0x%%a,x=one/4+8,y=one%%4&set kk!x!.!y!=■for /l %%a in (8,1,11) do for /l %%b in (0,1,3) do (if defined kk%%a.%%b (set kk%%a=!kk%%a!!kk%%a.%%b!) else (set kk%%a=!kk%%a!　))endlocal&set ebu8=%kk8%&set ebu9=%kk9%&set ebu10=%kk10%&set ebu11=%kk11%::对预备图标的处理:contfor /f "tokens=1,2" %%a in (%~n0.tmp) do (if %%b geq 6 (call :error %%b&exit)if %%a neq !test! (set bs=!str!&set/a bm=m,bk=kset/a !k%%b!=1if "%%b" equ "3" (for %%b in ("!ttr:~,2!!k!") do set str=!%%~b!)setlocal enabledelayedexpansion(%d-v:#=3%)                rem 调用函数把图标点放置到总坐标空间if defined err (endlocalset/a m=bm,k=bkset str=!bs!if "%%b" equ "4" goto :jmpout) else ((%d-e:#=18%)                        rem 调用显示函数endlocal))set test=%%a)set ti=1!time:~7,1!!time:~9,2!if !ti! lss !bti! (set /a tn=ti-bti+1000) else (set /a tn=ti-bti)if !tn! gtr !down! (set/a bti=ti,n+=1setlocal enabledelayedexpansion(%d-v:#=3%)if defined err (endlocalgoto :jmpout) else ((%d-e:#=18%)endlocal))goto :cont:jmpoutset/a n-=1(%d-v:#=3%)set m=18for /l %%a in (18,-1,2) do for %%b in ("!ebuf:@=%%a!") do if "%%~b" neq "■■■■■■■■■■■" (set e!m!=%%~b&set/a m-=1)if !m! neq 1 (for /l %%a in (!m!,-1,2) do set "e%%a=　　　　　　　　　　　"for /l %%a in (18,-1,2) do (for /l %%b in (0,1,10) do set r%%a.%%b=!e%%a:~%%b,1!)set/a "fen=fen+(m-1)*10,guan=fen/150+1")if !n! leq 2 (echo 游戏结束！ping -n 3 127.1 >nulgoto :restart)goto :loop:para2mode con: cols=30 lines=2echo a左 d右 w转 s加速 q退出:p_lpset/a n=n%%10+1choice /c adwsgq /n >nul>%~n0.tmp echo;%n% %errorlevel%if %errorlevel% geq 6 exitgoto :p_lp:errorif %1 equ 6 echo 谢谢使用，再见。。。if %1 gtr 6 echo 对不起！choice.exe 文件不存在，不能运行。。。ping -n 3 127.1 >nulgoto :eof