エージェントが目的地まで一定スピードで移動するプログラムを作りたいです。
ただし目的地を通り過ぎることのないようにしたいです。
My.Direction = GetDirection(My.X, My.Y, office.X, office.Y, Universe.city)
Forward(10)
このように書くと、一定スピードで目的地まで進むことができますが、10ずつ進むため、目的地を通り過ぎでしまい、目的地の前後で行き来を繰り返してしまいます。
目的地を通り過ぎることなく、ピッタリ目的地で止まらせるには、どのようなプログラムを書けばよろしいですか?ご回答よろしくお願い致します。
お求めのコードは以下のようなコードでしょうか
//my.schoolはagt型変数 init{ my.school = createagt(universe.city.school) My.school.X=80 My.school.Y=40 } step{ Pursue(my.school, 5) }