Sitemap

It's faster to have autoloop on (.options) Thorw lots of fish. Character takes 10k and throws back fried fish.

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.