• GOOD!1
• PLAY!1
• VIEW921

あべのぶひで

ワンライン　スタードライブ

障害物付きのドライブゲームです。操作は左右キーです。
左右のかべと障害物に当たらないように操作してください。
自機が動くのではなく、画面が動くようにしています。
スピードはじわじわと速くなっていきます。左下の数字が得点です。
ゲームスタート直後は、障害物が密集して出ますので注意してください。（第一関門！）

1行プログラムで作ってみました。
プログラムを行に分けると、こんな感じです。

10 CLS:CLV:X=9
20 FOR I=0 TO 33
30 R=RND(12)
40 LC X,0:? "!! !!" ← !!と!!の間はスペース9個です
50 LC X+R,-S%3:? "*"
60 M=BTN(29)-BTN(28)
70 SCROLL 2+M+4*!M
80 SCROLL 2
90 LC 15,23:I=SCR():? CHR$(#F0,20);S;
100 BEEP 8+S%9
110 X=X+R/4-1-M
120 S=S+(I=32)
130 WAIT S/4-900 　←WAITにマイナスの値を指定するすることで、WAIT時間を細かく指定しています
140 NEXT

さらに分かりやすく書くとこんな感じになります。

10 CLS:CLV:X=9
30 R=RND(12)　← Rの値を設定しています
40 LOCATE X,0:PRINT "!! !!" ← !!と!!の間はスペース9個です
50 IF S%3=0 THEN LOCATE X+R,0:PRINT "*"　　←障害物の出現頻度を3回に1度にすることで、難しすぎないようにしています
60 M=BTN(29)-BTN(28)
70 IF M=-1 THEN SCROLL 1
75 IF M=1 THEN SCROLL 3
80 SCROLL 2
90 LOCATE 15,23:I=SCR(15,23):PRINT CHR$(#F0);
95 LOCATE 0,23:PRINT S;
100 BEEP 8+S%9
110 X=X+R/4-1-M 　←Rの値は0～11なので、R/4は0,1,2のいずれかになります
120 IF I=32 THEN S=S+1
130 WAIT S/4-900 　←WAITにマイナスの値を指定するすることで、WAIT時間を細かく指定しています
140 IF I<33 THEN GOTO 30　　←　行に分けた場合、FOR/NEXTである必要はないので、IFとGOTOに変更しています