ver6.game(ALPHA, баги с генерацией стен)

uses
  crt;//Подрубаем модуль, без него не работает

var
  a1, x, y, e, g, e1, e2, r, l, lx, ly, x1, x2, x3, x4, y1, y2, y3, y4, EXTx, EXTy, v1, v2, a, c, d, z1, z2, lvl, t1, t2, CQL: integer;
  Sym: char;//Значение 'Sym' - будет только для знаков (букв)

begin
  textbackground(white); //Перекраска фона
  clrscr; //Очистка экрана и применени цвета фона
  t1 := 2;
  t2 := 2;
  lvl := 1;
  lx := 8;//лабик
  ly := 20;//лабик
  for g := 1 to 4 do
  begin
    r := 10;//арена
    x := 5; //Корды перемеения курсора -
    y := 3; //Корды перемеения курсора |
    x1 := 4;// |
    x2 := 24;// |
    x3 := 4;// -
    x4 := 4;// -
    y1 := 2;// |
    y2 := 12;// |
    y3 := 2;// -
    y4 := 12;// -
    CQL := 1;//часть цикла
    //-------
    if lvl > 1 then begin
      r := r + lvl * 2;
      x2 := x2 + lvl * 2;
      y2 := y2 + lvl * 2;
      y4 := y4 + lvl * 2;
      lx := lx + lvl * 2;
      ly := ly + lvl * 2;
      e := 0;
    end;
    writeln(lx, ly);
    l := lx * ly;//лабик
    EXTx := x2 - 1;
    EXTy := y2 - 1;
    //-------
    textcolor(black); //Текст будет цветом
    gotoxy(x1, y1); // рисуем первые квадратики арены
    write('H');
    gotoxy(x2, y2);
    write('H');
    gotoxy(x3, y3);
    write('H');
    gotoxy(x4, y4);
    write('H');
    //--------
    textcolor(red); //Текст будет цветом
    v1 := 5;
    v2 := 3;
    assign(output, 'lvl.txt');
    rewrite(output);
    a := 1;
    writeln(a);
    for d := 2 to l do
    begin
      a := random(5);
      writeln(a);
    end;
    close(output);
    reset(output);
    for d := 1 to lx do
    begin
      for c := 1 to ly do
      begin
        gotoxy(v1, v2);
        //v1 := v1 + 1;
        read(output, a);
        if a = 0 then begin
          writeln('*');
          if (x = v1) and (y = v2) then begin
            gotoxy(1, 1); //Если закрытие перемещаем на новые корды
            clrscr; //Очистка экрана
            textcolor(green); //Если закрытие меняем цвет текста на зеленый
            writeln('Вы взорвались!'); //Если закрытие пишем хрень какую-то
            EXIT; //ПРЕКРАЩЕНИЕ ЦИКЛА!!!
          end;
        end;
        v1 := v1 + 1;
      end;
      v1 := 5;
      v2 := v2 + 1;
    end;
    v1 := 5;
    v2 := 3;
    close(output);
    //--------
    for e1 := 1 to r do //рисуем всю арену
    begin
      textcolor(black); //Текст будет цветом
      y1 := y1 + 1;
      gotoxy(x1, y1);
      write('H');
      y2 := y2 - 1;
      gotoxy(x2, y2);
      write('H');
      for e2 := 1 to 2 do
      begin
        x3 := x3 + 1;
        gotoxy(x3, y3);
        write('H');
        x4 := x4 + 1;
        gotoxy(x4, y4);
        write('H');
      end;
    end;
    //--------
    while CQL = 1 do
    begin
      gotoxy(EXTx, EXTy);
      textcolor(blue); //Текст будет цветом
      write('O');
      gotoxy(x, y); //Курсор будет перемещён в точку
      textcolor(green); //Текст будет цветом
      write('o'); //Вывод текста
      Sym := readkey; //Значение 'Sym' клавиша
      if Sym = 'a' then x := x - 1; //Влево
      if Sym = 'w' then y := y - 1; //Вверх
      if Sym = 'd' then x := x + 1; //Вправо
      if Sym = 's' then y := y + 1; //Вниз
      if Sym = 'x' then begin//Закрытие
        gotoxy(1, 1); //Если закрытие перемещаем на новые корды
        clrscr; //Очистка экрана
        textcolor(green); //Если закрытие меняем цвет текста на зеленый
        writeln('Спасибо за тестирование данной фигни!'); //Если закрытие пишем хрень какую-то
        EXIT; //ПРЕКРАЩЕНИЕ ЦИКЛА!!!
      end;
      clrscr; //Очистка экрана
      x1 := 4;// |
      x2 := 24;// |
      x3 := 4;// -
      x4 := 4;// -
      y1 := 2;// |
      y2 := 12;// |
      y3 := 2;// -
      y4 := 12;// -
      //-------
      if lvl > 1 then begin
        x2 := x2 + lvl * 2;
        y2 := y2 + lvl * 2;
        y4 := y4 + lvl * 2;
      end;
      //-------
      textcolor(red); //Текст будет цветом
      reset(output);
      for d := 1 to lx do
      begin
        for c := 1 to ly do
        begin
          gotoxy(v1, v2);
          //v1 := v1 + 1;
          read(output, a);
          if a = 0 then begin
            writeln('*');
            if (x = v1) and (y = v2) then begin//Закрытие
              gotoxy(1, 1); //Если закрытие перемещаем на новые корды
              clrscr; //Очистка экрана
              textcolor(green); //Если закрытие меняем цвет текста на зеленый
              writeln('Вы взорвались!'); //Если закрытие пишем хрень какую-то
              EXIT; //ПРЕКРАЩЕНИЕ ЦИКЛА!!!
            end;
          end;
          v1 := v1 + 1;
        end;
        v1 := 5;
        v2 := v2 + 1;
      end;
      close(output);
      v1 := 5;
      v2 := 3;
      //--------
      textcolor(black); //Текст будет цветом
      gotoxy(x1, y1); // рисуем первые квадратики арены
      write('H');
      if (x = x1) and (y = y1) then begin
        clrscr; //Очистка экрана
        EXIT;
      end;
      gotoxy(x2, y2);
      write('H');
      if (x = x2) and (y = y2) then begin
        clrscr; //Очистка экрана
        EXIT;
      end;
      gotoxy(x3, y3);
      write('H');
      if (x = x3) and (y = y3) then begin
        clrscr; //Очистка экрана
        EXIT;
      end;
      gotoxy(x4, y4);
      write('H');
      if (x = x4) and (y = y4) then begin
        clrscr; //Очистка экрана
        EXIT;
      end;
      for e1 := 1 to r do //рисуем всю арену
      begin
        textcolor(black); //Текст будет цветом
        y1 := y1 + 1;
        gotoxy(x1, y1);
        write('H');
        if (x = x1) and (y = y1) then begin
          clrscr; //Очистка экрана
          EXIT;
        end;
        y2 := y2 - 1;
        gotoxy(x2, y2);
        write('H');
        if (x = x2) and (y = y2) then begin
          clrscr; //Очистка экрана
          EXIT;
        end;
        for e2 := 1 to 2 do
        begin
          x3 := x3 + 1;
          gotoxy(x3, y3);
          write('H');
          if (x = x3) and (y = y3) then begin
            clrscr; //Очистка экрана
            EXIT;
          end;
          x4 := x4 + 1;
          gotoxy(x4, y4);
          write('H');
          if (x = x4) and (y = y4) then begin
            clrscr; //Очистка экрана
            EXIT;
          end;
          if (EXTx = x) and (EXTy = y) then begin
            gotoxy(t1, t2);
            CQL := 2;
          end;
        end;
      end;
    end;
    //-------
    rewrite(output);
    close(output);
    if (t1 = 2) and (t2 = 2) then begin
      clrscr;
      lvl := lvl + 1;
      writeln('Finish! LEVEL ', lvl);
    end;
    //--------
    //e := 1;
    //--------
  end;
  readln; //Это чтоб окно сразу не закрылось
end.