Stealth Client Forum

Code: Select all

program hungry; 
var hungry : Integer; 
Begin 
 hungry := 1;
 while hungry = 1 do
  begin
   ClearJournal;
   UOSay('.hungry')
    while not injournal('You') do wait(100);
    if not InJournal('stuffed') then
     begin
        UseObject('$7F7F8655');
        wait(1000);
     end;
    else hungry := 0;
  end;
ClearJournal;
End.