Herding

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

var
i : Integer;

const
animal = $0000; //тип животного, узнаем через ,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.
 
faq/stealth/herding.txt · Последние изменения: 2019/11/18 15:55 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki