ちがい探し・クリスマス編

★この記事は「IchigoJam Advent Calendar 2020」にエントリーしています。

以前作ったプログラムを、クリスマスバージョンにリメイクしました。ちがい探し、意外に難しいです(^_^)

遊び方

• 画面いっぱいに表示される文字で、1文字だけちがうものを見つけてください。矢印キーの上下左右でその文字へカーソルを合わせて、スペースキーを押します。
• 5問正解すると終了で、かかったタイム（秒数）が左下に表示されます。

プログラム

10 CLV:CLT
20 LET [2],"ｸ","ﾀ","ﾘ","ｿ","ｽ","ﾇ","ﾏ","ｱ","ｽ","ﾌ"
30 FOR L=1 TO 5
40 CLS:R=RND(736)
50 [0]=PEEK([L*2]):[1]=PEEK([L*2+1])
60 FOR I=0 TO 735
70 ?CHR$([I=R]);
80 NEXT
90 X=X-BTN(28)*(X>0)+BTN(29)*(X<31)
100 Y=Y-BTN(30)*(Y>0)+BTN(31)*(Y<22)
110 LC X,Y,1
120 WAIT 3
125 LC 0,23:?TICK()/60;
130 Z=X+Y*32
140 IF !BTN(32) OR Z!=R GOTO 90
150 BEEP
160 NEXT:?:CLK

IchigoJam web版はこちら。
web版は画面表示が遅いので、120行を「WAIT 1」にしています。

20行目が出題データで、奇数番目が通常文字、偶数番目が1文字だけちがう文字です。
クリスマスバージョンということで「クリスマス」の文字を出題しています。文字を変えれば出題が変わります。

ちなみにこちらがオリジナルバージョン。出題文字によってはかなり難しいです。

10 CLV:CLT
20 LET [2],"o","O","O","0",":",";","I","!","Y","V"
30 FOR L=1 TO 5
40 CLS:R=RND(736)
50 [0]=PEEK([L*2]):[1]=PEEK([L*2+1])
60 FOR I=0 TO 735
70 ?CHR$([I=R]);
80 NEXT
90 X=X-BTN(28)*(X>0)+BTN(29)*(X<31)
100 Y=Y-BTN(30)*(Y>0)+BTN(31)*(Y<22)
110 LC X,Y,1
120 WAIT 3
125 LC 0,23:?TICK()/60;
130 Z=X+Y*32
140 IF !BTN(32) OR Z!=R GOTO 90
150 BEEP
160 NEXT:?:CLK