LÖVE

Code: Select all

_=function(a,b,r)a,b=a:match("([^:]*):(.*)")r='return 'return loadstring(r.."function("..a..")"..b:gsub('&',r).." end")()end;l,u,s,c,M,m,T,W,H,E,F,G=love,unpack,math.sin,math.cos,math.max,math.min,table,400,300,{},{},{}T,R,K,g,I,J=T.insert,T.remove,l.keyboard.isDown,l.graphics,{[11]=F,[4]=G},{[18]=11,[11]=4}v=_"D,i,r:T(D,c(i)*r)T(D,s(i)*r)"for e=1,6 do v(E,e,21)v(F,e,13)v(G,e,4)end;k=_"D,v,j,X,Y,r:&{X,Y,r,c(r)*v,s(r)*v,0,j,D}"r=_"a:if a==0 then A,B,P={},{},k({10,0,-5,5,-5,-5},0,4,W,H,0)for i=1,6 do A[i]=k(E,i*7,18,W+c(i)*160,H+s(i)*120,i) end end"o=_"D,O,p,q:p,q=D[1]-O[1],D[2]-O[2];&M(0,m(1,p*p+q*q-D[7]*D[7]))"z=_"D,X,Y,r,x,y:D[1],D[2],D[6]=(X+d*x+9)%818-9,(Y+d*y+9)%618-9,D[6]+d"q=_"D:g.translate(u(D));g.rotate(D[3]);g.polygon('line',u(D[8]));g.reset()"l.draw=_":q(P)for i=1,#A do q(A[i]) end;for i=1,#B do q(B[i]) end"l.keypressed=_"d:if d=='p' then T(B,k(G,149,3,u(P)))end"C=_"n,c:&M(-99,m(99,P[n]+c(P[3])*(K'w'and 1 or 0)))"r(0)f=_"a,f:for i=#a,1,-1 do f(a[i]) end"function l.update(h)d=h;P[3],P[4],P[5]=P[3]+d*(K'a'and-3 or(K'd'and 3 or 0)),C(4,c),C(5,s)z(P,u(P))f(B,_'b:z(b,u(b))')for e=#B,1,-1 do b,h=R(B,e),2;for i=#A,1,-1 do a=R(A,i)t=J[a[7]]or 0;h=m(h,o(a,b)*2)for l=1,(1-o(a,b))*m(4,t)do T(A,k(I[t],l*9,t,a[1],a[2],l*2))end;T(o(a,b)<1 and{}or A,a)end;T(b[6]>h and{}or B,b)end;f(A,_'a:z(a,u(a))r(o(a,P))')r(#A)end

Code: Select all

L=love;G=L.graphics;I=L.keyboard.isDown;Y=L.load;M=math;C=M.cos;S=M.sin;R=M.random;T=M.pi;Z=pairs;E=20;K=70;Q=300;W,H=800,600;J=0;function L.draw()if J<1 then P={q=Q,x=W/2,y=H/2,r=0,s=0,p={-5,-5,-5,5,9,0,-5,-5}}O={P}for a=2,K do p={-5,-9,5,-9,9,1,0,9,-9,1}for a=1,#p do p[a]=p[a]-3+R(6)end;p[11],p[12]=p[1],p[2]O[a]={q=K,x=R(W),y=R(H),r=R(T*2),s=R(K),p=p}end end;d,J=L.timer.getDelta(),0;for b,c in Z(O)do if c.q>0 then if c.q==Q then O[#O+1]=R(E)<6 and I" "and{q=1,x=P.x,y=P.y,r=P.r,s=Q,p={0,0,9,0}}or nil;c.r=c.r+d*3*(I"d"and 1 or I"a"and-1 or 0)c.s=c.s+d*K*(I"w"and 1 or I"s"and-3 or 0)c.s=M.max(0,M.min(Q,c.s))elseif c.q==K then J=(c.x-P.x)^2+(c.y-P.y)^2<E^2 and-Q or J+1 else c.q=c.q-d;for b,e in Z(O)do e.q=e.q==K and(c.x-e.x)^2+(c.y-e.y)^2<E^2 and 0 or e.q end end;c.x=(c.x+C(c.r)*c.s*d)%W;c.y=(c.y+S(c.r)*c.s*d)%H;G.origin()G.translate(c.x,c.y)G.rotate(c.r)G.line(c.p)end end end

Code: Select all

