前回「避難所のキャパシティ」という題で質問したものです。レシピブック12を改変し複数の始点から2つの終点(避難所)を目指し、片方の避難所にPersonが一定数に達したら避難所へ続く道を切りたいのですが、そもそもキャパシティの設け方がわからずに困っています。 閉鎖する予定の避難所に訪れるPersonの数を数えるにはどの関数を用いればよいのでしょうか。MakeOneAgtSetAroundPosition関数を用いてPersonの数を数える場合、閉鎖予定の避難所の座標はどのように取得したら良いのでしょうか。
駄文で失礼しますがよろしくお願いいたします。
避難所のキャパシティは、避難所のPointに「キャパシティの上限」と「現在のキャパシティ」の2つの変数を追加します。
避難者がPointにゴールした時点で「現在のキャパシティ」を加算し、「キャパシティの上限」をチェックすることで実現できます。
避難者は、Pointにゴールした時点で「キャパシティの上限」に達していた場合、別の避難所までのルートを設定すればよいと思います。
閉鎖する予定の避難所に訪れるPersonの数を数えるための関数はなく、上記の手順で変数を追加することで実現できます。
閉鎖予定の避難所の座標は、避難所のPoint ID(例えば7)が分かっていれば、以下の通り確認できます。
Dim pointAgt As Agt
pointAgt = Universe.Map.Point(7)
PrintLn(CStr(pointAgt.X) & "," & CStr(pointAgt.Y))