Compressed Bytes used
1022

Source Code (OPTIONAL)
j,m=0,flr(rnd(30000))menuitem(1,"seed",function()j,m=0,0_init()end)function _init()m+=1srand(m)r,p=0,0e,u,h,f,c,a=10,128,5,0,0,1i=1z,n1=0,false n,b=0,0o,n0,s,nn,q={},0,64,-5,64for n=1,60do v=rnd(24)+13n0+=(v+nn)*.9s+=(v+nn)*(1.5*(rnd()-.5))add(o,{n0,s,v})nn=v if n0>2000then break end end end function nd(n,e)n,e=n/10,e/10return sqrt(n*n+e*e)*10end function k(n,e)w=1000for d=i,min(i+6,#o)do n2=o[d]nf=nd(n-n2[1],max(0,e-n2[2]))-n2[3]x=mid(0,1,(w-nf)/60+.5)w=w*(1-x)+nf*x-x*(1-x)*30end return w end function _update60()h,f=h*.99,f*.99f+=btn(1)and.15or.85e+=h*.15u+=f*.15for n=1,10do d=k(e,u)if d>0then u-=d end end g=k(e,u)if g>-3then c,a=g-k(e-1,u),g-k(e,u-1)n3=max(.001,nd(c,a))c,a=c/n3,a/n3 d=c*h+a*f if g>-1and d>0then h,f=h-1.4*d*c,f-1.4*d*a end if btn(1)then h+=a/2f+=-c/2end end e=max(0,e)ni=o[#o][1]r=mid(0,ni-110,r+(e-r-24)*.1)p=p+(u-p-64)*.1if e>ni-30then n1=true end if not n1 then j,z=j+1,z+1end if btnp(2)then _init()end end function _draw()cls()camera(r,p)if i<#o then d=o[i]if d[1]+d[3]<r-20then i+=1end end if i>1then d=o[i-1]if d[1]+d[3]>r-20then i-=1end end for n=i,min(i+10,#o)do ne=o[n]circ(ne[1],ne[2],ne[3]-4,n)end q=q-k(r,q)s=q for n=r-3,r+127do s-=k(n,s)rectfill(n,s,n,s+512,1)pset(n,s,13)end if g>-3and btn(1)then n+=.05else n=0end if g<=-3and btn(1)then b=min(b+.1,2)else b=max(b-.3,0)end y,l=e-c*3,u-a*3for n=0,9do no,nt=e-(h+h*cos(n/20))*b,u-(f+20+abs(f)*abs(sin(n/20)))*b line(no,nt,y,l,12+n%4)circfill(no,nt,b*2,12+n%4)end circfill(e+sin(n-.2)*3-1,l+cos(n-.2)-2+4,2,9)circfill(e+sin(n-.2)*3-2,l+cos(n-.2)-2+3,2,8)circfill(e+sin(n+.2)*3+1,l+cos(n+.2)-2+4,2,9)circfill(e+sin(n+.2)*3,l+cos(n+.2)-2+3,2,8)circfill(y,l-1,3,8)pset(y,l-2,0)pset(y+2,l-2,0)camera()if n1 then print("finish",50,58,7)end print(z,1,1,7)print(j,108,1,7)print(m,1,122,13)end

Link to Commented Source Code (OPTIONAL)
https://nusan.itch.io/smooth-ride