明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 28158|回复: 85

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

    [复制链接]
发表于 2007-2-16 23:11:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2007-3-3 14:13:43 编辑

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

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

 

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-6-30 12:32:17 | 显示全部楼层
本帖最后由 elepeipei 于 2018-6-30 12:34 编辑

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

点评

QAFLAGS 0  发表于 2018-6-30 12:58
发表于 2022-5-3 16:57:30 | 显示全部楼层
srv2 发表于 2012-9-26 09:57
发现源码被贴在韩国的网站了
http://cafe421.daum.net/_c21_/bbs_search_read?grpid=11Ix4&fldid=3CGI&con ...

这帮韩棒锤子
发表于 2018-8-15 14:26:15 | 显示全部楼层
elepeipei 发表于 2018-6-30 12:32
谢谢楼主的分享,程序特别好玩。我不太懂lisp,这个运行完以后我CAD中的Ctrl+C复制变成了选先执行后选择, ...

谢谢您,太厉害了
发表于 2007-2-25 10:25:00 | 显示全部楼层
方块画得很好,程序也很好,最好加个说明
发表于 2007-2-25 12:14:00 | 显示全部楼层
我也来看看
发表于 2007-2-25 16:16:00 | 显示全部楼层
本帖最后由 作者 于 2007-2-25 16:20:22 编辑

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

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

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

发表于 2007-2-26 21:53:00 | 显示全部楼层
强哦,真的值得学习哦
发表于 2007-2-27 09:17:00 | 显示全部楼层

学习!学习!再学习!

 楼主| 发表于 2007-2-27 13:34:00 | 显示全部楼层
本帖最后由 作者 于 2007-2-27 14:11:15 编辑

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

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

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

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

发表于 2007-2-27 16:14:00 | 显示全部楼层
好!值得学习,看来lisp的功能越来越大了.顶!
发表于 2007-2-28 14:19:00 | 显示全部楼层
学习一下!
发表于 2007-3-1 09:46:00 | 显示全部楼层
不错,值得学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-14 14:43 , Processed in 0.249876 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表