• ichigojam,
• アクションゲーム,
• ドローン,
• イチゴ

1 'DRONE-SHOOT15
10 LET[0],2,1,3,0,3,1,0,2,0,-1,1,0,0,1,-1,0
20 T=0
30 CLT
35 T=T+1:IF T>5 ?"TIME:";TICK()/60:END
36 S=T*3:X=16:Y=12:GOSUB 400
37 A=X:B=Y:D=0:U=0
39 'MAIN
40 K=INKEY()
50 IF K=ASC("C") D=(D+1)%4
60 IF K=ASC("X") D=(D+3)%4
70 E=K-LEFT:IF E>=0 AND E<4 E=([E+4]+D)%4:A=X+[E*2+8]:B=Y+[E*2+9]
80 IF U=0 AND K=SPACE U=1+D:V=X:W=Y
180 IF A<>X OR B<>Y LC X,Y:?" ":X=A:Y=B
190 LC X,Y:?CHR$(224+[D])
191 IF U GOSUB 300:IF S=0:LC10,12:?"STAGE CLEAR!":WAIT30:GOTO35
192 LC8,0:?"STAGE:";T;" TIME:";TICK()/60
195 WAIT 5
200 GOTO 40
300 'SHOT
301 IF X<>VORY<>W:LCV,W:?" "
310 V=V+[U*2+6]:W=W+[U*2+7]
320 LCV,W:IF SCR()=255 S=S-1:U=0:?" ":RETURN
325 IF V<0ORV>31ORW<0ORW>21 U=0:RETURN
330 ?"*":RETURN
400 'INIT
405 SRNDT+2:CLS:LCX,Y:?" "
410 FOR I=1 TO S
420 LC RND(32),RND(19)+1:IF SCR() CONT
425 ?CHR$(255):NEXT
430 RETURN

Pagetop