Program post site for everyone
対戦型シューティングゲームです。
上から迫り来る宇宙人をレーザービームで倒してください。宇宙人を倒すと相手側の画面に宇宙人が飛びます。宇宙人が一番下まで到達したプレイヤーが負けになります。
レーザービームは自動的に発射されます。宇宙人を下のほうで倒すほど、相手側画面に飛んだ宇宙人の降下スピードが速くなります。
操作
プレイヤー１:[X]と[スペース]で移動
プレイヤー２：[←]と[→]で移動
再ゲーム：エンターキー
画面中央の数字は、倒した宇宙人の総数です。この数が増えるに従って、宇宙人の出現位置が下がり難しくなっていきます。
行番号20のQの値が宇宙人の数です。0～9を指定できます。
MIXJUICEでダウンロードした直後などは、スペースキーが押された状態となると思います。そのようなときは、一度スペースキーを押すと直ります。
IchigoJam1.4用です。
10 'VsShooter 20 CLS:CLV:X=2:Z=29:Q=7 30 M=28:N=31:POKE#8A0,#92,M,N,#92,M,N,#92,M,N,#20,M,N,#20,M,N,#20 40 LC11:?"VS Shooter" 50 POKE#BE0,6,6:COPY#BEF,#BE0,17 60 FOR I=0 TO Q:C=I%2:GSB220:NEXT 70 LCZ,17:?STR$(#8A0);:LCX,17:?STR$(#8A0);:GSB210 80 Z=Z-BTN(28)*(Z>17)+BTN(29)*(Z<29):GSB210 90 X=X-BTN(88)*(X>2)+BTN(32)*(X<14):GSB210 100 LCZ,19:?CHR$(#F0);:LCX,19:?CHR$(#F0); 110 FOR I=0 TO Q 120 [I]=[I]+[I+20]:B=[I]/100:C=[I+10]<15:LC[I+10],B 130 IF SCR() GSB220:A=#F4:S=S+1 ELSE A=#ED 140 ?CHR$(A);:BEEP[I]%25 150 IF B>22 [96+C]=1 160 NEXT 170 IF [96]+[97]=0 GOTO70 180 VIDEO2:WAIT90:VIDEO1:BEEP2,60:CLK 190 IF [96]+[97]=2 LC14,8:?"DRAW"; ELSE LC5+[97]*15,8:?"WINNER"; 200 IF INKEY()=10 RUN ELSE CONT 210 COPY#940,#960,32*21:LC15,1:?S;:RTN 220 K=2+RND(13)+C*15:H=0:FOR J=0 TO Q:H=H+(K=[J+10]):BEEPJ:NEXT:IF H CONT 230 [I+10]=K:[I+20]=3+[I]/16:[I]=S+200:RTN
対戦型シューティングゲーム！ このジャンルのゲームは数えるほどしか知らないですが、まさかIchigoJamで見ることになるとは……。それだけでも感動ものですが、ゲームの出来栄えも見事ですね。往年のゲームセンターを思い出すサウンドも好きです。
