Animate[

y1:=If[(20-(1/2)*9.8*t*t)>-58.5,20-(1/2)*9.8*t*t,-58.4];
y2:=If[(22-(1/2)*9.8*t*t)>-56.5,22-(1/2)*9.8*t*t,-56.4];
y3:=If[(18-(1/2)*9.8*t*t)>-60.5,18-(1/2)*9.8*t*t,-60.4];
y4:=If[(20.5-(1/2)*9.8*t*t)>-58,20.5-(1/2)*9.8*t*t,-57.9];
x1=-10.5+3t;
y5:=If[Cos[t*Pi/2]<0,-56-10Cos[t*Pi/2],-56+10Cos[t*Pi/2]];
t1:=If[t>4,10,0];
t2:=If[t>6,10,0];
t3:=If[t>8,10,0];
t4:=If[t>9,0,10];
t5:=If[t>9,10,0];



pi1=
{Thickness[0.03],Line[{{1,y1},{4,y1}}]};

pi2=
{Thickness[0.03],Line[{{1,y2},{1,y3},{4,y3}}]};

ta1=
{Thickness[0.03],Line[{{7,y1},{8.5,y2},{11,y2},{8.5,y3}}]};


go1=
{Thickness[0.03],Line[{{14,y2},{17,y2},{17,y3},{14,y3}}]};

ra1=
{Thickness[0.03],Line[{{20,y2},{23,y2}}]};

ra2=
{Thickness[0.03],Line[{{20,y4},{23,y4},{21.5,y3}}]};

ten=
{CMYKColor[t4,t4,t4,0],Disk[{x1,y5},1]};
pi3=
{CMYKColor[t1,t1,t1,0],Disk[{4.5,-56},1]};

ta2=
{CMYKColor[t2,t2,t2,0],Disk[{8.5,-58},0.7]};
go2=
{CMYKColor[t3,t3,t3,0],Disk[{16.5,-56},1]};
go3=
{CMYKColor[t5,t5,t5,0],Disk[{17.5,-56},1]};
Graphics[
{pi1,pi2,pi3,ta1,ta2,go3,go2,go1,ra1,ra2,ten},PlotRange->{{0,30},{-130,30}} ],
{t,0,10,1}


]