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で見ることになるとは……。それだけでも感動ものですが、ゲームの出来栄えも見事ですね。往年のゲームセンターを思い出すサウンドも好きです。