【永井日菜】今日も。。。

→アメーバピグで遊ぶ

今日もブロックとにらめっこ。。。
この写真では部屋に置ける家具の限界が５００個に対し
４０６個のブロックを置いています。


。。。このスケールで作るとブロックが不足するのは目に見えてる。。。

どうする。。。俺！！

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

今回は前回の応用でできると思います。

通路にいるプレイヤが指定された方向に進めるか、
判定するプログラムはどうなるでしょうか？

ここでプレイヤの位置を保存する変数をＰＸ，ＰＹとします。
プレイヤが右に進むためには右キー（ボタン）が押されている必要がありますが、
押されていたとしても右に壁があったら進めません。

要するに進めるか判定する必要があります。

すでに位置Ｘ，Ｙのマップデータが通路かどうかをチェックする
ＭＡＰＣＨＫＴサブルーチンがあるのでそれを利用します。

ここでは右に進めるか判断するサブルーチンを作成してみましょう。

ＭＡＰＣＨＫＴサブルーチンは変数Ｘ，Ｙの位置を調べ変数ＭＡＰＲＥＳに、
通路であれば０そうでなければ１が代入されて帰ってきます。

この条件で右に移動できるかどうかを判定するプログラムは、

Ｘ＝ＰＸ＋１
Ｙ＝ＰＹ
ＧＯＳＵＢ　＠ＭＡＰＣＨＫＴ
ＩＦ　ＭＡＰＲＥＳ　ＧＯＴＯ　＠Ｌ０００１
ＬＯＣＡＴＥ　ＰＸ，ＰＹ
ＰＲＩＮＴ　”　”；
ＰＸ＝Ｘ
ＬＯＣＡＴＥ　ＰＸ，ＰＹ
ＰＲＩＮＴ　”人”；
＠Ｌ０００１

プレイヤの右を調べたいので調べる位置Ｘ，Ｙは
プレイヤのＸ座標がＰＸ＋1となります。

ＭＡＰＣＨＫＴサブルーチンで判定して壁だった場合には次のステップへ進みます。
通路だったら現在位置のプレイヤを消して、プレイヤ位置の更新をし、
その位置に人を表示します。

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

プログラムを作る場合、ただプログラムを書けばいいのかというと、そうではありません。

まず必要なのはエラーを修正しプログラムが動作できるようにしなけらばなりません。

動作してもプログラムにバグがある場合にはデバッグというバグを修正していく工程が必要です。

バグを見つけるためには実際にプログラムを実行しなければなりませんが、
ゲームを作っている場合には、バグのあるプログラムを組み込むのは危険なため、
一旦、テストを行うためのテストプログラムを作ることをお勧めします。

前回のＭＡＰＣＨＫＴサブルーチンのテストを行うテストプログラムを作ってみましょう。

では、どんなテストプログラムを作りますか？


テストプログラムサンプル１

’
ＤＩＭ　ＭＡＰ＄（９）
ＲＥＳＴＯＲＥ　＠ＭＡＰＤＡＴＡ
ＦＯＲ　Ｉ＝０　ＴＯ　８
ＲＥＡＤ　ＭＡＰ＄（Ｉ）
ＮＥＸＴ　Ｉ
’
ＣＬＳ
ＦＯＲ　Ｉ＝０　ＴＯ　８
ＬＯＣＡＴＥ　０、Ｉ
ＰＲＩＮＴ　ＭＡＰ＄（Ｉ）；
ＮＥＸＴ　Ｉ
’ここからテストプログラムです
Ｘ＝１
Ｙ＝１
ＧＯＳＵＢ　＠ＭＡＰＣＨＫＴ
ＩＦ　ＭＡＰＲＥＳ　ＧＯＴＯ　＠ＥＮＤＬＯＯＰ
ＬＯＣＡＴＥ　Ｘ，Ｙ
ＰＲＩＮＴ　”人”；
’ここまでがテストプログラムです
＠ＥＮＤＬＯＯＰ
ＧＯＴＯ　＠ＥＮＤＬＯＯＰ
’
＠ＭＡＰＣＨＫＴ
ＭＡＰＲＥＳ＝１
ＧＯＳＵＢ　＠ＧＥＴＭＡＰＤＴ
ＩＦ　Ｃ＄＝”壁”　ＴＨＥＮ　ＲＥＴＵＲＮ
ＮＡＰＲＥＳ＝０
ＲＥＴＵＲＮ
’
＠ＧＥＴＭＡＰＤＴ
Ｃ＄＝ＭＩＤ＄（ＭＡＰ＄（Ｙ），Ｘ，１）
ＲＥＴＵＲＮ
’
＠ＭＡＰＤＡＴＡ
ＤＡＴＡ”壁壁壁壁壁壁壁壁壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁壁壁壁壁壁壁壁壁”

上記のテストプログラムは座標（１，１）の位置に”人”
（ただし、これはプチコンでは人型のキャラクタ）を表示します。
ただ、指定された位置が人が歩ける通路であれば人を表示します。
もし、完全にテストするのであれば下記のようにした方がより良いと思います。



テストプログラム部分だけ記述します。

’ここからテストプログラムです
ＦＯＲ　Ｙ＝０　ＴＯ　８
ＦＯＲ　Ｘ＝０　ＴＯ　８
ＧＯＳＵＢ　＠ＭＡＰＣＨＫＴ
ＩＦ　ＭＡＰＲＥＳ　ＧＯＴＯ　＠Ｌ０００１
ＬＯＣＡＴＥ　Ｘ，Ｙ
ＰＲＩＮＴ　”人”；
＠Ｌ０００１
ＮＥＸＴ　Ｘ
ＮＥＸＴ　Ｙ
’ここまでがテストプログラムです

このプログラムはマップすべての位置をチェックし、
人が通れる場所に人を表示します。