ver6.game(BETA, Без видимых багов)

//Появилась возможность пропуска уровня 'f'
uses
  crt;//Подрубаем модуль, без него не работает

var
  a1, x, y, xdot, ydot, 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
  t1 := 2;
  t2 := 2;
  lx := 9;//лабик
  ly := 20;//лабик
  lvl := 1;
  for g := 1 to 7 do
  begin
    //----------
    if lvl <= 6 then begin
      textbackground(black);
      clrscr;
      textcolor(white);
      gotoxy(35, 15);
      writeln('Уровень №', lvl);
      delay(2000);
    end;
    textbackground(white); //Перекраска фона
    clrscr; //Очистка экрана и применени цвета фона
    //----------
    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 = 7 then begin
      textbackground(yellow); //Перекраска фона
      clrscr;
      gotoxy(25, 10);
      textcolor(red);
      writeln('Вы полностью прошли эту игру!');
      gotoxy(26, 12);
      writeln('Спасибо за ее тестирование!');
      gotoxy(17, 20);
      read();
      EXIT;
    end;
    //--------
    if lvl > 1 then begin
      e := lvl div 2;
      r := r + lvl * 2;
      x2 := x2 + lvl * 2 + (lvl + 3);
      y2 := y2 + lvl * 2;
      y4 := y4 + lvl * 2;
      lx := lx + lvl * 2;
      ly := ly + lvl * 2 + (lvl + 1);
      e := 0;
      if lvl >= 3 then begin
        x2 := x2 + e;
        ly := ly + e - e * 4 - (lvl - 2) * 5;
        lx := lx - e * 4 - (lvl - 2) * 3;
        if lvl = 6 then begin
          lx := lx + 3;
          ly := ly + 4;
        end;
      end;
      if lvl >= 4 then begin
        x2 := x2 + lvl - 2;
        ly := ly + 1;
        lx := lx - 1;
      end;
      if lvl = 5 then begin
        lx := lx + 2;
        ly := ly + 2;
      end;
    end;
    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);
    writeln('1');
    writeln('2');
    writeln('3');
    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
      xdot := x;
      ydot := y;
      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); //Если закрытие перемещаем на новые корды
        textcolor(green); //Если закрытие меняем цвет текста на зеленый
        writeln('Спасибо за тестирование данной фигни!'); //Если закрытие пишем хрень какую-то
        EXIT; //ПРЕКРАЩЕНИЕ ЦИКЛА!!!
      end;
      if Sym = 'f' then begin
        x := EXTx;
        y := EXTy;
      end;
      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 + (lvl + 3);
        y2 := y2 + lvl * 2;
        y4 := y4 + lvl * 2;
        if lvl >= 3 then begin
          x2 := x2 + e;
        end;
        if lvl >= 4 then begin
          x2 := x2 + lvl - 2;
        end;
      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;
      //--------
      for e1 := 1 to r do //рисуем всю арену
      begin
        textcolor(black); //Текст будет цветом
        gotoxy(x1, y1);
        write('H');
        y1 := y1 + 1;
        if (x = x1) and (y = y1) then begin
          clrscr; //Очистка экрана
          EXIT;
        end;
        gotoxy(x2, y2);
        write('H');
        y2 := y2 - 1;
        if (x = x2) and (y = y2) then begin
          clrscr; //Очистка экрана
          EXIT;
        end;
        for e2 := 1 to 2 do
        begin
          gotoxy(x3, y3);
          write('H');
          x3 := x3 + 1;
          if (x = x3) and (y = y3) then begin
            clrscr; //Очистка экрана
            EXIT;
          end;
          gotoxy(x4, y4);
          write('H');
          x4 := x4 + 1;
          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;
      gotoxy(xdot, ydot);
      textcolor(white);
      write('o');
    end;
    //-------
    rewrite(output);
    close(output);
    if (t1 = 2) and (t2 = 2) then begin
      clrscr;
      lvl := lvl + 1;
      writeln('Finish! LEVEL ', lvl);
    end;
    clrscr;
  end;
  readln; //Это чтоб окно сразу не закрылось
end.