うん。。。ＢＢＱ

またまた、ＢＢＱのお肉が。。。
これは、お肉に、たまねぎ、緑はピーマン？

美味しそうですね。

リアルにＢＢＱしたい。

誰か一緒にＢＢＱしてくれません？

これは、たぶん、グッピグから考えて、姫ですか？

今度デートしてぇ～。。。じゃ、ないA=´、｀=)ゞ

一緒にＢＢＱしてぇ～。。。なんてね( ´艸｀)

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

サンプルマップ


上記サンプルマップでマップデータを使った判定方法の予習をします。

まずここでプチコンの文字をブログで使用するのは意外と面倒なので
ここでは便宜的に文字を別な文字で置き換えて説明します。

ブロックのキャラクタは　⇒　’壁’
スペースのキャラクタは　⇒　’　’
プレイヤのキャラクタは　⇒　’人’

とします。

置き換えしたマップをＤＡＴＡ文で記述した例

ＤＡＴＡ”壁壁壁壁壁壁壁壁壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁　壁　壁　壁　壁”
ＤＡＴＡ”壁　　　　　　　壁”
ＤＡＴＡ”壁壁壁壁壁壁壁壁壁”

では仮にマップデータが９×９の時、
このデータを読み込むプログラムを書いてみましょう。
回答は↓にあります。見ないで考えましょう。










































解答例（行番号は省きます）

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

注意
このプログラムはゲームとして成り立っていません。
あくまでもプログラミングのサンプルです。

このままでは本当にデータが読み込めたのかわかりません。
では問題です。。。

読み込んだデータを画面に表示するようにプログラムを変更して下さい。

回答は次回。。。

【はじめてのプチコン】文字列配列を使った２次元配列的な応用

では、前回の解答です。


ＭＡＰ＄｛
０[０[’Ａ’]、１[’Ｂ’]、２[’Ｃ’]]、
１[０[’Ｍ’]、１[’Ｎ’]、２[’Ｏ’]]、
２[０[’Ｘ’]、１[’Ｙ’]、２[’Ｚ’]]、
｝


もうお分かりだと思いますが説明すると。。。
各行の最初の番号は行番号で、座標でいうとＹ座標となります。
並んだ文字に縦に同じ番号が書かれていますが、これが列番号で、Ｘ座標になります。

もしこれがマップのデータであれば、今知りたいマップの位置（要するにＸ，Ｙ座標）を
調べる事が出来ればいいわけですね。

Ｙ座標は簡単に指定できますね。
もともと配列なんで

ＭＡＰ＄（Ｙ）

となります。
Ｘ座標の位置にある文字を取り出せば良いわけです。


【文字列を扱う代表的な関数】
文字列を扱う関数は一般的に次のようなものがあります。

１）ＬＥＦＴ＄（Ｓ＄、Ｎ）　　　　ただし、Ｓ＄は文字列、Ｎは文字数
指定した文字列の左からＮ文字取り出す。

２）ＲＩＧＨＴ＄（Ｓ＄，Ｎ）
指定した文字列の右からＮ文字取り出す。

３）ＭＩＤ＄（Ｓ＄，Ｉ，Ｎ）　　　ただしＩは文字の位置
指定した文字列のＩ番目からＮ文字取り出す。


残念なことにプチコンではＭＩＤ＄のみ実装されています。
言い換えるとＭＩＤ＄でＬＥＦＴ＄やＲＩＧＨＴ＄と同じことができます。


今回はＭＩＤ＄を使用すれば文字列の指定位置から文字を取り出すことができます。
要するに指定された文字列のＩ番目から１文字取り出せればいいわけです。

調べたい位置の文字＝ＭＩＤ$(マップの文字列データ、Ｘ座標、１）

となります。


結論として。。。

もし、知りたいマップ位置を（Ｘ、Ｙ）とすると、
求めるマップのデータは。。。

Ｃ＄＝ＭＩＤ＄（ＭＡＰ＄（Ｙ）、Ｘ、１）

とすればいいのです。


最後に。。。もしこれをプチコンでプログラムする際に
サブルーチンとしてプログラムするとしたらどうなるでしょうか？
サブルーチンとそれを呼び出すプログラムを記述してください。

解答例を見ず考えてみてください。（解答は↓にあります）


































解答例）

サブルーチン（ＧＥＴ　ＭＡＰ　ＤａＴａ）

＠ＧＥＴＭＡＰＤＴ
Ｃ＄＝ＭＩＤ＄（ＭＡＰ＄（Ｙ），Ｘ，１）
ＲＥＴＵＲＮ

呼び出し側

Ｘ＝横位置（桁）の値
Ｙ＝縦位置（行）の値
ＧＯＳＵＢ　＠ＧＥＴＭＡＰＤＴ