How many characters of code did you use?
557

Include your code here, if you'd like to show it off!
pal({129,1,140,12,6},1)x=64y=x
r=48s=r
p=0q=0u=0v=0n={}t=30w=0
::✽::
for i=0,999do
a=rnd(128)b=rnd(128)circfill(a,b,1,max(1,pget(a,b)-1))end
?w,1,1,0
b=btn()u=b\2%2-b%2v=b\8%2-b\4%2X,Y=x-r,y-s
l=(X^2+Y^2)^.5X/=l
Y/=l
R,S=p-u,q-v
f=l*(R*X+S*Y)
U=X*f/35V=Y*f/35p-=U q-=V u+=U v+=V
t-=1x+=u y+=v r+=p s+=q
?"웃",x,y,0
?"✽",r,s,4
if(t<0)t=60c=rnd()add(n,{64+cos(c)*96,64+sin(c)*96})
for m in all(n)do
X=x-m[1]Y=y-m[2]m[1]+=sgn(X)/6m[2]+=sgn(Y)/6
if((X^2+Y^2)^.5<4)stop()
?"\^t\^w웃",m[1],m[2],5
X=r-m[1]Y=s-m[2]l=(X^2+Y^2)^.5
if(l<8)del(n,m)w+=1
end
flip()goto ✽