Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- uses
- crt;//Подрубаем модуль, без него не работает
- var
- x, y, e, e1, x1, x2, x3, x4, y1, y2, y3, y4: integer;
- Sym: char;//Значение 'Sym' - будет только для знаков (букв)
- begin
- textbackground(white); //Перекраска фона
- clrscr; //Очистка экрана и применени цвета фона
- textcolor(red); //Текст будет цветом
- x := 5; //Корды перемеения курсора -
- y := 3; //Корды перемеения курсора |
- x1 := 4;// |
- x2 := 20;// |
- x3 := 4;// -
- x4 := 4;// -
- y1 := 2;// |
- y2 := 18;// |
- y3 := 2;// -
- y4 := 18;// -
- 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(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; //Очистка экрана
- x1 := 4;// |
- x2 := 20;// |
- x3 := 4;// -
- x4 := 4;// -
- y1 := 2;// |
- y2 := 18;// |
- y3 := 2;// -
- y4 := 18;// -
- 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;
- end;
- readln; //Это чтоб окно сразу не закрылось
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement