cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 22278|回复: 3

[fx-9860/9750] 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[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
有兴趣的朋友可以一起交流一下~(首次发帖,多多包涵)

贪吃蛇5

贪吃蛇5

贪吃蛇4

贪吃蛇4

贪吃蛇3

贪吃蛇3

贪吃蛇2

贪吃蛇2

贪吃蛇1

贪吃蛇1

评分

参与人数 1金钱 +6 收起 理由
Mike + 6 很给力!

查看全部评分

发表于 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[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[X,Y]鉠?
MOD(P,148)+1鉖?
Locate X,Y,"#E6A3"?
1鉓at A[X,Y]?
8X+Y鉒ist 1[P]?
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[MOD(P-L,148)+1]?
IfEnd?
If X=E And Y=F?
Then ?
RanInt#(2,20)鉋?
RanInt#(3,6)鉌?
L+1鉒?
G+RanInt#(1,5)鉍?
0鉒ist 1[MOD(P-L,148)+1]?
IfEnd?
List 1[MOD(P-L,148)+1]鉚?
T??鉓at A[Int (T?),MOD(T-1,8)+1]?
X>21譍oto O?
X<1譍oto O?
Y>7譍oto O?
Y<1譍oto O?
Mat A[X,Y]=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[1,1]鉎?
If G>H?
Then ?
Locate 3,5,"CONGRATS??HI-SCORE???
G鉎?
{1,1}鉊im Mat Z?
H鉓at Z[1,1]?
Else ?
Locate 5,5,"@E748@E749@E747@E748 @E753@E743@E74F@E752@E745:"?
Locate 17,5,H?
IfEnd?
发表于 2017-1-6 01:10:29 | 显示全部楼层
还是上传文件方便一点吧
发表于 2017-5-6 23:36:45 | 显示全部楼层
写得好
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 06:32 , Processed in 0.074247 second(s), 22 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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