Delphiでゲームのマップを作りたいのですがよくわかりません。【大至急お願いします!!】
今、学校の授業にてDelphiで脱出ゲームを作っています。
ホラーゲーム「青鬼」のようなマップを作ろうと思っています。
しかし、procedureをどのように作っていいかよくわかりません。
内容は マップデータを 変数map:array[1..45,1..30,1..20] of intger; に
代入する内容です。
それを45回よんでマップの変数にすべて入れたいです。
マップデータは 0を通路、5を木の左上、6を木の右上、7を木の左下、8を木の右下で
作りました。 以下のような感じです。
6,8,6,8,6,8,6,8,6,8,6,8,6,8,6,8,6,8,6,8,
5,7,5,7,5,7,5,7,5,7,5,7,5,7,5,7,5,7,5,7,
6,8,0,0,0,0,0,8,6,8,6,8,6,8,6,8,6,8,6,8,
5,7,0,0,0,0,0,7,5,7,5,7,5,7,5,7,5,7,5,7,
6,8,0,0,6,8,6,8,0,0,6,8,6,8,6,8,6,8,6,8,
5,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,7,
6,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,8,
5,7,5,7,0,0,5,7,5,7,0,0,5,7,5,7,0,0,5,7,
6,8,6,8,0,0,6,8,6,8,0,0,6,8,6,8,0,0,6,8,
0,0,0,0,0,0,5,7,5,7,0,0,5,7,5,7,0,0,5,7,
0,0,0,0,0,0,6,8,6,8,0,0,6,8,6,8,0,0,6,8,
0,0,5,7,0,0,5,7,0,0,0,0,5,7,5,7,0,0,5,7,
0,0,6,8,0,0,6,8,0,0,0,0,6,8,6,8,6,8,6,8,
0,0,5,7,0,0,5,7,5,7,5,7,5,7,5,7,5,7,5,7,
6,8,6,8,0,0,6,8,0,0,0,0,0,0,0,0,6,8,6,8,
5,7,5,7,0,0,5,7,0,0,0,0,0,0,0,0,5,7,5,7,
6,8,6,8,0,0,0,0,0,0,6,8,6,8,0,0,6,8,6,8,
5,7,5,7,0,0,0,0,0,0,5,7,5,7,0,0,0,0,0,0,
6,8,6,8,6,8,6,8,0,0,6,8,6,8,0,0,0,0,0,0,
5,7,5,7,5,7,5,7,0,0,5,7,5,7,5,7,5,7,0,0,
6,8,6,8,0,0,0,0,0,0,6,8,6,8,6,8,6,8,0,0,
5,7,5,7,0,0,0,0,0,0,5,7,5,7,5,7,5,7,0,0,
6,8,6,8,0,0,6,8,0,0,0,0,0,0,6,8,6,8,0,0,
5,7,5,7,0,0,5,7,0,0,0,0,0,0,5,7,0,0,0,0,
6,8,6,8,0,0,6,8,6,8,6,8,6,8,6,8,0,0,0,0,
5,7,5,7,0,0,5,7,5,7,5,7,5,7,5,7,0,0,5,7,
6,8,0,0,0,0,6,8,6,8,6,8,6,8,6,8,0,0,6,8,
5,7,0,0,0,0,5,7,5,7,5,7,5,7,5,7,5,7,5,7,
6,8,0,0,6,8,6,8,6,8,6,8,6,8,6,8,6,8,6,8,
5,7,0,0,5,7,5,7,5,7,5,7,5,7,5,7,5,7,5,7,
代入出来ればどんな方法でも構いません。
本当に困っているので、ご回答よろしくお願いします!!
お礼
返信遅くなってしまって大変申し訳ありません。 学校の授業で必要だったのですが、 なんとか解決いたしました。 お待たせしてしまったので ベストアンサーにさせていただきます。 大変申し訳ありませんでした。 ありがとうございました。