Stealth Client Forum

Posted: **11.09.2008 19:26**

Помогите добавить в данную процедуру юзания скила ентисмент на моба(типы указаны) и таргет на себя

Буду признателен.

procedure FindMobs; 
begin 
  FindDistance := 20; 
  if FindType($0018, ground) > 0 then 
  begin 
    AddToSystemJournal('Обнаружен: '+GetName(finditem)); 
    SetGlobal('stealth', 'mobname', 'lich'); 
  end; 
  if FindType($0032, ground) > 0 then 
  begin 
    AddToSystemJournal('Обнаружен: '+GetName(finditem)); 
    SetGlobal('stealth', 'mobname', 'lich'); 
  end; 
end;

Posted: **11.09.2008 21:20**

вот как-то так:

Code: Select all

procedure FindMobs; 
begin 
  FindDistance := 20; 
  if FindType($0018, ground) > 0 then 
  begin 
    AddToSystemJournal('Обнаружен: '+GetName(finditem)); 
    SetGlobal('stealth', 'mobname', 'lich'); 
  end; 
  if FindType($0032, ground) > 0 then 
  begin 
    AddToSystemJournal('Обнаружен: '+GetName(finditem)); 
    SetGlobal('stealth', 'mobname', 'lich'); 
  end; 
  UseSkill('Enticement');
  repeat
   wait(100);
   {тут ещё можно вставить условие дополнительного выхода из цикла, ну и checksave}
  until targetpresent;
  TargetToObject(FindItem);
  repeat
   wait(100);
   {тут ещё можно вставить условие дополнительного выхода из цикла, ну и checksave}
  until targetpresent;
  TargetToObject(Self);
end;

Stealth Client Forum

Помогите:)

Помогите:)