シリアル版リーチゲーム

※この記事は「IchigoJam Advent Calendar 2019」に参加しています。

以前作った対戦ビンゴゲームのリメイクです。画面表示をシンプルにして、IchigoKamuyなどのシリアルモニタ画面でも遊べるようにしました。もちろん通常の液晶画面でも遊べます。
プログラムも圧縮して、何とか１ファイルに収めました。

（追記）IchigoKamuyとIJUtilitiesのシリアルモニタで遊んでみました。

遊び方

• CPUと対戦するビンゴゲームです。起動すると、5×5の自分のマス目が表示されます。CPU側のマス目は、対戦中は見られません。
• 自分のマス目の数字を1手ずつ入力して、「--」にして消していきます。逆にCPUが選んだ数字は、自分のマス目では「●●」になります。
• 「●●」が縦・横・斜めのどこか1列で4個揃ったら「リーチ」です。その場合は、相手はもう1回数字を消さないといけません。
• 「●●」が縦・横・斜めのどこか1列で5個揃ったら「ビンゴ」で、そのプレイヤーの勝ちです。CPU側のマス目も表示されて終了します。
• 消せない数字を入力すると再入力になります。また、リーチやビンゴは自動で判定されます。

容量が足りないのでCPU思考ルーチンはシンプルですが、かなり強いです。本気でかかってください。
（作者の私も、必死にプレイして勝率は五分五分です）

プログラム

1 CLV:CLS:FORG=0TO25STEP25
2 FORI=0TO24:[G+I]=I+1:NEXT
3 FORI=1TO200:A=RND(25):B=RND(25):C=[G+A]:[G+A]=[G+B]:[G+B]=C
4 NEXT:NEXT:G=0:GSB16
5 G=0:INPUT"N=?",N:GSB29:IF[A]<1CONT
6 [A]=0:GSB16
7 G=25:GSB29:[G+A]=-1:GSB19:IFQEND
8 IFRGOTO5
9 G=25:T=1:B=-1:W=20:FORA=0TO24:U=A%5:V=A/5
10 F=0:IF[G+A]>0GSB19:IFF<WW=F:B=A
11 NEXT:N=[G+B]:[G+B]=0:?"CPU=";N:T=0
12 G=0:GSB29:[A]=-1:GSB16
13 GSB19:IFQEND
14 IFRGOTO9
15 GOTO5
16 ?:I=G:FORY=0TO4:FORX=0TO4
17 IF![I]?"--";ELSEIF[I]=-1?CHR$(233,233);ELSE?DEC$([I],2);
18 ?" ";:I=I+1:NEXT:?:NEXT:?:RTN
19 R=0:Q=0:E=1:S=0:Y=V:FORX=0TO4:GSB33:NEXT:GSB24
20 E=1:S=0:X=U:FORY=0TO4:GSB33:NEXT:GSB24
21 IFU=VGSB31:GSB24
22 IFU+V=4GSB32:GSB24
23 RTN
24 F=F+S*E:IFS<4||Q||TRTN
25 BEEP:IF!G?"YOU ";ELSE?"CPU ";
26 IFS=5?"WIN!":?"(CPU)";:G=25:GSB16:Q=1:RTN
27 IF!R?"REACH!":R=1:WAIT60
28 RTN
29 FORI=0TO24:D=[G+I]:IFD=NU=I%5:V=I/5
30 NEXT:A=U+V*5:RTN
31 E=1:S=0:FORX=0TO4:Y=X:GSB33:NEXT:RTN
32 E=1:S=0:FORY=0TO4:X=4-Y:GSB33:NEXT:RTN
33 D=[G+X+Y*5]:IF!DE=0
34 S=S+(D=-1):RTN

リーチが複数重なった時に、おかしな表示になることがあります。が、もうコード容量が1Kバイト目一杯なので、これ以上直せません(^_^;)
リーチやビンゴのチェックルーチンを、CPUの思考でも共用しています。おかげでプログラムが1ファイルに収まりました。

web版

IchigoJam web版はこちら。
実行速度が遅いので、起動直後やCPUの手番で10秒くらい待たされます。