穴掘り法迷路(ループ処理) by クレスト

#なでしこ #迷路 #ループ処理
Wall = []
Vertical_row = 149
Horizontal_row = 149
smaller = Horizontal_row
もしVertical_row < Horizontal_rowなら:
    smaller = Vertical_row
Width=(描画中キャンバス["width"])/smaller
Direction=[[0,1],[1,0],[0,-1],[-1,0]]


main__壁初期化
main__迷路作成(1,1)
main__壁描画

●壁初期化とは:
    もしVertical_row%2=0ならば:
    　　Vertical_row=Vertical_row+1
    もしHorizontal_row%2=0ならば:
    　　Horizontal_row=Horizontal_row+1
    Wall=[]
    row=[]
    Vertical_row回:
    　　rowに1を配列追加
    iを0からHorizontal_row-1まで繰り返す:
    　　Wall[i]=rowを配列複製


●壁描画とは:
    全描画クリア
    iを0からHorizontal_row-1まで繰り返す:
        jを0からVertical_row-1まで繰り返す:
            もしWall[i][j]=1なら:
            　　[i*Width,j*Width,Width,Width]に四角描画


●(px,py)迷路範囲内とは:
    もしpx<0||px>=Horizontal_row||py<0||py>=Vertical_rowならば:
    　　falseを戻す
    trueを戻す

●(x,y)迷路作成とは:
    px = x
    py = y
    digList = [[px,py]]
    flag = 1
    (flag < 2)間:
        
        (flag == 1)間:
            Wall[px][py] = 0
            way = 配列複製(Direction)
            配列シャッフル(way)
            
            iを0から(要素数(way)-1)まで繰り返す:
                定数 dx = way[i][0]
                定数 dy = way[i][1]
                wx = px+dx+dx
                wy = py+dy+dy
                
                もし迷路範囲内(wx,wy) && Wall[wx][wy] == 1なら:
                    Wall[wx-dx][wy-dy]=0
                    px = wx
                    py = wy
                    配列追加(digList,[wx,wy])
                    抜ける
                
                もしi == (要素数(way)-1)なら:
                    flag = 0
        
        (flag == 0)間:
            
            もし要素数(digList) > 0なら:
                count = 0
                index = 乱数((要素数(digList))-1)
                
                iを0から(要素数(Direction)-1)まで繰り返す:
                    
                    定数 sx = 2 * Direction[i][0] + digList[index][0]
                    定数 sy = 2 * Direction[i][1] + digList[index][1]
                    
                    もし迷路範囲内(sx,sy) && Wall[sx][sy] == 1なら:
                        count = count + 1
                    
                もしcount == 0なら:
                    配列削除(digList,index)
                違えば:
                    px = digList[index][0]
                    py = digList[index][1]
                    flag = 1
            違えば:
                flag = 2