Grid Navigation 500

Grid Navigation 500

Drive your ship through the grid and avoid crashing into other ships. A tiny TweetTweetJam-8 entry in 494 characters of code.

Code:

_set_fps(60)f=128g=256h=0m=64l=line::s::k=.005r=0p={{x=m,y=m,z=0,a=0}}::_::cls(1)r+=.1for j=1,#p do
q=p[j]if j<2then
b=btn()q.a=(b%2-b\2%2)/80x=q.x
y=q.y
for i=0,f,16do
a=i+x%16b=i+y%16l(0,b,f,b,2)l(a,0,a,f)end?r\6,7
?h
end
q.z+=q.a
q.x+=cos(q.z)q.y+=sin(q.z)a=(f+x-q.x)%g-m
b=(f+y-q.y)%g-m
if(j>1and max(abs(a-m),abs(b-m))<8)h=max(h,r\6)goto s
l(6+(3+j)%10)l(a,b)for i=-1,1do
e=q.z+i*1.63l(a-8*cos(e),b-8*sin(e))end
l(a,b)end
if(#p<4+r\60)add(p,{x=x+f,y=y+f,z=rnd(),a=rnd(k)-k/2})
flip()goto _