Program post site for everyone
インベーダが攻めてきた！
戦いは長期にわたり、地球防衛軍に残された兵器は固定式砲台１基だけになった・・・
固定式砲台のビーム砲で攻めてくるUFOとインベーダーを撃破してください。
UFOとインベーダーが下まで降りてくるとダメージを受けます。
ビームの方向は、撃ちながら変えることができますが、撃たないときの方が速く変えられます。
ビームの射程は、砲台のチャージが高いほど長くなります。チャージはビームを撃つと減り、撃たないでいるとたまります。
インベーダーを撃破するとスコア10点加算されます。UFOは撃破してもスコアになりません。
300点とるとゲームクリアです。
ダメージを6回うけるとゲームオーバーです。
操作
矢印キー 左右：ビームの方向移動
スペースキー：ビーム発射
ゲームオーバー画面ではエンターキーで再ゲームです。
10 'KHS 20 CLS:CLV:X=90:T=5:L=1 30 POKE#BE1,3:COPY#BE2,#BE1,29 40 Z=RND(28)+2:V=-RND(30) 50 B=BTN(32):K=(BTN(29)-BTN(28))*(!B*10+2):H=H+(H<100)*2-B*4*(H>0) 60 X=X+K:X=X*(X>0)-X%180*(X>180) 70 M=COS(X):N=SIN(X):P=13-H/10 80 GSB240 90 LC1:?"SCORE:";S,"SHIELD:";T,"CHARGE:";H,:BEEP40-K*25 100 IF S>290 LCV+30,Z-8:?"+ ";:GSB240:GOTO40 110 R=!RND(17-S/20):LCRND(30)+1,2:IF SCR()<>#F1 ?CHR$(#3A+R*183); 120 IF V>1 LCZ,V:?CHR$(E*!(E=#93)); 130 Z=Z+L:IF (Z-1)%29=0 OR !RND(11) L=-L:V=V+1 140 LCZ,V:E=SCR():W=(E>#80)*(E<#8F) 150 IF V>1 ?CHR$(#ED); 160 LC16,22:?CHR$(#F0) 170 FORI=0TO2:U=(U+1)%30:LCU+1,21:IF SCR()=#F1 GSB270 180 NEXT 190 GSB240 200 J=(J+1)%10:IF !J COPY#BBF,#B9F,-32*20:V=V+1:BEEP27 210 IF V>21 LCZ,V:GSB270:GOTO40 220 IF W BEEP3,10:WAIT10:S=S+10:GOTO40 230 GOTO50 240 G=!G:IF B DRAW32,43,32-M/P,43-N/P,G:BEEP:RTN 250 LC16-M/17,21-N/17:IF G D=SCR():D=!(D=#ED)*D 260 ?CHR$(#93*G+D*!G);:BEEP35-H/3:RTN 270 ?CHR$(#F4,#1C,#1F,#F4);:BEEP45,25:WAIT25 280 IF T>0 T=T-1:RTN 290 CLK:LC11,10:INPUT"GAME OVER",A:RUN
