правильно ли я понял логику?
1) В начале скрипта ставим "ловушку" на евент
Code: Select all
SetEventProc(evDrawObject,'awareness');
Code: Select all
playertype[1] := $0190;
playertype[2] := $0191;
finddistance := 20;
//
procedure awareness(ID : Cardinal);
begin
//далее GetType по ID сравнение с заранее задаными типами и если нужно действие.
end;