Files
CTF/DownUnderCTF 2023/rev/SPACEGAME/SPACEGAME/distrib/_SPACEGAME.exe.extracted/Player.lua
2023-09-05 14:38:18 +02:00

662 lines
31 KiB
Lua

return (function(...)
local E = { "\088\097\111\056\074\097\103\061"; "\119\087\073\081\074\076\100\081\074\087\112\061", "\112\097\068\055\082\087\076\108", "\090\078\083\102\074\049\088\065"; "\069\107\101\055\088\122\061\061"; "\088\053\077\075\051\087\075\049\076\078\048\075\069\109\109\090\090\052\102\061", "\103\097\068\055\082\087\076\108"; "\119\052\100\065\112\049\051\055\074\120\051\121"; "\090\052\109\067\074\084\061\061", "\088\087\073\122\119\087\083\079", "\074\087\111\122\078\052\055\109\090\087\088\089\088\084\061\061"; "\074\097\076\072\088\084\061\061", "\088\078\084\061"; "\088\076\081\116\090\078\111\119\087\072\113\108\088\103\109\087", "\112\072\111\065\069\097\100\106", "\088\078\050\053\119\078\051\109"; "\082\077\061\061", "\083\114\055\066\112\075\113\075\085\102\051\054\051\116\101\050"; "\112\097\068\055\082\077\061\061", "\112\072\109\120\090\107\077\061"; "\069\078\069\109\074\120\077\061", "\074\072\076\049\103\052\100\113\112\072\083\109", "\090\087\073\075\069\078\101\065\119\087\068\057\069\078\055\081\088\111\100\075\090\087\113\109\112\048\061\061"; "\112\122\061\061"; "\112\078\102\061", "\119\087\073\120", "\112\052\076\075\074\087\076\075\119\078\051\055\119\072\068\109"; "\069\097\076\055\069\107\050\055\112\120\051\081\119\052\068\109\112\122\061\061", "\074\087\111\122\078\049\088\081\069\107\051\089"; "\119\052\100\121"; "\078\113\100\120\119\122\061\061"; "\090\087\073\121\069\078\101\075", "\112\078\076\081\088\084\061\061"; "\090\078\083\053\069\087\111\053"; "\069\097\100\049\074\048\061\061", "\112\097\111\081\112\120\047\061"; "\090\087\113\120\115\049\050\067\119\078\109\109\112\056\073\122\074\072\112\061", "\119\052\068\055\074\078\084\061", "\090\052\076\073\119\072\100\055\112\072\077\061", "\119\078\076\053\090\087\099\061", "\090\097\109\075", "\112\097\100\081\074\120\051\121", "\112\052\076\075\077\052\100\067\074\049\105\061", "\074\087\111\075\090\107\076\075\090\087\122\061", "\078\113\100\081\074\072\051\109\082\084\061\061", "\082\084\061\061"; "\074\072\076\049\085\087\113\055\069\052\103\061"; "\078\113\100\067\069\087\104\061"; "\077\049\109\089\047\053\073\050\047\102\113\104\114\097\088\065"; "\088\097\109\067\069\076\100\121\090\078\081\109", "\112\052\109\065", "\069\049\101\055\112\097\055\081\119\049\047\061"; "\074\072\076\049", "\074\097\100\052\069\077\061\061", "\112\072\076\068\088\087\109\108\069\077\061\061"; "\074\087\111\075\090\084\061\061"; "\119\078\076\053\115\052\101\118\074\052\075\065\088\052\111\052"; "\112\049\051\055\088\097\109\116", "\114\072\069\066\076\078\055\118\088\097\076\077\103\078\076\047" }
local function O(O)
return E[O + 27930]
end
for O, Z in ipairs({ { 1; 59 }, { 1; 37 }, { 38, 59 } }) do
while Z[1] < Z[2] do
E[Z[1]], E[Z[2]], Z[1], Z[2] = E[Z[2]], E[Z[1]], Z[1] + 1, Z[2] - 1
end
end
do
local O = string.char
local Z = string.len
local f = string.sub
local p = math.floor
local F = table.insert
local I = type
local o = E
local A = table.concat
local m = { j = 45, l = 50; x = 39, ["\055"] = 33, J = 27, I = 57; E = 25, ["\049"] = 55, r = 19, D = 49, f = 4; F = 42; s = 11, u = 58, m = 37; V = 63; ["\053"] = 36; L = 21, ["\050"] = 1, R = 30, ["\051"] = 17; k = 7; v = 47, w = 24; S = 13; i = 8; Y = 40, B = 10; W = 22; Z = 26; G = 62, A = 46; O = 43; U = 18, h = 56, a = 6; g = 20; ["\048"] = 32; K = 52, M = 16, d = 61, y = 51; N = 23, t = 35; z = 48, ["\043"] = 2; C = 44, n = 59; p = 28, H = 38, ["\052"] = 54; ["\054"] = 14, c = 60, ["\047"] = 12, ["\057"] = 31; e = 9; X = 29, o = 5; b = 15; q = 53; Q = 41; ["\056"] = 34; P = 3; T = 0 }
for E = 1, #o, 1 do
local z = o[E]
if I(z) == "\115\116\114\105\110\103" then
local I = Z(z)
local e = {}
local w = 1
local r = 0
local g = 0
while w <= I do
local E = f(z, w, w)
local Z = m[E]
if Z then
r = r + Z * 64 ^ (3 - g)
g = g + 1
if g == 4 then
g = 0
local E = p(r / 65536)
local Z = p((r % 65536) / 256)
local f = r % 256
F(e, O(E, Z, f))
r = 0
end
elseif E == "\061" then
F(e, O(p(r / 65536)))
if w >= I or f(z, w + 1, w + 1) ~= "\061" then
F(e, O(p((r % 65536) / 256)))
end
break
end
w = w + 1
end
o[E] = A(e)
end
end
end
return (function(E, f, p, F, I, o, A, e, B, Q, r, q, v, w, g, m, C, l, z, Z)
e, Z, g, v, z, C, r, B, l, Q, w, m, q = function()
w = w + 1
z[w] = 1
return w
end, function(Z, p, F, I)
local Q, u, h, R, X, A, H, z, T, g, c, L, S, e, a, w, m, r, B
while Z do
if Z < 7566893 then
if Z < 2434883 then
if Z < 1664603 then
if Z < 797161 then
if Z < 426491 then
A = O(-27897)
m = p
z = O(-27908)
Z = E[A]
A = Z(z)
A = O(-27897)
z = O(-27885)
Z = E[A]
A = Z(z)
Z = {}
A = O(-27886)
e = O(-27886)
z = O(-27886)
E[A] = Z
A = E[z]
z = O(-27907)
w = E[e]
A[z] = w
z = O(-27886)
z = E[z]
w = O(-27899)
A = v(2061674, {})
z[w] = A
w = O(-27877)
z = O(-27886)
z = E[z]
Z = E[O(-27893)]
A = l(5113591, {})
z[w] = A
w = O(-27884)
z = O(-27886)
z = E[z]
A = C(13041681, {})
z[w] = A
A = q(2021474, {})
z = O(-27886)
z = E[z]
w = O(-27888)
z[w] = A
A = {}
else
Z = 2987850
end
else
if Z < 984222 then
g = 1
r = .19607843137255
e = O(-27898)
w = E[e]
e = O(-27900)
z = w[e]
Z = 7589760
e = .19607843137255
w = O(-27909)
A = z[w]
w = 1
z = A(w, e, r, g)
e = O(-27898)
w = E[e]
e = O(-27900)
z = w[e]
w = O(-27910)
A = z[w]
e = O(-27927)
w = E[e]
z = A(w)
e = O(-27898)
w = E[e]
g = 1
e = O(-27900)
z = w[e]
w = O(-27909)
r = 1
A = z[w]
e = 1
w = 1
z = A(w, e, r, g)
else
w = w + r
z = w <= e
B = not g
z = B and z
B = w >= e
B = g and B
z = B or z
B = 13130338
Z = z and B
z = 650231
Z = Z or z
end
end
else
if Z < 2026257 then
if Z < 2022122 then
w = O(-27890)
m = p[1]
z = E[w]
w = O(-27918)
A = z[w]
Z = not A
Z = Z and 11950031 or 9062424
else
Q = O(-27929)
B = m[Q]
w = O(-27929)
e = B + z
B = O(-27929)
m[w] = e
e = m[B]
B = 5
w = e > B
Z = w and 16146400 or 12616707
end
else
if Z < 2178733 then
Z = {}
z = p[2]
A = O(-27925)
w = Z
m = p[1]
Z = E[A]
r = O(-27886)
e = E[r]
A = Z(w, e)
Z = O(-27906)
A = m
w[Z] = A
A = z
Z = O(-27876)
w[Z] = A
Z = O(-27918)
A = false
w[Z] = A
g = O(-27898)
Z = O(-27929)
A = 0
w[Z] = A
A = {}
Z = O(-27924)
w[Z] = A
Z = O(-27891)
r = E[g]
g = O(-27900)
e = r[g]
r = O(-27905)
A = e[r]
r = O(-27915)
e = A(r)
A = { w }
w[Z] = e
Z = E[O(-27879)]
else
B = O(-27898)
g = E[B]
B = O(-27913)
r = g[B]
g = O(-27889)
A = r[g]
g = O(-27873)
r = A(g)
Z = r and 4379039 or 10530534
end
end
end
else
if Z < 5396903 then
if Z < 3150871 then
if Z < 2719672 then
Z = 7361289
r = nil
g = nil
else
A = {}
Z = E[O(-27875)]
m = nil
end
else
if Z < 4808186 then
r = 1
Z = 10530534
A = w + r
w = A
else
z = p[2]
m = p[1]
e = O(-27890)
w = E[e]
e = O(-27918)
A = w[e]
Z = not A
Z = Z and 16503076 or 2022697
end
end
else
if Z < 6882157 then
if Z < 6194257 then
Q = 2
r = e
B = r % Q
Q = 1
A = B == Q
Z = A and 7540834 or 9956177
else
g = 1
Z = 14557840
r = e - g
e = r
end
else
if Z < 7453179 then
e, g = z(w, e)
Z = e and 6103502 or 830470
else
B = O(-27927)
A = E[B]
a = O(-27929)
h = O(-27906)
Z = 2569277
Q = m[h]
c = m[a]
h = g * c
B = Q + h
A[r] = B
end
end
end
end
else
if Z < 12843716 then
if Z < 10046636 then
if Z < 8977033 then
if Z < 7985241 then
A = {}
m = nil
Z = E[O(-27887)]
else
B = 1
a = O(-27906)
c = m[a]
u = O(-27906)
Q = O(-27906)
Z = 10142488
a = w * B
w = nil
h = c + a
m[Q] = h
Q = O(-27906)
a = O(-27908)
c = E[a]
H = O(-27885)
a = O(-27914)
h = c[a]
R = O(-27885)
a = m[u]
u = 0
L = E[H]
H = O(-27902)
T = L[H]
X = E[R]
R = O(-27923)
H = X[R]
X = 1
L = H - X
S = T * L
c = h(a, u, S)
a = O(-27876)
m[Q] = c
c = m[a]
Q = O(-27876)
a = e * B
H = O(-27885)
h = c + a
m[Q] = h
a = O(-27908)
e = nil
u = O(-27876)
Q = O(-27876)
c = E[a]
a = O(-27914)
h = c[a]
a = m[u]
R = O(-27885)
L = E[H]
u = 0
H = O(-27902)
T = L[H]
X = E[R]
R = O(-27882)
H = X[R]
X = 1
L = H - X
S = T * L
c = h(a, u, S)
m[Q] = c
B = nil
end
else
if Z < 9108935 then
Z = {}
A = O(-27927)
z = O(-27916)
E[A] = Z
Z = 7361289
A = E[z]
g = O(-27924)
r = m[g]
g = { A(r) }
e = g[3]
w = g[2]
z = g[1]
else
B = O(-27927)
h = O(-27876)
Z = 2569277
A = E[B]
a = O(-27929)
Q = m[h]
c = m[a]
h = g * c
B = Q + h
A[r] = B
end
end
else
if Z < 11540054 then
if Z < 10355331 then
A = {}
Z = E[O(-27903)]
z = nil
m = nil
else
Q = O(-27898)
B = E[Q]
Q = O(-27913)
g = B[Q]
B = O(-27889)
r = g[B]
B = O(-27880)
g = r(B)
Z = g and 6237777 or 14557840
end
else
if Z < 12211935 then
w = O(-27898)
e = O(-27906)
z = E[w]
w = O(-27900)
A = z[w]
r = O(-27876)
z = O(-27888)
Z = A[z]
w = O(-27891)
z = m[w]
w = m[e]
e = m[r]
A = Z(z, w, e)
Z = 7589760
else
Z = 10142488
end
end
end
else
if Z < 15282891 then
if Z < 13207829 then
if Z < 13064592 then
m = p[1]
w = O(-27890)
z = E[w]
w = O(-27918)
A = z[w]
Z = not A
Z = Z and 15404750 or 2987850
else
z = w
c = O(-27898)
h = E[c]
z = nil
c = O(-27896)
Q = h[c]
h = O(-27878)
S = O(-27898)
L = O(-27896)
B = Q[h]
h = 200
Q = B(h)
B = 5
Z = Q / B
B = O(-27928)
E[B] = Z
u = E[S]
S = O(-27896)
a = u[S]
u = O(-27878)
S = O(-27928)
c = a[u]
u = 360
a = c(u)
c = 360
h = a / c
c = 2
Q = h * c
h = 3.1415
B = Q * h
c = O(-27892)
Z = 1378056
Q = O(-27926)
a = O(-27924)
E[Q] = B
h = E[c]
H = O(-27926)
c = O(-27920)
Q = h[c]
c = m[a]
u = E[S]
T = E[L]
L = O(-27922)
S = T[L]
L = E[H]
T = S(L)
a = u * T
L = O(-27896)
h = Q(c, a)
c = O(-27892)
h = E[c]
c = O(-27920)
a = O(-27924)
Q = h[c]
S = O(-27928)
c = m[a]
u = E[S]
T = E[L]
L = O(-27901)
H = O(-27926)
S = T[L]
L = E[H]
T = S(L)
a = u * T
h = Q(c, a)
end
else
if Z < 13329603 then
Z = 8257195
B = 1
g = e + B
e = g
else
h = O(-27898)
Q = E[h]
h = O(-27913)
B = Q[h]
Q = O(-27889)
g = B[Q]
Q = O(-27917)
B = g(Q)
Z = B and 13228037 or 8257195
end
end
else
if Z < 16072676 then
if Z < 15466612 then
z = true
A = O(-27890)
Z = E[A]
w = O(-27898)
A = O(-27918)
Z[A] = z
z = E[w]
w = O(-27912)
A = z[w]
w = O(-27894)
z = O(-27871)
Z = A[z]
z = O(-27895)
A = Z(z, w)
z = O(-27911)
Z = O(-27911)
E[Z] = A
Z = E[z]
w = 200
z = O(-27874)
z = Z[z]
z = z(Z)
z = 0
e = w
w = 1
r = w
Z = 1378056
w = 0
g = r < w
w = z - r
else
A = 1
Z = w - A
w = Z
Z = 2250303
end
else
if Z < 16370075 then
Q = O(-27898)
B = E[Q]
Q = O(-27872)
e = B[Q]
B = O(-27919)
Z = 12616707
w = e[B]
B = 0
e = w(B)
else
Z = 0
w = Z
Z = 0
e = Z
g = O(-27898)
r = E[g]
g = O(-27913)
A = r[g]
r = O(-27889)
Z = A[r]
r = O(-27881)
A = Z(r)
Z = A and 15487979 or 2250303
end
end
end
end
end
end
Z = #I
return f(A)
end, function(E)
local O, Z = 1, E[1]
while Z do
z[Z], O = z[Z] - 1, O + 1
if 0 == z[Z] then
z[Z], m[Z] = nil, nil
end
Z = E[O]
end
end, function(E, O)
local f = r(O)
local p = function(p, F)
return Z(E, { p; F }, O, f)
end
return p
end, {}, function(E, O)
local f = r(O)
local p = function(p, F, I, o, A)
return Z(E, { p; F; I, o, A }, O, f)
end
return p
end, function(E)
for O = 1, #E, 1 do
z[E[O]] = 1 + z[E[O]]
end
if p then
local Z = p(true)
local f = I(Z)
f[O(-27907)], f[O(-27921)], f[O(-27904)] = E, g, function()
return -319769
end
return Z
else
return F({}, { [O(-27921)] = g; [O(-27907)] = E; [O(-27904)] = function()
return -319769
end })
end
end, function(E)
z[E] = z[E] - 1
if z[E] == 0 then
z[E], m[E] = nil, nil
end
end, function(E, O)
local f = r(O)
local p = function(p, F, I, o, A, m)
return Z(E, { p; F; I, o, A, m }, O, f)
end
return p
end, function(E, O)
local f = r(O)
local p = function(...)
return Z(E, { ... }, O, f)
end
return p
end, 0, {}, function(E, O)
local f = r(O)
local p = function(p, F, I)
return Z(E, { p, F, I }, O, f)
end
return p
end
return (Q(234890, {}))(f(A))
end)(getfenv and getfenv() or _ENV, unpack or table[O(-27883)], newproxy, setmetatable, getmetatable, select, { ... })
end)(...)