MIDlet Pascal
Поиск по сайту
Форма входа

Статистика


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Воскресенье, 23.09.2018, 01.37.30
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
леталка - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · 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
Поиск:

Wladymyr © 2018
Создать бесплатный сайт с uCoz