Code: Select all

procedure test;
begin
if bla bla bla then ВЫХОД_ИЗ_ПРОЦЕДУРЫ
...
до этого месте не доходит если условие бла бла выполняется
end;


begin
test;
end.

Code: Select all

program hide;
begin
repeat
while not hidden do
begin
SetWarMode(false);
UseSkill('Hiding');
wait(1000); 
end;
until false;
end.

Code: Select all

          uosay('all come' );
if FindTypeEx(animal, $FFFF, ground, false) <> 0 then
                     Attack(FindItem);
          wait(2000);
        until FindTypeEx(animal, $FFFF, ground, false) = 0;
      end;
        CheckSave;
end;
wait(10000);
until dead;
end.