Compressed Bytes used
1024

Source Code (OPTIONAL)
_set_fps(60)for i=0,511do v=ord("###k#######𝘹##𝘺%>0𝘺𝘹##k+𝘨𝘬𝘺𝘹##k+𝘰𝘬[s#𝘺s%𝘰𝘬+s#qs+>0=q#ss+𝘨0qm#ks+𝘨0k𝘰#qs%𝘨0#𝘬#q=#𝘫0>𝘯#ss#𝘫0𝘨𝘰#ss#𝘬'e𝘭𝘺s+#𝘬'e𝘬𝘺s##𝘬'o𝘬k+##𝘬'𝘵𝘬k%##",i\4+1)-35sset(i%32,i\32,({0,12,6})[v\3^(i%4)%3+1])end
::r::n=0s=0l=6::s::x=64y=0z=n/10+1.3
w={}r={}p={}for i=1,99do
q={}add(p,q)if(i==mid(8,i,64))for j=rnd(),n/10+2do add(q,rnd(8)\1*16)end
end
if(l<1)goto r
pal(({{12,3,4,11,2},{10,4,9,8,2},{1,2,5,2,1},{15,7,13,6,12}})[n%4+1],1)::_::rectfill(0,0,127,31,1)rectfill(0,31,127,127,2)s+=.01y+=z
b=btn()e=b\2%2-b%2
x+=z*e
if(y\32!=(y-z)\32)add(r,{x=x,y=16,e=4*e})
if(#w<2)add(w,{x=rnd(2)\1*128,e=0})
for i=#p,1,-1do
j=(i+y/32)\1%#p+1q=p[j]d=i*32-y%32
if d==mid(8,d,190)then
k=32/d
b=k*64+24
for o in all(q)do
c=(o-x)%128*k
for j=-2,2do
a=j*k*128+c+64
t=a-k*2v=a+k*2
u=b-k*56
if v>-16and t<144then
rect(t-1,u,v+1,b,0)rectfill(t,u,v,b,3)
for g=1,9do
t=g%4-1if(t>1)t=2-t
circ(a+t*k*8,u-g*k*8,k*11+1,0)end
for g=1,9do
t=g%4-1if(t>1)t=2-t
circfill(a+t*k*8,u-g*k*8,k*11,4)end
end
if(b>116and abs(a-64)<k*9)cls(10)flip()flip()l-=1goto s
end
end
for f in all(r)do
if f.y==mid(d-32,d,f.y)then
k=32/f.y
b=k*64+24
c=(f.x-x)*k+64
circfill(c,b,k*4,6)
for o in all(w)do
if(max(abs(o.x-c),abs(40-b))<8)del(w,o)del(r,f)s+=10?"\as8c"
end
end
end
if 80==mid(d-32,d,80)then
for o in all(w)do
if(y\32!=(y-z)\32)o.e=rnd(2)\1*2-1
o.x+=o.e-e/2spr(2,o.x-8,32,2,2,o.e<0)end
end
end
end
for f in all(r)do
f.y+=z*2f.x+=z*f.e
if(f.y-y>256)del(r,f)
end
?"♥ "..l,0,0,7
?"s "..s\1
if(y<128)?"\^wlvl "..n+1,48,56,7
pal(12,0)spr(0,48,113-e,1,2)spr(0,72,113+e,1,2,1)pal(12,12)
spr(1,56,113,1,2)spr(1,64,113,1,2,1)
if(y>2048)n+=1goto s
flip()goto _