Sitemap

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

var
t : Integer;

const
food = $097B; //Fish stakes

Begin
  SetARStatus(true);
  while not Dead do
  begin
    if Connected then
    begin
      Hungry(1, backpack);
      for t := 0 to 50 do
      begin
        if TargetPresent then CancelTarget;
        CheckTargetError(5,2);
        CheckSave;
        UseSkill('Taste Identification');
        WaitTargetObject(FindType(food,backpack));
        Wait(10100);
      end;
    end;
  end;
End.