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 _