ДА БУДЕТ БOT!

[tiranosaur]

бот локомотив проверка TypeID моба

function proverka : boolean;
 var i:integer;        
 begin
    for i:=1 to MobsLastIndex do
    begin
    result:=false;
    if (TargetID = MobsObjID[i]) and NpcTypeID1=MobsNpcTypeID[i] then result:=true;
    end;
 end;

в локомотиве изменил только это. где я не прав?
либо как узнать typeID цели?

[alexteam]

if (TargetID = MobsObjID[i]) and (NpcTypeID1=MobsNpcTypeID[i]) then 
  begin
    result:=true;
    break;
  end;

[tiranosaur]

вставил проверку спойла

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 минуты
УРААААААААААААА ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!! вот кусок:

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;

[xeno]

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

begin
if fromserver and (pck[1]=#$16) then
begin if fromserver and (pck[10]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
if fromserver and (pck[1]=#$05) then
begin if fromserver and (pck[6]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
end.

через пару минут работы скрипта, пакетхак выдает list index of bounds.

[tiranosaur]

Дык если убьешь эти пакеты дроп не видно будет. Кстати это ошибка вроде не из-за этого.

[xeno]

Сообщение от tiranosaur

Дык если убьешь эти пакеты дроп не видно будет. Кстати это ошибка вроде не из-за этого.

в этом то и идея, у нас на серве локации закидывают аденой, так что в лаге можно простоять до рестарта.

[tiranosaur]

))) отключи клиент и будет тебе щастье))) щас подправлю. сек

[xeno]

вот так тоже можно или нет, правда я непонимаю что дает case pck of #$xx ?

begin
if fromserver and (pck[1]=#$05) then
begin
case pck[6] of #$39 : pck:='';
end;
end;
end.

[tiranosaur]

посмотри итем ид костей и адены и какие хроны

[xeno]

адена - 57
кости - 2508
камаель хелбаунд.

можешь сделать по типу шаблона, чтоб можно было просто ид подставлять?