Beach560

::q::
a,b,f,x,y,v,j,l,h,o=0,128,0,64,16,0,rnd(9999),line,f,print
function c(a,s)
s=s or a/20
return cos((f*s+i+j)/(a*9))*a
end
::_::
f+=1
if(btn(0))x-=1
if(btn(1))x+=1
if(btn(3))v-=0.3
y-=v
x=mid(x,0,128)
v=min(v-0.15,4)
a=min(a+0.2,99)
cls(15)
circfill(100,30+f/30,15,9)
i=0
::s::
z = 90+(c(12)-c(4,-2))
l(i,b,i,z,12)
l(i,z,i,z+c(2),7)
l(i,b,i,b-a/5-(c(10,-0.5)-c(4)+c(2))*a/99,4)
i+=1
if(i<b)goto s
p=pget(x,y)
if(p==12)v+=2
if(p==4)goto q
o("\x86",x-3,y-3,8)
o(f,1,8,5)
if(h)o("high score:"..h,1,1,2) 
flip()
goto _