Blitzar

Par

With your trusty spacecraft chart a huge galaxy! One star down, 16383 more to go! Controls •Arrow keys to move your ship. •Move to the edge of the screen to fly to another star. •Each time you visit a new star, your exploration percentage goes up. Code q={}s=128x=9y=63pal({-15,1,-13,-4,12},1)b=0v=0j=0k=0g=0h=0e,u,w=srand,circfill,rnd::_::p=btn()j+=(p\2%2-p%2)/4k+=(p\8%2-p\4%2)/4e(t())for i=0,400do n=w(s)m=w(s)circ(n,m,1,abs(pget(n,m)-1))end camera(v,b)v*=.8b*=.8e(r)for i=0,99do n=w(s)m=w(s)pset(n,m,5)end l=0for i=0,w(9)do a=w()+t()/i/9f=i<1and w(3)+9or 1+w(i)u(l*cos(a)+63,l*sin(a)+63-i,f,7)l+=f+w(9)+5end x+=j y+=k if(x<0or x>s)g+=sgn(j)v=s*-sgn(j)x%=s if(y<0or y>s)h+=sgn(k)b=s*-sgn(k)y%=s ?(#q/4^7*100).."%",2,2 r=g+s*h for i in all(q)do if(i==r)goto e end add(q,r)::e::u(x,y,1,7)j*=.9k*=.9flip()goto _