if measuredistance(My.X,My.Y,2500,133,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,197,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,341,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,350,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,501,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,579,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,837,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,895,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,938,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,1033,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,1215,Universe.Highway)<8.5 Then
DelAgt(My) この座標の違う場所でエージェントを消すプログラムを改善したいです。 for文を使ってまとめて行う方法をご存じの方はいらっしゃいますか。
X座標が同じ2500なので、例えば、Y座標をカンマ区切りの文字列で定義し、
GetTokenとCountToken関数を使ってFor文を使って判定すればよいと思います。