FacebookのIchigoJam-FANグループで「100m競歩」を作った人がいました。面白そうなので、私も簡単なプログラムを作ってみました。
遊び方
- 実行するとすぐにスタートです。カーソルキー「←」が左足、「→」が右足です。まず左右同時に押してから、右・左・右・左…の順に押して歩いてください。
- 左右両方の足が空中に浮いてしまう(=両方のキーを放してしまう)と、ペナルティで一歩戻されます。必ず左右どちらかの足が地面に着いている(=左右どちらかのキーが押されている)状態で歩いてください。
- 100mのゴールラインに辿りつくと、タイムが表示されて終了します。
プログラム
10 CLV:VIDEO 3:CLS:LC 100:?"|" 20 LC 0:?CHR$(251);:CLT 30 L=K 40 [0]=BTN(29):[1]=BTN(28):K=[0]+[1]*2 50 IF K=L GOTO 30 60 IF !K Z=Z-1:?CHR$(8,8,251);:GOTO 30 70 IF L=3 && [S] Z=Z+1:?CHR$(8,46,251);:S=1-S 80 IF Z<100 GOTO 30 90 T=TICK() 100 ?T/60;".";T%60/6 110 BEEP 10,30