Сегодня: 06.02.2025г. 02:08
http://professional-pc.ucoz.ru/
Навигация
Рубрики
Категории
OC и Программное обеспечение [16]
Программирование [29]
Игры PC [11]
Интернет [13]
Железо [8]
Delphi [31]
Windows [57]
Прочее [0]
Мини-чат
 
300

Открыть большой чат в окне
в окне сайта
Реклама
Разместить кнопку
Разместить кнопку
Разместить кнопку
Делаем мини-игру в Delphi (Часть 2)

Написать свою игру в Delphi было бы очень интересно. В этом уроке я покажу, как сделать что-то типа 2D движка для игры без применения посторонних библиотек.  В чем будет заключаться наша игра? Наша игра будет очень проста. Мы уже нарисовали при помощи Shape круг и квадрат. И назначили цель игры: взять квадрат. Но игра без противника скучна и теперь мы его сделаем. Противник будет компьютерным ботом. И его цель не дать нам добраться до квадрата.

Сначала создадим новый Shape3 (создавать точно так же как и предыдущие объекты). Поставим свойство Top у Shape3 на 280, а свойство Left на 160.

 

Запомните! Мы используем только круглые числа для наших объектов потому, что если их передвигать не по 10 пикс., а по 1, то получится слишком медленно. Плюс могут возникнуть проблемы с координатами!

Теперь из вкладки System переносим компонент Timer на любой участок формы. Создаем событие для Timer: Timer1Timer.




И прописываем в ней следующий код:



if Shape3.Top > Shape1.Top then
begin
Shape3.Top:=Shape3.Top+Shape1.Top-(Shape1.Top+10);
if Shape3.Left > Shape1.Left then
begin
Shape3.Left:=Shape3.Left+Shape1.Left-(Shape1.Left+10);
end;
if Shape3.Left < Shape1.Left then
begin
Shape3.Left:=Shape3.Left+Shape1.Left-(Shape1.Left-10);
end;
end;

if Shape3.Top < Shape1.Top then
begin
Shape3.Top:=Shape3.Top+Shape1.Top-(Shape1.Top-10);
if Shape3.Left > Shape1.Left then
begin
Shape3.Left:=Shape3.Left+Shape1.Left-(Shape1.Left+10);
end;
if Shape3.Left < Shape1.Left then
begin
Shape3.Left:=Shape3.Left+Shape1.Left-(Shape1.Left-10);
end;
end;

if Shape3.Top = Shape1.Top then
begin
if Shape3.Left = Shape1.Left then
begin
ShowMessage('Проигрыш!');
Form1.Close;
end;
end;

Несмотря на массивность код довольно простой, поэтому думаю если вы читали раздел Уроки Delphi, то вы в нем разберетесь. Бот готов! Запускаем. Видим что бот идет к нам. Зайдем боту в тыл - он все равно идет к нам! 

Игра готова! Надеюсь статья вам понравилась!


Помогли ли вам наши статьи?
[ Результаты · Архив опросов ]
Всего ответов: 465


Источник:
Категория: Программирование | Добавил: BRESS (26.05.2011) | Автор: EW
Просмотров: 757 | Комментарии: 0 | Теги: | Рейтинг: 0.0/0
>Всего комментариев>: 0
Авторизация
Опрос
Где вам удобней скачивать файлы?
[ Результаты · Архив опросов ]
Всего ответов: 17
Online
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Статистика


CY-PR.com
© 2025 Professional-PC.Ucoz..Ru