今回は前回の応用でできると思います。
通路にいるプレイヤが指定された方向に進めるか、
判定するプログラムはどうなるでしょうか？
ここでプレイヤの位置を保存する変数をＰＸ，ＰＹとします。
プレイヤが右に進むためには右キー（ボタン）が押されている必要がありますが、
押されていたとしても右に壁があったら進めません。
要するに進めるか判定する必要があります。
すでに位置Ｘ，Ｙのマップデータが通路かどうかをチェックする
ＭＡＰＣＨＫＴサブルーチンがあるのでそれを利用します。
ここでは右に進めるか判断するサブルーチンを作成してみましょう。
ＭＡＰＣＨＫＴサブルーチンは変数Ｘ，Ｙの位置を調べ変数ＭＡＰＲＥＳに、
通路であれば０そうでなければ１が代入されて帰ってきます。
この条件で右に移動できるかどうかを判定するプログラムは、
Ｘ＝ＰＸ＋１
Ｙ＝ＰＹ
ＧＯＳＵＢ ＠ＭＡＰＣＨＫＴ
ＩＦ ＭＡＰＲＥＳ ＧＯＴＯ ＠Ｌ０００１
ＬＯＣＡＴＥ ＰＸ，ＰＹ
ＰＲＩＮＴ ” ”；
ＰＸ＝Ｘ
ＬＯＣＡＴＥ ＰＸ，ＰＹ
ＰＲＩＮＴ ”人”；
＠Ｌ０００１
プレイヤの右を調べたいので調べる位置Ｘ，Ｙは
プレイヤのＸ座標がＰＸ＋1となります。
ＭＡＰＣＨＫＴサブルーチンで判定して壁だった場合には次のステップへ進みます。
通路だったら現在位置のプレイヤを消して、プレイヤ位置の更新をし、
その位置に人を表示します。