プロデルで15パズルを作る

メイン画面を表示する
待機する

メイン画面とは
    ウィンドウを継承する
    +マス数=4
    +盤面={}
    +駒一覧={}
    +シャッフル回数=20
    はじめの手順
        初期化する
        ーー貼り付けた部品に対する操作をここに書きます
        マスサイズは、320/マス数
        (マス数*マス数-1)回数にカウントして繰り返す
            N=数-1
            X=N%マス数
            Y=((N-N%マス数)/マス数)
            キャンバス1へ子キャンバスを作って駒とする
            　　その位置と大きさは｛20+X*マスサイズ,20+Y*マスサイズ,マスサイズ,マスサイズ｝
            　　その線色は、黒
            　　そのクリックされた時の手順は、駒クリック
            　　駒に数という文字を書く
                その大きさ調整を×に変える
                その大きさは、駒の大きさ
                そのフォントを「メイリオ」に変える
                その文字色を緑色に変える
                その文字配置を中央に変える
                その垂直文字配置を中央に変える
                その文字サイズを20に変える
            駒一覧(数)は、駒
            盤面(Y+1,X+1)は、駒
        繰り返し終わり
        盤面(マス数,マス数)は、無
        盤面をシャッフルする
        キャンバス1を更新する
    終わり
    初期化する手順
    ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
        この実質大きさを｛550,550｝に変える
        この内容を「15パズル」に変える
        初期化開始する
        キャンバス1というキャンバスを作る
            その位置と大きさを｛0,0,550,550｝に変える
            そのドッキング方向を「全体」に変える
        初期化終了する
        この設計スケール比率を｛144,144｝に変える
    終わり
    駒クリックの手順
        駒は、発生元
        駒を移動する
        盤面をチェックする
    終わり
    [駒]を移動する手順
        駒座標は、駒の駒座標
        もし駒座標を{-1,0}だけ移動したなら
        他でもし駒座標を{0,-1}だけ移動したなら
        他でもし駒座標を{1,0}だけ移動したなら
        他でもし駒座標を{0,1}だけ移動したなら
        そうでなければ
            ×を返す
        もし終わり
        ○を返す
    終わり
    [元座標]を[移動量]だけ、移動する手順
        先座標は{元座標(1)+移動量(1),元座標(2)+移動量(2)}
        もし先座標(1)が1未満または先座標(1)がマス数より大きいなら×を返す
        もし先座標(2)が1未満または先座標(2)がマス数より大きいなら×を返す
        もし盤面(先座標(2),先座標(1))が無でないなら、×を返す
        駒は、盤面(元座標(2),元座標(1))
        駒の位置は｛駒の横+(先座標(1)-元座標(1))*マスサイズ,駒の縦+(先座標(2)-元座標(2))*マスサイズ｝
        盤面(元座標(2),元座標(1))と盤面(先座標(2),先座標(1))を交換する
        ○を返す
    終わり
    [駒]の、駒座標を求める手順
        マス数回1からたてにカウントして繰り返す
            マス数回1からよこにカウントして繰り返す
                もし盤面(たて,よこ)が駒なら、{よこ,たて}を返す
            繰り返し終わり
        繰り返し終わり
        無を返す
    終わり
    盤面をシャッフルする手順
        シャッフル回数回繰り返す
            繰り返す
                選択駒は、駒一覧(1からマス数*マス数-1までの乱数)
                もし選択駒を移動したなら繰り返しから抜け出す
            繰り返し終わり
        繰り返し終わり
    終わり
    盤面をチェックする手順
        マス数*マス数回数にカウントして繰り返す
            N=数-1
            よこ=N%マス数+1
            たて=((N-N%マス数)/マス数)+1
            もし盤面(たて,よこ)が駒一覧(数)でないなら、×を返す
        繰り返し終わり
        キャンバス1に「クリア！」という文字を書く
            その位置は、{120,150}
            そのフォントを「メイリオ」に変える
            その文字色を赤に変える
            その文字サイズを20に変える
        キャンバス1を更新する
        ○を返す
    終わり
終わり