Code
Program asteroids;
var
nlo,asteroid,fon:image;
gameover:boolean;
over:string;
x,y:array [1..2] of integer;
begin
over:='Game Over';
nlo:=LoadImage('/nlo.png');
asteroid:=LoadImage('/asteroid.png');
fon:=LoadImage('/fon.png');
gameover:=false;
x[1]:=GetWidth/2-GetImageWidth(nlo)/2; y[1]:=20;
x[2]:=x[1]+10; y[2]:=100;
repeat
DrawImage(fon,0,0);
DrawImage(nlo,x[1],y[1]);
DrawImage(asteroid,x[2],y[2]);
y[2]:=y[2]-1;
if (y[2]=y[1]+GetImageHeight(nlo)) then begin gameover:=true end;
if gameover=true then
begin
DrawImage(fon,0,0);
SetColor(255,255,255);
DrawText(''+(over),GetWidth/2-GetStringWidth(over)/2,GetHeight/2-GetStringHeight(over)/2);
end;
repaint;
delay(1);
until false;
end.
Вот весь код
А ниже сам исходник
,картинки сам рисовал так что не обижайтесь
: