Characters/Bytes used
1024 characters

Source Code
_set_fps(60)e=0l=0f=128h=64o=4096m=mset
n=circfill
function z(s,k,x,y)m(0,0,s)m(1,0,s+1)s+=16m(0,1,s)m(1,1,s+1)a=cos(k)b=sin(k)for i=0,31do
c,d=y+i,i/16-1tline(x,c,x+31,c,1-a-d*b,1.1-b+d*a,a/16,b/16)end
end
cls(1)n(h,h,h,13)n(h,h,48,0)rectfill(0,h,f,f,0)p="🐱✽●♥☉웃⌂😐♪🅾️◆★⧗❎▤▥ˇ∧"v={}for i=1,#p do
j=i-1v[i]=j==13and 6or j?sub(p,i,i),5+j%8*16,h+6+j\8*16,13
end
memcpy(0,6*o,2*o)poke2(24374,8,514)n=16t={}for i=1,n do
t[i]=i
end::s::e=max(e,l)l=0r=0s=.004u=time()+60::n::cls()w={}for i=1,n do
j=1+rnd(n)\1t[i],t[j]=t[j],t[i]end::_::g=(1+((.25-r)*n+.5)%n)\1a=#w/2a,b=rnd(a)-a/2,rnd(a)-a/2for i=8,h,2do
circ(h+a,h+b,i,2+(14*r+i/8)%14\1)end
for i=1,6do
j=t[i]
?"\^w\^t\#d"..sub(p,j,j),a+h+24*(i-#w)-30,b+h-4,v[j]
if(i<=#w and w[i]!=t[i])goto s
end
spr(0,0,0,16,8)spr(0,0,h,16,8,1,1)
if(#w>5)s*=1.1goto n
if(btnp(4))add(w,g)l+=1s=-s
for i=0,n-1do
k=r+i/n
pal(13,v[i+1])x=h+56*cos(k)y=h+56*sin(k)k,q=.25-k,f+i%8*2+i\8*32z(q,k,x-16,y-16)end
pal()rect(56,0,72,16,10)a=u-time()
if(a<0)goto s
?"\^p"..a\1,110,3
?l,3,3
?e
r+=s
flip()goto _