Hungry

[Star4ce]

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.

неработает NOT. чем заменить?

[Miralex]

InJournal() возвращает индекс строки. Если строка не найдена то получишь -1.

поэтому if not (InJournal >= 0)
или же if InJournal = -1

[Dani]

while not injournal('You') >= 0 do wait(100);
if not InJournal('stuffed') >= 0 then

так вот типо