ЛЮДИ!Памагите пажалуста!Недавно начал учить midletPascal.Решил создать леталку на самолете и вот чо у меня есть:
program game;
var
Cosmos:image; // Переменная для хранения фона
NLO:image;
X,Y:integer;
vert:image;
A,B:integer;
// Переменная для хранения самой тарелки
// Координаты тарелки
Key:integer;
// Код нажатой кнопки
begin
// Загружаем картинки
Cosmos:=LoadImage('/Cosmos.png');
NLO:=LoadImage('/NLO.png');
vert:=LoadImage('/vert.png');
// Задаем начальные координаты тарелки
X:=10;
Y:=50;
A:=140;
B:=50;
begin
SetColor(0,0,0);
Fillrect(0,0,1000,1000);
SetColor(255,0,0);
DrawText('"Пигня" presents...',25,80);
repaint;
delay(2000);
end;
// Цикл до нажатия на центр джойстика
while (Key<>KE_KEY0) do
begin
DrawImage(Cosmos,0,0);
DrawImage(NLO,X,Y);
drawImage(vert,A,
;
Delay(100);
if X < 0 then X := 0;
if Y < 0 then Y := 0;
if X > GetWidth - 16 then X := GetWidth - 16;
if Y > GetHeight - 16 then Y := GetHeight - 16;
// Обрабатываем нажатия кнопок и меняем координаты тарелки
Key:=KeyToAction(getKeyPressed);
SetColor(255,255,0);
if (Key=GA_LEFT) then X:=X-7;
if (Key=GA_RIGHT) then X:=X+7;
if (Key=GA_UP) then Y:=Y-7;
if (Key=GA_DOWN) then Y:=Y+7;
repaint;
end;
end .
Так вот памагите!Как сделоть так чтобы можна было стрелять,когда я нажимал на пятерку?Очень нада,никак разобратся не могу!
(Если можна напишите код!)