Compressed Bytes used
1024

Source Code (OPTIONAL)
_set_fps(60)h=0cls()?"\^:1818183c3c7e4281\r\fc\^:0000819999818181\n\f3\^:007e7e7e00000000\r\f5\^:3c4281817e244442\r\f9\^:00006c0000000000"
memcpy(0,3*8192,8192)::s::x=64y=90p={}w={}z=0o=0s=0l=1j=0g=8k=0t={}for j=1,200do
r={}a=rnd(.5)add(r,{x=64+90*cos(a),y=64+90*sin(a)})add(r,{x=64+90*cos(a),y=64+90*sin(a)})for i=1,20do add(r,{x=rnd(128),y=rnd(120)})end
a=rnd(.5)add(r,{x=64+90*cos(a),y=64+90*sin(a)})add(r,{x=64+90*cos(a),y=64+90*sin(a)})add(t,r)end::_::cls()?"s:"..s,1,1,12
?"h:"..h
?"l:"..l
?"♥"..g,8
if(k>0)k-=1
if(rnd()<.2)add(w,{x=rnd(128),y=0,u=0,v=1,c=2+rnd(14),l=128})
if #p<11then
j+=1for i=1,10do add(p,{i=1-i/5,j=i,r=t[j],l=1})end
if(j%5<1)l+=1
end
c=btn()a=c\2%2-c%2b=c\8%2-c\4%2x=mid(4,124,x+a)y=mid(4,124,y+b)z-=1if(btn(4)and z<0)z=10add(w,{x=x,y=y-4,u=0,v=-2,c=0,l=128})?"\as4g"
for r in all(w)do
if(r.c>1)pset(r.x,r.y,r.c)
end
for q in all(p)do
q.i+=l*.001+.02i=mid(1,#q.r,q.i)a=i%1b=1-a
i\=1p0=q.r[i]p1=q.r[min(i+1,#q.r)]p2=q.r[min(i+2,#q.r)]q.x=((p0.x+p1.x)/2*b+a*p1.x)*b+a*(p1.x*b+a*(p1.x+p2.x)/2)q.y=((p0.y+p1.y)/2*b+a*p1.y)*b+a*(p1.y*b+a*(p1.y+p2.y)/2)if(k<1and max(abs(x-q.x),abs(y-q.y))<6)g-=1k=60
pal(3,q.j%14+2)spr(16,q.x-4,q.y-4,1,1,q.i%2<1)if(q.l<=0)s+=1for i=1,20do a=rnd()b=rnd(2)add(w,{x=q.x,y=q.y,u=b*cos(a),v=b*sin(a),c=rnd(4)+6,l=20})end del(p,q)?"\as2ceg"
if(q.i>#q.r)del(p,q)
end
o-=1if #p>0then
q=rnd(p)a=x-q.x b=y-q.y
d=sqrt(1+a*a+b*b)if(d>64and o<0)o=50/(1+l/50)add(w,{x=q.x,y=q.y,u=a*1.5/d,v=b*1.5/d,c=1,l=128})?"\as2e"
end
for r in all(w)do
r.l-=1r.x+=r.u
r.y+=r.v
if(r.y!=mid(-4,132,r.y)or r.x!=mid(-4,132,r.x))r.l=0
if r.c<1then
?"!!",r.x-4,r.y-3,11
for q in all(p)do
if(max(abs(q.x-r.x),abs(q.y-r.y))<6)r.l=0q.l-=1break
end
elseif r.c<2then
circfill(r.x,r.y,1,10)if(k<1and max(abs(x-r.x),abs(y-r.y))<4)g-=1k=60
end
if(r.l<=0)del(w,r)
end
if(k\4%2<1)spr(0,x-4,y-4)
if(g<1)h=max(s,h)goto s
flip()goto _