Показать сообщение отдельно
Старый 05.02.2010, 15:44   #613
Пользователь
 
Регистрация: 03.09.2009
Сообщений: 63
Сказал Спасибо: 19
Имеет 5 спасибок в 3 сообщенях
tiranosaur пока неопределено
По умолчанию

вставил проверку спойла
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;

Последний раз редактировалось NLObP, 07.02.2010 в 23:31. Причина: Красным писать нельзя! Добавил тег DELPHI
tiranosaur вне форума   Ответить с цитированием