Program post site for everyone
横スクロールのドッグファイトアクションゲームです。自機を操作して誘導ミサイルを飛行機にぶつけてください。
ヘリコプターがミサイル、飛行機、雲に当たるとゲームオーバーです。ミサイルが自機に近づくと警告音が鳴ります。雲は成長するので注意してください。ミサイルと飛行機をぶつけたときの爆炎は通過できます。
誘導ミサイルを撃退すると次のステージに進みます。ステージ15終了でゲームクリアになります。
カーソルキーで上下左右に移動、2キー同時押し可能です。再ゲームはエンターキーです。
電子工作マガジン2019年5月号付録マイコンBASICマガジンに掲載していただいたプログラムです。
非営利目的でネットにアップするのは問題ないとのことなのでKidspodに上げておきますね。
遊んでもらえるとうれしいです。
5 'SKY SLASHERS 10 CLS:CLV:X=5:Y=11:M=1:W=#8D 20 D=D+1:L=5-D/4:H=15+D%2*60 30 A=-30-D*3:B=Y*L:G=0 40 LC X-2,Y:?CHR$(3,3,0) 50 X=X+BTN(29)*(X<24)-BTN(28)*(X>2) 60 K=BTN(31)-BTN(30):IF ABS(Y+K-11)<4 Y=Y+K:K=0 70 COPY#BFE,#BFF,-31:IF Z>0 POKE#8FF+Z+V*32,#18,#18 80 SCROLL(K<0)*2-!K:SCROLL3:IF D>6 SCROLL3 90 LC X,Y:S=SCR():?CHR$(#F3) 100 A=A+(Z<X)-(Z>X):B=B+(V<Y)-(V>Y)-K:Z=A/L:V=B/L 110 U=SCR(Z+1,V):T=SCR(Z-1,V):IF Z>=0 LC Z,V:?CHR$(#83) 120 LC29,RND(23):GSB210:IF K LC RND(18)+10,(K=1)*22:GSB210 130 LC13,23:IF D=16 ?"CLEAR";:GOTO30 140 ?"STAGE ";D;:G=G+K+M*RND(2):IF G/H F=#907+((G>0)*22-G%H)*32:POKE F,4:COPY F+1,F,24:IF !RND(10) M=-M 150 IF ABS(T-W)<2 OR ABS(U-W)<2 GSB220:GOTO20 160 WAIT(6-D%7)*(D<11) 170 BEEP1+(G+140)*(ABS(X-Z)>4 OR ABS(Y-V)>4),15 180 IF (X=Z)*(Y=V)=0 AND S<W AND S<>4 GOTO40 190 WAIT60:Z=X:V=Y:GSB220:CLK:LC12,10:?"GAME OVER" 200 IF INKEY()=10 RUN ELSE CONT 210 R=D%15%4:R=!RND(9-7*!R)*(D<16):?CHR$(29+R*#70,29+R*#71,#3A+R*#53);:RTN 220 FOR I=-5 TO 5:BEEPI+6:LC Z-3-ABS(I),V+I:?"*******";:NEXT:RTN
