How many characters of code did you use?
551

Include your code here, if you'd like to show it off!
_set_fps(60)::s::m,n,p,q,t=128,16,{},{},0 x,y,z,a,r,s,g,w=64,64,0,30,.01,0,btn,rnd c,d=x,y for i=1,m do q[i],a={10+w(a),w(m)},40-a p[i]=n+w(n)end ::_::cls(1)t+=r if(g(0))x-=1 if(g(1))x+=1 if(g(2))y-=1 if(g(3))y+=1 if(z<=0 and g(4))z=.5 for i=1,9 do o=q[i] a,u=m+t*o[1]+o[2],14*i-8 for j=1,m do b=p[j] v=a-b if(j%2<1 and a>=0 and v<m)rectfill(u,v,u+8,a,4) a-=b end end f=2-6*sin(z) z=max(z-r) if(z==0 and pget(x,y)<2)goto s circfill(x,y,f,10)pset(x,y,9) ?"★"..s,c-3,d-2,12 if(mid(c-4,x,c+4)==x and mid(d-4,y,d+4)==y)c,d,s=w(m-4),w(m-4),s+1 flip()goto _