самолёт

uses graphABC;
const bu: array [1..5] of integer
         =(200,400,600,800,1000);
 
var x0:integer;
    kb: array [1..2,1..5] of integer;
    gorod: array [1..100,1..4] of integer;
    
procedure Gengorod;
var i,kx,ky: integer;
begin
for i:=1 to 100 do
    begin
    kx:=random(900);
    ky:=random(150)+450;
    gorod[i,1]:=kx-5-random(30);
    gorod[i,2]:=ky-10-random(100);
    gorod[i,3]:=kx+5+random(30);
    gorod[i,4]:=ky+10+random(100);
    end;
end;
 
 
procedure Fon;
var i: integer;
begin
clearwindow(clskyblue);
setpencolor(clnavy);
setbrushcolor(clnavy);
rectangle(0,420,900,450);
setpencolor(clblack);
setbrushcolor(clblack);
rectangle(0,450,900,500);
for i:=1 to 100 do
    rectangle(gorod[i,1],gorod[i,2],gorod[i,3],gorod[i,4]);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(800,100,30);
setpencolor(clgray);
setbrushcolor(clgray);
rectangle(0,500,900,600);
end;
 
 
procedure Airplane(x: integer);
var i: integer;
begin
setpencolor(clgray);
setbrushcolor(clgray);
ellipse(x-80,80,x+90,110);
setpenwidth(9);
line(x-40,100,x+10,60);
line(x-30,100,x+15,60);
line(x-20,100,x+20,60);
setpencolor(clltgray);
line(x-30,100,x+10,130);
line(x-20,100,x+15,130);
line(x-10,100,x+20,130);
setpenwidth(1);
roundrect(x+20,90,x+40,110,5,5);
setpencolor(clgray);
setpenwidth(8);
line(x-30,100,x+10,130);
line(x-20,100,x+15,130);
line(x-10,100,x+20,130);
setpenwidth(1);
rectangle(x+70,70,x+89,100);
end;
 
procedure Bomb(x,y: integer);
begin
if y<450 then
   begin
   setbrushcolor(clblack);
   ellipse(x-5,y-7,x+5,y+7);
   end;
end;
 
procedure Kaboom(x,y: integer);
var i,j: byte;
begin
setpencolor(clblack);
for i:=1 to 3 do
    begin
    for j:=1 to 3 do
        begin
        if odd(j) then setbrushcolor(clred) else
           if odd(i) then setbrushcolor(clblack) else
              setbrushcolor(clyellow);
        circle(x+(random(41)-40),y+(random(41)-20),10+random(10));
        end;
    end;
end;
 
procedure Bombs(x: integer);
var i,j: byte;
begin
for i:=1 to 5 do
    begin
    if x=bu[i] then
       begin
       kb[1,i]:=x;
       kb[2,i]:=150;
       end else
       if kb[2,i]<>0 then
          begin
          kb[1,i]:=kb[1,i]-1;
          kb[2,i]:=kb[2,i]+1;
          end;
    Bomb(kb[1,i],kb[2,i]);
    if (kb[2,i]>=450) and (kb[2,i]<=500) then Kaboom(bu[i]-300,450);
    end;
end;
 
begin
Gengorod;
lockdrawing;
setwindowsize(900,600);
repeat
for x0:=-200 to 1200 do
    begin
    Fon;
    Airplane(1100-x0);
    Bombs(1100-x0);
    sleep(10);
    redraw;
    end;
until false;
end.