Sitemap

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

var
n : TDateTime;
i : Integer;

const
animal = $00C8; //type of animal (horse). find out using ,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; //search around
    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.