Dither Wars

Выиграйте войну дизеринга, раскрасив мир!

Элементы управления:

• Клавиши со стрелками вверх и вниз для перемещения.
• Клавиши со стрелками влево и вправо для поворота.

Код: x=9y=9z=700a=0v=0cls() для 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 у+=ч*в c=o(a)s=u(a)для f=0,63do для l=0,63до если (t()<.1)mset(f,l,rnd(5)+2) q[mget(f,l)]+=1end конец для i=0,128do n=rnd(64)m=rnd(64)e=mget(n,m)для 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 е=z/я 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=0для i=1,6do w=q[i]/4096*127rectfill(l,0,w+l,6,i+6)l+=w конец перевернуть()перейти к _