本帖最后由 右手画心 于 2017-1-2 21:18 编辑
贪吃蛇前言这是一个在CASIO fx-9750上使用自带basic编写的一款贪吃蛇。
今天是2017年的第2天，想着放假没事情就来论坛看看。感觉时间过得真是快。
9750是我初一的时候入手的，记得当时大家用的都是fx-991es PLUS，而我只有人教版的fx-82，淘宝一番觉得9750够装X的。当时自己根本没什么图形编程计算器的概念，就感觉计算器长得很拉风。97的说明书也是够坑，没法看，导致我在近2年多的时间里完全没有发挥这个计算器的价值。
通过自己慢慢摸索，发现这个计算器可以编写程序（以前根本知道这个就是编程），每天上课就一直试各种语句，通过无脑的试验，居然给我试出了循环的用法。会输出文本，会循环，于是又是上课一顿乱玩~哈哈哈。
上高中后才知道原来我一直搞的是所谓的编程，虽然非常基础，可还是很有成就感的。拿着一堆用拼音写的文字游戏，在各班巡回展览也是很风光的（乡下高中，咳咳）。
贪吃蛇也是这段时间写的，前前后后加上所谓的界面优化写了一个多星期（的上课时间）。从此在自己写的探测所在中无法自拔。
再后来由于偏科严重，选择了学科竞赛，参加了一届noip，结果落榜了。高考考得不错，最后上了中山大学的计算机专业。
97算是改变了我的人生吧，网瘾少年的救赎，我专业的选择也可以说完全是因为拥有这个计算器。打码还是很好玩的，嘿嘿。
P.S.
15年的时候才发现了这个论坛，真是惭愧，刷了机，安了游戏，可玩来玩去还是觉得用basic写的贪吃蛇耐玩。
有限的运算速度和空间，让我不得不想尽办法优化。
现在编程越来越低龄化，身边全是大神。希望今年能继续加油吧~~~
下面是当年写的码以及图片，不全（计算器被人重置了，还没备份，555555）
最后我希望大家有木有类似直接在97上写的纯basic小游戏能发表一下~~~（抛砖引玉对吧，哈哈）
（首次发帖，多多包涵）
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.方向控制
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
最后我希望大家有木有类似直接在97上写的纯basic小游戏能发表一下~~~（抛砖引玉对吧，哈哈）
QQ：372739504
有兴趣的朋友可以一起交流一下~（首次发帖，多多包涵）
|
发表于 2017-1-2 21:16:31
沉默卡
变色卡
千斤顶
显身卡
