Cooking

Автолуп включаем, так быстрее. (.options) Под ноги кидаем кучи рыбы. Чар берёт по 10к и выкидывает под себя жареную.

program Cooking;
{$Include 'all.inc'}
var
ctime : TDateTime;
i : Integer;

const
rawstakes = $097A;
stakes = $097B;

procedure DropStakes;
begin
  if GetQuantity(FindTypeEx(rawstakes,$ffff,backpack,false)) > 10000 then
  begin
    MoveItem(FindItem, FindQuantity, ground, 0, 0, 0);
  end;
end;

procedure CheckFish;
begin
  FindDistance := 2;
  if GetQuantity(FindTypeEx(rawstakes,$ffff,backpack,false)) < 500 then
  begin
    if FindTypeEx(rawstakes,$ffff,ground,false) > 0 then
    begin
      MoveItem(FindItem, 10000, backpack, 0, 0, 0);
      Wait(300);
    end;
  end;

end;

Begin
  SetARStatus(true);
  while not Dead do
  begin
    if Connected then
    begin
      Hungry(1, ground);
      for i := 0 to 1 do
      begin
        CheckFish;
        ctime := Now;
        if TargetPresent then CancelTarget;
        WaitMenu('to make?', '10');
        CheckTargetError(2, 2);
        CheckSave;
        Useobject(findtype(rawstakes, backpack));
        WaitJournalLine(ctime, 'You stop', 0);
        DropStakes;
      end;
    end;
  end;
End.
 
faq/stealth/cooking.txt · Последние изменения: 2019/11/19 15:57 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki