Помогите:)

[f1fa]

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

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; 
end; 

[Beren]

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

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;