ラリーJam

こちらも「かわくだり魔改造グランプリ」応募作品。4方向スクロールゲームです。

遊び方

• 起動すると画面中央にマイカーが表示され、画面がスクロールして走って行きます。上下左右のカーソルキーで、進行方向が変わります。
• 画面左下にポイント（得点）が表示されます。チェックポイント「P」を通過すると10ポイント加算されます。
• 画面右下に残りガソリンが表示されます。1スクロール進む毎に1ずつ減っていきます。ガスステーション「G」を通過すると100補充されます。
• 岩「＊」に当たるか、残りガソリンが0になると、ゲームオーバーです。

プログラム

10 '*Rally Jam
20 CLV:CLS:X=16:Y=11:D=2:G=300
30 LET [0],16,22,0,11,16,0,31,11
40 LET [28],1,3,2,0
50 POKE 224*8,129,255,153,24,90,126,90,24
60 POKE 225*8,7,114,34,254,254,34,114,7
70 POKE 226*8,24,90,126,90,24,153,255,129
80 POKE 227*8,224,78,68,127,127,68,78,224
90 FOR K=28 TO 31
100 IF BTN(K) D=[K]
110 NEXT
120 U=[D*2]:V=[D*2+1]
130 R=RND(32)-16:S=RND(23)-11
140 C=42
150 IF !RND(20) C=80
160 IF !RND(40) C=71
170 G=G-1
180 POKE #BE0,0:COPY #BE1,#BE0,31
190 LC X,Y:?CHR$(0)
200 SCROLL D
210 H=SCR(X,Y)
220 LC X,Y:?CHR$(224+D)
230 IF H=80 P=P+10:BEEP
240 IF H=71 G=G+100:BEEP 10,30
250 LC 0,23:?"POINT=";P;
260 LC 20,23:?"GAS=";G;" ";
270 IF D%2=0 LC U+R,V ELSE LC U,V+S
280 ?CHR$(C);
290 WAIT 3
300 IF H!=42 AND G>0 GOTO 90
310 LC X,Y:?"X"
320 BEEP 30,30

Web版はこちら。

8ビットパソコン時代の名作ゲーム「ラリーX」をイメージして作りました。
敵のレッドカーも出そうかと思ったのですが、そこは改造の余地として残しました。
Web版は画面表示が遅いので簡単ですが、IchigoJam実機だとオリジナルのかわくだりゲーム並みに難しいです。