How many characters of code did you use?
500

Include your code here, if you'd like to show it off!
r,b,s=rnd,btn,mset::k::c=8e=999n={}m={}memset(0,68,e)z=.1x=8.5y=9h=100for i=0,e do
s(r(30),r(30),r(8))poke(r(e),18)n[i]=r(h)-50m[i]=r(h)-50s(n[i%9],m[i%9])end::_::u,v=x,y
if(b(0))x-=z
if(b(1))x+=z
if(mget(x,y)>0)x=u
if(b(2))y-=z
if(b(3))y+=z
if(mget(x,y)>0)y=v
cls()map()for i=0,99do
u=n[i]v=m[i]q=r()/12u+=q*sgn(x-u)v+=q*sgn(y-v)s(u,v)n[i],m[i]=u,v
l,j=u-x,y-v?"☉",u*8-4,v*8-4,9
if(l*l+j*j<z)h-=2end?"웃\n"..h,x*8-4,y*8-4,7
if(y%16<1or x%16<1)h=min(h)c=7
if(h<1)cls(c)h-=1
if(h<-e)goto k
flip()goto _