CASIO fx-9750 使用自带basic的贪吃蛇&新年感想

右手画心 发表于 2017-1-2 21:16:31

本帖最后由右手画心于 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=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
Q->List 2
P->U
Q+2->V
List V=1=>Goto S //若与地形重合，则重新生成初始坐标
1->List V
Locate P,Q,"■"

2.食物(f=0)
RanInt#(1,21)->M
RanInt#(1,7)->N
N+2->V
List V=1=>Goto 0
1->F
Locate M,N,"⊙"

3.方向控制

4.是否吃到食物与是否撞墙
If List 1=M And List 2=N
Then Isz L
0->F
Locate P,Q,"■"
P->U
Q+2->V
1->List V
Else Locate P,Q," "
P->U
Q+2->V
0->List V
IfEnd
List 1<1 Or List 1>21 Or List 2<1 Or List 2>7=>Goto 0
Locate List 1,List 2,"■"
List 1->U
List 2+2->V
List V=1=>Goto 0
1->List V

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
有兴趣的朋友可以一起交流一下~（首次发帖，多多包涵）

ccpv5 发表于 2017-1-4 22:20:00

楼主看看我同学写的。。。
Filename:SNK0.3.4
?
ClrText?
" SNAKE V 0.3.4"?
Locate 7,6,"Loading#E594"?
Locate 7,7,"$#E592#E59C#E59A$#E599#E59C$"?
For 7悛 To 14?
?
For 1沅 To 50?
Next?
Locate ?1,7,"#E6A4"?
Locate ?7,"#E6A3"?
Next?
Cls?
ClrGraph?
ClrText?
Lbl 1?
ClrText?
148鉊im List 1?
Fill(0,List 1)?
{21,7}鉊im Mat A?
Fill(0,Mat A)?
2鉞?
1鉟?
2鉒?
1鉖?
2鉍?
1?+1鉒ist 1?
RanInt#(2,20)鉓?
RanInt#(3,6)鉔?
RanInt#(2,20)鉋?
RanInt#(3,6)鉌?
27鉘?
27鉠?
1鉙?
Locate 1,1,"#E6A3"?
Locate 2,1,"#E6A4"?
Locate M,N,"#E592"?
Locate E,F,"$"?
Locate 3,7,"SCORE:"?
While 1?
For 1鉏 To S?
Getkey鉚?
T=43?8鉚?
T=42?7鉚?
T=52?8鉚?
T=32?7鉚?
(T=28) And (Z?7)譚鉘?
(T=37) And (Z?8)譚鉘?
(T=38) And (Z?7)譚鉘?
(T=27) And (Z?8)譚鉘?
Next?
R鉠?
'Mat B鉠?
MOD(P,148)+1鉖?
Locate X,Y,"#E6A3"?
1鉓at A?
8X+Y鉒ist 1?
Z=28譟-1鉟?
Z=37譟+1鉟?
Z=38譞-1鉞?
Z=27譞+1鉞?
If X=0?
Then 21鉞?
IfEnd?
If X=22?
Then 1鉞?
IfEnd?
If Y=0?
Then 7鉟?
IfEnd?
If Y=8?
Then 1鉟?
IfEnd?
If X=M And Y=N?
Then ?
RanInt#(2,20)鉓?
RanInt#(3,6)鉔?
L+1鉒?
G+RanInt#(1,5)鉍?
0鉒ist 1?
IfEnd?
If X=E And Y=F?
Then ?
RanInt#(2,20)鉋?
RanInt#(3,6)鉌?
L+1鉒?
G+RanInt#(1,5)鉍?
0鉒ist 1?
IfEnd?
List 1鉚?
T??鉓at A?
X>21譍oto O?
X<1譍oto O?
Y>7譍oto O?
Y<1譍oto O?
Mat A=1譍oto O?
T?譒ocate Int (T?),MOD(T-1,8)+1," "?
?
Locate X,Y,"#E6A4"?
Locate M,N,"#E592"?
Locate E,F,"$"?
Locate 3,7,"SCORE:"?
Locate 9,7,G-2?
WhileEnd?
Lbl O?
{00}鉒ist 1?
ClrText?
Locate 7,3,"GAME OVER"?
Locate 7,4,"@E753@E743@E74F@E752@E745: "?
Locate 14,4,G-1-2?
G-1-2鉍?
Mat Z鉎?
If G>H?
Then ?
Locate 3,5,"CONGRATS??HI-SCORE???
G鉎?
{1,1}鉊im Mat Z?
H鉓at Z?
Else ?
Locate 5,5,"@E748@E749@E747@E748 @E753@E743@E74F@E752@E745:"?
Locate 17,5,H?
IfEnd?

Mike 发表于 2017-1-6 01:10:29

还是上传文件方便一点吧

陈奇渊 发表于 2017-5-6 23:36:45

写得好

页: [1]

cnCalc计算器论坛's Archiver

CASIO fx-9750 使用自带basic的贪吃蛇&新年感想