вставил проверку спойла
delphi Код:
if TargetID > 0 then // если в прицеле есть моб, то
begin // валим вражину
if ((AttackCycle mod 5) = 0) then
begin
if Spoil and (not Spoiled) and (MobsNpcTypeID[i]=1021173) then RequestMagicSkillUse(254) // заспойлим моба если опция включена
else PhisicalAttack;
end;
выдает ошибку: Variant of safe array index out of bounds
оТДЕЛЬНОЙ ПРОЦЕДУРОЙ ТА ЖЕ ФИГНЯ((( помогите пжл
Добавлено через 1 час 32 минуты
УРААААААААААААА ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!! вот кусок:
delphi Код:
function proverka : boolean; // функция проверяет, атакует ли меня кто-нибудь или нет
var
i: integer;
begin
for i:=1 to MobsLastIndex do
if (TargetID = MobsObjID[i]) and (MobsNpcTypeID[i]=1021173) then // ищем первого попавшегося моба, который нас атакует
begin
result:= true; // возвращаем его индекс по БД
break;
end else result:=false;
end;
procedure OnTimerCombat (Sender: TObject); // боевой таймер, вся логика поведения бота находится именно здесь!!!
var
Agro, MinDistID, i: integer;
begin
if TargetID > 0 then // если в прицеле есть моб, то
begin // валим вражину
if ((AttackCycle mod 5) = 0) then
begin
if Spoil and (not Spoiled) and proverka then RequestMagicSkillUse(254) // заспойлим моба если опция включена
else PhisicalAttack;