EntityDistance между обьектами одного типа

[IGR]

type chel
field c_pivot; сфера !!
field c_entity; модель, которая прикреплена к c_pivot !!
end type

ВАРИАНТЫ:

if EntityDistance(s\c_entity,s\c_pivot) < 100 then
...
endif


if EntityDistance(s\c_entity,s\c_entity) < 100 then
...
endif


if EntityDistance(s\c_entity,s\c_entity) < 100 and EntityDistance(s\c_pivot,s\c_pivot)<10 then
...
endif

ну, еще много таких же привести !!

ПРОБЛЕМА:
заключается в том что когда
for s.chel = each chel
.....
next
то EntityDistance ищется для одного и того же обьекта типа !!
т.е. вот это:
if EntityDistance(s\c_entity,s\c_pivot) < 100 then
...
endif
означает условие при которое будет True когда pivot обьекта и его модель будут на дистанции меньше 100, т.е. оно всегда True !!

Ваши идеи по этому поводу ??

[H@NON]

Читать текущий фиелд и предыдущий

Значит чтобы найти предыдущий устанавливаем Хендл . Потом считываем его так:

beforepivot = before object.Chel(nameChel)
. И теперь у нас есть ссылка на предыдущий элемент списка. Ну дальше думаю додумаешь(сорри за тафтологию ).

[H@NON]

вот передумал и решил тебе предложить сделать так:
Включаем в цикл перебора всех ботов, еще такой же цикл:
for c.chel = each chel
...

for d.chel = each chel
entitydistance(c\entity, d\entity) ...
next
...
next

Вот так сработает, только прийдется оптимайзить если у тебя много таких списков будет, так что используй экономично.

[IGR]

и тогда проверка будет только с предедущим елементом типа !!

[IGR]

вот передумал и решил тебе предложить сделать так:
Включаем в цикл перебора всех ботов, еще такой же цикл:
for c.chel = each chel
...

for d.chel = each chel
entitydistance(c\entity, d\entity) ...
next
...
next

Вот так сработает, только прийдется оптимайзить если у тебя много таких списков будет, так что используй экономично.

понял !! для 10 челов 90 проверок !!

[tormoz]

Что-то Булка совсем деградировала
посты, как на ГеймсАнатоми - такие же бредовые и самоуверенные.
Ханон, не знаешь, не делал - не пиши !!!
Сойдешь за умного.

По теме:

For d.chel = Each chel
  BlaBla(c\entity)
  
Next
.....
Function BlaBla(entity)
For d.chel = Each chel
  If c\entity<>entity
  If EntityDistance(c\entity,entity)<100
     Действие
  EndIf
  EndIf
Next
End Function

[IGR]

о !! tormoz, врубил !!
спасибо !!
если у меня заработает, то я буду very счаслив !!

[IGR]

Вотс пример демонстрирующий ярко выраженою кривизну рук !!

Вложение 4854

[IGR]

эй, посмотрите - помогите !!
Это всего лиш 14 Кб !!