あなたが選んだものを当てるゲーム by 最上（もがみ）

# -----------------------------------
# --- あなたが選んだものを当てるゲーム　version3.0
# --- あなたが心の中でえらんだ虫や動物の名前（選択肢あり）を
# --- いくつかの質問を通してずばり当てちゃいます。
# --- 外出先での時間つぶし等にご利用ください
# --- version1.0の虫編に、動物編を追加しました。
# --- version3.0：たべもの編を追加しました。
# -----------------------------------
# --- 「木構造」の仕組みを利用しています。
# --- 2020年3月発行「小学一年生4月号」、および2019年3月発行「小学一年生4月号」
# --- コんガらガっち　いぐらの月刊とにかくやってみそ！４
# --- 2021年1月発行「小学一年生2月号」
# --- コんガらガっち　いぐらの月刊とにかくやってみそ！２
# --- の問題をプログラムで再現しました
# -----------------------------------
# --- 日本にいる一般的な虫の、成虫の生態で質問の答えを振り分けています
# --- 虫には多くの種類があり、一部例外も存在します
# -----------------------------------
#１．その虫、名まえに「むし」ってつくな？
#　はい:かぶとむし、てんとうむし、だんごむし          　->２へ
#　いいえ：あり、ちょう、くも、とんぼ、かまきりみつばち ->３へ
#２．その虫、つんつんしてみろ。どうなる？
#　まるくなる：だんごむし（終）
#　まるくならない：かぶとむし、てんとうむし  ->４へ
#３．その虫の中に、「す」をつくるやつ、いるな？
#　いる：くも、みつばち、あり        ->５へ
#　いない：とんぼ、ちょう、かまきり　->６へ
#４．その虫、つのあるでしょ？ 
#　ある：かぶとむし（終）
#　ない：てんとうむし（終）
#５．その虫、なかまたくさんとくらすな？ 
#　はい：みつばち、あり　　　　　->７へ
#　だいたいひとりぐらし：くも（終）
#６．その虫もつとき、どこもつ？
#　はね：ちょう、とんぼ　　　　->８へ
#　くびっぽいところ：かまきり（終）
#７．その虫があつめてできたあまーいたべもの、おみせでうってるよな？
#　うってる：みつばち（終）
#　うってない：あり（終）
#８．その虫、子どものとき水の中にいるな？
#　いる：とんぼ（終）
#　いないでしょ：ちょう（終）


// 初期値
currentQ=0 //現在の質問番号
定数 Q=0
定数 A=1
strPos = [10, 10+20]
buttonLeft=[10,200,280, 40]
buttonRight=[10,250,280,40]
問題種別=["", "虫", "どうぶつ","たべもの"]
こたえ付属=[["", "だろ！"],
　　　　["ずばり、","！"],
　　　　["", "だな！"],
　　　　["","でしょ！"],
　　　　["","だよね！"],
　　　　["さては","だね！"],
　　　　]
flgSelect = 0