L=love;G=L.graphics;M=math;c=M.cos;s=M.sin;T=table;R=T.remove;I=T.insert;X=130;function K(G,e,f)for g=0,e*2,2 do j=M.pi*g/e;f[g+1]=f.r*c(j)f[g+2]=f.r*s(j)end;f.d=f.v*c(f.o)f.e=f.v*s(f.o)I(G,f)end;function r()B={}K(B,3,{x=400,y=300,r=9,o=0,v=0})P=B[1]A={}for g=0,9 do K(A,5,{x=g*X,y=X+g%4*X,r=30,o=g,v=9})end end;function C(a,b)return(a.x-b.x)^2+(a.y-b.y)^2<a.r^2 end;function L.keypressed(h)_=h=='p'and K(B,4,{x=P.x,y=P.y,v=X,o=P.o,r=4})end;function V(g,a,f)P[g]=M.max(-X,M.min(X,P[g]+f(P.o)*a*9*d))end;function U(i,...)i.x=(i.x+i.d*d)%800;i.y=(i.y+i.e*d)%600;i.t=(i.t or 0)+d;_=...and U(...)end;function D(h)return L.keyboard.isDown(h)and 4 or 0 end;function L.draw()d=L.timer.getDelta()P.o=P.o+d*(D'd'-D'a')V('d',D'w',c)V('e',D'w',s)U(u(A))U(u(B))for g=#A,1,-1 do _=C(A[g],P)and r()a=R(A,g)for j=#B,2,-1 do b=R(B,j)if C(a,b)then a.r=a.r/2 end;_=b.t<1 and I(B,b)end;_=a.r>7 and K(A,5,a)end;_=#A<1 and r()Q(u(A))Q(u(B))end;function Q(i,...)G.translate(i.x,i.y)G.rotate(i.o)G.line(u(i))G.reset()_=...and Q(...)end;r()u=unpack

Code: Select all

--[[
-- A-steroids  B-ullets  P-layer
--  .r adius
--  .o rotation (theta)
--  .v velocity initial
--  .d elta X
--  .e delta Y
--  .t ime alive
--]]

L=love
G=L.graphics
M=math
c=M.cos
s=M.sin
T=table
R=T.remove
I=T.insert
X = 130 -- interesting screen position, and interesting velocity, sweet!

function K(G,e,f) -- initialize_polygon(verticies, object)
  for i = 0, e*2,2 do
    j=M.pi*i/e
    f[i+1]=f.r*c(j)
    f[i+2]=f.r*s(j)
  end
  f.d = f.v*c(f.o)
  f.e = f.v*s(f.o)
  I(G,f)
end

function r() -- reset()
  B={}
  K(B,3,{x=400,y=300,r=9,o=0,v=0})
  P=B[1]
  A={}
  for i = 0, 9 do
    K(A, 5,{x=i*X,y=X+i%4*X,r=30,o=i,v=9})
  end
end

function C(a,b) -- distance of center minus radius, collision at 0
  return (a.x-b.x)^2+(a.y-b.y)^2<a.r^2
end

function L.keypressed(k)
  _=k=='p'and K(B,4,{x=P.x,y=P.y,v=X,o=P.o,r=4})
end

function V(i,a,f) --add velocity(index, amount, trig func)
  P[i]=M.max(-X,M.min(X,P[i]+f(P.o)*a*9*d))
end

function U(o,...)
  o.x=(o.x+o.d*d)%800
  o.y=(o.y+o.e*d)%600
  o.t=(o.t or 0)+d
  _=... and U(...)
end

function D(k) return L.keyboard.isDown(k) and 4 or 0 end

function L.draw()
  d=L.timer.getDelta()
  P.o=P.o+d*(D'd'-D'a')
  V('d',D'w',c)
  V('e',D'w',s)
  U(u(A))
  U(u(B))
  for i=#A,1,-1 do
    _=C(A[i],P)and r()
    a=R(A,i)
    for j=#B,2,-1 do
      b=R(B,j)
      if C(a,b)then
        a.r=a.r/2
      end
      _=b.t<1 and I(B,b)
    end
    _=a.r>7 and K(A,5,a)
  end
  _=#A<1 and r()
  Q(u(A))
  Q(u(B))
end

function Q(o,...) -- draw polygon
  G.translate(o.x,o.y)
  G.rotate(o.o)
  G.line(u(o))
  G.reset()
  _=... and Q(...)
end

r()
u=unpack -- minifies better down here