Dither Wars

Win the dither war by painting the world!

Controls:

• Up and down arrows keys to move.
• Left and right arrow keys to turn.

Code: x=9y=9z=700a=0v=0cls()for i=1,7do circfill(i*8+4,4,3,i+6)end memcpy(0,6<<12,7^5)o,u=cos,sin::_::q={0,0,0,0,0,0} r=1p=btn()a+=(p\2%2-p%2)/99v=(p\4%2-p\8%2)/2g=o(-a)h=u(-a)x+=g*v y+=h*v c=o(a)s=u(a)for f=0,63do for l=0,63do if(t()<.1)mset(f,l,rnd(5)+2) q[mget(f,l)]+=1end end for i=0,128do n=rnd(64)m=rnd(64)e=mget(n,m)for k=0,1,1/4do mset(n+o(k),m+u(k),e)mset(x+g*9+o(k),y+h*9+u(k),1)end f=z/i tline(0,i,127,i,x+f*(c-s),y+f*(-c-s),1/64*s*f,1/64*c*f)end ?"웃",60,74,0 l=0for i=1,6do w=q[i]/4096*127rectfill(l,0,w+l,6,i+6)l+=w end flip()goto _