LISP写的俄罗斯方块游戏[源代码在15楼]

fools

;; Revision History
;; Rev  By     Date    Description
;;-------------------------------------------------------------------------------
;; 1   FOOLS    2-16-07   农历新年前发布，实现基本功能
;; 2   FOOLS    2-27-07   增加定时增随机行,成绩统计,旋转出界调整

这是一款用autolisp写的俄罗斯方块游戏.加载后键入elsbox执行程序.
模型或图纸空间都可进行游戏,在图纸空间退出时可能会较慢,并非死机.
编写该程序的目的是为了探索通过autolisp模拟编写多线程程序.通过这种方法可以编写其他类似的小游戏,比如坦克大战,挖金子等.
新发布的程序修改版,已经比较接近大家熟悉的俄罗斯方块游戏,通过调整下落速度和随机增加行数可以变换出各种难度.

 

elepeipei

谢谢楼主的分享，程序特别好玩。我不太懂lisp，这个运行完以后我CAD中的Ctrl+C复制变成了选先执行后选择，这个修改选项中的先选择后执行也还是没改了，百度没查到解决方法，只好请教您。

追寻

srv2 发表于 2012-9-26 09:57
发现源码被贴在韩国的网站了
http://cafe421.daum.net/_c21_/bbs_search_read?grpid=11Ix4&fldid=3CGI&con ...

这帮韩棒锤子

elepeipei

elepeipei 发表于 2018-6-30 12:32
谢谢楼主的分享，程序特别好玩。我不太懂lisp，这个运行完以后我CAD中的Ctrl+C复制变成了选先执行后选择， ...

谢谢您，太厉害了

hhc

方块画得很好，程序也很好，最好加个说明

wshark

我也来看看

lazybug

不错不错，楼主应该不是新手吧

有个小问题，按ESC后，再按其它键就不好用了

最好设成按ESC退出,那样比较符合操作习惯

killer9806

强哦，真的值得学习哦

jxlnlsh

学习!学习!再学习!

fools

首贴已经更新,多谢大家关注!

To:hhc 首贴加了几句说明,呵呵!

To:lazybug 在下水平有限,按Esc退出的问题还没有解决!本来打算做到按esc不退出的,只能按q退出的,可老是出错,就保留现在这种自动退出的方式.

新程序增加了一些难度,:)

byghbcx

好!值得学习,看来lisp的功能越来越大了.顶!

fly_902

学习一下!