Animal Lore

Program AnimalLore;
{$Include 'all.inc'}

var
n : TDateTime;
i : Integer;

const
animal = $00C8; //тип животного (лошадь). узнаем через ,info

procedure Lore;
var
d, t: TDateTime;

begin
  d:=StrToTime('0:00:11');
  if ((now - n) > d) or (n = 0) then
  begin
    t:=now;
    FindDistance := 12; //ищем вокруг себя
    While FindType(animal, ground) > 0 do
    begin
      WaitTargetObject(FindItem);
      UseSkill('Animal Lore');
      WaitJournalLineSystem(t, 'like a', 3000);
      if TargetPresent then CancelTarget;
      n := now;
    end;
  end;
end;

Begin
  SetARStatus(true);
  while not Dead do
  begin
    Hungry(1,backpack);
    for i := 0 to 50 do
    begin
      n := now;
      Lore;
      Wait(10100);
    end;
  end;
End.
 
faq/stealth/animal_lore.txt · Последние изменения: 2019/11/18 09:50 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki