имЪхо для мидлетов посерьезнее надо всетки юзать J2ME...
ЗЫ решыл еще выложыть сорцы:
ресурсы:
my0.png - мой самолетик, в движении налево
my1.png - мой самолетик - прямой
my2.png - мой самолетик, в движении направо
Enemy.png - самолетик врага
Bullets.png- патроны
boom.png - взрыв
music1.mid - фоновая музычка
(все ресурсы можно извлечь из файла SkyWars.jar, для чего открыть его в WinRare)
Код
program SkyWars;
var
dx, dir, i:integer;
sX, sY, key:integer;
myX, myY:integer;
myPlane : array [0..2] of image;
enPlane, Shot, Boom : image;
isShot:boolean;
ShotX, ShotY, ShotSpeed:integer;
enX, enY, enSpeed:integer;
kiled, level :integer;
begin
dx:=4;
kiled:=0;
level:=1;
ShotSpeed:=6;
isShot:=False;
sX:=getWidth;
sY:=getHeight;
enY:=0;
enX:=random(sX-24);
enSpeed:=2;
myX:=trunc(sX/2)-12;
myY:=sY-24;
for i:=0 to 2 do myPlane[i]:=LoadImage('/my'+chr(48+i)+'.png');
enPlane:=LoadImage('/Enemy.png');
Shot:=LoadImage('/Bullets.png');
Boom:=LoadImage('/boom.png');
SetColor(255, 255, 255);
FillRect(0, 0, sX, sY);
if not openPlayer('/music1.mid', 'audio/midi') then halt;
if not SetPlayerCount(-1) then halt;
if not startPlayer then halt;
repeat
FillRect(sx-72, 3, sX, 24);
setColor(0, 0, 255);
setFont(FONT_FACE_SYSTEM, FONT_STYLE_PLAIN, FONT_SIZE_MEDIUM );
drawText('Убито:' + kiled, sX-72, 3);
drawText('Уровень:' + level, sX-72, 16);
repaint;
SetColor(255, 255, 255);
key := GetKeyPressed;
//прорисовка и управление моим самолетом
FillRect(myX, myY, 24,24);
dir:=1;
if key = KE_KEY6 then
begin
dir:=2;
myX:=myX+dx;
end else
if key=KE_KEY4 then
begin
dir:=0;
myX:=myX-dx;
end else
if (key=KE_KEY5) And Not(isShot) then
begin
isShot:=true;
ShotX:=myX;
ShotY:=myY-7;
end;
if myX<0 then myX:=0;
if myX>sX-12 then myX:=sX-24;
DrawImage(myPlane[dir], myX, myY);
//обработка выстрелов.
if isShot then
begin
FillRect(ShotX, ShotY, 24,7);
ShotY:=ShotY-ShotSpeed;
if ShotY<=0 then
isShot:=False
else
if (((ShotX+24>=enX) AND (ShotX+24<=enX+24)) OR ((enX<=ShotX) AND (ShotX<enX+24))) AND (ShotY<=enY+24) then
begin
isShot:=False;
DrawImage(Boom, enX-4, enY);
repaint;
delay(100);
FillRect(ShotX, ShotY, 24,7);
FillRect(enX-4, enY, 32,35);
enY:=0;
enX:=random(sX-24);
kiled:=kiled+1;
if (kiled=10) or (kiled=20) or (kiled=30) or (kiled=40) or (kiled=50) then //крива-крива... а и пофиг... <img src="http://s21.ucoz.net/sm/24/wacko.gif" border="0" align="absmiddle" alt="wacko">
begin
level:=level+1;
enSpeed:=enSpeed+1;
end;
end
else
DrawImage(Shot, ShotX, ShotY);
end;
//прорисовка врага
FillRect(enX, enY, 24,24);
if (enY>=(sY-24)) then
begin
enY:=0;
enX:=random(sX-24);
end
else
enY:=enY+enSpeed;
DrawImage(enPlane, enX, enY);
repaint;
until GetKeyClicked = KE_KEY0;
stopPlayer;
end.