//          番号：質問/答え識別、文章　選択肢１と次の質問番号、選択肢２と次の質問番号
treeMUSI={  "0":[ Q, "この中から,好きな虫を　ひとつえらんで！, , あり　　とんぼ　　くも, , ちょう　　かぶとむし　,, てんとうむし　　みつばち　,, だんごむし　　かまきり",
                                                                                  "", -1,                     "　　　 すすむ　 　　", 1, "https://n3s.nadesi.com/image.php?f=67.png"],
            "1":[ Q, "その虫、名まえに,「むし」って　つく？",                     "　　　　はい　　　　", 2,  "　　　 いいえ　　 　", 3, ""],
            "2":[ Q, "その虫、つんつんしてみたら,どうなる？",                     "　　 まるくなる　　 ", 9,  "　 まるくならない 　", 4, ""],
            "3":[ Q, "その虫の中に、,「す」をつくるやつ　いる？",                 "　　　　いる　　　　", 5,  "　　　 いない　 　　", 6, ""],
            "4":[ Q, "その虫、,つの　あるでしょ？",                               "　　　　ある　　　　", 10, "　　　　ない　　　　", 11, ""],
            "5":[ Q, "その虫、なかま,たくさんと　くらしてる？",                   "　　　　はい　　　　", 7,  "だいたいひとりぐらし", 12, ""],
            "6":[ Q, "その虫 もつとき、,どこをもつ？",                                "　　　　はね　　　　", 8,  "　くびっぽいところ　", 13, ""],
            "7":[ Q, "その虫があつめた、,あまーいたべもの　,おみせでうってる？","　　 うってる！ 　　", 14, "　　うってない！　　", 15, ""],
            "8":[ Q, "その虫、子どものとき,水の中にいる？",                       "　　　 いる！　 　　", 16, "　　いないでしょ　　", 17, ""],
            "9":[  A, "だんごむし", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=75.png"],
            "10":[ A, "かぶとむし", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=83.png"],
            "11":[ A, "てんとうむし", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=73.png"],
            "12":[ A, "くも", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=79.png"],
            "13":[ A, "かまきり", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=82.png"],
            "14":[ A, "みつばち", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=69.png"],
            "15":[ A, "あり", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=85.png"],
            "16":[ A, "とんぼ", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=72.png"],
            "17":[ A, "ちょう", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=74.png"],
}
treeDOUBUTU={"0":[ Q, "この中から　好きなどうぶつ ,ひとつえらんでね！, , かめ　　ぞう　　ぱんだ, , かば　　ぺんぎん　,, ふらみんご　　さい　,, きりん　　しまうま",
                                                                                    "", -1,                     "　　　 すすむ　 　　", 1, "https://n3s.nadesi.com/image.php?f=67.png"],
            "1":[ Q, "そのどうぶつ、,４本あし？",                           "　　　　はい　　　　", 2,  "　　　 いいえ　  ", 3, ""],
            "2":[ Q, "そのどうぶつのいろ、,しろくろ？",                     "　なんでしってる…？ ", 4,  " いや、ちがうけど", 5, ""],
            "3":[ Q, "そのどうぶつ、,空をとべる？",                         "　　　　はい　　　　", 16, "　　　 いいえ　 ", 17, ""],
            "4":[ Q, "そのどうぶつの名まえ、,３文字でしょ？",               "　　そ、そのとおり　", 9,  "　　　ちがうよ　　", 10, ""],
            "5":[ Q, "そのどうぶつ、からだに,すごーくながいところが,ある？","　　　あるある　　　", 6,  "　　とくに　ない", 7, ""],
            "6":[ Q, "そのどうぶつ、,もようはある？",                       "　　　　ある　　　　", 11, "　　　　ない　", 12, ""],
            "7":[ Q, "そのどうぶつ、,つのはある？",                         "　　 　 ある　　    ", 13, "　　　　ない　　", 8, ""],
            "8":[ Q, "そのどうぶつ、,大きな口をあける？",                   "　　　 あける　 　　", 14, " そんなに大きくない ", 15, ""],
            "9":[  A, "ぱんだ", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=71.png"],
            "10":[ A, "しまうま", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=77.png"],
            "11":[ A, "きりん", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=80.png"],
            "12":[ A, "ぞう", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=76.png"],
            "13":[ A, "さい", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=78.png"],
            "14":[ A, "かば", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=84.png"],
            "15":[ A, "かめ", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=81.png"],
            "16":[ A, "ふらみんご", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=70.png"],
            "17":[ A, "ぺんぎん", "", -1, "", -1, "https://n3s.nadesi.com/image.php?f=68.png"],
}

treeFOODS={"0":[ Q, "この中から　たべたいもの ,ひとつえらんでね！, , おにぎり　アイス　おそば, ,　　やきいも　ラーメン　,, わたあめ　せんべい,, 　　ケーキ　　ドーナツ",
                                                                                    "", -1,                     "　　　 すすむ　 　　", 1, "https://n3s.nadesi.com/image.php?f=67.png"],
            "1":[ Q, "そのたべもの、,たまにのりついてる？",         "　　　　はい　　　　", 2,  "　　　 いいえ　　  ",5, ""],
            "2":[ Q, "そのたべもの、,てづかみで　たべるよね？",     "　　　　はい   　   ", 3,  " 　 おはし　つかう ", 4, ""],
            "3":[ Q, "それ　たべるとき、,うるさいよね？",           "   そういわれれば   ", 9,  " 　 うるさくない   ", 10, ""],
            "4":[ Q, "それついてるのり、,こまかいでしょ？",         "      こまかい      ", 11, "  　 そうでもない  ", 12, ""],
            "5":[ Q, "そのたべもの、ぼうに,ささってることが,ある？","　　　あるある　　　", 6,  "　　　ないない     ", 7, ""],
            "6":[ Q, "そのたべもの、,ひえひえ？",                   "      ひえひえ      ", 13, "　 そんなことない  ", 14, ""],
            "7":[ Q, "そのたべもの、,あなあいてる？",               "　　  あいてる      ", 15, " 　　 あいてない   ", 8, ""],
            "8":[ Q, "そのたべもの、,いちごがのってるやつ,ある？",  "　　　あるある  　", 16,   "   　 ありえない   ", 17, ""],
            "9":[  A, "せんべい", "", -1, "", -1, ""],
            "10":[ A, "おにぎり", "", -1, "", -1, ""],
            "11":[ A, "おそば", "", -1, "", -1, ""],
            "12":[ A, "ラーメン", "", -1, "", -1, ""],
            "13":[ A, "アイス", "", -1, "", -1, ""],
            "14":[ A, "わたあめ", "", -1, "", -1, ""],
            "15":[ A, "ドーナツ", "", -1, "", -1, ""],
            "16":[ A, "ケーキ", "", -1, "", -1, ""],
            "17":[ A, "やきいも", "", -1, "", -1, ""],
}

treeTARGET = {}

// GUI
flgSelect = 0 // ゲーム開始前
全描画クリア。
「20px sans-serif」に描画フォント設定
        黒色に塗色設定
[strPos[0], strPos[1]]へ"下のボタンを"を文字描画
[strPos[0], strPos[1]+20]へ"ひとつえらんで"を文字描画
[strPos[0], strPos[1]+20*2]へ"おしてね"を文字描画

「　　 虫へん   　」のボタン作成して、虫ボタンに代入。改行作成。
虫ボタンに｛
    「width」:「300px」、
    ｝をDOMスタイル一括設定
「　どうぶつへん　」のボタン作成して、動物ボタンに代入。改行作成。
動物ボタンに｛
    「width」:「300px」、
    ｝をDOMスタイル一括設定
「　たべものへん　」のボタン作成して、食物ボタンに代入。改行作成。
食物ボタンに｛
    「width」:「300px」、
    ｝をDOMスタイル一括設定

虫ボタンをクリックした時には
    flgSelect = 1 // ゲーム開始
    treeTARGET = {}
    treeTARGET = treeMUSI
    currentQ = 0
    パネル描画(currentQ)
ここまで

動物ボタンをクリックした時には
    flgSelect = 2 // ゲーム開始
    treeTARGET = {}
    treeTARGET = treeDOUBUTU
    currentQ = 0
    パネル描画(currentQ)
ここまで

食物ボタンをクリックした時には
    flgSelect = 3 // ゲーム開始
    treeTARGET = {}
    treeTARGET = treeFOODS
    currentQ = 0
    パネル描画(currentQ)
ここまで

# --- パネルクリックイベント
描画中キャンバスをマウス押した時には
    もし、flgSelect = 0ならば
        戻す
    ここまで
    
    選択肢チェック(マウスX,マウスY, currentQ)
    ans = それ
    もし、(ans=-1)でなければ
        currentQ=ans
        パネル描画(currentQ)
    ここまで
    
ここまで。

// 質問と選択肢、または答えを描画
●パネル描画(PRM)
    全描画クリア。
    
    flg = treeTARGET[PRM][0]
    str = treeTARGET[PRM][1]を「,」で区切る。
    num = strの配列要素数
    
    img = treeTARGET[PRM][6]
    もし、(img="")でなければ
            imgを[0,0]に画像描画。
    ここまで
        
    もし、flg=Qならば
        // 質問と選択肢描画
        「20px sans-serif」に描画フォント設定
        黒色に塗色設定
        Nを0から(num-1)まで繰り返す
            [strPos[0], strPos[1]+20*N]へstr[N]を文字描画
        ここまで
        
        ansLeft = treeTARGET[PRM][2] // 文字列
        flgLeft = treeTARGET[PRM][3] 
        ansRight = treeTARGET[PRM][4]
        flgRight = treeTARGET[PRM][5]
        
        もし、(flgLeft=-1)でなければ
            "#00008b"に線色設定
            "#00008b"に塗色設定
            buttonLeftへ四角描画
            白色に塗色設定
            「20px sans-serif」に描画フォント設定
            [buttonLeft[0]+40, buttonLeft[1]+30*1]へansLeftを文字描画
        ここまで
        もし、(flgRight=-1)でなければ
            "#00008b"に線色設定
            "#00008b"に塗色設定
            buttonRightへ四角描画
            白色に塗色設定
            「20px sans-serif」に描画フォント設定
            [buttonRight[0]+40, buttonRight[1]+30*1]へansRightを文字描画
        ここまで
        
    違えば
        // 答えを描画
        ans=（６の乱数）
        「20px sans-serif」に描画フォント設定
        黒色に塗色設定
        
        [strPos[0], strPos[1]+20*1]へ「きみが　えらんだ　{問題種別[flgSelect]}、」を文字描画
        [strPos[0], strPos[1]+20*3]へこたえ付属[ans][0]を文字描画
        
        「30px sans-serif」に描画フォント設定
        赤色に塗色設定
        [strPos[0], strPos[1]+20*5]へstr[0]を文字描画
        
        「20px sans-serif」に描画フォント設定
        黒色に塗色設定
        [strPos[0]+200, strPos[1]+20*5]へこたえ付属[ans][1]を文字描画
    ここまで
    
ここまで

// 選択肢ボタンがクリックされたかチェックする
●選択肢チェック(mX,mY, idxQ)
    rtn=-1
    bLeft = treeTARGET[idxQ][3]
    bRight = treeTARGET[idxQ][5]
    もし、(bLeft=-1)でなければ
        x1=buttonLeft[0]
        y1=buttonLeft[1]
        x2=x1+buttonLeft[2]
        y2=y1+buttonLeft[3]

        もし、mX≧x1ならば
           もし、mY≧y1ならば
                もし、mX≦x2ならば
                    もし、mY≦y2ならば
                        bLeftを戻す
                    ここまで
                ここまで
            ここまで
        ここまで
    ここまで
    もし、(bRight=-1)でなければ
        x1=buttonRight[0]
        y1=buttonRight[1]
        x2=x1+buttonRight[2]
        y2=y1+buttonRight[3]

        もし、mX≧x1ならば
           もし、mY≧y1ならば
                もし、mX≦x2ならば
                    もし、mY≦y2ならば
                        bRightを戻す
                    ここまで
                ここまで
            ここまで
        ここまで
    ここまで
    rtnを戻す。
ここまで