Графическая задача (анимация), Есть туча, идет дождь, емкость наполняется Опции

[Nike0]

Доброго времени суток. Прошу помочь в решении задачи. Вот условие: нужно составит программу вывода в верхнюю часть экрана изображение тучи, а в нижнюю – емкость для воды; при нажатии клавиши Enter начинает идти дождь. В то время, как идет дождь, туча начинает уменьшаться, а емкость наполняется.

[Nike0]

решил поднять тему, принцип понял, но реализовать не могу... пробовал по-разному, но безуспешно, единственное что понятно, чтобы чтото начало двигаться, надо вместо цифр ставить параметры и в циклах их изменять и все)

[Lapp]

чтобы чтото начало двигаться, надо вместо цифр ставить параметры и в циклах их изменять и все)

Хорошо. Вот тебе дождь. Этого тебе достаточно для начала?

uses
  WinCRT,Graph;

const
  n=40;
  l1=10;
  l2=20;
  a=-0.2;
  b=20;
  SkyCol=Black;
  RainCol=Cyan;

type
  tRain= record
    x,y,z,dx,dy: integer
  end;

var
  Rain: array[1..n]of tRain;
  Gd,Gm,i,g: Integer;

begin
  Gd:=Detect;
  InitGraph(Gd,Gm,'');
  if GraphResult<>grOk then Halt(1);
  g:=GetMaxY-b-l2-l1;
  for i:=1 to n do with Rain[i] do begin
    dy:=l1+Random(l2-l1+1);
    dx:=Round(dy*a);
    x:=b+Random(GetMaxX-2*b);
    y:=b+Random(GetMaxY-2*b)
  end;
  repeat
    for i:=1 to n do with Rain[i] do begin
      if y>g then begin
        SetColor(SkyCol);
        Line(x,y,x+dx,y+dy);
        Line(x+dx,y+dy,x+2*dx,y+2*dy);
        dy:=l1+Random(l2-l1+1);
        dx:=Round(dy*a);
        x:=b+Random(GetMaxX-2*b);
        y:=b
      end;
      SetColor(SkyCol);
      Line(x,y,x+dx,y+dy);
      SetColor(RainCol);
      Line(x+2*dx,y+2*dy,x+3*dx,y+3*dy);
      Inc(x,dx);
      Inc(y,dy)
    end;
  until KeyPressed;
  while KeyPressed do ReadKey;
  CloseGraph;
end.