How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
t=0e=128::m::r=rnd d={}for i=1,30do d[i]={x=r(e),y=r(e),s=i/3,h=r(.4)-.2,v=r(.4)-.2}end p=d[1]p.s=5b=30k=btn::l::a=0for i=1,30do n=d[i]N=n.s a+=N if(b<1)n.x=(n.x+n.h)%e n.y=(n.y+n.v)%e if(N>0)circfill(n.x,n.y,N,i==1and 8or N>p.s and 0or mid(5,p.s-N,7)) X=n.x-p.x Y=n.y-p.y S=N+p.s if i>1and X*X+Y*Y<S*S then if p.s>N then p.s+=N/2n.s=0else if(b>0)goto m p.s-=.3if(p.s<0)t=0goto m end end end if(a==p.s)t+=1goto m ?"⁶1⁶cd\f9"..t if(k'0')p.h-=.2 if(k'1')p.h+=.2 if(k'2')p.v-=.2 if(k'3')p.v+=.2 if(k()>0)p.s*=.99p.h=mid(-1,p.h,1)p.v=mid(-1,p.v,1) b=max(b-1)goto l