贪吃蛇开源

铁牛niu

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

初始化 ()

子程序名	返回值类型	公开	备 注
初始化

变量名	类 型	静态	数组	备 注
索引	整数型
x	整数型
y	整数型

超级列表框1.全部删除 ()
高级表格.置单元格背景颜色 (0, 0, 高级表格.行数, 高级表格.列数, #白色 )
食物生成速度 ＝ 400
时钟2.时钟周期 ＝ 食物生成速度
速度 ＝ 1000
时钟1.时钟周期 ＝ 速度
方向x ＝ 0
方向y ＝ -1
置随机数种子 (324)
高级表格.置单元格背景颜色 (0, 0, 高级表格.行数, 0, #黑色 )
高级表格.置单元格背景颜色 (0, 高级表格.列数 － 1, 高级表格.行数, 高级表格.列数 － 1, #黑色 )
高级表格.置单元格背景颜色 (0, 0, 0, 高级表格.列数, #黑色 )
高级表格.置单元格背景颜色 (高级表格.行数 － 1, 0, 高级表格.行数 － 1, 高级表格.列数 － 1, #黑色 )
x ＝ 15
开始X ＝ 15
开始Y ＝ 15
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (x))
超级列表框1.置标题 (索引, 1, 到文本 (x ＋ y))
高级表格.置单元格背景颜色 (x, x ＋ y, x, x ＋ y, #红色 )
计次循环首 (5, y)
选择框1.选中 ＝ 假
蛇移动 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
头
参数名	类 型	参考	可空	数组	备 注
x
y

开始X ＝ x
开始Y ＝ y
判断 (高级表格.取单元格背景颜色 (x, y) ＝ #黑色 )
时钟2.时钟周期 ＝ 0
时钟1.时钟周期 ＝ 0
信息框 (“死亡”, 0, “提示”, )
初始化 ()
返回 ()

判断 (高级表格.取单元格背景颜色 (x, y) ＝ #绿色 )
选择框1.选中 ＝ 假
速度 ＝ 速度 × 0.95
如果真 (速度 ＜ 1)
速度 ＝ 1

时钟1.时钟周期 ＝ 速度



高级表格.置单元格背景颜色 (x, y, x, y, #红色 )

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

蛇移动 ()

子程序名	返回值类型	公开	备 注
蛇移动

变量名	类 型	静态	数组	备 注
XX	整数型
yy	整数型
索引	整数型
xxx	整数型
yyy	整数型

高级表格.置光标 (开始X, 开始Y)
XX ＝ 开始X
yy ＝ 开始Y
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (XX ＋ 方向x))
超级列表框1.置标题 (索引, 1, 到文本 (yy ＋ 方向y))
高级表格.置单元格背景颜色 (XX, yy, XX, yy, #黑色 )
头 (XX ＋ 方向x, yy ＋ 方向y)
如果真 (取反 (选择框1.选中))
选择框1.选中 ＝ 真
返回 ()
xxx ＝ 到整数 (超级列表框1.取标题 (0, 0))
yyy ＝ 到整数 (超级列表框1.取标题 (0, 1))
高级表格.置单元格背景颜色 (xxx, yyy, xxx, yyy, #白色 )
超级列表框1.删除表项 (0)

子程序名	返回值类型	公开	备 注
_高级表格_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

调试输出 (键代码)
判断 (键代码 ＝ 37)
如果真 (方向x ＝ 0 且 方向y ＝ 1)
调试输出 (“无效”)
返回 ()
调试输出 (“右”)
方向x ＝ 0
方向y ＝ -1
判断 (键代码 ＝ 39)
如果真 (方向x ＝ 0 且 方向y ＝ -1)
调试输出 (“无效”)
返回 ()
调试输出 (“左”)
方向x ＝ 0
方向y ＝ 1
判断 (键代码 ＝ 40)
如果真 (方向x ＝ -1 且 方向y ＝ 0)
调试输出 (“无效”)
返回 ()

调试输出 (“下”)
方向x ＝ 1
方向y ＝ 0
判断 (键代码 ＝ 38)
如果真 (方向x ＝ 1 且 方向y ＝ 0)
调试输出 (“无效”)
返回 ()

调试输出 (“上”)
方向x ＝ -1
方向y ＝ 0



时钟1.时钟周期 ＝ 速度
蛇移动 ()

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

放食物 ()

子程序名	返回值类型	公开	备 注
放食物

变量名	类 型	静态	数组	备 注
cx	整数型
cy	整数型

cx ＝ 取随机数 (1, 23)
cy ＝ 取随机数 (1, 23)
如果真 (高级表格.取单元格背景颜色 (cx, cy) ≠ #白色 )
放食物 ()
返回 ()
高级表格.置单元格背景颜色 (cx, cy, cx, cy, #绿色 )

i支持库列表	支持库注释
iext	扩展界面支持库一
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 初始化 ()<br /> <br /> .子程序 初始化<br /> .局部变量 索引, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 高级表格.置单元格背景颜色 (0, 0, 高级表格.行数, 高级表格.列数, #白色)<br /> <br /> 食物生成速度 ＝ 400<br /> 时钟2.时钟周期 ＝ 食物生成速度<br /> 速度 ＝ 1000<br /> 时钟1.时钟周期 ＝ 速度<br /> <br /> <br /> 方向x ＝ 0<br /> 方向y ＝ -1<br /> 置随机数种子 (324)<br /> <br /> 高级表格.置单元格背景颜色 (0, 0, 高级表格.行数, 0, #黑色)<br /> 高级表格.置单元格背景颜色 (0, 高级表格.列数 － 1, 高级表格.行数, 高级表格.列数 － 1, #黑色)<br /> 高级表格.置单元格背景颜色 (0, 0, 0, 高级表格.列数, #黑色)<br /> 高级表格.置单元格背景颜色 (高级表格.行数 － 1, 0, 高级表格.行数 － 1, 高级表格.列数 － 1, #黑色)<br /> x ＝ 15<br /> 开始X ＝ 15<br /> 开始Y ＝ 15<br /> <br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (索引, 0, 到文本 (x))<br /> 超级列表框1.置标题 (索引, 1, 到文本 (x ＋ y))<br /> 高级表格.置单元格背景颜色 (x, x ＋ y, x, x ＋ y, #红色)<br /> <br /> .计次循环首 (5, y)<br />     选择框1.选中 ＝ 假<br />     蛇移动 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 头<br /> .参数 x<br /> .参数 y<br /> <br /> 开始X ＝ x<br /> 开始Y ＝ y<br /> <br /> .判断开始 (高级表格.取单元格背景颜色 (x, y) ＝ #黑色)<br />     时钟2.时钟周期 ＝ 0<br />     时钟1.时钟周期 ＝ 0<br />     信息框 (“死亡”, 0, “提示”, )<br />     初始化 ()<br /> <br />     返回 ()<br /> <br /> .判断 (高级表格.取单元格背景颜色 (x, y) ＝ #绿色)<br />     选择框1.选中 ＝ 假<br />     速度 ＝ 速度 × 0.95<br />     .如果真 (速度 ＜ 1)<br />         速度 ＝ 1<br /> <br />     .如果真结束<br /> <br /> <br />     时钟1.时钟周期 ＝ 速度<br /> .默认<br /> <br /> .判断结束<br /> <br /> 高级表格.置单元格背景颜色 (x, y, x, y, #红色)<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 蛇移动 ()<br /> <br /> .子程序 蛇移动<br /> .局部变量 XX, 整数型<br /> .局部变量 yy, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 xxx, 整数型<br /> .局部变量 yyy, 整数型<br /> <br /> 高级表格.置光标 (开始X, 开始Y)<br /> XX ＝ 开始X<br /> yy ＝ 开始Y<br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (索引, 0, 到文本 (XX ＋ 方向x))<br /> 超级列表框1.置标题 (索引, 1, 到文本 (yy ＋ 方向y))<br /> 高级表格.置单元格背景颜色 (XX, yy, XX, yy, #黑色)<br /> 头 (XX ＋ 方向x, yy ＋ 方向y)<br /> .如果真 (取反 (选择框1.选中))<br />     选择框1.选中 ＝ 真<br />     返回 ()<br /> .如果真结束<br /> xxx ＝ 到整数 (超级列表框1.取标题 (0, 0))<br /> yyy ＝ 到整数 (超级列表框1.取标题 (0, 1))<br /> 高级表格.置单元格背景颜色 (xxx, yyy, xxx, yyy, #白色)<br /> 超级列表框1.删除表项 (0)<br /> <br /> .子程序 _高级表格_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 调试输出 (键代码)<br /> <br /> <br /> .判断开始 (键代码 ＝ 37)<br /> <br />     .如果真 (方向x ＝ 0 且 方向y ＝ 1)<br />         调试输出 (“无效”)<br />         返回 ()<br /> <br />     .如果真结束<br />     调试输出 (“右”)<br />     方向x ＝ 0<br />     方向y ＝ -1<br /> .判断 (键代码 ＝ 39)<br /> <br />     .如果真 (方向x ＝ 0 且 方向y ＝ -1)<br />         调试输出 (“无效”)<br />         返回 ()<br />     .如果真结束<br />     调试输出 (“左”)<br />     方向x ＝ 0<br />     方向y ＝ 1<br /> .判断 (键代码 ＝ 40)<br />     .如果真 (方向x ＝ -1 且 方向y ＝ 0)<br />         调试输出 (“无效”)<br />         返回 ()<br />     .如果真结束<br /> <br />     调试输出 (“下”)<br />     方向x ＝ 1<br />     方向y ＝ 0<br /> .判断 (键代码 ＝ 38)<br />     .如果真 (方向x ＝ 1 且 方向y ＝ 0)<br />         调试输出 (“无效”)<br />         返回 ()<br />     .如果真结束<br /> <br />     调试输出 (“上”)<br />     方向x ＝ -1<br />     方向y ＝ 0<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> 时钟1.时钟周期 ＝ 速度<br /> <br /> 蛇移动 ()<br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> 放食物 ()<br /> <br /> .子程序 放食物<br /> .局部变量 cx, 整数型<br /> .局部变量 cy, 整数型<br /> <br /> <br /> <br /> cx ＝ 取随机数 (1, 23)<br /> cy ＝ 取随机数 (1, 23)<br /> <br /> .如果真 (高级表格.取单元格背景颜色 (cx, cy) ≠ #白色)<br />     放食物 ()<br />     返回 ()<br /> <br /> .如果真结束<br /> 高级表格.置单元格背景颜色 (cx, cy, cx, cy, #绿色)

4444b6666

这个必须支持！！！！！

blioioi

66666666666666

909355643

这个必须支持！！！！！

a22364

謝謝

gaoxc952

正好学习一下思路

qq446537660

回复看看            

青叶道长

看看收藏

blfmyd1027

新手路过，，，感谢开源。希望我早日可以写这个任务。

晓风残月丶

好像早有了
不过还是支持开源

jiangai

不错 支持下！！！1