Тема: Бот на Бот
Показать сообщение отдельно
Старый 20.07.2010, 01:18   #2
EvilChaotic
Мастер
 
Аватар для EvilChaotic
 
Регистрация: 05.04.2008
Сообщений: 910
Написано 530 полезных сообщений
(для 3,006 пользователей)
Ответ: Бот на Бот

Цикл в цикле.

Type Bot
  field Entity% ; ссылка на бот
  field my_Target% ; цель для бота
End Type
For a.bot = each bot
    Local max_dist# = 10000.0
       Local d#
    For b.bot = each bot
       If a\Entity% <> b\Entity%
         d# = xEntityDistance(a\Entity%,b\Entity%)
         If d# < max_dist#
            max_dist# = d# : a\my_Target% = b\Entity%
         End If
       End If
    Next
    ; -- 
    ; Дальше можешь делать что угодно с  a\my_Target%
Next
Вот, примерно так можно выбрать ближайший объект для бота. (Код писан прямо тут)
(Offline)
 
Ответить с цитированием