Compressed Bytes used
1022

Source Code (OPTIONAL)
poke(24405,0)?"\^:5a7e7e9a7dbe7dbe\n\^:7dbe590000000000",8,0,1
poke(24405,96)_set_fps(60)h=0z=0::s::x=64y=0w=.2s=1q=0j=0t=-1p={}r={}n={30}a=25for i=2,20do
n[i]=a\1+n[i-1]a*=.9end
a=1for i=1,9999do
r[i]=.2*sin(i/64)b=(a+rnd(1.6))%2p[i]=.1+.8*min(b,2-b)a+=rnd(.1)end
::_::pal(({{-4,-15,-3,-13,-11,-14,7,8},{1,-4,3,-12,2,5,7,8},{1,12,-5,4,13,13,7,7}})[s%3+1],1)cls(3)m=(z>>16)+1rectfill(0,0,127,15,2)
if(j>0)t+=1
if(j==1)w=min(w+.002,m)z+=w b=btn()a=b\2%2-b%2y+=a x-=2*a
for i=0,127do
c=(y+i)/20d=r[c%#r\1+1]
d+=c%1*(r[(c+1)%#r\1+1]-d)rect(i,15,i,8-8*d,4)end
g=0k=48+x/4a=k
for l=1,2do
for y=0,111do
i=l>1and y+16or 127-y
b=114/(i-14)c=(z+b)/20d=r[c%#r\1+1]
d+=c%1*(r[(c+1)%#r\1+1]-d)e=80/b
if(l<2)rect(a-e,i,a+e,i,c%64<.02and 7or(c%2>1and 5or 6))
a+=l<2and d*b or-d*b
f=(z/20+b/2)%#r\1+1
if(l>1and g!=f)pal(1,8+f%4)u=a-e+2*e*p[f]v=i sspr(8,0,8,11,u-12/b,v-5/b,24/b,11/b,z&1>0)g=f
if l>1and i==112then
pal(1,1)sspr(8,0,8,11,52+k-x,112,24,11,z&1>0)
if(j==1)x+=3*d*w
if(abs(64-u+k-x)<16and abs(v-112)<12)w=max(w/2,m/4)
end
end
end
if(abs(x-64)>76)w=max(m/4,w*.98)
a=w*290\1b=n[s]-t\60
if(j>0)?"\^w"..a.."kph s:"..s.." t:"..max(b),1,1,7
if j<1then
?"\^w\^tovertake",32,32,7
?"\n\nscore:"..z\1
?"\n\nhighscore:"..h\1
if(btnp(4))z=0j=1
end
if(j>1and t>q)h=max(h,z)goto s
if(j==1and b<0)j=2q=t+180o="time over"
if(j==1and z>1280*s)s+=1q=t+120o="extend"
if(j==1and z>32000)j=2q=t+180o="finish"
if(t<q and(q-t)%60>30)?"\^w\^t"..o,64-4*#o,24,7
if(j==1and t%16<1)a=chr(97+(min(7,7*w-6))\1%7).."."?"\as4i7"..a..a..a..a
flip()goto _