牛×，用批处理写的俄罗斯方块游戏

俄罗斯方块游戏，流行程度简直就像是 Hello World 啊，看到这个用windows批处理写出来的俄罗斯方块游戏时，我震撼了一下，地球人阻止不了程序员写俄罗斯方块了。

惯例，给个截图：

代码可以从这里下载，双击Tetris.bat运行，用WASD来控制。CSDN帖子链接

部分代码：

@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::■■::  ■::  ■

代码有点长，不贴了，要看的可以点这里下载。