Compressed Bytes used
1023

Source Code (OPTIONAL)
_set_fps(60)h=0s=0::s::m=0for i=0,4^7do
x=i%128y=i\128z=16*cos(x/64)+24*sin(y/64)+16*sin((x+y)/128)sset(x,y,z%16+({0,.5,.75,.25})[1+x%2+y%2*2])end
poke2(24376,1028)for i=0,3do
a=1+i%2b=i\2c=a+b*16mset(a,b+1,c)mset(4+a,b+1,c+2)end
memcpy(5*2048,0,2048)p={}x=0y=0z=2n=1w=0l=32u=0v=0::_::for i=0,15do
a=(i+t()*8)%16\1pal(i,8+min(a,15-a))end
a=-t()*8%128palt(0,nil)memcpy(0,5*2048,2048)spr(0,a-128,0,16,16)spr(0,a,0,16,16)r=z
pal()pal({[0]=1,7,140,3,8,10,11,12,4,8,137,9,143,10,135,7},1)
if(m>0)b=btn()x+=b\2%2-b%2y+=b\8%2-b\4%2w-=.002
poke(24378,t()*4%2\1*4)poke(24405,0)rectfill(0,0,128,31,0)?"\^:00c0a0e020cc9c58\^:0003050704030102\n\^:c0c08040e0783800\^:1b3b1102070e0c00",8,0,1
sspr(8,0,16,16,40,0,-16,16)b=56a=16c=-cos(t()*.75)/8d=sin(t()*.75)/8
for i=-16,15do
e=a-i
tline(b-16,e,b+15,e,2-c*16+d*i,2-d*16-c*i,c,d)end
poke(24405,96)if(m>0)z+=w
if(n<z and m>0)add(p,{a=u-l,b=v-l,c=u+l,d=v+l,z=n,o=2+n%6})n+=1u=rnd(128)-64v=rnd(128)-64
for q in all(p)do
e=z-q.z+1k=1/e
if(e>.9)rectfill(64+k*q.a,64+k*q.b,64+k*q.c,64+k*q.d,q.o)rect(64+k*q.a,64+k*q.b,64+k*q.c,64+k*q.d,0)clip(64+k*q.a,64+k*q.b,k*q.c-k*q.a+1,k*q.d-k*q.b+1)circfill(64+k*x,64+k*y,k*4,0)clip()
if x==mid(q.a,x,q.c)and y==mid(q.b,y,q.d)then
if(q.z==mid(r,q.z,z)and w<0)w=.09
end
if(e>4)del(p,q)
end
palt(0,1)for i=0,4do
pal(1,i<4and 0or 1)spr(5,x+cos(min(i,3)/4)+48,y+sin(i/4)+48,4,4)end
s=max(s,n-2)if(m>0)?"\^w"..s,4,4,0
if m<1then
?"\^w\^thopper remake",16,32,0
?"\n\n\n\n\nscore: "..s
?"\nhighscore: "..h
?"\n\npress ❎ to start"
if(btnp(4))m=1s=0?"\asfb1.bd#.f#.a"
end
if(z<0)print("\asfb2.a.f#.e.f#.e.d#.c.b1")h=max(h,s)goto s
flip()goto _