Дождь (анимация)

uses GraphAbc;
var
x1,y1,x2,y2,i,k,t,u:integer;
 
x,y,o:real;
procedure fon();
begin
FloodFill(0,600,clskyblue);
line(0,500,1440,500);
FloodFill(250,600,clPaleGreen);
line(50,550,60,520);
line(60,520,70,550);
line(70,550,80,530);
line(80,530,90,550);
line(50,550,90,550);
setbrushcolor(clbrown);
rectangle(300,760,350,600);
setbrushcolor(clgreen);
circle(324,550,90);
setbrushcolor(clred);
circle(324,520,10);
line(324,510,324,500);
 
setbrushcolor(clred);
circle(350,560,10);
line(350,550,350,540);
 
setbrushcolor(clred);
circle(290,560,10);
line(290,550,290,540);
 
setbrushcolor(clred);
circle(324,587,10);
line(324,577,324,567);
end;
begin
MaximizeWindow;
lockdrawing;
x1:=0; y1:=150; k:=200; 
lockdrawing;
for i:=1 to 90 do 
begin
while x<=12 do
begin
clearwindow;
Fon();
x2:=trunc(x1+x*k);
y2:=trunc(y1-y*k);
setbrushcolor(clYellow);
Circle(600,150,80);
 
setbrushcolor(clgray);
Circle(x2-320,y2-50,40);
Circle(x2-300,y2-50,30);
Circle(x2-250,y2-50,60);
Circle(x2-180,y2-50,40);
Circle(x2-200,y2-50,30);
 
Circle(x2-30,y2,40);
Circle(x2-50,y2,30);
Circle(x2,y2,60);
Circle(x2+50,y2,30);
Circle(x2+70,y2,40);
 
 
Circle(x2+200,y2+50,30);
Circle(x2+220,y2+50,40);
Circle(x2+250,y2+50,60);
Circle(x2+300,y2+50,30);
Circle(x2+320,y2+50,40);
 
 
Circle(x2+580,y2-50,40);
Circle(x2+600,y2-50,30);
Circle(x2+650,y2-50,60);
Circle(x2+700,y2-50,30);
Circle(x2+720,y2-50,40);
 
x:=x+0.1;
sleep(3);
redraw;
end;
x:=0;
o:=o+0.5;
end;
end.

Program Rain;
// меняет цвета кнопками: r,g,b,y,w,p ;
//меняет скорость кнопками: up и down ;
//Меняет количество точек кнопками:left и right
 uses graphABC;
 var t:array[1..2,1..200]of integer;
    m,v,c:integer;
 procedure KeyDown(Key: integer);
begin
  case Key of
       VK_b: c:=1;
       VK_r: c:=2;
       VK_g: c:=3;
       VK_y: c:=4;
       VK_p: c:=5;
       VK_w: c:=6;
       VK_Right:   if m <=195 then m:=m+5; 
       VK_Left:    if m>=6 then m:=m-5;
       VK_Up:      if v<=95 then v:=v+5;
       VK_Down:    if v>=5 then v:=v-5;
    end; 
  end;  
  
 begin
 m:=100;
 v:=100;    
 c:=random(1,6);
 v:=round(100/v)-1;
 for i:integer:=1 to m do
  begin
  t[1,i]:=random(0,windowwidth);
  t[2,i]:=random(0,windowheight);
  end;
 repeat
 lockdrawing;
 clearwindow;
 setbrushcolor(clSkyBlue);
 rectangle(0,0,windowwidth,windowheight);
 //writeln(m,' ',v ); //Контроль количества и замедления
 case c of
     1: setpencolor(clblue);
     2: setpencolor(clred);
     3: setpencolor(clgreen);
     4: setpencolor(clyellow);
     5: setpencolor(clpurple);
     6: setpencolor(clwhite);
 end;
 for i:integer:=1 to m do
   begin
    //circle(t[1,i],t[2,i],2); // падают капли
    line(t[1,i],t[2,i]-5,t[1,i],t[2,i]+5); //падают линии
   end;
 redraw;
 sleep(v);
 for i:integer:=1 to m do
   begin
   t[2,i]:=t[2,i]+5;
   if t[2,i]>windowheight then t[2,i]:=1;
   end;
   OnKeyDown:=KeyDown;
 until false;