Code: Select all
program cookingv058;
var i : integer;
{$Include 'all.inc'}
procedure grab_in_backpack(Stype : word);
var pID : Cardinal;
begin
findtype(Stype,backpack);
pID:=finditem;
if findquantity<200 then
begin
if findcount>0 then moveitem(findtype(Stype,ground), 300, pID,0,0,0)
else moveitem (findtype (Stype,ground), 300, backpack,0,0,0);
end;
wait(1200);
end;
Begin
IgnoreReset;
SetARStatus(true);
AutoMenu('What do you want to make?','15'); {SET NEED QUANTITY OF COOKED FISHSTAKES}
while true do
begin
grab_in_backpack($097A);
Stack($097B, $FFFF);
hungry(1,ground);
for i:=1 to 5 do
begin
findtype($097A,backpack);
Useobject(finditem);
WaitJournalLine(Now,'Darn|You put|You must', 20000);
end;
end;
End.