今日は12月22日。
同じ「2」という数字が3個ある。
というわけで、IchigoJam で「3個ゲーム」を作ってみた。

※IchigoJamはjig.jpの登録商標です。

ルール

3×3に並んだ絵の中から、1種類だけ3個あるものを素早く選ぼう！
30秒間で何回選べるかな？
間違った絵を選ぶと減点だよ！

操作方法

• 1～9：絵を選ぶ
• Enter：スタート / リトライ

絵とキーの関係は、以下のようになっている。
3個ある絵なら、3個のうちどれを選んでもよい。

プログラム

10 ' 3ｺ ｹﾞｰﾑ
20 LET[9],#EB,#EC,#F1,#FF:CLP:VIDEO5:CLS
30 LOCATE0,1:?"3ｺ ｹﾞｰﾑ":LOCATE0,3:?"ｴﾝﾀｰ ﾃﾞ":LOCATE3,4:?"ｽﾀｰﾄ"
40 IFINKEY()<>10GOTO40
50 CLS:FORI=3TO1STEP-1:LOCATE3,3:?I:WAIT60:NEXT:S=0:V=0:CLS:CLT
60 LOCATE3,0:?DEC$(S,5):FORI=0TO7:[I]=[I/2+9]:NEXT:A=[RND(4)+9]:[8]=A
70 FORI=0TO7:C=RND(9-I):B=[I]:[I]=[C]:[C]=B:NEXT
80 FORI=0TO2:LOCATE2,4-I:?CHR$([I*3],[I*3+1],[I*3+2]):NEXT
90 T=TICK():U=30-T/60:IFU<>VLOCATE0,0:?DEC$(U,2):V=U
100 IFT>=1800GOTO130
110 K=INKEY():IFK<49OR57<KGOTO90
120 IF[K-49]=AS=S+1:GOTO60:ELSEBEEP:S=S-1:LOCATE3,0:?DEC$(S,5):GOTO90
130 LOCATE2,2:?"   ":LOCATE0,3:?"ｴﾝﾀｰ ﾃﾞ":LOCATE2,4:?" ﾘﾄﾗｲ"
140 IFINKEY()<>10GOTO140
150 GOTO50

• OneFiveCrowd で実行 (高速、非公式)
• IchigoJam web で実行 (公式、低速)

スクリーンショット

タイトル画面。

ゲーム中の画面。
左上に残り時間が、右上に現在のスコアが表示されている。

結果画面。

解説

• 10行目：FILES 対応のタイトル
• 20行目
  • 出現させる絵 (キャラクターコード) を用意する
  • キャラクターコードに対応するパターンを標準のものにする
  • 画面表示の設定を行う
  • 画面を初期化する
• 30行目：タイトル画面を描画する
• 40行目：Enter キーが押されるまで待機する
• 50行目：カウントダウンを行った後、スコア・タイムを初期化してゲームを開始する
• 60～80行目：出題処理
  • 60行目
    • スコアの表示を更新する
    • 3個出す絵をランダムに選ぶ
    • それぞれの絵を用意する
  • 70行目：絵の配置をシャッフルする
  • 80行目：絵を画面に表示する
• 90行目：残り時間の表示を更新するべきなら、更新する
• 100行目：制限時間が過ぎたら、結果画面に遷移する
• 110行目：キー入力を受け付ける
• 120行目
  • 入力されたキーが正解ならスコアを加算し、次の出題を行う
  • 入力されたキーが不正解ならスコアを減算し、表示の更新を行う
• 130行目：結果画面を描画する
• 140行目：Enter キーが押されるまで待機する
• 150行目：新しいゲームを開始する (リトライ)