Sitemap

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

var
i : Integer;

const
animal = $0000; //animal's type, find it out using ,info
crook = $0000;  //shepherd's crook

Begin
  while true do
  begin
    if Connected then
    begin
      for i := 0 to 50 do
      begin
        Hungry(1, backpack);
        if TargetPresent then CancelTarget;
        WaitTargetObject(Self);
        FindDistance := 12;
        waittargetobject(FindType(animal, ground));
        UseObject(FindType(crook, backpack));
        Wait(500);
      end;
    end;
    wait(500)
  end;
End.