SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

シューティングmobile

mobile環境(液晶画面)用に移植したシューティングゲームを、改めて掲載します。
キーボード操作なので、mobile環境をお持ちの方はどなたでも遊べます。
なお通常のIchigoJam環境でも、画面が狭いだけでちゃんとプレイできます。

  • 自機「A」を、カーソルキーの左右で操作します。
  • 上空を飛んでいるUFOを狙って、スペースキーでビームを打ってください。
  • ビームがUFOに当たると10点が入ります。
  • UFOに画面の一番下まで侵略されるとゲームオーバーです。

MixJuiceでもダウンロードできます。
"MJ GET comich.net/ichigojam/shootingm.txt"

10 '*SHOOTING mobile
20 CLS:CLV
30 LOCATE 0,0
40 PRINT S
50 X=7:Y=7
60 LOCATE X,Y
70 PRINT "A";
72 U=RND(15):V=0
74 LOCATE U,V
76 PRINT CHR$(241);
80 '*GAMELOOP
90 LOCATE X,Y
100 PRINT " ";
110 IF BTN(LEFT)=1 AND X>0 THEN X=X-1
120 IF BTN(RIGHT)=1 AND X<14 THEN X=X+1
130 LOCATE X,Y
140 PRINT "A";
142 IF BTN(SPACE)=1 THEN GOSUB 240
145 GOSUB 160
148 WAIT 3
150 IF V<7 THEN GOTO 80
152 BEEP 30,30
153 LOCATE 0,0:PRINT S
154 LOCATE 3,3
156 PRINT "GAME OVER!"
158 END
160 '*UFO
170 LOCATE U,V
180 PRINT " ";
190 U=U+RND(3)-1
192 IF U<0 THEN U=0
194 IF U>14 THEN U=14
200 V=V+RND(3)-1
202 IF V<0 THEN V=0
204 IF V>7 THEN V=7
210 LOCATE U,V
220 PRINT CHR$(241);
230 RETURN
240 '*BEAM
250 B=X
260 FOR C=Y-1 TO V STEP -1
270 LOCATE B,C
280 PRINT "|";
285 WAIT 2
290 LOCATE B,C
300 PRINT " ";
310 NEXT
320 IF B<>U THEN RETURN
330 '*HIT
340 BEEP
350 LOCATE U,V
360 PRINT "*";
362 S=S+10
364 LOCATE 0,0
366 PRINT S
370 WAIT 20
380 LOCATE U,V
390 PRINT " ";
395 U=RND(15):V=0
400 RETURN