IchigoJam BASICのゲームです。

• タイトル画面で、0〜9の数字を押すとゲームが始まります。
• 選んだ「数字」はスピードで、0が一番速く、9が一番遅くなります。
  ※スピードが速いほど得点が高くなります。

• 「上下左右キー」で「線」をコントロールして、ぶつからないように走りましょう。
• ぶつかるとゲーム終了です。

プログラム
1 ' LINERUN
10 LET [0],-1,0,1,0,0,-1,0,1
20 LET [8],145,145,154,152,145,145,155,153,153,152,146,146,155,154,146,146
30 CLS
40 LC 12,8:?"LINE RUN";:LC 6,18:?"[START : 0-9(SPEED)]";
50 W=INKEY()-48:IF W<0 OR W>9 GOTO 50
60 CLS:X=16:Y=15:U=0:V=-1:O=2:S=0
70 LC 0,1:?CHR$(152);:FOR I=1TO30:?CHR$(145);:NEXT:?CHR$(153);
80 FOR I=2 TO 21:LC 0,I:?CHR$(146);:LC 31,I:?CHR$(146);:NEXT
90 LC 0,22:?CHR$(154);:FOR I=1TO30:?CHR$(145);:NEXT:?CHR$(155);
100 LC X,Y:?CHR$(146);
110 LC 22,0:?"SPEED:",W
120 K=INKEY()-28:IF K<0 OR K>3 K=O:GOTO 140
130 U=[K*2]:V=[K*2+1]
140 LC X,Y:? CHR$([8+O*4+K]);
150 X=X+U:Y=Y+V:IF VPEEK(X,Y)<>0 GOTO 200
160 O=K:LC X,Y:? CHR$([8+O*4+K]);
170 WAIT W
180 LC 0,0:S=S+(10-W)*2:?"SCORE:",S
190 GOTO 120
200 LC X,Y:?CHR$(244);
210 LC 8,12:?"== GAME OVER ==";
220 GOTO 40

BASICですが高速に動き回りますよ。

---

この 作品 は クリエイティブ・コモンズ 表示 4.0 国際 ライセンスの下に提供されています。CC BY 森 巧尚 – Yoshinao Mori