【はじめてのプチコン】マップでの判定方法（２）回答

解答例１

＠ＭＡＰＣＨＫＴ
ＧＯＳＵＢ　＠ＧＥＴＭＡＰＤＴ
ＩＦ　Ｃ＄＝”壁”　ＧＯＴＯ　＠Ｌ００１
ＮＡＰＲＥＳ＝０
ＲＥＴＵＲＮ
＠Ｌ００１
ＭＡＰＲＥＳ＝１
ＲＥＴＵＲＮ

解説
最初にすでに紹介した＠ＧＥＴＭＡＰＤＴサブルーチンを
使用するものと仮定しましょう。
このサブルーチンは指定位置（Ｘ，Ｙ）のキャラクタをＣ＄に返します。
そのキャラクタが通れないキャラクタだったら＠Ｌ００１へジャンプ
そうでないときは通れるキャラクタなのでＭＡＰＲＥＳに０を入れて帰ります。
＠Ｌ００１はラベルを毎回考えているのが面倒なので重要でないラベルは
一時的な名前をつけておきます。
＠Ｌ００１以降は通れないキャラクタだったのでＭＡＰＲＥＳに１を入れて帰ります。


解答例２

＠ＭＡＰＣＨＫＴ
ＭＡＰＲＥＳ＝１
ＧＯＳＵＢ　＠ＧＥＴＭＡＰＤＴ
ＩＦ　Ｃ＄＝”壁”　ＴＨＥＮ　ＲＥＴＵＲＮ
ＮＡＰＲＥＳ＝０
ＲＥＴＵＲＮ

解説
これは解答例１とほとんど同じですが、
サブルーチンの最初にＭＡＰＲＥＳ変数に１を代入した後で
通れないキャラクタの判定をします。
通れない場合にはＲＥＴＵＲＮで戻ればＭＡＰＲＥＳ変数には１が入っています。
最後にそうでない場合に０を代入して戻ります。

このサブルーチンは余計なラベルが減るのでプログラムが見やすくなります。

【はじめてのプチコン】マップでの判定方法（２）

ではマップのデータを元にゲームで必要になるかもしれない判定について考えてみたいと思います。

【通路・壁判定】
指定した位置が通路であるか壁であるかを判定する。

使用例１
プレイヤを初期設定する場合、プレイヤは通路の位置に置く必要があるため、
指定位置が通路であるか判定したい。

使用例２
通路にいるプレイヤが指定された方向に進めるか判定したい。


この判定をする時必要になるものを考えてみましょう。
必要なものはすべてにおいてマップの調べたい位置が必要です。
ここで位置を代入する変数をＸとＹとしましょう。

指定された位置が壁なのか、通路なのかを判定し、
それを返してくれる変数が必要です。
言い換えるとプレイヤなどが通れるか通れないかですね。
今はマップに通路（空白）と壁しかないので、
マップのキャラクタを判定するだけで良いのですが、
今後判定するものが増えるかもしれません。

そこで判定するサブルーチンを使い判定結果を数値で返すようにします。
判定結果はＭＡＰＲＥＳ（MAP RESult）という変数に代入して返します。
このサブルーチンを＠ＭＡＰＣＨＫＴ（MAP CHecK Type）とすると

このサブルーチンを呼び出す方法は。。。

Ｘ＝調べたい位置のＸ座標
Ｙ＝調べたい位置のＹ座標
ＧＯＳＵＢ　＠ＭＡＰＣＨＫＴ
ＩＦ　ＭＡＰＲＥＳ　ＧＯＴＯ　＠ＮＯＴＭＯＶＥ　←（移動できない場合）
（移動できる場合）


となります。

では、この＠ＭＡＰＣＨＫＴのプログラムを作成してみてください。
回答は次回。。。

【はじめてのプチコン】マップでの判定方法（１）。。。回答

問題
マップデータを読み込み表示するプログラムを作成しなさい

解答例

’
ＤＩＭ　ＭＡＰ＄（９）
ＲＥＳＴＯＲＥ　＠ＭＡＰＤＡＴＡ
ＦＯＲ　Ｉ＝０　ＴＯ　８
ＲＥＡＤ　ＭＡＰ＄（Ｉ）
ＮＥＸＴ　Ｉ
’
ＣＬＳ
ＦＯＲ　Ｉ＝０　ＴＯ　８
ＬＯＣＡＴＥ　０、Ｉ
ＰＲＩＮＴ　ＭＡＰ＄（Ｉ）；
ＮＥＸＴ　Ｉ
ＥＮＤ
＠ＭＡＰＤＡＴＡ
ＤＡＴＡ”壁壁壁壁壁壁壁壁壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁壁壁壁壁壁壁壁壁”