Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2016/05/22 09:38:29

MixJuice GET URL : kidspod.club/mj/74

GUNMAN ichigojamPOCKET版

GUNMANをpocket画面に移植してみました。

  • No registered tag exist.

SOURCE CODE

1 'GUNMAN
2 H=PEEK(#FFF)
10 A=3:X=0:Y=0:B=99:S=0:T=500
20 cls
21 LOCATE 0,A:PRINT" ";
22 IF X LOCATE X,Y:PRINT" ";
23 IFB<>99 LC14,B:PRINT" "
24 'LOCATE 11,0:PRINT"   "
30 IF X X=X+4
31 IF (14<X)*(Y=B) B=99:S=S+1:LED(1):BEEP
32 IF 15<X X=0
40 IF B=99 B=RND(6)
50 K=INKEY()
60 IF (K=30)&(A>0) A=A-1
70 IF (K=31)&(A<5) A=A+1
80 IF (K=32)*(X=0) X=1:Y=A:LED1:BEEP1
90 LOCATE 0,A:PRINT")";
100 IF x LOCATE X,Y:PRINT"-";
110 LOCATE 14,B:PRINT"*";
115 LOCATE 0,0:PRINT"S:";S;" H:";H;
116 LOCATE 9,0:PRINT"T:";T
120 WAIT 5
125 T=T-5
126 IF T<0 IF S>H POKE #FFF,S:SAVE:END:ELSE END
130 LED(0):GOTO 21

COMMENT