简单的贪食蛇源码！

夏亿

        感谢分享，很给力！~

艾玛克138

坚持学习,支持论坛

ZHuanR

新技能已get√

shuya1

学习一下

tianyun

不错哦

396384183

支持开源~！感谢分享

吃干饭的锅

嘿嘿嘿，支持学习

笨来无一悟

或是不必要的判断改成这样更简洁

  

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

变量名	类 型	静态	数组	备 注
蛇头朝向备份	字节型

蛇头朝向备份 ＝ 蛇头方向
如果真 (按键已被按下)
返回 ()
判断 (键代码 ＝ #W键 )
如果真 (蛇头方向 ＝ 0 或 蛇头方向 ＝ 1)  ' 写绕了...
蛇头方向 ＝ 2
如果真 (蛇头方向 ≠ 3)
蛇头方向 ＝ 2

判断 (键代码 ＝ #S键 )
如果真 (蛇头方向 ＝ 0 或 蛇头方向 ＝ 1)  ' 写绕了...
蛇头方向 ＝ 3
如果真 (蛇头方向 ≠ 2)
蛇头方向 ＝ 3

判断 (键代码 ＝ #A键 )
如果真 (蛇头方向 ＝ 2 或 蛇头方向 ＝ 3)  ' 写绕了...
蛇头方向 ＝ 0
如果真 (蛇头方向 ≠ 1)
蛇头方向 ＝ 0

判断 (键代码 ＝ #D键 )
如果真 (蛇头方向 ＝ 2 或 蛇头方向 ＝ 3)  ' 写绕了...
蛇头方向 ＝ 1
如果真 (蛇头方向 ≠ 0)
蛇头方向 ＝ 1

判断 (键代码 ＝ #空格键 )
如果 (时钟1.时钟周期 ＝ 0)
时钟1.时钟周期 ＝ 100
时钟1.时钟周期 ＝ 0



如果 (时钟1.时钟周期 ≠ 0)
按键已被按下 ＝ 真
蛇头方向 ＝ 蛇头朝向备份

.版本 2<br /> <br /> .子程序 _游戏窗口_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 蛇头朝向备份, 字节型<br /> <br /> 蛇头朝向备份 ＝ 蛇头方向<br /> .如果真 (按键已被按下)<br />     返回 ()<br /> .如果真结束<br /> .判断开始 (键代码 ＝ #W键)<br />     .如果真 (蛇头方向 ＝ 0 或 蛇头方向 ＝ 1)  ' 写绕了...<br />         蛇头方向 ＝ 2<br />     .如果真结束<br />     .如果真 (蛇头方向 ≠ 3)<br />         蛇头方向 ＝ 2<br />     .如果真结束<br /> <br /> .判断 (键代码 ＝ #S键)<br />     .如果真 (蛇头方向 ＝ 0 或 蛇头方向 ＝ 1)  ' 写绕了...<br />         蛇头方向 ＝ 3<br />     .如果真结束<br />     .如果真 (蛇头方向 ≠ 2)<br />         蛇头方向 ＝ 3<br />     .如果真结束<br /> <br /> .判断 (键代码 ＝ #A键)<br />     .如果真 (蛇头方向 ＝ 2 或 蛇头方向 ＝ 3)  ' 写绕了...<br />         蛇头方向 ＝ 0<br />     .如果真结束<br />     .如果真 (蛇头方向 ≠ 1)<br />         蛇头方向 ＝ 0<br />     .如果真结束<br /> <br /> .判断 (键代码 ＝ #D键)<br />     .如果真 (蛇头方向 ＝ 2 或 蛇头方向 ＝ 3)  ' 写绕了...<br />         蛇头方向 ＝ 1<br />     .如果真结束<br />     .如果真 (蛇头方向 ≠ 0)<br />         蛇头方向 ＝ 1<br />     .如果真结束<br /> <br /> .判断 (键代码 ＝ #空格键)<br />     .如果 (时钟1.时钟周期 ＝ 0)<br />         时钟1.时钟周期 ＝ 100<br />     .否则<br />         时钟1.时钟周期 ＝ 0<br />     .如果结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> .如果 (时钟1.时钟周期 ≠ 0)<br />     按键已被按下 ＝ 真<br /> .否则<br />     蛇头方向 ＝ 蛇头朝向备份<br /> .如果结束

笨来无一悟

蛇头方向改成1234更合理这样就可以直接用数组 4个判断都是多余的

wjswzj0

感谢分享，很给力！