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

发个5800能玩的囧游戏

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

额，求截图
页: [1]
查看完整版本: 发个5800能玩的囧游戏