|
|
计算器程序
| 程序名称: |
【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）
ζ.没有缺陷 |
| 源代码: |
开源/部分开源 |
-
- ======SNACKI ======
- "SPEED 1 To 10"?→S
- '=====INIT==========
- ClrText
- 148→Dim List 1
- Fill(0,List 1)
- {21,7}→Dim Mat A
- Fill(0,MatA)
- 2→X
- 1→Y
- 2→L
- 1→P
- 1*8+1→List 1[1]
- RanInt#(2,20)→M
- RanInt#(2,6)→N
- 27→R
- 27→Z
- If S≤10
- Then Int (80/S)→S
- Else 1→S
- IfEnd
- Locate 1,1,"○"
- Locate 2,1,"●"
- Locate M,N,"￥"
- '=====MAIN LOOP=====
- While 1
- '=====DELAY&KEY=====
- For 1→I To S
- Getkey→T
- T=64=>28→T
- T=62=>37→T
- T=73=>38→T
- T=53=>27→T
- (T=28) And (Z≠37)=>T→R
- (T=37) And (Z≠28)=>T→R
- (T=38) And (Z≠27)=>T→R
- (T=27) And (Z≠38)=>T→R
- Next
- R→Z
- '=====MOVE==========
- MOD(P,148)+1→P
- Locate X,Y,"○"
- 1→MatA[X,Y]
- 8X+Y→List 1[P]
- Z=28=>Y-1→Y
- Z=37=>Y+1→Y
- Z=38=>X-1→X
- Z=27=>X+1→X
- '=====EAT===========
- If X=M And Y=N
- Then
- RanInt#(2,20)→M
- RanInt#(2,6)→N
- L+1→L
- 0→List 1[MOD(P-L,148)+1]
- IfEnd
- List 1[MOD(P-L,148)+1]→T
- T≠0=>0→Mat A[Int (T/8),MOD(T-1,8)+1]
- '=====DIE===========
- X>21=>Goto 0
- X<1=>Goto 0
- Y>7=>Goto 0
- Y<1=>Goto 0
- Mat A[X,Y]=1=>Goto 0
- '=====DISPLAY=======
- T≠0=>Locate Int (T/8),MOD(T-1,8)+1," "
- Locate X,Y,"●"
- Locate M,N,"￥"
- WhileEnd
- '=====END===========
- Lbl 0
- {3838}→List 1
- Locate 7,4,"GAME OVER"
- Locate 8,5,"score:"
- Locate 15,5,L-1
|
|
发表于 2010-8-16 17:54:06
沉默卡
变色卡
千斤顶
显身卡
楼主
