1K Chain Reaction #Pico1K

Игра «Цепная реакция» менее чем в 1000 символов для #Pico1k Jam. Никакие предопределенные ресурсы не используются.

Исходный код:

_set_fps(60)f=128t={5,2,10,3,15,5,20,8,25,10,30,16,40,30,50,40}l=2::s::k =.5z=-1x=64y=64e=1o={}n=t[l-1]m=t[l]для i=1,n do a=rnd()add(o,{x=rnd(f),y=rnd(f),u=k*cos(a),v=k*sin(a),r=0,c=4+ rnd(12)})end::_::cls(1)pal(5,3)c=0d=0z+=.01 если е>0 и z>0, то b=btn()x+=(b&2)/2-(b&1)y+=(b&8)/8-(b&4)/4x=mid(x,127)y=mid(y,127) if(btnp(4))e-=1add(o,{x=x,y=y,u=0,v=0,r=k,c=2}) ?"+",x-1,y-2,9 конец для i=#o,1,-1do p=o[i]p.x+=p.u py+=pv if(p.x<0)p.x,p.u=-p.x,abs(p.u) если(p.y<0)p.y,p.v=-p.y,abs(p.v) if(p.x>=f)p.x,p.u=2*f-p.x,-abs(p.u) if(p.y>=f)py,p.v=2*f-p.y,-abs(p.v) if(p.r==0)pset(p.x,p.y,p.c)c+=1 если р.р>0, то d+=1p.r+=k r=min(15,min(p.r,50-p.r))circfill(p.x,p.y,r,p.c)w=k*r для j=1,#o сделать д=о[j] если q.r==0, то a=k*(p.x-q.x)b=k*(p.y-q.y) if(a*a+b*b<=w*w)q.r=k q.u=0q.v=0?"\as4f1edcba" конец конец если(r