Подскажите плз

[nekto]

Здрасте!

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; 

[Half-Life]

CheckHiding

Code: Select all

procedure CheckHiding;
begin
  if Hidden then exit;
  if WarMode = true then SetWarMode(false);
  while not Hidden do begin
    if not Connected then Exit;
    AddToSystemJournal('Прячемся...');
    UseSkill('Hiding');
    wait(2000);
  end;
  AddToSystemJournal('Спрятались)');
end;

[drabadan]

CheckHiding

Code: Select all

procedure CheckHiding;
begin
  if Hidden then exit;
  if WarMode = true then SetWarMode(false);
  while not Hidden do begin
    if not Connected or Dead then Exit; //мои 5 копеек...
    AddToSystemJournal('Прячемся...');
    UseSkill('Hiding');
    wait(2000);
  end;
  AddToSystemJournal('Спрятались)');
end;

[Half-Life]

Точняк) я писал с мыслью, что надо не забыть в цикл вставить проверку на конект или смерть и забыл_)