Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/07/08 19:18:54

MixJuice GET URL : kidspod.club/mj/870

30m走

オジデン フットスイッチ SP形 多機能形 を使った、連打型ゲームです。
30連打する速度を計測します。
~FB は ALT+Rで入力する"人"です。

フットスイッチを押すと、ポ ポ ポ ポーン でスタート
ポーンが鳴っているときに連打を初めます。
ゴールした後で、IchigoJamのボタンを押すと再スタートします。

フットスイッチがちょっと固めなので、中のバネを改造して軽くするといいかも。
連打回路を組み込むチートは禁止。
IN(1)の値に関係なく進めたときのタイムが理論上の最速記録になります。
なのでBASICは1.3.1へのアップグレードを推奨。

フットスイッチなので多少手荒に叩いても壊れませんが、ケーブルの長さを利用して、IchigoJamとは別のテーブルに載せた方が安全です。

どんなに素早く叩いてもキャラはワープしませんwwww

  • 1
  • 2
  • 3
  • 1
  • 2
  • 3

SOURCE CODE

10 '30mRUN
20 @TOP:LED1
30 CLS:X=0
40 LC10,3:?"30mRUN"
50 LC30,9:?"|"
60 LC30,10:?"|"
70 LC30,11:?"|"
80 LCX,9:?" |"
90 LCX,10:?"~FB|"
100 LCX,11:?" |"
110 IFIN(1)CONT:ELSELED0
120 PLAY"<C8":WAIT 60
130 PLAY"<C8":WAIT 60
140 PLAY"<C8":WAIT 60
150 PLAY"<<C2":LED1
160 CLT
170 @LP
180 IFIN(1)CONT
190 LCX,10:?".~FB":LED0
200 IF!IN(1)CONT
210 X=X+1:LED1
220 LC10,5
230 IFX<10?" ";X;ELSE?X;
240 ?"m ";
250 T=TICK():S=T%60*5/3
260 ?T/60;".";
270 IFS<10?"0";S;ELSE?S;
280 ?"sec"
290 IF!SOUND()BEEP
300 IFX<30GOTO@LP
310 LED0:PLAY"T300L16<CEG<C4"
320 IF!BTN():CONT:ELSEGOTO@TOP

COMMENT