Characters/Bytes used
1012

Source Code
w=all
o=del
j=0function cp(x,y,t,a)return x+cos(a)*t,y+sin(a)*t
end
r=123function n(x1,y1,x2,y2)return sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))end
l={}l[1]=.5l[2]=1l[4]=.25l[8]=.75l[5]=3/8l[9]=5/8l[6]=1/8l[10]=7/8b={}e={}x=64y=64pf=1es=0s=0h=0function z()es=min(es+.02,.6)for i=1,25do ae(rnd(r),rnd(r))end
end
function ae(t,u)f={}f.x=t
f.y=u
if(abs(x-t)>12)add(e,f)
end
z()function _update60()j+=1k=btn()
if(btnp(4))ba(x,y,pf)
if(k>15)k-=16
if(k>0)pu(l[k])
for c in w(b)do
c.x,c.y=cp(c.x,c.y,3,c.f)if n(c.x,c.y,64,64)>90then
o(b,c)else
for f in w(e)do
if n(c.x,c.y,f.x,f.y)<5then
o(b,c)
s+=1o(e,f)
h=max(h,s)
end
end
end
end
for m in w(e)do
m.x,m.y=cp(m.x,m.y,es,atan2(m.x-x,m.y-y)+.5)if n(m.x,m.y,x,y)<2then
e={}es=0s=0z()end
end
if(j%210==0)z()
cls(13)rectfill(4,4,r,r,5)
?s,9,9,7
?h,99,9,9
for m in w(e)do
?"웃",m.x,m.y,3
end
for c in w(b)do
?".",c.x+1,c.y-1,7
end
?"웃",x,y,12
end
function ba(d,e,g)tb={}tb.x=d
tb.y=e
tb.f=g
add(b,tb)end
function pu(fc)pf=fc
x,y=cp(x,y,1,pf)x=min(r,max(4,x))y=min(r,max(4,y))end

Link to Commented Source Code
https://hastebin.com/lakaborate.lua