发个5800能玩的囧游戏

efeks · 发表于 2012-2-10 11:28:36

本帖最后由 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

efeks · 发表于 2012-2-10 11:29:44

解释一下，7 4 1 0 分别对应着从上到下的四个发射点

efeks · 发表于 2012-2-10 11:32:27

觉得不太好的话，自己改参数改符号吧，这个很囧的游戏是根据我自己的喜好编出来的可能跟你们对不太上来……

efeks · 发表于 2012-2-10 12:00:46

本帖最后由 efeks 于 2012-2-11 09:09 编辑

注意一下每个子弹（条件符号）前面都有个空格

diameter · 发表于 2012-2-10 21:45:00

好久没人发5800的程序了...

efeks · 发表于 2012-2-10 21:57:53

我前几天刚买了5800，太激动了，就整天找资源，结果就那几个
然后自己就胡乱编了个……水平很有限，很多句法都不会用，本来是想做个像素战机的，结果不会啊啊啊啊啊
谁会啊，改一改，5800太冷了

lzsad · 发表于 2012-2-10 22:41:40

谢谢啦！

月与映之皮丘 · 发表于 2012-2-10 22:42:39

我5800一根线断了……求修……我的9750两个的键盘膜的右键被磨掉了，他们以拆过为由都不给修……555……

月与映之皮丘 · 发表于 2012-2-10 22:44:00

谁给我一个5800，我给他写一个MP5800……玩笑

rouren · 发表于 2012-2-11 15:57:33

我从9860程序区里移植了几个程序给5800的，要的话问我要，qq441024810。 tell15050288721

Xeon_不息 · 发表于 2013-7-18 21:03:34

额，求截图

账号		自动登录	找回密码
密码			注册

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

相关帖子