PK

本体ボタンが複数個ある IchigoJam 互換機が増えたため、

このボタンを使用したゲームを検討したところ、

ちょうど FIFA ワールドカップが開催されたばかりで、

サッカーを作ろうとも考えていたので、

PK（ペナルティーキック）を作ってみました。

IchigoJam がゴールキーパーです。

ゴールの左右どちらかへ蹴り、ゴールして下さい。

キーボードの矢印 ← → で左右へ蹴ります。

また一部 IchigoJam 互換機ではボタンも使用可能です。
BTN が左、IN1 が右へ蹴ります。

SkyBerryJAM - 手前ボタン BTN＝左 / TSW1＝右
KumaJam - くまモンの頭を手前にして左右ボタン

ループになっているので、Esc キーで止めた後、

文字が大きいままなので、

VIDEO 1（F8 キー）で元の大きさへ戻して下さい。

SkyBerryJAM は BTN で左、TSW1・IN1 で右

KumaJam はくまモンの頭を手前にして左右ボタン

IchigoJam は通常 IN(1) で 1 を返しますが、IN 端子が存在しない IchigoJam web は IN(1) で 0 を返します。
そのままだと意図しない動作をします。次の行を変更し、キーボード操作のみにして下さい。

70 K=INKEY():L=(K=28)
80 R=(K=29)

下のリンク「IchigoJam web で実行」ではこの行を変更済みです。

10 'PK
20 VIDEO 5:CLS:CLV:CLP
30 ?CHR$(0,#88,#8C,#8C,#8C,#84)
40 ?CHR$(0,#8A,3,#F9,3,#85)
50 LC 2,4:?CHR$(#E0,#6F,#E1)
60 C=RND(2)
70 K=INKEY():L=(K=28)+BTN()
80 R=(K=29)+(1-IN(1))
90 IF L+R<>1 GOTO 70
100 LC 2,4:?CHR$(0,0,0)
110 FOR Y=3 TO 2 STEP -1
120 IF Y=3 X=3 ELSE X=2+R*2
130 LC X,Y:?"o";:WAIT 5
140 ?CHR$(#1C,0):NEXT
150 LC 2,1:IF C=1 GOTO 170
160 ?CHR$(#FD,3,3):GOTO 180
170 ?CHR$(3,3,#FB)
180 G=0:IF C=1 AND L=1 G=1
190 IF C=0 AND R=1 G=1
200 LC 2+R*2,2-G:?"o"
210 IF G=0 GOTO 230
220 LC 1,3:?"GOAL!"
230 WAIT 180:GOTO 20

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。