comets (ttj5)

Просто уклоняйтесь от комет

Ctrl-R для перезапуска

источник:

pal({1,1,2,2,13,13,8,8,8,7,12,14},1)cls()m,x,y,u,v,t,c= {},64,64,0,0,0,circfill
::_::print(#m,4,4,12)flip()for i=24576,32767do
тыкать(i ,(@i)/1.4)end
rect(0,0,127,127,12)rect(1,0,126,126)t+=1for a in all(m) do
d=atan2(x-a.x,y-a .y)
a.u+=cos(d+a.q/8)/9a.v+=sin(d+a.q/8)/9
a.u*=.98a.x+=a.u a.v*= .98a.y+=a.v
c(a.x,a.y,2,12)end
if(pget(x,y)>11)e=max(e,1)
if( e)circ(x,y,2+e,8+e%8)e+=1goto _
if(t%16==0)add(m,{q=rnd()-rnd(), x=64,y=0,u=0,v=0,r=2+rnd(4)})
b=btn()
u+=(b&2)/2-(b&1) u*=.7x+=u
v+=(b&8)/8-(b&4)/4v*=.7y+=v
if(u<0)u+=.1
if( v<0)v+=.1
c(x,y,1,10)перейти к _