• BASIC
• ichigojam

OK
1 'ヨッハ゜ライUFOケ゛キツイサクセン
2 W=0:CLS
3 LC10,9:?"[[UFO GAME!]]":LC11,11:?"PLAY[SPACE]"
4 K=INKEY()
5 IF K=32 GOTO10 ELSE GOTO4
10 CLS:S=0:Q=600
20 X=15:Z=15:T=1:C=0
30 R=0
40 D=RND(4)
50 IF C>5 IF D=0 IF Z<30 LCZ,T:?" ":Z=Z+1
60 IF C>5 IF D=1 IF Z>0 LCZ,T:?" ":Z=Z-1
70 IF C>5 IF D=2 LCZ,T:?" ":IF T<15 T=T+1
80 IF C>5 IF D=3 LCZ,T:?" ":IF T>1 T=T-1
85 IF C>5 C=0 ELSE C=C+1:Q=Q-1
90 K=INKEY()
100 IF K=28 IF X>0 LCX,22:?" ":X=X-1
105 LC10,0:?"トクテン";S
107 LC20,0:?"ノコリ";Q;" "
110 IF K=29 IF X<30 LCX,22:?" ":X=X+1
115 IF K=32 IF R=0 R=1:M=X:Y=21
130 LCX,22:?CHR$(240)
140 LCZ,T:?CHR$(241)
145 IF Q<1 LC10,10:?"[[[GAME OVER]]]":LC12,11:?"PUSH[SPACE]":GOTO200
150 IF Y>1 LCM,Y:?" ":Y=Y-1 ELSE LCM,Y:?" ":GOTO30
160 IF R=1 LCM,Y:?CHR$(242)
170 IF Y=T IF M=Z S=S+1:BEEP30,60:Z=RND(32):T=RND(15):LCM,Y:?CHR$(15):WAIT15:LCM,Y:?" "
190 GOTO40
200 K=INKEY()
210 IF K=32 BEEP15,30:WAIT60:RUN ELSE GOTO200

Pagetop