Compressed Bytes used
967

Source Code (OPTIONAL)
function b()a=f[#f]a=a and{x=rnd()*256,y=rnd()*256,z=a.z-512-l*32,c=rnd(g),p=a.p+1}or{x=0,y=0,z=0,p=0}
if a.p%50==0then
a.c=12l=a.p\50g={}
if(l<3)add(g,9)
if(l<6)add(g,9)
if(l%2>0)add(g,11)
if(l%4>1)add(g,10)
if(l%8>3or l==8)add(g,4)
end
a.k=0a.u=32a.s=32-l
if(a.c==4)a.s/=2
r=a.c==11and 1+l/16or 0s=rnd()a.v=r*cos(s)a.w=r*sin(s)add(f,a)if(#f>10)del(f,f[1])end
_set_fps(60)camera(-64,-64)poke2(0x3200,7163)poke2(0x3240,4097)e={0xffff,0x7fdf,0x5f5f,0x5e5b,0x5a5a,0x1a4a,0xa0a,0x208,0}
h=0t=0d={}for a=1,128do add(d,{x=rnd()*256,y=rnd()*256,z=a*8})end
::i::f={}b()p=0m=0n=0j=0
::l::cls(3)x=-m/4y=-n/4r=2v=0w=0s=0
if(btn(⬅️))v-=1
if(btn(➡️))v+=1
if(btn(⬆️))w-=1
if(btn(⬇️))w+=1
if(v*w!=0)r=1.5
t|=v|w
m+=x+v*r
n+=y+w*r
foreach(f,function(a)a.x=(a.x+a.v+x+128)%256-128a.y=(a.y+a.w+y+128)%256-128a.z+=j
a.k=max(a.k-1/4,0)if(a.u<32)a.u=a.z<0 and 32or max(a.u-1,0)
if(j<=0and a.u>0and a.z>=0and a.z+j<=0and abs(a.x-m)<a.s and abs(a.y-n)<a.s)a.k=8p=max(p,a.p)s=1sfx(0)if(a.c==10)a.u=31
end)foreach(d,function(a)a.x=(a.x+x+128)%256-128a.y=(a.y+y+128)%256-128a.z=a.z+j&1023r=1+a.z/256pset(a.x/r,a.y/r,6)end)j=s>0and 64or max(j-1,-64)if(f[#f].z>=0)b()
foreach(f,function(a)if(a.z>=0)r=1+a.z/256x=a.x/r+a.k*(rnd()-.5)y=a.y/r+a.k*(rnd()-.5)s=a.s/r fillp(e[flr(min(a.u/4,(128-max(abs(a.x),abs(a.y)))/2,8))+1]+.5)rectfill(x-s,y-s,x+s,y+s,a.c)rect(x-s,y-s,x+s,y+s,5)end)
fillp()
?"\^o158웃",m-3,n,13
?"\^o11a🐱",m-3+v,n-3+w,7
?"floor "..p,-60,-60
?"level "..(l+1),32,-60
if(t==0)?"\^o0ff\^whopper-1k",-36,-13
if(t==0)?"⬆️⬇️⬅️➡️:move",-26,9
if(h>0)?"best "..h,-60,54,15
flip()if(f[1].z>-2048)goto l
h=max(p,h)goto i