迷路ゲーム改 - 迷路自動生成版v2

ソース
プログラム

## 迷路ゲーム改
# プレイヤーの初期座標を指定
PX = 1
PY = 1
壁URL="https://n3s.nadesi.com/image.php?f=9.png"
床URL="https://n3s.nadesi.com/image.php?f=10.png"
# その他の定数
MW = 40
MW2 = MW÷2
COLORS = ["white", "brown", "blue"]
HELP = 「[←][↑][↓][→]/[h][k][j][l]/マウス可」
迷路サイズ=7 # どんどん大きくなる
迷路 = 迷路サイズの迷路作成。
迷路[迷路サイズ-2][迷路サイズ-2]=2 # ゴール生成
HELPのラベル作成して、情報ラベルに代入。
画像一覧＝[]
床URLを画像読み待って、画像一覧[0]に代入。
壁URLを画像読み待って、画像一覧[1]に代入。
壁URLを画像読み待って、画像一覧[2]に代入。
床URLを画像読み待って、画像一覧[3]に代入。
マップ表示。

# キー操作に応じてゲームを進める
DOCUMENTをキー押した時には
　　K=押されたキー。
　　もし、K=「ArrowUp」ならば、[0,-1]で移動確認。
　　違えば、もし、K=「ArrowDown」ならば、[0,1]で移動確認。
　　違えば、もし、K=「ArrowLeft」ならば、[-1,0]で移動確認。
　　違えば、もし、K=「ArrowRight」ならば、[1, 0]で移動確認。
　　違えば、もし、K=「k」ならば、[0,-1]で移動確認。
　　違えば、もし、K=「j」ならば、[0,1]で移動確認。
　　違えば、もし、K=「h」ならば、[-1,0]で移動確認。
　　違えば、もし、K=「l」ならば、[1, 0]で移動確認。
ここまで。

描画中キャンバスをマウス押した時には
　　もし、マウスX=0ならば戻る。
　　W=描画中キャンバスの「width」をDOM属性取得。
　　H=描画中キャンバスの「height」をDOM属性取得。
　　XX=W/2-マウスX
　　YY=H/2-マウスY
　　もし、ABS(XX) > ABS(YY)ならば
　　　　もしXX<0ならば
　　　　　　[1, 0]で移動確認。
　　　　違えば
　　　　　　[-1,0]で移動確認。
　　　　ここまで
　　違えば
　　　　もしYY<0ならば
　　　　　　[0,1]で移動確認。
　　　　違えば
　　　　　　[0,-1]で移動確認。
　　　　ここまで。
　　ここまで。
ここまで。

# 移動先の座標に移動できるか確認する
●(CURで)で移動確認とは
　　NX=CUR[0]＋PX
　　NY=CUR[1]＋PY
　　もし、NX<0または、NY<0ならば
　　　　情報ラベルに「不正な座標」をテキスト設定。
　　　　戻る。
　　ここまで
　　NO＝INT(迷路[NY][NX])
　　もし、NO=2ならば
　　　　迷路サイズ＝迷路サイズ×2+1
　　　　「ゲームクリア！{改行}そして新しい迷路{迷路サイズ}へようこそ！」と言う。
　　　　迷路 = 迷路サイズの迷路作成。
　　　　迷路[迷路サイズ-2][迷路サイズ-2]=2 # ゴール生成
　　　　PX=1。PY=1。マップ表示。
　　ここまで。
　　もし、NO=0ならば
　　　　PX = NX。PY＝NY。
　　　　情報ラベルに「{HELP} = ({NX},{NY})」をテキスト設定。
　　　　マップ表示。
　　違えば
　　　　情報ラベルに「{HELP} = そこは壁！{NO}」をテキスト設定。
　　ここまで。
ここまで

# 画面にマップを表示する処理
●マップ表示
　　「black」に線色設定。1に線太さ設定。
　　列数＝迷路の要素数。
　　＃マップを描画
　　Yを0から10まで繰り返す
　　　　Xを0から10まで繰り返す
　　　　　　XX = PX - 5 + X
　　　　　　YY = PY - 5 + Y
　　　　　　もし（XX < 0）または（YY < 0）ならば
　　　　　　　　NO = 1
　　　　　　違えば、もし(XX >= 列数)または(YY >= 列数)ならば
　　　　　　　　NO = 1
　　　　　　違えば
　　　　　　　　NO = INT(迷路[YY][XX])
　　　　　　ここまで
　　　　　　C = COLORS[NO]
　　　　　　Cに塗色設定。
　　　　　　画像一覧[NO]を[X*MW, Y*MW, MW, MW]に画像描画。
　　　　　　もし、X=5かつY=5ならば # プレイヤーの描画
　　　　　　　　画像一覧[3]を[X*MW, Y*MW, MW, MW]に画像描画。
　　　　　　　　「orange」に塗色設定。
　　　　　　　　P=7
　　　　　　　　[X*MW+P, Y*MW+P, MW-P*2, MW-P*2]に四角描画。
　　　　　　ここまで
　　　　ここまで
　　ここまで。
ここまで

●(列数の)迷路作成とは
　　迷路は[]
　　Yを0から(列数-1)まで繰り返す
　　　　迷路[Y] = []
　　　　Xを0から(列数-1)まで繰り返す
　　　　　　迷路[Y][X] = 1
　　　　ここまで。
　　ここまで。
　　# 左上を起点として穴掘りをはじめる
　　迷路で1と1の迷路掘削処理。
ここまで

●(迷路でXとYの)迷路掘削処理とは
　　UDLR＝[[0,-1],[0,1],[-1,0],[1,0]]
　　列数＝迷路の要素数
　　UDLRの配列シャッフル。
　　UDLRを反復
　　　　RX=対象[0]。RY=対象[1]
　　　　# 2マス先を調べる
　　　　X2 = RX * 2 + X
　　　　Y2 = RY * 2 + Y
　　　　# 迷路の外なら中止
　　　　もし、(X2<=0)または(X2>=列数-1)ならば続ける。
　　　　もし、(Y2<=0)または(Y2>=列数-1)ならば続ける。
　　　　もし、迷路[Y2][X2]=0ならば続ける。
　　　　# 穴を掘る
　　　　迷路[Y+RY][X+RX] = 0
　　　　迷路[Y2][X2] = 0
　　　　# 再帰的に掘削する
　　　　迷路でX2とY2の迷路掘削処理を迷路に代入。
　　ここまで。
　　それは迷路。
ここまで

●(迷路を)迷路表示とは
　　列数＝迷路の要素数。
　　Yを0から(列数-1)まで繰り返す
　　　　Xを0から(列数-1)まで繰り返す
　　　　　　V = 迷路[Y][X]
　　　　　　XX=X×MW
　　　　　　YY=Y×MW
　　　　　　灰色に線色設定。
　　　　　　もしV＝0ならば、白色に塗り色設定。
　　　　　　違えば、茶色に塗り色設定。
　　　　　　[XX, YY, MW, MW]に四角描画。
　　　　ここまで。
　　ここまで。
ここまで。
作品について
作品情報

作品を編集
クジラ飛行机作
ライセンス: MIT（改変可/表示）
形式: wnako
タグ: -
利用バージョン: 3.7.20
アクセス数(累計): 87
アクセス数(今月): 10
更新日時: 2021/04/20 21:28 編集: 2026/07/15 01:00
⭐⭐
作品公開情報
交流
迷路ゲーム改 - 迷路自動生成版v2

プログラム

作品情報

コメント
