Зависает стелс

[murderinc]

Code: Select all

Program Dialog;
var
stime : TDateTime;
a,b,c : integer;

{$Include 'all.inc'} 

Begin 
SetARStatus(true); 
hungry(1,backpack); 
clearjournal; 
  stime := Now;
  Addtosystemjournal('000');
   repeat
    wait(5000);
    a := InJournalBetweenTimes('здарова|ку|',stime, Now); 
    b := InJournalBetweenTimes('красавчек!|оло', stime, Now); 
    c := InJournalBetweenTimes('а ты че!', stime, Now); 
    Addtosystemjournal('11111');
    wait(200); 
   until (a >= 0) or (b >= 0) or (c >= 0) or Dead or (Now > stime + (2.0/1440));
   UOSay('привет');
   wait(1000);
End.

вот этот простенький скрипт зависает, ходит в репите все хорошо, потом получает необходимую фразу, выходит из репита говорит "привет" и стелс полностью зависает. Что бы это могло быть?

[MuDaCk]

судя по скрипту, он должен после этих действий просто выключиться...

[murderinc]

судя по скрипту, он должен после этих действий просто выключиться...

так и есть, там еще был цикл, что бы он постоянно это делал. но он и в том и в этом варианте тупо подвешивает стелс, что приходиться снимать задачу, в чем может быть дело?

[Alex]

на какой строчке скрипта зависает?

[murderinc]

тут работает все хорошо, ходит в репите все норм

Code: Select all

repeat
    wait(5000);
    a := InJournalBetweenTimes('здарова|ку|',stime, Now); 
    b := InJournalBetweenTimes('красавчек!|оло', stime, Now); 
    c := InJournalBetweenTimes('а ты че!', stime, Now); 
    Addtosystemjournal('11111');
    wait(200); 
   until (a >= 0) or (b >= 0) or (c >= 0) or Dead or (Now > stime + (2.0/1440));

Но когда условие выполняется, то есть он находит фразу в журнале, он выполняет - это строку, а иногда может и не выполняет

Code: Select all

UOSay('привет');

и зависает.

[CFA]

Да баг есть, пофикшу позже.
Ну а чтоб не ждать фикса, просто вот тут InJournalBetweenTimes('здарова|ку|',stime, Now); убери последний "|".

[murderinc]

Да баг есть, пофикшу позже.
Ну а чтоб не ждать фикса, просто вот тут InJournalBetweenTimes('здарова|ку|',stime, Now); убери последний "|".

хы.. копипаст до добра не доводит... ну с другой стороны - хорошо, есть возможность исправить)

спасибо.