Рекурсия в MP

[AleD]

Привет boolean.name! Решил посмсотреть MP и для теста начал писать сапёра, проблема вот в чём. Когда открываешь клетку, а там пусто, то, как и в MS Сапёре, открываются все смежные клетки, для этого использовал рекурсивную функцию:

procedure OpenEmpty(x, y: Integer);
begin
  if(x>=0)and(y>=0)and(x<=8)and(y<=8)and(space[x,y].tp=S_EMPTY)and(space[x,y].hidden>0)then
  begin
    space[x,y].hidden := 0;
    OpenEmpty(x, y-1);
    OpenEmpty(x-1, y);
    OpenEmpty(x, y+1);
    OpenEmpty(x+1, y);
  end;
end;

Но процедура просто зависает вроде бы есть 2 ограничения - размер поля и клетки только со свойством hidden>0.

=====Thread[Thread-4,1,main]=====
M.think(I)V
  M.openfield(II)V
    M.openempty(II)V
      M.openempty(II)V
        M.openempty(II)V
          M.openempty(II)V
            M.openempty(II)V

MP вообще поддерживает рекурсивные функции?

[ViNT]

Вообще поддерживает, но не уверен, что алгоритм работает корректно, когда функция вызывается внутри себя несколько раз подряд.

[cherepets]

Проблем быть не должно. У меня в последней игре процедура нанесения урона, натыкаясь на бочку, вызывает себя же еще 9 раз. К зависанию не приводит.

[AleD]

Нашёл в чём проблема была. MP проверяет сразу все условия в if'ах, что впринципе не нужно, если уже есть хотя бы одно true

if(false)or(false)or(true)or({это выражение уже можно и не вычислять}false)or(false)then ...