Character Count
497

Code
a=0u=0c=8l={}g={8,9,11,12}function q(a,r,s,c)circ(64+cos(a)*r,64+sin(a)*r,s,c)end::_::cls()for i=#l,1,-1do w=(#l-i)/100q(w*(2.2+w*2.4)%1,60*(1-w),4,l[i])end
q(0,0,4,c)q(a,6,1,7)line(92,70,112,70,7)b=btn()a=(a+(b%2-b\2%2)*.02)%1if(btnp(5))n=mid(1,#l,#l-a*35\1-1)add(l,c,n)c=rnd(g)
p=1while p<=#l do j=p while(j<#l and l[j+1]==l[p])j+=1
if(j-p>1)for k=j,p,-1do deli(l,k)end else p+=1end
z=rnd(g)if(t()>=u and(l[#l]!=z or l[#l-1]!=z))u+=2add(l,z)if(#l>=34)print("𝘨𝘢𝘮𝘦 𝘰𝘷𝘦𝘳⁶8",78,64)run()
flip()goto _