CASIO fx-9750的贪吃蛇

贪吃蛇

16341016

数据科学与计算机学院

目录

贪吃蛇
前言

基本框架

具体编写
初始化

食物

方向控制

是否吃到食物与是否撞墙

关卡

附

前言

这是一个在CASIO fx-9750上编写的一款贪吃蛇，用的语言应该是简易的Basic，能在计算器上正常运行。咳咳，在座dalao太多，不多说了。

基本框架

Created with Raphaël 2.1.0初始化是否有按键改变蛇的方向移动蛇是否有吃的长度+1是否撞墙Game Overyesnoyesnoyesno

具体编写

由于这是一款在CASIO fx-9750计算器上运行的小游戏，所以运算速度、内存和画面质量都有限。该计算器只支持21*7的字符显示。

将地图坐标放入对应二维变量中，在判定蛇头是否撞墙时速度更快。

这是计算器上的简易语言，该代码电脑无法运行。

（没带数据线，具体的代码就不写了）

1.初始化

1->O; //选择第1关
Lbl O;
ClrText;
For 5->I To 17
For 4->J To 8
If List J[I]=1
Then Locate I,J-2,"□" //关卡背景布置
IfEnd
Next
Next
0->F //无食物
1->L //初始长度为1
1->T //走过的格数为1
0->R //无按键
Lbl S
RanInt#(1,21)->P
RanInt#(1,21)->Q //生成初始坐标
P->List 1[1]
Q->List 2[1]
P->U
Q+2->V
List V[U]=1=>Goto S //若与地形重合，则重新生成初始坐标
1->List V[U]
Locate P,Q,"■"

2.食物

此处为分函数（当f=0时运行）

RanInt#(1,21)->M
RanInt#(1,7)->N
N+2->V
List V[M]=1=>Goto 0
1->F
Locate M,N,"⊙"

3.方向控制

主要通过控制台I/O中的Getkey函数接收指令。

由于篇幅有限，此处不予赘述。

有兴趣的同学可以联系我1

4.是否吃到食物与是否撞墙

If List 1[T]=M And List 2[T]=N
Then Isz L
0->F
Locate P,Q,"■"
P->U
Q+2->V
1->List V[U]
Else Locate P,Q," "
P->U
Q+2->V
0->List V[U]
IfEnd
List 1[T]<1 Or List 1[T]>21 Or List 2[T]<1 Or List 2[T]>7=>Goto 0
Locate List 1[T],List 2[T],"■"
List 1[T]->U
List 2[T]+2->V
List V[U]=1=>Goto 0
1->List V[U]

5.关卡

Level 1(Z.TCS1)

For 3->I To 9
21->Dim List I
Next

Level 2(Z.TCS2)

For 3->I To 9
21->Dim List I
Next
{0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0}->List 6

Level 3(Z.TCS3)

21->Dim List 3
{0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0}->List 4
{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 5
{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 6
{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 7
{0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0}->List 8
21->Dim List 9

Level 4(Z.TCS4)

21->Dim List 3
{0,0,0,0,0,0,1,1,1,1,0,1,1,1,1,0,0,0,0,0,0}->List 4
{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 5
{0,0,0,0,1,0,1,1,1,1,0,1,1,1,1,0,1,0,0,0,0}->List 6
{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 7
{0,0,0,0,0,0,1,1,1,1,0,1,1,1,1,0,0,0,0,0,0}->List 8
21->Dim List 9

选择

O=1=>Prog "Z.TCS1"
O=2=>Prog "Z.TCS2"
O=3=>Prog "Z.TCS3"
O=4=>Prog "Z.TCS4"

判定

If L-1=25 And O<4
Then Goto 3
IfEnd
Goto I

附

科科，我们最后讨论一下海伦公式吧：

S=p(p−a)(p−b)(p−c)−−−−−−−−−−−−−−−−−√

其中，

p=a+b+c2

哈哈哈哈。老师说不要放真名。 ↩