Compressed Bytes used
1016

Source Code (OPTIONAL)
_set_fps(60)poke(24405,0)cls()
?"\^:0000000000c2e7ff\n\^:f7f2e00000000000\n\^:0000000000000082\n\^:c280000000000000\n\^o25a\^:000cd8f0f09898f8\n\^:38f0e0643c180000\n\^:000cd8f0f09898f8\n\^:3870e06030700000\n\^:0000307878300000"
?"\^:000cd8f0f09898f8\n\^:38f0e0643c180000\n\^:000cd8f0f09898f8\n\^:3870e06030700000\n\^:0000307878300000",0,32
spr(0,8,0,1,10,1)poke(24405,96)h=0::r::x=0y=0r=0n=0f=0g=1s=0l=5::s::w=2+g*4p={}j=0k=120m="level "..g
::_::cls(1)f-=1y+=.05if(j<2)x=mid(-56,56,x+btn()\2%2-btn()%2)
r-=1if(j<1and r<0)r=8add(p,{t=1,x=x,y=4,l=1})
if(k<1and w>0and n<g*2+4)w-=1a=rnd()b=rnd(.1)+.1for i=g*2+4,0,-1do add(p,{t=0,x=0,y=i+16,a=a,b=b,k=16-rnd(12),c=i%4+8,f=0,l=5})n+=1end
for i=-384,512,16do
line(i,127,64,8,12)end
for i=-y%1,12do
a=512/(i+1)-16line(0,a,127,a)end
rectfill(0,0,127,24,0)for q in all(p)do
if q.t>0do
q.y+=.25c=256/q.y
d=q.x*c/64e=2*c-8pal(6,7)sspr(0,64,16,16,d-c/4+64,e-c/4,c/2,c/2)pal()
for r in all(p)do
if(r.t<1and abs(r.x-q.x)<18and abs(r.y-q.y)<1)del(p,q)r.f=5r.l-=1break
end
if(e<32)del(p,q)
else
q.f-=1if(q.y>q.k)q.x=sin(q.a+q.b*q.y)*64
q.y-=.05c=256/q.y
d=(q.x+(q.f>0and rnd(8)-4or 0))*c/64e=2*c-8if(q.y<16)pal(6,q.f>0and 7or q.c)sspr(0,q.y\1%2*16+32,16,16,d-c/4+64,e-c/4,c/2,c/2)pal()
if(f<1and abs(x-q.x)<20and q.y<4.2)f=64l-=1?"\ai6c"
if(e>128or q.l<1)del(p,q)n-=1if(q.l<1)s+=1?"\acde"
end
end
for i=2,#p do
if(p[i].y>p[i-1].y)p[i],p[i-1]=p[i-1],p[i]
end
for i=15,0,-1do
c=256/(i+241)pal(6,({(f<1or t()*4%1<.5)and 7or 8,12,13,13})[i\4+1])sspr(0,i\8*16,16,16,(x-8)*c+64,124*c-16,16*c,16*c)pal()
end
?"h:"..h,0,0,7
?"s:"..s
?"♥"..l
if(j<1and w<1and n<1)j=1k=180m="well done!!!"
if(j<1and l<1)j=2k=240m="game over"
if(k>0)k-=1?"\^o25a"..m,64-#m*2,56,10
if(k<1and j>1)h=max(h,s)goto r
if(k<1and j>0)g+=1goto s
flip()goto _