после переноса скрипта с инжекта получился такой код:
Code: Select all
while not done do
done := (inJournal(msg1)>=0) or (inJournal(msg2)>=0) or (inJournal(msg3)>=0) or (inJournal(msg4)>=0);
после изменения кода до такого вида
Code: Select all
while not done do
begin
wait(500);
done := (inJournal(msg1)>=0) or (inJournal(msg2)>=0) or (inJournal(msg3)>=0) or (inJournal(msg4)>=0);
end;