1L度娘，下载地址在楼下。
刚刚准备发布时，看见首页上的DOS版俄罗斯方块，顿时感觉自己弱爆了。。
不过既然花了不少时间写出来了，不发布也说不过去，于是我决定还是发布一下。
这个程序是我利用Graph单元以及WinCRT单元做出来的。由于以前我从没用过Graph单元，所以做得不太好，以后有空我会再优化一下，不喜勿喷。
如果发现游戏有Bug或者您有什么好的提议，可以发邮件给我,我的E-mail地址是[email protected]。

下载方式1：[无效] http://pan.baidu.com/share/link?shareid=284318&uk=555531662

下载方式2：将这张图片保存，改扩展名为.rar，解压即可

V1.1
下载地址：[无效] http://pan.baidu.com/share/link?shareid=284656&uk=555531662
图片：（依然是保存，改扩展名）
V1.1:
*优化:修改游戏界面，由10*13改为10*20(貌似标准俄罗斯方块就是10*20的)
*优化:7种方块有7种不同的颜色
*改正BUG:V1.0里面游戏开始之后第一个方块落下后得分变成100，再落下第二个之后得分变成0，现已恢复正常
*改正BUG:有一种方块Next显示的与实际不符，已改正
*优化:Next区方块也改为彩色实心

V1.2:
*添加功能:空格为立刻下落,P为暂停/继续
*优化:修改绘图方式,减轻闪烁(我暂时不会双缓冲,以后会改成双缓冲,彻底解决闪烁问题)
*每下落一个小方块得1分(一个大方块有4个小方块,所以掉落一个大方块得4分)
*修改各关卡的掉落速度
*新增Number:已下落方块个数
*游戏结束不再清屏
下载地址:[无效] http://pan.baidu.com/share/link?shareid=285425&uk=555531662PS:我单机了吗？

这应该是graph版。你还可以做些界面和暂停的功能，winmouse单元也许有些用处

V1.3:
*添加最高分记录(setting.txt里面的数字为最高分记录,初始为0,此文件请勿删除,移动或改名)
*修改得分方式,各关得分为基础分乘以速度系数k(详见help.txt)
*修改计时方式,直接调用系统时间,保证不同电脑上同一关卡方块下落速度相同
下载地址:[无效] http://pan.baidu.com/share/link?shareid=285758&uk=555531662
图片:

V1.4:
*改变3种方块的转动方式:田字方块不再可以旋转;7字方块旋转中心改为长边的中心,靠墙时更容易旋转
*在界面上增添版本号
*界面8种颜色可自由调整,参见setting.txt
下载地址:[有效] http://pan.baidu.com/share/link?shareid=286898&uk=555531662
图片:
PS1:我继续玩百度贴吧单机版。。。
PS2:感谢 @ArrowRowe 的诸多意见与建议

都这样了 就是不出 竖着的

LZ
衷心给您几条建议：
1.用户界面的友好
您的程序说实话就是一上来就开玩，并没有考虑用户的感受，你应该做个logo，然后写几句话，最后让用户来选择关卡级别。但不得不说你的程序界面十分不错，尤其是在dos模式下的
2.隐藏主窗口
那个黑乎乎的窗口十分难看，建议把他关掉，我知道这好像只有delphi才能实现的。不过没关系，你只要别给用户看见就行了。那个画图窗口关闭的同时，关闭主程序