Characters/Bytes used
1,003/1013

Source Code
pal({7,13,136,141},1)a=0
b=btn
r=rnd::_r::
g=1t=0n=0s=0w=128x=64y=60v=-1o={}a+=1
?"\ab"
cls()::_::
for i=0,1500do
d=r(w)
e=r(w)
c=pget(d,e)
if(c==1)pset(d,e,0)
if(c>1)pset(d+r(2)-1,e+r(2)-1,c)
end
m=min(12,2+s/7)*g
for j=1,m do
if(b()>0and b()<3)x+=(b()*2-3)*max(.3,-v*1.2)
v+=.01
y+=v
for k,z in pairs(o)do
z.y-=.14
c=1
if abs(x-z.x)<9and abs(y-z.y)<7then
c=2+s%3
v=-0.9
s+=1
?"\as"..flr(m).."c.e.-g"
end
rect(z.x-4,z.y-3,z.x+4,z.y+3,c)
if(c>1)del(o,z)
end
if(t>n)add(o,{x=r(128),y=w+4})n+=120+r(m*15)
t+=1
end
f="\#5\^t\^w"
if y>w or y<0then
if(g>0and a>1)print("\af#..f#..e7..e7")
g=0
?f..s,57,48,1
?"\#5⬅️ & ➡️ to move",35,72
?"\#5❎ to start",43,82
if(b(5))goto _r
else
c=cos
z=sin
?".",r(128),0,1
e=-x/30j=x+c(e)*3k=y+z(e)*3u=x-c(e)*3h=y-z(e)*3line(j,k,u,h)e+=.25
for i=-1,1,.25do
p=.5+i/4l=p*j+u*(1-p)m=p*k+h*(1-p)d=3
if(abs(i)<.8)d=0
line(l+c(e)*3,m+z(e)*3,l-c(e)*d,m-z(e)*d)
end
circ(x+c(e)*4,y+z(e)*4,2)
?s,1,8
end
if a<2then
y=-1
?f.."\#41k jump",37,48
?"by @andy_makes",36,99
end
flip()goto _

Link to Commented Source Code
https://gist.github.com/andymasteroffish/1e29e35ca1d80fdb9e2b3e43a0e11004