三目覚え(Memorize three) 📖

6つ前が消える3目並べ

プログラム: (→大)
画像=[] 位置=[] LL＝0 カウント＝0 残数覚＝[] 画像白=「https://n3s.nadesi.com/image.php?f=391.png」 画像青=「https://n3s.nadesi.com/image.php?f=392.png」 画像赤=「https://n3s.nadesi.com/image.php?f=393.png」 Nを１から3まで繰り返す 　Mを1から3まで繰り返す 　　L＝N*10+M 　　位置[L]=0 　ここまで。 ここまで。 ボタン描画。 描画中キャンバスをマウス押した時には 　位置X=INT(マウスX÷100)+1 　位置Y=INT(マウスY÷100)+1 　LL=位置Y*10+位置X 　ボタン変更。 ここまで。 ●ボタン変更とは 　もし位置[LL]＝0ならば 　　カウント＝カウント+1 　　もしカウント＞6ならばカウント＝1 　　もしカウントが奇数ならば位置[LL]=1 　　もしカウントが偶数ならば位置[LL]=4 　　LLL＝残数覚え[カウント] 　　位置[LLL]＝0 　　残数覚え[カウント]＝LL 　ここまで。 　ボタン描画。 ここまで。 ●ボタン描画とは 　Nを１から3まで繰り返す 　　Mを1から3まで繰り返す 　　　L＝N*10+M 　　　もし位置[L]=0ならば画像[L]=画像白 　　　もし位置[L]=1ならば画像[L]=画像青 　　　もし位置[L]=4ならば画像[L]=画像赤 　　ここまで。 　ここまで。 　画像[11]を[0，0，100，100]へ画像描画 　画像[12]を[100，0，100，100]へ画像描画 　画像[13]を[200，0，100，100]へ画像描画 　画像[21]を[0，100，100，100]へ画像描画 　画像[22]を[100，100，100，100]へ画像描画 　画像[23]を[200，100，100，100]へ画像描画 　画像[31]を[0，200，100，100]へ画像描画 　画像[32]を[100，200，100，100]へ画像描画 　画像[33]を[200，200，100，100]へ画像描画 　終了判定。 ここまで。 ●終了判定 　判定＝0 　判定＝位置[11]+位置[12]+位置[13] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　判定＝0 　判定＝位置[21]+位置[22]+位置[23] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　判定＝0 　判定＝位置[31]+位置[32]+位置[33] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　判定＝0 　判定＝位置[11]+位置[21]+位置[31] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　判定＝0 　判定＝位置[12]+位置[22]+位置[32] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　判定＝0 　判定＝位置[13]+位置[23]+位置[33] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　判定＝0 　判定＝位置[11]+位置[22]+位置[33] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　判定＝0 　判定＝位置[13]+位置[22]+位置[31] 　もし判定＝3ならば勝敗＝1 　もし判定＝12ならば勝敗＝4 　もし勝敗＝1ならば「青の勝ち」と表示。 　もし勝敗＝4ならば「赤の勝ち」と表示。 ここまで。