Подскажите плз
Posted: 08.03.2014 8:51
Здрасте!
1 раз хайд не проходит, он пытается еще, 2 раз не проходит, и процедура висит... в чем беда не пойму.
1 раз хайд не проходит, он пытается еще, 2 раз не проходит, и процедура висит... в чем беда не пойму.
Code: Select all
procedure CheckHide;
begin
if Hidden then exit;
repeat
if WarMode = true then SetWarMode(false);
AddToSystemJournal('Прячемся...');
UseSkill('Hiding');
repeat
wait(100);
until Hidden or (InJournal('seem to hide') > 0);
ClearJournal;
CheckLag(10000);
until Hidden or (not Connected);
end;