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.