Как зациклить код?

[Alex11223]

можно так сделать?

это тоже надо в цикле (только добавить 4 кнопку для выхода, а то бесконечно будем ходить или более конкретно определиться с содержанием квеста)

[boldoc]

я в паскале почти ни бум бум, но хотелось что-то типа

if (x=2) then переход на другую строчку кода

=)

[_-Re@l-_]

Если уж хочется, метки в зубы и вперёд.
Пример

Label X,Y;
Var
     A : Integer;
Begin
        Readln(A);
        Case A of 
        1 : goto X;
        2 : goto Y;
        else Writeln('You are looser!');
        End;
        X :
        Writeln('A = 1');
        Readln;
        Halt(0);
        Y : 
        Writeln('A = 2');
        Readln;
        Halt(0);
End.

Приведённый мной код весьма и весьма индусский и обладает всеми свойствами спагетти, но .. вам хватит.

[boldoc]

Эмм, а по конкретней?

[_-Re@l-_]

Обновил предыдущее сообщение.

P.S. Не исключаю в коде синтаксических ошибок, на паскале давненько не писал(Delphi не в счёт).

[Alex11223]

Эм...
if (x=2) then переход на другую строчку кода — это где?
Кстати, тут ошибка

 if (y = 2) then writeln('Вы вышли на поляну');
    if (y = 3) then writeln('Вы вышли к ручью');

Эти if в теле первого if (про у=1) и соответственно мы к ним никогда не попадем т.к. в лесу у не изменяется
Отформатировали бы код нормально мб более понятно было.

Я имел в виду как-то так:

var
  a, x, y: integer;

begin
  repeat
    Writeln('Куда пойти? право-1, прямо-2, лево-3, выход из квеста-4');
    Read(y);
    if (y = 1) then 
    begin
      write('Вы вошли в лес. ');
      a := 0;
      repeat
        write('Bыберите куда идти: 1 — вглубь, 2 — назад: ');
        readln(x);
        case x of
          1: a := a + 1;
          2: a := a - 1;
        end;
        case a of
          1: write('Вы пришли к ...');
          2: write('Вы пришли к ...');
          3: write('Вы пришли к ...');
          0: write('Вы вернулись ко входу в лес. ');
        end;
      until a = -1;
    end;
    if (y = 2) then writeln('Вы вышли на поляну, но т.к. тут ничего интересного нет, вы сразу вернулись обратно');
    if (y = 3) then writeln('Вы вышли к ручью, но т.к. тут ничего интересного нет, вы сразу вернулись обратно');
  until y = 4;
  writeln('Конец квеста');
end.

[boldoc]

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

Program TextGame;
uses winCrt;
var
  a, x, y: integer;

begin
  repeat
    Writeln('Куда пойти? право-1, прямо-2, лево-3, выход из квеста-4');
    Read(y);
    if (y = 1) then
    begin
      write('Вы вошли в лес. ');
      a := 0;
      repeat
        write('Bыберите куда идти: 1 — вглубь, 2 — назад: ');
        readln(x);
        case x of
          1: a := a + 1;
          2: a := a - 1;
        end;
        case a of
          1: write('Вы пришли к землянке. тут опять появляется надпись "куда идти?"');
          2: write('...');
          3: write('...');
          0: write('Вы вернулись ко входу в лес. ');
        end;
      until a = -1;
    end;
    if (y = 2) then writeln('Вы вышли на поляну, но т.к. тут ничего интересного нет, вы сразу вернулись обратно');
    if (y = 3) then writeln('Вы вышли к ручью, но т.к. тут ничего интересного нет, вы сразу вернулись обратно');
  until y = 4;
  writeln('Конец квеста');
end.

если допсать эту ветку? например залезть в землянку-1 вернуться-2 не будет выдавать куда пойти?

[boldoc]

[Alex11223]

Ну если "в лоб", то так:

        case a of
          1: 
            begin
              write('Вы пришли к землянке. Залезть внутрь — 1, спать — 2, идти дальше — 3: ');
              readln(x);
              case x of
                1: writeln('Вы посидели в землянке и пошли дальше. ');
                2: writeln('Вы поспали в землянке и пошли дальше. ');
                3: writeln('Вы решили не задерживаться у землянки и пошли дальше. ');
              end;
            end;
          2: write('Вы пришли к ...');
          3: write('Вы пришли к ...');
          0: write('Вы вернулись ко входу в лес. ');
        end;

Кстати, а вам важен результат или самому научиться программированию?)

[BlackFishSQL]

можно попробовать использовать метки если надо на шаг назад перейти но это не очень подходит я думаю для вашей задачи.