Program MakeGlass;
var i : Integer;

{$Include 'hungry.inc'}

procedure Make;
Begin
//tinker tools - 0x1EB9
//glass - 0x1BF5
WaitTargetGround($1BF5);
UseObject(FindType($1EB9,backpack));
WaitGump('1025');
wait(10000);
end;

Begin

while true do
begin
Hungry(2,Backpack);
i := 0;
while i < 100 do
   begin
   Make;
   i := i + 1;
   end;
end;


End.