SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

110mハードル

FacebookIchigoJam-FANグループで、昔のハードルゲームの話題を出していた人がいたので、IchigoJamで簡単に作ってみました。

  • 実行するとすぐにスタートです。ハードルの間(インターバル)はスペースキーを連打して走り、ハードルは上矢印キー(↑)で飛び越えてください。
  • ハードルは「0」から「9」まであります。9番ハードルを飛び越えたら、ゴール「G」に向かって走ってください。ゴールインすると終了で、タイムは画面左上に表示されます。
  • 「スペースキーと↑を両方連打すればいいんじゃね?」と思うかもしれませんが、インターバルで↑を押した場合や、ハードルに当たっているのにスペースキーを押した場合は、ペナルティーとしてタイムが1回当たり0.1秒加算されます。スペースキー×10回・↑×1回のペースを守って走ってください。

プログラム

10 '*110m Hurdles
20 CLV:VIDEO 3:CLS
30 LC 0,11:?CHR$(251);:CLT
40 FOR H=0 TO 9
50 LC 10,11:?H;
60 FOR R=1 TO 9
70 K=32:L=30:GSB 160
80 NEXT
90 K=30:L=32:GSB 160:BEEP
100 NEXT
110 LC 10,11:?"G";
120 FOR R=1 TO 10
130 K=32:L=30:GSB 160
140 NEXT
150 BEEP 10,30:CLK:END
160 IF !BTN(K) CONT
170 IF BTN(K) CONT
180 IF BTN(L) M=M+1
190 SCROLL 3
200 LC 0,11-(K=30):?CHR$(251);
210 T=TICK()/6+M
220 LC 0,0:?T/10;".";T%10
230 RTN