ver2.game

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

var
  x, y, e: integer;
  Sym: char;//Значение 'Sym' - будет только для знаков (букв)

begin
  textbackground(white); //Перекраска фона
  clrscr; //Очистка экрана и применени цвета фона
  textcolor(red); //Текст будет цветом
  x := 20; //Корды перемеения курсора
  y := 10; //Корды перемеения курсора
  for e := 1 to 5000000 do //Я глупый, и не знаю как сделать, поэтому он сможет "ходить" 5000***** раз
  begin
    gotoxy(x, y); //Курсор будет перемещён в точку
    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;
    clrscr; //Очистка экрана
  end;
  readln; //Это чтоб окно сразу не закрылось
end.