Compressed Bytes used
1024

Source Code (OPTIONAL)
?"⁶c0⁶@5f550001\0"
?"⁶c0ᶜa⁶.█ナ𝘱ナらき p\n⁶.ら█ユ\\ユ`█ナ\n⁶.きユま ヲ@ナヲ⁶.\0\0\0\0ニヲ。⁷\n⁶.𝘭◜◜ュヲナ\0\0⁶.²³³³³³³◜⁶@5f550001<⁶@5f360001⁷"
::d::n=.35a=a or 0f=0::o::e={d=64,o=11,a=0,f=8,r=8,e=0,i=0,s=0}d={d=64,o=8,a=20,f=16,r=12,e=0,i=0,s=0}l={e,d}i=0r=64s=0c=5for d=0,15do add(l,{d=rnd(128),o=rnd(60)+30,l=rnd{1,2},a=rnd{8,14},f=8,r=6,e=rnd(n*2)-n,i=0,s=rnd(4)})end::e::?"⁶c0ᶜc⁶x5score ᶜ7"..sub("00000"..a,-5).."0 ⁶x2¹"..s.."웃 ⁶j0uᶜ2¹"..c.."웃"
if f>0do rrectfill(0,6,r,1,1,11)rrectfill(64,6,f,1,1,8)if i==0do if(d.e==0)d.e=u
if(mid(16,d.d,112)~=d.d)d.e=-d.e
if(btnp(4))u=d.e d.e=0d.r=11i=1
e.e=d.e if(not o)o={d=rnd(80)+26,o=rnd(16)\1+100,f=rnd(16)\1+14}
if c<1do a+=r\.5+s*5?"⁶d5"..r\.5 .."0 +50𝘹¹"..s.."웃¹9 ",26,25,7
n+=.05goto o end elseif i==1do if(btn(4)and r>0)e.i=n/2r-=.1else e.i=n
e.e=btn(0)and-n or btn(1)and n or 0if e.o>120do f-=20d.r=12e.o=11e.d=d.d e.i=0i=0elseif e.o\1+8==o.o and abs(o.d-e.d)<o.f\2do d.e=u a+=30-o.f i,o=2c-=1end elseif i==2do if(e.o\1==30)d.e=0
if(mid(16,d.d,112)~=d.d)d.e=-d.e
if(btn(4)and r>0)e.i=-n r-=.1else e.i=-n/2
e.e=btn(0)and-n or btn(1)and n or 0if e.o<12do if(abs(e.d-d.d)<5)s+=1else f-=20
d.r=12e.o=11e.d=d.d e.i=0i=0end end foreach(l,function(d)d.d+=d.e d.o+=d.i if(d.l)d.d%=128
end)foreach(l,function(d)if(d.l and i<2)circ(d.d,d.o,d.l,2)else pal(10,d==e and 1or 2)sspr(0,d.a,d.f,d.r,d.d-d.f,d.o)sspr(0,d.a,d.f,d.r,d.d+d.f-d.s,d.o,-d.f,d.r)
?"⁶@5f5e0001\""
end)if(o)rrectfill(o.d-o.f\2,o.o,o.f,7,1)?30-o.f.."0",o.d-5,o.o+1,0
?"⁶@5f5e0001◝"
x=f for d=0,7do for o=-5,5do if(pget(e.d+o,e.o+d)==3)f-=n/2
end end?"⁶@5f540001`"
for d=1,15do g=x>f and 8or({10,10,15,11,11,13,13,12,12,14,9,11,12,14,10})[d]pal{g,g,7}sspr(1,d*8,127,8,0,d*8)end pal()?"⁶@5f540001\0"
if(f<0)goto d
else?"ᶜa⁶wlun res 1k",26,64
if(btnp(5))a=0f=64u=-n
end flip()goto e