z=0a=0.0001t=0o=90000e={}x=0y=0s=1d=0w=128p=pset
function c(i)k=i if i>w then k=i-w elseif i<0then k=i+w end return k end
function u(l,d)return cos(d)*l/150end
function v(l,d)return-sin(d)*l/150end
r=rnd
b=circfill::_::
for j=1,9do p(r(w),r(w),r(2))end
t=t+1s=s+(1-s)*a*2if(t%o==0and#e<10)add(e,{x=r(w),y=r(w)})
if(btn(1))d=d+a
if(btn(0))d=d-a
if(btnp(4)and s==1)s=5
x=c(x+u(s,d))y=c(y+v(s,d))for j in all(e)do b(j.x,j.y,2,8)if abs(j.x-x)<s*2and abs(j.y-y)<s*2then if flr(s)>1then del(e,j)z=z+1o=o-50else run()end end end
b(x,y,3,1+s*2)print(z,2,2,7)goto _