Compressed Bytes used
1019

Source Code (OPTIONAL)
poke(0x5f2c,3)
s=0
l=0
k=0
d=1
h=0
f=27
g=0
df=0
dg=0
u=25
du=0
bg=0
a1,a2,a3,a4=0,0,0,0
o=0
c={8,10,11,12,14}
p={}
p.x=32
p.y=32
p.dx=0
p.dy=1
p.r=6
p.j=0
p.c=0
p.m=0
x1=0y1=0
x2=0y2=0
x3=0y3=0
x4=0y4=0
b={}
b.x=32
b.y=64
b.r=10
b.dx=0
b.dy=0
b.c=7
function w()
x=o
n={}
if x>=1000 then
n.ii=x\100%10
x/=100
n.i=x\10%10
else
n.ii=x/100%10
n.i=0
end
return n
end
::_::
v=sin(t()*1)*2
p.dy+=1
if(p.dx>0)p.dx-=0.5
if(p.dx<0)p.dx+=0.5
if(btn(⬅️))p.dx=-3+p.j
if(btn(➡️))p.dx=3-p.j
if(btnp(⬆️)and p.j==1)p.dy=-4 p.j=0 d=3 p.r=5
if(btn(⬅️)and u==25) du=10
if(btn(➡️)and u==25+55) u=25+55 du=10 b.dy=-4
if(btn(⬆️)and p.m==0 and u>25+55) u=25+110 p.m,p.dy,du=1,-6,10
if(p.x>70)p.x=-6
if(p.x<-6)p.x=70
if(p.y-p.r>64 and l==0 and s!=2) h=0 s=2 dg=5 b.dy=10
p.x+=p.dx
if(p.m==1 and h<=0)p.y+=p.dy
x1=p.x+sin(t()*d)*p.r
y1=p.y+cos(t()*d)*p.r
x2=p.x+sin(t()*d+.25)*p.r
y2=p.y+cos(t()*d+.25)*p.r
x3=p.x+sin(t()*d+.5)*p.r
y3=p.y+cos(t()*d+.5)*p.r
x4=p.x+sin(t()*d+.75)*p.r
y4=p.y+cos(t()*d+.75)*p.r
if(b.dx>0)b.dx-=0.5
if(b.dx<0)b.dx+=0.5
if p.x+p.r>=b.x-b.r
and p.x-p.r<b.x+b.r
and p.y+p.r>=b.y
and p.c==0
and l==0
and s!=2then
p.dy=-8
b.dy=10
if(b.r>2)b.r-=0.25
df=11
f=27
p.j=1
p.r=6
d=1
p.c=1
h=0
s=1
end
if(b.y>=60 and s==1)bg+=1 b.y=60 p.c=0 b.dy=-3-flr(rnd(3)) b.x=rnd(45)+10 b.c=c[ceil(rnd(#c))]
if(b.dy<0)b.dy+=0.5
b.x+=b.dx
b.y+=b.dy
if(o==0or s!=1)cls()
for i=1,7000 do
pset(rnd(128),rnd(128),0)
end
if s==0 then
u+=du
if(du>0)du-=1
?" ⬅️",u,10+v,7
?" ➡️",u-55,10+v,7
?" ⬆️",u-110,10+v,7
end
line(x1,y1,x2,y2,7)
line(x2,y2,x3,y3,7)
line(x3,y3,x4,y4,7)
line(x4,y4,x1,y1,7)
rectfill(b.x-b.r,b.y,b.x+b.r,b.y+8,b.c)
rectfill(b.x-b.r,b.y,b.x+b.r,b.y+8,b.c)

f+=df
g+=dg
if(df>0)df-=1
if(dg>0)dg-=0.5
if(f>64)f=0 o+=100
if(s==2)?"𝘤𝘵𝘳𝘭+𝘳",0,59,2
if s==2 then
?w().i,f-2,g+sin(t()*1+.75)*2,7
?w().ii,f+2,g+sin(t()*1+.5)*2,7
?0,f+6,g+sin(t()*1+.25)*2,7
?0,f+10,g+sin(t()*1)*2,7
else
if(o>0)?o,f-flr(min(o,1000)/1000)*2,g,7
end
flip()
if(o>0 and s!=2)?o,f-flr(o/1000)*2,g,0
goto _