Stealth Client Forum

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.