NTHD

ПРЕДУПРЕЖДАЮЩИЕ МИГАЮЩИЕ ОГНИ

Двигайтесь с помощью стрелок, вращайте и масштабируйте с помощью S/E/D/F . Q рандомизирует цветовую палитру.

сделано для twittertweetjam длиной менее 560 символов

(пока только для настольных компьютеров)

cls()
poke(0x5f2c,7)
g=flr
r=rnd
ww=32
sx=0
sy= 0< br/>x=3
y=3
a=0
sc=61
p=0
::_::
srand(p )
z=btnp( )
x+=g(z/2)%2-z%2
y+=g(z/8)%2-g(z/4)%2
z=shr( z,8)
a+=(g(z/2) %2-z%2)/666
sc-=g(z/8)%2-g(z/4)%2
z=shr(z,14)
p -=(z%2)/99
для я=9,15 do
pal(i,1+g(r(15)))
end
w=ww
ca,sa=cos(a),sin(a)
q,s=ca,sa
m=sh l(0xfff8,(w-1))
ca*=w-0.5
sa*=w-0.5
j,h=sa-ca+w,-ca-sa+w
w=2*w-1
для ix=0,w do
k,l=j,h
для iy=0,w do
if Band(bor(k,l),m)==0 then
c=pget(sx+k,sy+l)
if (c==0) c=g(r(5))
sset(x+ix,y+iy,9+(c+1)%6)
end
k-=s
l+=q
конец< br/>j+=q
h+=s
end
sspr(0,0,64,64,x,y,sc,sc)
flip()
перейти к _