ver4.game.upd_2

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

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

begin
  textbackground(white); //Перекраска фона
  clrscr; //Очистка экрана и применени цвета фона
  x := 5; //Корды перемеения курсора -
  y := 3; //Корды перемеения курсора |
  x1 := 4;// |
  x2 := 20;// |
  x3 := 4;// -
  x4 := 4;// -
  y1 := 2;// |
  y2 := 18;// |
  y3 := 2;// -
  y4 := 18;// -
  EXTx := 19;
  EXTy := 17;
  gotoxy(x1, y1); // рисуем первые квадратики арены
  write('*');
  gotoxy(x2, y2);
  write('*');
  gotoxy(x3, y3);
  write('*');
  gotoxy(x4, y4);
  write('*');
  //--------
  textcolor(red); //Текст будет цветом
  v1 := 5;
  v2 := 3;
  assign(output, 'lvl.txt');
  rewrite(output);
  for d := 1 to 196 do
  begin
    a := random(6);
    writeln(a);
  end;
  close(output);
  reset(output);
  for d := 1 to 14 do
  begin
    for c := 1 to 14 do
    begin
      gotoxy(v1, v2);
      //v1 := v1 + 1;
      read(output, a);
      if a <= 1 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 16 do //рисуем всю арену
  begin
    textcolor(black); //Текст будет цветом
    y1 := y1 + 1;
    gotoxy(x1, y1);
    write('H');
    y2 := y2 - 1;
    gotoxy(x2, y2);
    write('H');
    x3 := x3 + 1;
    gotoxy(x3, y3);
    write('H');
    x4 := x4 + 1;
    gotoxy(x4, y4);
    write('H');
  end;
  //--------
  for e := 1 to 5000000 do //Я глупый, и не знаю как сделать, поэтому он сможет "ходить" 5000***** раз
  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 := 20;// |
    x3 := 4;// -
    x4 := 4;// -
    y1 := 2;// |
    y2 := 18;// |
    y3 := 2;// -
    y4 := 18;// -
    //--------
    textcolor(red); //Текст будет цветом
    reset(output);
    for d := 1 to 14 do
    begin
      for c := 1 to 14 do
      begin
        gotoxy(v1, v2);
        //v1 := v1 + 1;
        read(output, a);
        if a <= 1 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 16 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;
      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
        clrscr; //Очистка экрана
        gotoxy(1, 1);
        writeln('Finish!');
      end;
    end;
  end;
  //-------
  rewrite(output);
  close(output);
  readln; //Это чтоб окно сразу не закрылось
end.