ver3.game(with portal xD)

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

var
  x, y, e, e1, x1, x2, x3, x4, y1, y2, y3, y4, EXTx, EXTy: 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('*');
  for e1 := 1 to 16 do //рисуем всю арену
  begin
    textcolor(black); //Текст будет цветом
    y1 := y1 + 1;
    gotoxy(x1, y1);
    write('*');
    y2 := y2 - 1;
    gotoxy(x2, y2);
    write('*');
    x3 := x3 + 1;
    gotoxy(x3, y3);
    write('*');
    x4 := x4 + 1;
    gotoxy(x4, y4);
    write('*');
  end;
  for e := 1 to 5000000 do //Я глупый, и не знаю как сделать, поэтому он сможет "ходить" 5000***** раз
  begin
    gotoxy(EXTx, EXTy);
    textcolor(blue); //Текст будет цветом
    write('#');
    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(black); //Текст будет цветом
    gotoxy(x1, y1); // рисуем первые квадратики арены
    write('*');
    if (x = x1) and (y = y1) then begin
      clrscr; //Очистка экрана
      EXIT;
    end;
    gotoxy(x2, y2);
    write('*');
    if (x = x2) and (y = y2) then begin
      clrscr; //Очистка экрана
      EXIT;
    end;
    gotoxy(x3, y3);
    write('*');
    if (x = x3) and (y = y3) then begin
      clrscr; //Очистка экрана
      EXIT;
    end;
    gotoxy(x4, y4);
    write('*');
    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('*');
      if (x = x1) and (y = y1) then begin
        clrscr; //Очистка экрана
        EXIT;
      end;
      y2 := y2 - 1;
      gotoxy(x2, y2);
      write('*');
      if (x = x2) and (y = y2) then begin
        clrscr; //Очистка экрана
        EXIT;
      end;
      x3 := x3 + 1;
      gotoxy(x3, y3);
      write('*');
      if (x = x3) and (y = y3) then begin
        clrscr; //Очистка экрана
        EXIT;
      end;
      x4 := x4 + 1;
      gotoxy(x4, y4);
      write('*');
      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;
  readln; //Это чтоб окно сразу не закрылось
end.