cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 4833|回复: 11

[fx-4800P/5800P系列] 发个5800能玩的囧游戏

[复制链接]
发表于 2012-2-10 11:28:36 | 显示全部楼层 |阅读模式
计算器程序
程序名称: 消灭T
平台: fx-5800系列 
系统/软件要求: 能编程
版本号:
类型: 游戏 
作者: efeks
大小(K): 1
更新日期: 2011-02-10
描述: 很很很很很囧的一个游戏,就是看见 T 在那一行上,就发射哪一行的子弹,打中T加分,打不中没分,半秒不打就GAME OVER 总共能发10次 没空闲的练反应用的
已知缺陷: 发射时 按键不能过于短促,不然有时候发不出去
源代码: 开源/部分开源
本帖最后由 efeks 于 2012-2-11 09:12 编辑

Clrmemory
"[":"[":"[":"["
Lbl 0
If B≥10
Then Goto 5
IfEnd
RanInt#(3,14)->X
RanInt#(1,4)->Y
Locate X,Y,"T"
For 1->A To 5
If Getkey=31
Then Goto 1
IfEnd
If Getkey=21
Then Goto 2
IfEnd
If Getkey=35
Then Goto 3
IfEnd
If Getkey=25
Then Goto 4
IfEnd
Next
Goto 5
Lbl 1
B+1->B
For 1->A To 16
Locate X,Y,"T"
Locate A,1,"  =>"                  就是程序里面的那个条件符号     
根号9                                  延时用的……
If (A+1)=X And Y=1
Then S+10->S
Break
IfEnd
Next
Cls
"[":"[":"[":"["
Goto 0
Lbl 2
B+1->B
For 1->A To 16
Locate X,Y,"T"
Locate A,2,"  =>"                                                  
根号9
If (A+1)=X And Y=2
Then S+10->S
Break
IfEnd                                 
Next
Cls
"[":"[":"[":"["
Goto 0
Lbl 3
B+1->B
For 1->A To 16
Locate X,Y,"T"
Locate A,3,"  =>"                  
根号9                                 
If (A+1)=X And Y=3
Then S+10->S
Break
IfEnd
Next
Cls
"[":"[":"[":"["
Goto 0
Lbl 4
B+1->B
For 1->A To 16
Locate X,Y,"T"
Locate A,4,"  =>"                  
根号9                                 
If (A+1)=X And Y=4
Then S+10->S
Break
IfEnd
Next
Cls
"[":"[":"[":"["
Goto 0
Lbl 5
Cls
Locate 5,1,"GAME OVER"
Locate 5,2,"SCORE"
Locate 11,2,S
 楼主| 发表于 2012-2-10 11:29:44 | 显示全部楼层
解释一下,7 4 1 0 分别对应着从上到下的四个发射点
 楼主| 发表于 2012-2-10 11:32:27 | 显示全部楼层
觉得不太好的话,自己改参数 改符号吧,这个很囧的游戏是根据我自己的喜好 编出来的  可能跟你们对不太上来……
 楼主| 发表于 2012-2-10 12:00:46 | 显示全部楼层
本帖最后由 efeks 于 2012-2-11 09:09 编辑

注意一下  每个子弹(条件符号)前面都有个空格
发表于 2012-2-10 21:45:00 | 显示全部楼层
好久没人发5800的程序了...
 楼主| 发表于 2012-2-10 21:57:53 | 显示全部楼层
我前几天刚买了5800,太激动了,就整天找资源,结果就那几个      
   然后自己就胡乱编了个……水平很有限,很多句法都不会用,本来是想做个像素战机的,结果不会啊啊啊啊啊
谁会啊,改一改,5800太冷了
发表于 2012-2-10 22:41:40 | 显示全部楼层
谢谢啦!
发表于 2012-2-10 22:42:39 | 显示全部楼层
我5800一根线断了……求修……我的9750两个的键盘膜的右键被磨掉了,他们以拆过为由都不给修……555……
发表于 2012-2-10 22:44:00 | 显示全部楼层
谁给我一个5800,我给他写一个MP5800……玩笑
发表于 2012-2-11 15:57:33 | 显示全部楼层
我从9860程序区里移植了几个程序给5800的,要的话问我要,qq441024810。   tell15050288721
发表于 2013-7-18 21:03:34 | 显示全部楼层
额,求截图
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 22:14 , Processed in 0.087080 second(s), 25 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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