リアルタイム・タイピングゲーム

アルファベットが落ちてくるリアルタイムなタイピングゲームを、福野さんがつくっていました。
子ども向け教室で使うことを考えて、なるべくコードを短くする方向で改造してみました。

• アルファベットが左から右へ進みます。右端へ行くまでにタイプしてください。
• 1回ミスするとゲームオーバーです。キビしいです(^_^;)

プログラムリスト

Web版だとこのくらいのスピードでいいのですが、IchigoJam実機では60行のWAITを「WAIT 40-S/50」と倍くらいに変えた方がいいかもしれません。

10 CLV
20 C=65+RND(26):X=0
30 CLS:?S
40 ?CHR$(C);
50 IF INKEY()=C BEEP:S=S+32-X:GOTO 20
60 WAIT 20-S/50
70 X=X+1
80 IF X<32 GOTO 40
90 BEEP 30,30
100 ?"GAME OVER"

Web版はこちら。