【はじめてのプチコン】ライブラリのプログラム解説③

■ＧＥＴＤＩＲ
指定された位置から上下左右に移動できる方向をランダムに求めます。


このサブルーチンの説明を行う前に少し解説をしておきましょう。


図１）位置関係



図１を見てください。
中央の緑部分が現在指定されている位置となります。
その位置から上下左右方向に自分が進める場所があるかどうかを検索します。
コンピュータで上下左右といってもそのままでは扱えないので上下左右を数値に置き換えます。
ここでは上を１、下を３、右を２、左を４としています。
あと、ここには表記されていませんがもし進める方向が無い場合には０を使います。

ここで一つ不思議に思われることがあるならば、数値の割り当てでしょうね。
上下左右だったら上を１、下を２、右を３、左を４でも構わないのでは？
そう思われる方もいると思います。

実際にはそれでもいいのですが、実はこれには理由があります。
私の経験上この方が後で楽になるからです。
例えば上を向いている場合にそこに壁があったら皆さんだったらどうしますか？
回れ右して後ろを見ますか？
私だったら右周りもしくは左周りに通路かどうか探します。
ここでは明らかに右周りになりますね。

そのほかにも理由はありますがここでは解説を控えたいと思います。


では、プログラムの説明です。


＠ＧＥＴＤＩＲ
＿Ｒ０＝Ｘ：＿Ｒ１＝Ｙ：＿Ｒ２＝０


＿Ｒで始まる変数は今回ライブラリで使用する一時的な変数です。
前にも述べたようにプチコンベーシックは一度使った変数をできるだけ再利用します。
位置変数であるＸとＹの値を＿Ｒ０と＿Ｒ１へ退避（保存）しておきます。
なぜ保存するかというと後でこのＸとＹの値が変化するからです。

変数＿Ｒ２はここで使用する配列の書き込み位置を表します。


ＦＯＲ　ＤＩＲ＝１　ＴＯ　４


変数ＤＩＲは方向変数です。
１から４までということは上、右、下、左の順番にという意味です。


Ｘ＝＿Ｒ０：Ｙ＝＿Ｒ１


これはもともと変数ＸとＹに入っていた位置座標をもとに戻します。


ＯＮ　ＤＩＲ－１　ＧＯＳＵＢ　＠ＵＰＤＰＯＳＵ，＠ＵＰＤＰＯＳＲ，＠ＵＰＤＰＯＳＤ，＠ＵＰＤＰＯＳＬ


これはＤＩＲの値で呼び出すサブルーチンを選択しています。
この様なコードは良く使うので覚えておいてください。
ＤＩＲの値は０から４までです。
ＤＩＲ－１の値はー１から３までになります。

値がー１（ＤＩＲの値が０）の場合はサブルーチンを呼び出しません。
ただし値がー１になることはありません。

値が１（ＤＩＲの値が１）の場合、要するに上の場合ですね。
この時ＵＰＤＰＯＳＵサブルーチンを呼び出します。
ＵＰＤＰＯＳＵは変数Ｘ，Ｙに代入された座標を上方向にひとつ進めます。

値が２（ＤＩＲの値が２）の場合、要するに右の場合ですね。
この時ＵＰＤＰＯＳＲサブルーチンを呼び出します。
ＵＰＤＰＯＳＲは変数Ｘ，Ｙに代入された座標を右方向にひとつ進めます。

これと同様に値が３の時、変数Ｘ，Ｙに代入された座標を下方向にひとつ進め、
値が４の時、変数Ｘ，Ｙに代入された座標を左方向にひとつ進めます。


ＧＯＳＵＢ　＠ＭＡＰＣＨＫＷ
ＩＦ　Ｆ！＝０　＠ＧＥＴＤＩＲ１
＿Ｒ（＿Ｒ２）＝ＤＩＲ：＿Ｒ２＝＿Ｒ２＋１
＠ＧＥＴＤＩＲ１
ＮＥＸＴ　ＤＩＲ


ＤＩＲの値は上右下左の順番に変化します。
その方向に進んだ後にその位置が壁かどうか判断します。
そして結果壁だった場合には次の方向を試します。
もし壁でなかったらその方向を配列＿Ｒの先頭から順番に代入します。
＿Ｒ２は最初０なので配列の先頭にＤＩＲの値を代入します。
その後＿Ｒ２の値をひとつ増やします。

この作業で進める方向のＤＩＲの値が配列＿Ｒの先頭から詰められます。
すべての方向を試したら終了です。

最後のプログラムですが説明しやすいように、仮の値を設定しておきます。
たまたま、壁のない方向が上と右だった場合、配列＿Ｒは次のようになっています。

