Animate[
Clear[y,x];
g=-9.8;
kabe=0.3;
waku=0.8;
a=Sin[θ];
b=Cos[θ];
vv=v;
tt=t*t*1/2;
y=vv*a*t+g*tt;
x=vv*b*t;

If[x>1140&&v≠140&&θ==1&&y<1060&&v≠180,x=1140-(x-1140)*kabe];
If[x>1140&&θ==0.5&&y<1060,x=1140-(x-1140)*kabe];
If[x>920&&v==140&&θ==1,x=920-(x-920)*waku];
If[t>19&&v==160&&θ==1,y=770+vv*waku*kabe*a*(t-19)+g*(t-19)^2];
goal=Polygon[{{{0,600},{0,100},{240,100},{240,340},{125,340},{125,240},{180,240},{180,200},{100,200},{100,500},{240,500},{240,600},{240,600}},{{260,600},{260,100},{490,100},{490,200},{360,200},{360,500},{390,500},{390,200},{490,200},{490,600},{260,600}},{{585,600},{500,100},{580,100},{665,600}},{{585,600},{670,100},{750,100},{665,600}},{{600,300},{600,220},{680,220},{680,300}},
{{760,600},{760,100},{1000,100},{1000,200},{860,200},{860,600}}}];
ball={Disk[{x,y},60]};
goal1={Polygon[{{1200,-80},{1200,1000},{1250,1000},{1250,-80}}]};
goal2={Polygon[{{1200,750},{1170,750},{1170,720},{1200,720}}]};
goal3={Circle[{1070,735},{100,50}]};
Graphics[{{If[t>20&&v==150&&θ==1,goal]},{Green,goal1},{Red,goal2},{Red,goal3},{Orange,ball}},PlotRange->{{-80,1500},{-80,1700}}],{{t,0},0,40},{v,100,180,10},{θ,0.0,1.5,.5},AnimationRunning->False]