cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 4614|回复: 7

[fx-9860/9750系列] 【SncakI】贪吃蛇G1M不卡版

[复制链接]
发表于 2010-8-16 17:54:06 | 显示全部楼层 |阅读模式
计算器程序
程序名称: 【SncakI】贪吃蛇G1M不卡版
平台: fx-9860GII fx-9860G & Slim fx-9750GII fx-9750G系列  fx-7400G Plus 
系统/软件要求:
版本号: I
类型: 游戏 图像 
作者: GWHBOB_大吉猪共荣圈
大小(K): 888
更新日期: 2010-08-16
描述: 最基本的贪吃蛇,但是应有的元素{变长,撞身体,撞墙,食物,速度}都有。
已知缺陷: α.speed(1~8)设为1,2,3,4会很慢(原因:不想研究离散反比例函数)【已解决】
β.speed设为11,试试看(键盘有点卡,得一直按着)
γ.食物出现在蛇身体中(故意的,而且不这样O(n)就不会为1,但吃到蛇身体中食物的会gameover,有些游戏的解决方法是食物出现在尾巴)
δ.往相反的方向行走会gameover(故意的,请小心)【已解决】
ε.最下面一排不能走,会over(fx-gX系列文本显示只有7排,最下面一排是留给标签的,请耐心等待graph版本SnackI2)
ζ.没有缺陷
源代码: 开源/部分开源

  1. ======SNACKI  ======
  2. "SPEED 1 To 10"?→S
  3. '=====INIT==========
  4. ClrText
  5. 148→Dim List 1
  6. Fill(0,List 1)
  7. {21,7}→Dim Mat A
  8. Fill(0,MatA)
  9. 2→X
  10. 1→Y
  11. 2→L
  12. 1→P
  13. 1*8+1→List 1[1]
  14. RanInt#(2,20)→M
  15. RanInt#(2,6)→N
  16. 27→R
  17. 27→Z
  18. If S≤10
  19.   Then Int (80/S)→S
  20.   Else 1→S
  21. IfEnd
  22. Locate 1,1,"○"
  23. Locate 2,1,"●"
  24. Locate M,N,"¥"
  25. '=====MAIN LOOP=====
  26. While 1
  27.   '=====DELAY&KEY=====
  28.   For 1→I To S
  29.     Getkey→T
  30.     T=64=>28→T
  31.     T=62=>37→T
  32.     T=73=>38→T
  33.     T=53=>27→T
  34.     (T=28) And (Z≠37)=>T→R
  35.     (T=37) And (Z≠28)=>T→R
  36.     (T=38) And (Z≠27)=>T→R
  37.     (T=27) And (Z≠38)=>T→R
  38.   Next
  39.   R→Z
  40.   '=====MOVE==========
  41.   MOD(P,148)+1→P
  42.   Locate X,Y,"○"
  43.   1→MatA[X,Y]
  44.   8X+Y→List 1[P]
  45.   Z=28=>Y-1→Y
  46.   Z=37=>Y+1→Y
  47.   Z=38=>X-1→X
  48.   Z=27=>X+1→X
  49.   '=====EAT===========
  50.   If X=M And Y=N
  51.   Then
  52.     RanInt#(2,20)→M
  53.     RanInt#(2,6)→N
  54.     L+1→L
  55.     0→List 1[MOD(P-L,148)+1]
  56.   IfEnd
  57.   List 1[MOD(P-L,148)+1]→T
  58.   T≠0=>0→Mat A[Int (T/8),MOD(T-1,8)+1]
  59.   '=====DIE===========
  60.   X>21=>Goto 0
  61.   X<1=>Goto 0
  62.   Y>7=>Goto 0
  63.   Y<1=>Goto 0
  64.   Mat A[X,Y]=1=>Goto 0
  65.   '=====DISPLAY=======
  66.   T≠0=>Locate Int (T/8),MOD(T-1,8)+1," "
  67.   Locate X,Y,"●"
  68.   Locate M,N,"¥"
  69. WhileEnd
  70. '=====END===========
  71. Lbl 0
  72. {3838}→List 1
  73. Locate 7,4,"GAME OVER"
  74. Locate 8,5,"score:"
  75. Locate 15,5,L-1
复制代码
 楼主| 发表于 2010-8-16 18:05:09 | 显示全部楼层
等我打会儿游戏再去分班烤再去军训后给代码详解。
发表于 2010-8-16 18:12:29 | 显示全部楼层
LZ注意下站内信
发表于 2010-10-10 12:27:05 | 显示全部楼层
就不能发个源文件吗?累死我了
发表于 2010-10-10 12:36:10 | 显示全部楼层
到第52行就error了
 楼主| 发表于 2010-10-10 12:57:55 | 显示全部楼层
5# NASA
看这里:http://www.cncalc.org/thread-4573-1-2.html
大概你代码输错了吧……不要以为它帮你自动换行了就不用输回车
发表于 2010-10-11 19:46:39 | 显示全部楼层
食物是RMB。。。
发表于 2010-10-17 11:11:16 | 显示全部楼层
6# GWHBOB 我输回车了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-3-29 05:32 , Processed in 0.053236 second(s), 24 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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