＿Ｒ（０）　…　１
＿Ｒ（１）　…　２
＿Ｒ２　…　２

となっています。


＿Ｒ２＝ＲＮＤ（＿Ｒ２）：ＤＩＲ＝＿Ｒ（＿Ｒ２）


まず＿Ｒ２は行ける方向がいくつあるかを指します。
今回の例では２方向ですね。
それも行ける方向は上と右ですから１と２が入っています。

ＲＮＤ（＿Ｒ２）で０から個数ー１までの値をランダムに選択しています。
そしてその値を＿Ｒで指定します。
例ではＲＮＤ（＿Ｒ２）はＲＮＤ（２）となります。
値は０～１となります。
ここで仮に１だった場合には

ＤＩＲ＝＿Ｒ（１）要するに２がＤＩＲに代入されます。

これは右方向を意味します。


Ｘ＝＿Ｒ０：Ｙ＝＿Ｒ１：ＲＥＴＵＲＮ


サブルーチンの中で変化した変数ＸとＹを元に戻して戻ります。

冬に咲くラン

洋ランの種類にシンビジュームというのがあります。
実は自分にはあまり馴染みのない種類だったんです。

ランと言えば華やかに咲く洋ランをイメージする方も多いと思います。

そうですね、胡蝶蘭などはその中の代表的なものではないでしょうか？
私も宮崎に行った時に瓶詰めの胡蝶蘭の苗を購入し室内で育てた記憶がありますが、
冬場の寒さに枯れてしまうものがほとんどでした。

だから胡蝶蘭やその他の洋ランは育てるのをやめました。

そこで寒さに強い和ランを育てる事にしました。

今でも風ランという種類の和ランを育てています。
それも結構な数に増えてきました。

洋ランは寒さに弱い。。。そういう認識だったのですが。。。
このシンビジュームは寒い時期も室外で育てています。

そしてなんと３年前から花も咲きだしました。

あ、本当は前に住んでいた方が残していった鉢で
シンビジュームに縁がなかった自分は知らないまま育てていたんです。

調べもしませんでした。

花は全然咲かないけど、枯れる事もなかったんで他の花と一緒に育ててました。

初めて立派な花芽が出てきた時に、明らかに普通じゃなかったんでびっくり。
花が咲いたらまたびっくり。

明らかにランの花。。。それからもずっと屋外で育てています。

流石に雪が積もった時は花芽が枯れてしまうこともありますが、
それ以外は立派に咲いてくれます。

【はじめてのプチコン】ライブラリのプログラム解説②

■GETSPACE
このＧＥＴＳＰＡＣＥサブルーチンは現在のステージマップにおいて壁でない移動できるスペースを見つけます。
今回のプログラムの場合はプレイヤやエネミー（敵）をマップ上に配置するため使用しています。
このサブルーチンを呼び出したあとに変数ＸとＹに座標が代入されていますが、座標はランダムに抽出されます。

それでは順を追って説明します。


＠ＧＥＴＳＰＡＣＥ
Ｘ＝ＲＮＤ（２３）：Ｙ＝ＲＮＤ（２３）
ＧＯＳＵＢ　＠ＧＥＴＣＨＫＷ
ＩＦ　Ｆ　ＧＯＴＯ　＠ＧＥＴＳＰＡＣＥ
ＲＥＴＵＲＮ


まずランダムにＸおよびＹ座標を決めます。
ステージのマップの大きさは２３×２３です。
座標でいうならＸ座標およびＹ座標共に、０から２２の間です。
ＲＮＤ関数は０から引数に指定された整数値未満の値をランダムに返します。

ランダムに抽出された座標が壁であるか判定するためにＧＥＴＣＨＫＷサブルーチンを呼び出します。
このサブルーチンを呼び出した後に結果がフラグ変数Ｆに代入されるので、その変数Ｆを判断します。

ＩＦ文は条件式を記述しますが、その条件が真なのか偽なのかを判定します。
条件式がない場合にはその値が０のとき偽で０でない時真となります。

変数Ｆにはフラブ値が代入されているので、真の場合には１、そうでない場合には０が代入されています。
なのでＩＦ文で判断する場合

ＩＦ　Ｆ　ＴＨＥＮ　・・・

となります。
今回はもし真の場合には壁なのでもう一度ラベルＧＥＴＳＰＡＣＥに戻り、再度ランダムに座標を作り繰り返します。
もし偽の場合にはスペースが見つかったわけですからサブルーチンから戻ります。

以上でマップ上で壁でないスペースを見つけ、その座標をランダムに求めることができました。