1K Chain Reaction #Pico1K

Chain Reaction game in less than 1000 characters for #Pico1k Jam. No predefined assets are used. Source code: _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]for 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 if e>0and z>0then 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 end for i=#o,1,-1do p=o[i]p.x+=p.u p.y+=p.v if(p.x =f)p.x,p.u=2*f-p.x,-abs(p.u) if(p.y>=f)p.y,p.v=2*f-p.y,-abs(p.v) ...