леталка - Форум

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Форум » Midlet Pascal » Вопросы по MidletPascal » леталка

леталка

romeohaker

Дата: Понедельник, 01.07.2013, 11.55.45 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 2

Репутация: 0

Статус: Offline

хочу сделать простенькую леталку. как сделать стрельбу и AI.желательны примеры

Wladymyr

Дата: Вторник, 02.07.2013, 18.45.03 | Сообщение # 2

Генералиссимус

Группа: Администраторы

Сообщений: 15

Репутация: 1

Статус: Offline

Цитата (romeohaker)

хочу сделать простенькую леталку. как сделать стрельбу и AI.желательны примеры

Для начала нужно знать как это должно выглядеть, и нужно знать общий код игры

romeohaker

Дата: Вторник, 02.07.2013, 19.13.59 | Сообщение # 3

Рядовой

Группа: Пользователи

Сообщений: 2

Репутация: 0

Статус: Offline

ar
Cosmos:image;
NLO:image;
X,Y:integer;
Key:integer;
begin
Cosmos:=LoadImage('/Cosmos.png');
NLO:=LoadImage('/NLO.png');
X:=50;
Y:=50;
while (Key<>GA_FIRE) do
begin
DrawImage(Cosmos,0,0); DrawImage(NLO,X,Y);
Delay(100);
repaint;
Key:=KeyToAction(getKeyPressed); if (Key=GA_LEFT) then X:=X-3;
if (Key=GA_RIGHT) then X:=X+3;
if (Key=GA_UP) then Y:=Y-3;
if (Key=GA_DOWN) then Y:=Y+3;
end;
end.

код типо такого только с мелкими добавлениями

Форум » Midlet Pascal » Вопросы по MidletPascal » леталка

Страница 1 из 1
1