はじめに

スペースキー連打でキャラクターが走る IchigoJam BASIC を使ったゲームです。
IchigoJam を複数台ジャンパー線で繋げばリレー形式にもできてしまいます。
シンプルなだけに、大人も子どもも本気になれる。ちょっとしたワークショップにいかがでしょうか。

必要なもの

IchigoJam （リレーをするなら複数台必要）
キーボード／モニター等一式
ジャンパー線 (IchigoJamを4台つなぐなら8本　GND-GND, IN1-OUT1を接続)

シングルダッシュ

5 ' DASH GAME SINGLE
10 CLS:CLT:C=0:P=0
20 LC 31,11:?CHR$(#FF)
30 'IF IN(1)=0 GOTO 30 ELSE CLT:LED1
40 GSB@DISPRUNNER
50 GSB@DISPTIME
60 IF !BTN(32) GSB180:CONT
70 IF BTN(32) GSB180:CONT
80 C=C+1:P=C/2
90 IF !SCR(P+2,11) GOTO40
100 GSB@DISPRUNNER
110 LC 12,11:?"!!GOAL!!":CLK
120 OUT1,1:WAIT5:OUT0
130 END
140 @DISPRUNNER
150   LC P,11:?" ";CHR$(#FB)
160 RTN
170 @DISPTIME
180  T=TICK()
190  LC0,0:?"TIME:";T/60;".";T%60/6
200 RTN

シングルプレイは下記からWebブラウザでも遊べます。
http://ur0.work/Xz1S
RUN もしくは F5キーでゲームスタート。

マルチダッシュ（リレー）

第一走者

5 ' RELAY DASH GAME FOR START
10 CLS:CLT:C=0:P=0
20 LC 31,11:?CHR$(#FF)
40 GSB@DISPRUNNER
50 GSB@DISPTIME
60 IF !BTN(32) GSB180:CONT
70 IF BTN(32) GSB180:CONT
80 C=C+1:P=C/2
90 IF !SCR(P+2,11) GOTO40
100 GSB@DISPRUNNER
110 LC 12,11:?"!!GOAL!!":CLK
120 OUT1,1:WAIT5:OUT0
130 IF IN(1)=0 GSB@DISPTIME:GOTO130 ELSE END
140 @DISPRUNNER
150   LC P,11:?" ";CHR$(#FB)
160 RTN
170 @DISPTIME
180  T=TICK()
190  LC0,0:?"TIME:";T/60;".";T%60/6
200 RTN

LINE130で第一走者は他のIchigoJamgのプレイヤーがゴールし一周するまで合計タイムをカウントしたまま待つ
最後のIchigoJamのプレイヤーがゴールするとIN1への入力が発生しチームとしてゴールとなる

その他の走者

5 ' RELAY DASH GAME FOR OTHER
10 CLS:CLT:C=0:P=0
20 LC 31,11:?CHR$(#FF)
30 IF IN(1)=0 GOTO 30 ELSE CLT:LED1
40 GSB@DISPRUNNER
50 GSB@DISPTIME
60 IF !BTN(32) GSB180:CONT
70 IF BTN(32) GSB180:CONT
80 C=C+1:P=C/2
90 IF !SCR(P+2,11) GOTO40
100 GSB@DISPRUNNER
110 LC 12,11:?"!!GOAL!!":CLK
120 OUT1,1:WAIT5:OUT0
130 END
140 @DISPRUNNER
150   LC P,11:?" ";CHR$(#FB)
160 RTN
170 @DISPTIME
180  T=TICK()
190  LC0,0:?"TIME:";T/60;".";T%60/6
200 RTN

LINE30でIN1の入力待ち（スタート待ち）
接続されている隣のIchigoJamのプレイヤーがゴールするとIN1への入力が発生しスタートとなる

こどもたちとのワークショップ

夏にこどもたちと一緒にやったらこうなりました。熱くて楽しい。
https://www.facebook.com/pcn.takefu/videos/1081691295368381