Wrecking Ball 500

Avoid the wrecking balls! A tiny TweetTweetJam-8 entry in 498 characters of code.

Code:

_set_fps(60)h=0k=.99f=128::s::x=64y=64s=0p={}c=1d=32e=.003g=1::_::cls(1)while(#p<10)add(p,{x=rnd(f),y=f-3*d*#p-rnd(d),r=16+rnd(32),a=rnd(),b=e+rnd(e),c=g})g=g%5+1
b=btn()x=mid(x+b\2%2-b%2,f)y=mid(y+b\8%2-b\4%2,f)l=128for q in all(p)do
rectfill(0,q.y,f,l,q.c)l=q.y-1end?s,7
?h
for q in all(p)do
u=q.x+q.r*cos(q.a)v=q.y+q.r*sin(q.a)q.a+=q.b
line(q.x,q.y,u,v,6)circfill(u,v,4,10)q.y+=c
if(max(abs(x-u),abs(y-v))<5)h=max(h,s)goto s
if(q.y>200)del(p,q)s+=1c/=k d*=k?"\as4cg"
end
?"웃\^1",x-3,y-2,7
goto _