Characters/Bytes used
1017 characters (1021 bytes)

Source Code
::g::y=2x=.2r=.4d=0v=2b=1h=3f=0t0=t()ln=line
function pr(a)for i=1,#a,3do a[i]=64*(1+(a[i]*1.4)/a[i+2]) a[i+1]=64*(1-((a[i+1]-y)*1.4)/a[i+2])end
end
n={}for i=1,50do n[#n+1]=rnd(128)n[#n+1]=12+rnd(70)end
::_::cls()u=t()
if(h==0)goto q
for i=1,#n,2do pset(n[i],n[i+1]-u/9,6+rnd(2))end
if(btnp(0))d=max(d-x,-x)
if(btnp(1))d=min(d+x,x)
if(y>.5)y-=.03?"avoid ()",48,38,7
l={-r,0,r,r,0,r,-r,0,10,r,0,10}pr(l)z=sin(u)/50
s={-.05+d,z,.8,.05+d,z,.8,d,z+.05,.8,d,z,1}pr(s)rectfill(0,l[8],128,128,1)ln(l[1],l[2],l[7],l[8],6)ln(l[4],l[5],l[10],l[11])ln(s[1],s[2],s[4],s[5],12)ln(s[10],s[11],s[4],s[5])
for k in all({2,3,0,2})do ln(s[k*3+1],s[k*3+2])end
e={f,0,9-v*(u-t0)}pr(e)circ(e[1],e[2],(1-e[3]/9)*5,8)
for i=1,h do ?"♥",i*8,1
end
?"spd "..(v-1).." best "..b,52,1,7
for k=l[8],128do
j=0
while pget(j,k)==1do
pset(j-1,k,3)pset(128-j,k)j+=1end end
if e[3]<1 then
if f==d then
?"\ac1"
h-=1
b=max(b,v-1)v=1cls(7)end
f=.2*(rnd(3)\1-1)v+=1
t0=u
end flip()goto _
::q::
?"best "..b,48,54,7
?"\n ❎"
if(not btnp(5))goto q
goto g