チンチロリン １

・条件分岐

サイコロを使ったかんたんなゲーム、「チンチロリン」を作ってみよう。
まずはサイコロを３個ふる。3個のサイコロはそれぞれ、A、B、Cとする。

A=RND(6)+1
B=RND(6)+1
C=RND(6)+1
PRINT A;" ";B;" "C

これで3個のサイコロの出目が表示される。 つぎにこの出目がどのような役なのかを判定しなければならない。
もっとも単純なのはIF文でゴリ押する方法だろう。たとえば、

IF A=="■" AND B=="■" AND C=="■" THEN ～

という命令文（■には数字がはいる）を６×６×６＝１８６行くりかえせばいい。
あるいは、

D=A*100+B*10+C

と3個の出目を3ケタの数字におきかえて、READ文を使って判定させる方法もあるだろう。だが、もっと楽なやりかたはないだろうか。それが今回のテーマ、「条件分岐」である。

まず、3個の目のでかたのうち、もっとも特殊な「ゾロ目」について判定する。

IF A==B AND A==C THEN PRINT "ｿﾞﾛﾒ":END

命令文の最後にENDをつけたのは、これ以降の判定をしないため。GOTO～におきかえてもよい。つぎに3個のうち2個が同じ場合を判定する。

IF A==B THEN PRINT "ﾃﾞﾒ = ";C:END
IF A==C THEN PRINT "ﾃﾞﾒ = ";B:END
IF B==C THEN PRINT "ﾃﾞﾒ = ";A:END

AとBがそろった場合Cが出目、AとCがそろった場合Bが出目、BとCがそろった場合Aが出目になる。たとえば、４、４、２と出た場合、２が出目となる。４、４、４の場合はすでに先の分岐ではじかれているので、この分岐にはこない。４、４、４はゾロ目として判定され、出目４とは判定されない。

つぎに「４５６」について判定する。これは、２×２×２＝８パターンしかないため、力押し、つまりIF文を８行書いてもよいだろう。
だがもっと楽な方法がある。

IF A+B+C==15 THEN PRINT "ｼｺﾞﾛ":END

すでに、５、５，５のパターン、６、６、３のパターンは先の分岐ではじかれているため、この分岐にはこない。したがってこの分岐で合計数が１５になるのは、４＋５＋６のパターンしかない。同様に「１２３」については、

IF A+B+C==6 THEN PRINT "ﾋﾌﾐ":END

で判定できる。さて、ここまでの分岐ではじかれていない目については「出目なし」と判定することができる。

PRINT "ﾒﾅｼ" :END

これですべての目の出方について判定することができた。ただし、「チンチロリン」は目が出ない場合、３回までサイコロをふることができる。そこでサイコロをふる回数を変数FURUに代し、このようにプログラムを組んでみた

FURU=0
@SAIOFURU
IF FURU==3 THEN PRINT "ﾒﾅｼ":END
A=RND(6)+1
B=RND(6)+1
C=RND(6)+1
PRINT A;" ";B;" "C
IF A==B AND A==C THEN PRINT "ｿﾞﾛﾒ":END
IF A==B THEN PRINT "ﾃﾞﾒ = ";C:END
IF A==C THEN PRINT "ﾃﾞﾒ = ";B:END
IF B==C THEN PRINT "ﾃﾞﾒ = ";A:END
IF A+B+C==15 THEN PRINT "ｼｺﾞﾛ":END
IF A+B+C==6 THEN PRINT "ﾋﾌﾐ":END
FURU=FURU+1:GOTO @SAIOFURU



ダイレクトモードにして、

RUN　（エンター）

で起動する。2回目からは、十字キー上、Ⓐボタンで起動する。
音は、♪チンチロリンではなく、♪ピコピコだ。