Octagon

cartdata("o")
k,d,z,y,t,w,a,f,s,c,b=1/8,12,0,dget(0),0,63.5,0,{},sin,cos,btn::⌂::t+=1cls()
if(b(➡️))a+=k/5
if(b(⬅️))a-=k/5
?z<2 and"⬅️ ➡️"or"",54,w,2
if(t%30==0)add(f,{flr(rnd()*8),w,0})
for e in all(f)do
e[2]-=1.5
if(e[2]<1)del(f,e)z+=1
for j=0,3 do for i=0,5 do
line(w+c((e[1]+i)*k)*(e[2]+j),w+s((e[1]+i)*k)*(e[2]+j),w+c((e[1]+1+i)*k)*(e[2]+j),w+s((e[1]+1+i)*k)*(e[2]+j),8)end
end end
if(pget(w+c(a)*d,w+s(a)*d)==8)goto 😐
?"score:"..z,8,1,2
?"best:"..y,90,1
pset(w+c(a)*d,w+s(a)*d)y=max(y,z)flip()
goto ⌂
::😐::
?"retry?",54,w,7
dset(0,y)
if(b(❎))z=0goto ⌂
goto 😐