Program post site for everyone
基本のゲーム ゲーム作りの参考・改造に。
侵入したエイリアンをミサイルで排除せよ。
最終防衛ラインを突破されてはならない。
試作機 Ichigo Fighter 00 発進。
自機を左右に動かし、スペースでミサイルを発射
上から敵が降りてきます。最終防衛ラインに到達されると終わり。
ミサイルは当たってもそのままぶち抜いて飛んでいきます。
テクニックなしですなおにプログラムを組んだので遅いです。
10 'IF00 20 CLS 30 X=16:Y=21:M=-1:N=-1:T=-1:U=-1 40 FOR Z=0 TO 1:Z=0 50 IFU<0T=RND(30):U=0 60 A=T:B=U 70 IFRND(10)=0:U=U+1:IFU>Y-1Z=1 80 T=T+(RND(3)-1) 90 IFT<0T=RND(30) 100 IFT>30T=RND(30) 110 LCA,B:?CHR$(0); 120 LCT,U:?CHR$(#ED); 130 IFN<0IFBTN(32)M=X:N=Y 140 IF(SCR(M,N-1)<>0)U=-1 150 IF(SCR(M,N-2)<>0)U=-1 160 A=M:B=N:N=N-2 170 LCA,B-1:?CHR$(0); 180 LCA,B:?CHR$(0); 190 IFN<=0N=-1:ELSELCM,N:?CHR$(#92); 200 A=X:B=Y 210 X=X+(X<30)*BTN(29)-(X>0)*BTN(28) 220 LCA,B:?CHR$(0); 230 LCX,Y:?CHR$(#F0); 240 NEXT 250 @ED:LC10,10:?"MISS!":?:END
