2022-04-29 16:40:51 +02:00

1537 lines
34 KiB
Lua

local L0_1, L1_1, L2_1, L3_1, L4_1, L5_1, L6_1, L7_1, L8_1, L9_1, L10_1, L11_1, L12_1, L13_1, L14_1, L15_1, L16_1, L17_1, L18_1, L19_1, L20_1
L0_1 = {}
L1_1 = {}
L2_1 = table
L3_1 = debug
function L4_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2
L1_2 = L0_1.postfix
if L1_2 then
L1_2 = A0_2
L2_2 = L0_1.postfix
A0_2 = L1_2 .. L2_2
end
L1_2 = {}
L2_2 = ipairs
L3_2 = package
L3_2 = L3_2.searchers
L2_2, L3_2, L4_2 = L2_2(L3_2)
for L5_2, L6_2 in L2_2, L3_2, L4_2 do
L7_2 = L6_2
L8_2 = A0_2
L7_2, L8_2 = L7_2(L8_2)
L9_2 = type
L10_2 = L7_2
L9_2 = L9_2(L10_2)
if L9_2 == "function" then
L10_2 = L7_2
L11_2 = L8_2
return L10_2, L11_2
elseif L9_2 == "string" then
L10_2 = L2_1.insert
L11_2 = L1_2
L12_2 = L7_2
L10_2(L11_2, L12_2)
end
end
L2_2 = print
L3_2 = string
L3_2 = L3_2.format
L4_2 = "module '%s' not found:%s"
L5_2 = A0_2
L6_2 = L2_1.concat
L7_2 = L1_2
L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2 = L6_2(L7_2)
L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2 = L3_2(L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2)
L2_2(L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2)
end
L5_1 = {}
L6_1 = print
L5_1.__newindex = L6_1
L6_1 = print
L5_1.__pairs = L6_1
L5_1.__metatable = "SANDBOX"
L6_1 = {}
L7_1 = {}
L8_1 = {}
L8_1.__mode = "kv"
L9_1 = nil
L10_1 = nil
L11_1 = {}
L11_1.__metatable = "MODULE"
L12_1 = print
L11_1.__newindex = L12_1
L12_1 = print
L11_1.__pairs = L12_1
function L12_1(A0_2)
local L1_2
L1_2 = L10_1[A0_2]
return L1_2
end
L11_1.__tostring = L12_1
function L12_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2
L1_2 = "["
L2_2 = A0_2
L3_2 = "]"
L1_2 = L1_2 .. L2_2 .. L3_2
L2_2 = L10_1[L1_2]
if L2_2 then
L2_2 = L10_1[L1_2]
return L2_2
else
L2_2 = {}
L10_1[L1_2] = L2_2
L10_1[L2_2] = L1_2
L3_2 = setmetatable
L4_2 = L2_2
L5_2 = L11_1
return L3_2(L4_2, L5_2)
end
end
function L13_1(A0_2, A1_2)
local L2_2, L3_2, L4_2, L5_2, L6_2, L7_2
L2_2 = assert
L3_2 = type
L4_2 = A1_2
L3_2 = L3_2(L4_2)
L3_2 = L3_2 == "string"
L4_2 = "module field is not string"
L2_2(L3_2, L4_2)
L2_2 = L10_1[A0_2]
L3_2 = L2_2
L4_2 = "."
L5_2 = A1_2
L3_2 = L3_2 .. L4_2 .. L5_2
L4_2 = L10_1[L3_2]
if L4_2 then
L4_2 = L10_1[L3_2]
return L4_2
else
L4_2 = {}
L10_1[L3_2] = L4_2
L10_1[L4_2] = L3_2
L5_2 = setmetatable
L6_2 = L4_2
L7_2 = L11_1
return L5_2(L6_2, L7_2)
end
end
L11_1.__index = L13_1
function L13_1()
local L0_2, L1_2, L2_2
L0_2 = setmetatable
L1_2 = {}
L2_2 = L5_1
return L0_2(L1_2, L2_2)
end
function L14_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2
L1_2 = assert
L2_2 = type
L3_2 = A0_2
L2_2 = L2_2(L3_2)
L2_2 = L2_2 == "string"
L1_2(L2_2)
L1_2 = L6_1[A0_2]
if L1_2 then
L1_2 = L6_1[A0_2]
return L1_2
end
L1_2 = L4_1
L2_2 = A0_2
L1_2, L2_2 = L1_2(L2_2)
L3_2 = L3_1.getupvalue
L4_2 = L1_2
L5_2 = 1
L3_2, L4_2 = L3_2(L4_2, L5_2)
if L3_2 == "_ENV" then
L5_2 = L3_1.setupvalue
L6_2 = L1_2
L7_2 = 1
L8_2 = L13_1
L8_2, L9_2 = L8_2()
L5_2(L6_2, L7_2, L8_2, L9_2)
end
L5_2 = L1_2
L6_2 = A0_2
L7_2 = L2_2
L5_2 = L5_2(L6_2, L7_2)
if not L5_2 then
L5_2 = true
end
L6_2 = {}
L6_2.module = L5_2
L7_1[A0_2] = L6_2
if L3_2 == "_ENV" then
L6_2 = L3_1.setupvalue
L7_2 = L1_2
L8_2 = 1
L9_2 = nil
L6_2(L7_2, L8_2, L9_2)
L6_2 = L7_1[A0_2]
L6_2.loader = L1_2
end
L6_2 = L12_1
L7_2 = A0_2
L6_2 = L6_2(L7_2)
L6_1[A0_2] = L6_2
L6_2 = L6_1[A0_2]
return L6_2
end
L1_1.require = L14_1
L14_1 = {}
L14_1.__metatable = "GLOBAL"
function L15_1(A0_2)
local L1_2
L1_2 = L9_1[A0_2]
return L1_2
end
L14_1.__tostring = L15_1
L15_1 = print
L14_1.__newindex = L15_1
L15_1 = print
L14_1.__pairs = L15_1
function L15_1(A0_2)
local L1_2, L2_2, L3_2, L4_2
L1_2 = L9_1[A0_2]
if L1_2 then
L1_2 = L9_1[A0_2]
return L1_2
else
L1_2 = {}
L9_1[L1_2] = A0_2
L9_1[A0_2] = L1_2
L2_2 = setmetatable
L3_2 = L1_2
L4_2 = L14_1
return L2_2(L3_2, L4_2)
end
end
function L16_1(A0_2, A1_2)
local L2_2, L3_2, L4_2, L5_2
L2_2 = L9_1[A0_2]
L3_2 = assert
L4_2 = type
L5_2 = A1_2
L4_2 = L4_2(L5_2)
L4_2 = L4_2 == "string"
L5_2 = "Global name must be a string"
L3_2(L4_2, L5_2)
L3_2 = L2_2
L4_2 = "."
L5_2 = A1_2
L3_2 = L3_2 .. L4_2 .. L5_2
L4_2 = L15_1
L5_2 = L3_2
return L4_2(L5_2)
end
L14_1.__index = L16_1
L16_1 = ipairs
L17_1 = {}
L16_1 = L16_1(L17_1)
L17_1 = {}
L18_1 = L1_1.require
L17_1.require = L18_1
L18_1 = pairs
L17_1.pairs = L18_1
L18_1 = next
L17_1.next = L18_1
L18_1 = ipairs
L17_1.ipairs = L18_1
L17_1._inext = L16_1
L18_1 = print
L17_1.print = L18_1
function L18_1(A0_2, A1_2)
local L2_2, L3_2, L4_2
L2_2 = assert
L3_2 = type
L4_2 = A1_2
L3_2 = L3_2(L4_2)
L3_2 = L3_2 == "string"
L4_2 = "Global name must be a string"
L2_2(L3_2, L4_2)
L2_2 = L17_1[A1_2]
if L2_2 then
L2_2 = L17_1[A1_2]
return L2_2
else
L2_2 = L15_1
L3_2 = A1_2
return L2_2(L3_2)
end
end
L5_1.__index = L18_1
function L18_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2
L1_2 = L9_1[A0_2]
L2_2 = _G
L3_2 = string
L3_2 = L3_2.gmatch
L4_2 = L1_2
L5_2 = "[_%a]%w*"
L3_2, L4_2, L5_2 = L3_2(L4_2, L5_2)
for L6_2 in L3_2, L4_2, L5_2 do
if L2_2 == nil then
L7_2 = print
L8_2 = "Invalid global"
L9_2 = L1_2
L7_2(L8_2, L9_2)
end
L2_2 = L2_2[L6_2]
end
return L2_2
end
function L19_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2
L1_2 = L10_1[A0_2]
L2_2 = L3_1.getregistry
L2_2 = L2_2()
L2_2 = L2_2._LOADED
L3_2 = string
L3_2 = L3_2.find
L4_2 = L1_2
L5_2 = "^%[([_%w]+)%]"
L3_2, L4_2, L5_2 = L3_2(L4_2, L5_2)
if L3_2 == nil then
L6_2 = print
L7_2 = "Invalid module "
L8_2 = L1_2
L7_2 = L7_2 .. L8_2
L6_2(L7_2)
end
L6_2 = assert
L7_2 = L2_2[L5_2]
L6_2 = L6_2(L7_2)
L7_2 = string
L7_2 = L7_2.gmatch
L9_2 = L1_2
L8_2 = L1_2.sub
L10_2 = L4_2 + 1
L8_2 = L8_2(L9_2, L10_2)
L9_2 = "[_%a]%w*"
L7_2, L8_2, L9_2 = L7_2(L8_2, L9_2)
for L10_2 in L7_2, L8_2, L9_2 do
if L6_2 == nil then
L11_2 = print
L12_2 = "Invalid module key"
L13_2 = L1_2
L11_2(L12_2, L13_2)
end
L6_2 = L6_2[L10_2]
end
return L6_2
end
function L20_1(A0_2)
local L1_2, L2_2, L3_2, L4_2
L1_2 = getmetatable
L2_2 = A0_2
L1_2 = L1_2(L2_2)
if L1_2 == "GLOBAL" then
L2_2 = L18_1
L3_2 = A0_2
return L2_2(L3_2)
elseif L1_2 == "MODULE" then
L2_2 = L19_1
L3_2 = A0_2
return L2_2(L3_2)
else
L2_2 = print
L3_2 = "Invalid object"
L4_2 = A0_2
L2_2(L3_2, L4_2)
end
end
L1_1.value = L20_1
function L20_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2
L1_2 = setmetatable
L2_2 = {}
L3_2 = L8_1
L1_2 = L1_2(L2_2, L3_2)
L9_1 = L1_2
L1_2 = setmetatable
L2_2 = {}
L3_2 = L8_1
L1_2 = L1_2(L2_2, L3_2)
L10_1 = L1_2
L1_2 = pairs
L2_2 = L6_1
L1_2, L2_2, L3_2 = L1_2(L2_2)
for L4_2, L5_2 in L1_2, L2_2, L3_2 do
L6_1[L4_2] = nil
end
L1_2 = pairs
L2_2 = L7_1
L1_2, L2_2, L3_2 = L1_2(L2_2)
for L4_2, L5_2 in L1_2, L2_2, L3_2 do
L7_1[L4_2] = nil
end
if A0_2 then
L1_2 = ipairs
L2_2 = A0_2
L1_2, L2_2, L3_2 = L1_2(L2_2)
for L4_2, L5_2 in L1_2, L2_2, L3_2 do
L6_2 = L12_1
L7_2 = L5_2
L6_2 = L6_2(L7_2)
L6_1[L5_2] = L6_2
end
end
end
L1_1.init = L20_1
function L20_1(A0_2)
local L1_2, L2_2
L1_2 = L17_1[A0_2]
if L1_2 then
L1_2 = true
return L1_2
end
L1_2 = getmetatable
L2_2 = A0_2
L1_2 = L1_2(L2_2)
L1_2 = L1_2 ~= nil
return L1_2
end
L1_1.isdummy = L20_1
function L20_1(A0_2)
local L1_2
L1_2 = L7_1[A0_2]
return L1_2
end
L1_1.module = L20_1
function L20_1()
local L0_2, L1_2, L2_2, L3_2, L4_2, L5_2
L0_2 = nil
L9_1 = L0_2
L0_2 = nil
L10_1 = L0_2
L0_2 = pairs
L1_2 = L7_1
L0_2, L1_2, L2_2 = L0_2(L1_2)
for L3_2, L4_2 in L0_2, L1_2, L2_2 do
L7_1[L3_2] = nil
end
end
L1_1.clear = L20_1
function L4_1()
local L0_2, L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2
L0_2 = {}
L1_2 = pairs
L2_2 = L3_1.getregistry
L2_2 = L2_2()
L2_2 = L2_2._LOADED
L1_2, L2_2, L3_2 = L1_2(L2_2)
for L4_2 in L1_2, L2_2, L3_2 do
L5_2 = L2_1.insert
L6_2 = L0_2
L7_2 = L4_2
L5_2(L6_2, L7_2)
end
return L0_2
end
L0_1.list = L4_1
L4_1 = {}
L4_1.number = true
L4_1.string = true
L4_1.boolean = true
function L5_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2
L1_2 = L0_1.print
L2_2 = {}
L3_2 = {}
L4_2 = {}
function L5_2(A0_3)
local L1_3, L2_3, L3_3, L4_3, L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3, L14_3
L1_3 = L1_1.isdummy
L2_3 = A0_3
L1_3 = L1_3(L2_3)
if L1_3 then
L1_3 = L1_2
if L1_3 then
L1_3 = L1_2
L2_3 = "ENUM"
L3_3 = A0_3
L4_3 = L2_1.concat
L5_3 = L3_2
L6_3 = "."
L4_3, L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3, L14_3 = L4_3(L5_3, L6_3)
L1_3(L2_3, L3_3, L4_3, L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3, L14_3)
end
L1_3 = L2_1.insert
L2_3 = L2_2
L3_3 = {}
L4_3 = A0_3
L5_3 = L2_1.unpack
L6_3 = L3_2
L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3, L14_3 = L5_3(L6_3)
L3_3[1] = L4_3
L3_3[2] = L5_3
L3_3[3] = L6_3
L3_3[4] = L7_3
L3_3[5] = L8_3
L3_3[6] = L9_3
L3_3[7] = L10_3
L3_3[8] = L11_3
L3_3[9] = L12_3
L3_3[10] = L13_3
L3_3[11] = L14_3
L1_3(L2_3, L3_3)
return
end
L1_3 = type
L2_3 = A0_3
L1_3 = L1_3(L2_3)
if L1_3 == "function" or L1_3 == "table" then
L2_3 = L1_2
if L2_3 then
L2_3 = L1_2
L3_3 = "ENUM"
L4_3 = A0_3
L5_3 = L2_1.concat
L6_3 = L3_2
L7_3 = "."
L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3, L14_3 = L5_3(L6_3, L7_3)
L2_3(L3_3, L4_3, L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3, L14_3)
end
L2_3 = L2_1.insert
L3_3 = L2_2
L4_3 = {}
L5_3 = A0_3
L6_3 = L2_1.unpack
L7_3 = L3_2
L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3, L14_3 = L6_3(L7_3)
L4_3[1] = L5_3
L4_3[2] = L6_3
L4_3[3] = L7_3
L4_3[4] = L8_3
L4_3[5] = L9_3
L4_3[6] = L10_3
L4_3[7] = L11_3
L4_3[8] = L12_3
L4_3[9] = L13_3
L4_3[10] = L14_3
L2_3(L3_3, L4_3)
L2_3 = L4_2[A0_3]
if L2_3 then
return
end
L4_2[A0_3] = true
else
return
end
L2_3 = L3_2
L2_3 = #L2_3
L2_3 = L2_3 + 1
if L1_3 == "function" then
L3_3 = 1
while true do
L4_3 = L3_1.getupvalue
L5_3 = A0_3
L6_3 = L3_3
L4_3, L5_3 = L4_3(L5_3, L6_3)
if L4_3 == nil or L4_3 == "" then
break
end
L7_3 = L4_3
L6_3 = L4_3.find
L8_3 = "^[_%w]"
L6_3 = L6_3(L7_3, L8_3)
if not L6_3 then
L6_3 = L1_2
L7_3 = "Invalid upvalue : "
L8_3 = L2_1.concat
L9_3 = L3_2
L10_3 = "."
L8_3 = L8_3(L9_3, L10_3)
L7_3 = L7_3 .. L8_3
L6_3(L7_3)
end
L6_3 = type
L7_3 = L5_3
L6_3 = L6_3(L7_3)
if L6_3 == "function" or L6_3 == "table" then
L3_2[L2_3] = L4_3
L7_3 = L2_3 + 1
L3_2[L7_3] = L3_3
L7_3 = L5_2
L8_3 = L5_3
L7_3(L8_3)
L3_2[L2_3] = nil
L7_3 = L2_3 + 1
L3_2[L7_3] = nil
end
L3_3 = L3_3 + 1
end
else
L3_3 = pairs
L4_3 = A0_3
L3_3, L4_3, L5_3 = L3_3(L4_3)
for L6_3, L7_3 in L3_3, L4_3, L5_3 do
L8_3 = type
L9_3 = L6_3
L8_3 = L8_3(L9_3)
L8_3 = L4_1[L8_3]
if not L8_3 then
L8_3 = L1_2
L9_3 = "Invalid key : "
L10_3 = L6_3
L11_3 = " "
L12_3 = L2_1.concat
L13_3 = L3_2
L14_3 = "."
L12_3 = L12_3(L13_3, L14_3)
L9_3 = L9_3 .. L10_3 .. L11_3 .. L12_3
L8_3(L9_3)
end
L3_2[L2_3] = L6_3
L8_3 = L5_2
L9_3 = L7_3
L8_3(L9_3)
L3_2[L2_3] = nil
end
end
end
L6_2 = L5_2
L7_2 = A0_2
L6_2(L7_2)
return L2_2
end
function L6_1(A0_2, A1_2, A2_2, ...)
local L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2
if A0_2 == nil or A1_2 == nil then
return A0_2
end
L3_2 = type
L4_2 = A0_2
L3_2 = L3_2(L4_2)
if L3_2 == "table" then
L4_2 = L6_1
L5_2 = A0_2[A1_2]
L6_2 = A2_2
L7_2, L8_2, L9_2 = ...
return L4_2(L5_2, L6_2, L7_2, L8_2, L9_2)
else
L4_2 = assert
L5_2 = L3_2 == "function"
L4_2(L5_2)
L4_2 = 1
while true do
L5_2 = L3_1.getupvalue
L6_2 = A0_2
L7_2 = L4_2
L5_2, L6_2 = L5_2(L6_2, L7_2)
if L5_2 == nil or A1_2 == "" then
return
end
if L5_2 == A1_2 then
L7_2 = L6_1
L8_2 = L6_2
L9_2 = ...
return L7_2(L8_2, L9_2)
end
L4_2 = L4_2 + 1
end
end
end
function L7_1(A0_2, A1_2, A2_2, A3_2)
local L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2, L17_2, L18_2
L4_2 = L0_1.print
L5_2 = ipairs
L6_2 = A0_2
L5_2, L6_2, L7_2 = L5_2(L6_2)
for L8_2, L9_2 in L5_2, L6_2, L7_2 do
L10_2 = L9_2[1]
L11_2 = L1_1.isdummy
L12_2 = L10_2
L11_2 = L11_2(L12_2)
if L11_2 then
L11_2 = L2_1.insert
L12_2 = A3_2
L13_2 = L9_2
L11_2(L12_2, L13_2)
else
L11_2 = pcall
L12_2 = L6_1
L13_2 = A1_2
L14_2 = L2_1.unpack
L15_2 = L9_2
L16_2 = 2
L14_2, L15_2, L16_2, L17_2, L18_2 = L14_2(L15_2, L16_2)
L11_2, L12_2 = L11_2(L12_2, L13_2, L14_2, L15_2, L16_2, L17_2, L18_2)
if not L11_2 then
L13_2 = {}
L14_2 = L2_1.unpack
L15_2 = L9_2
L16_2 = 2
L14_2, L15_2, L16_2, L17_2, L18_2 = L14_2(L15_2, L16_2)
L13_2[1] = L14_2
L13_2[2] = L15_2
L13_2[3] = L16_2
L13_2[4] = L17_2
L13_2[5] = L18_2
L14_2 = L4_2
L15_2 = "type mismatch : "
L16_2 = L2_1.concat
L17_2 = L13_2
L18_2 = ","
L16_2 = L16_2(L17_2, L18_2)
L15_2 = L15_2 .. L16_2
L14_2(L15_2)
end
if L12_2 == nil then
L13_2 = A2_2[L10_2]
if not L13_2 then
L13_2 = false
end
A2_2[L10_2] = L13_2
else
L13_2 = type
L14_2 = L12_2
L13_2 = L13_2(L14_2)
L14_2 = type
L15_2 = L10_2
L14_2 = L14_2(L15_2)
if L13_2 ~= L14_2 then
L13_2 = {}
L14_2 = L2_1.unpack
L15_2 = L9_2
L16_2 = 2
L14_2, L15_2, L16_2, L17_2, L18_2 = L14_2(L15_2, L16_2)
L13_2[1] = L14_2
L13_2[2] = L15_2
L13_2[3] = L16_2
L13_2[4] = L17_2
L13_2[5] = L18_2
L14_2 = L4_2
L15_2 = "Not a table : "
L16_2 = L2_1.concat
L17_2 = L13_2
L18_2 = ","
L16_2 = L16_2(L17_2, L18_2)
L15_2 = L15_2 .. L16_2
L14_2(L15_2)
end
end
L13_2 = A2_2[L10_2]
if L13_2 then
L13_2 = A2_2[L10_2]
if L13_2 ~= L12_2 then
L13_2 = {}
L14_2 = L2_1.unpack
L15_2 = L9_2
L16_2 = 2
L14_2, L15_2, L16_2, L17_2, L18_2 = L14_2(L15_2, L16_2)
L13_2[1] = L14_2
L13_2[2] = L15_2
L13_2[3] = L16_2
L13_2[4] = L17_2
L13_2[5] = L18_2
L14_2 = L4_2
L15_2 = "Ambiguity table : "
L16_2 = L2_1.concat
L17_2 = L13_2
L18_2 = ","
L16_2 = L16_2(L17_2, L18_2)
L15_2 = L15_2 .. L16_2
L14_2(L15_2)
end
end
A2_2[L10_2] = L12_2
if L4_2 then
L13_2 = L4_2
L14_2 = "MATCH"
L15_2 = L12_2
L16_2 = L2_1.unpack
L17_2 = L9_2
L18_2 = 2
L16_2, L17_2, L18_2 = L16_2(L17_2, L18_2)
L13_2(L14_2, L15_2, L16_2, L17_2, L18_2)
end
end
end
end
function L8_1(A0_2, A1_2)
local L2_2, L3_2, L4_2, L5_2
if not A0_2 then
return
end
L2_2 = 1
while true do
L3_2 = L3_1.getupvalue
L4_2 = A0_2
L5_2 = L2_2
L3_2, L4_2 = L3_2(L4_2, L5_2)
if L3_2 == nil or A1_2 == "" then
return
end
if L3_2 == A1_2 then
return L2_2
end
L2_2 = L2_2 + 1
end
end
function L9_1(A0_2, A1_2)
local L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2, L17_2
L2_2 = pairs
L3_2 = A0_2
L2_2, L3_2, L4_2 = L2_2(L3_2)
for L5_2, L6_2 in L2_2, L3_2, L4_2 do
L7_2 = type
L8_2 = L5_2
L7_2 = L7_2(L8_2)
if L7_2 == "function" then
L7_2 = 1
while true do
L8_2 = L3_1.getupvalue
L9_2 = L5_2
L10_2 = L7_2
L8_2, L9_2 = L8_2(L9_2, L10_2)
if L8_2 == nil or L8_2 == "" then
break
end
L10_2 = L8_1
L11_2 = L6_2
L12_2 = L8_2
L10_2 = L10_2(L11_2, L12_2)
L11_2 = L3_1.upvalueid
L12_2 = L5_2
L13_2 = L7_2
L11_2 = L11_2(L12_2, L13_2)
L12_2 = A1_2[L11_2]
if not L12_2 and L10_2 then
L12_2 = {}
L12_2.func = L6_2
L12_2.index = L10_2
L13_2 = L3_1.upvalueid
L14_2 = L6_2
L15_2 = L10_2
L13_2 = L13_2(L14_2, L15_2)
L12_2.oldid = L13_2
A1_2[L11_2] = L12_2
elseif L10_2 then
L12_2 = L3_1.upvalueid
L13_2 = L6_2
L14_2 = L10_2
L12_2 = L12_2(L13_2, L14_2)
L13_2 = A1_2[L11_2]
L13_2 = L13_2.oldid
if L12_2 ~= L13_2 then
L13_2 = print
L14_2 = string
L14_2 = L14_2.format
L15_2 = "Ambiguity upvalue : %s .%s"
L16_2 = tostring
L17_2 = L5_2
L16_2 = L16_2(L17_2)
L17_2 = L8_2
L14_2, L15_2, L16_2, L17_2 = L14_2(L15_2, L16_2, L17_2)
L13_2(L14_2, L15_2, L16_2, L17_2)
end
end
L7_2 = L7_2 + 1
end
end
end
end
function L10_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2
L1_2 = L3_1.getregistry
L1_2 = L1_2()
L1_2 = L1_2._LOADED
L2_2 = {}
L3_2 = ipairs
L4_2 = A0_2
L3_2, L4_2, L5_2 = L3_2(L4_2)
for L6_2, L7_2 in L3_2, L4_2, L5_2 do
L8_2 = L1_1.require
L9_2 = L7_2
L8_2(L9_2)
L8_2 = L1_1.module
L9_2 = L7_2
L8_2 = L8_2(L9_2)
L9_2 = L5_1
L10_2 = L8_2.module
L9_2 = L9_2(L10_2)
L10_2 = L1_2[L7_2]
L11_2 = {}
L12_2 = {}
L11_2.globals = L12_2
L12_2 = {}
L11_2.map = L12_2
L12_2 = {}
L11_2.upvalues = L12_2
L11_2.old_module = L10_2
L11_2.module = L8_2
L11_2.objects = L9_2
L2_2[L7_2] = L11_2
L12_2 = L7_1
L13_2 = L9_2
L14_2 = L10_2
L15_2 = L11_2.map
L16_2 = L11_2.globals
L12_2(L13_2, L14_2, L15_2, L16_2)
L12_2 = L9_1
L13_2 = L11_2.map
L14_2 = L11_2.upvalues
L12_2(L13_2, L14_2)
end
return L2_2
end
function L11_1(A0_2, A1_2, A2_2, A3_2, A4_2, ...)
local L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2
if A1_2 == nil then
L5_2 = false
return L5_2
end
L5_2 = type
L6_2 = A1_2
L5_2 = L5_2(L6_2)
if L5_2 == "table" then
if not A3_2 then
A1_2[A2_2] = A0_2
L5_2 = true
return L5_2
end
L5_2 = L11_1
L6_2 = A0_2
L7_2 = A1_2[A2_2]
L8_2 = A3_2
L9_2 = A4_2
L10_2, L11_2, L12_2 = ...
return L5_2(L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2)
else
L5_2 = 1
while true do
L6_2 = L3_1.getupvalue
L7_2 = A1_2
L8_2 = L5_2
L6_2, L7_2 = L6_2(L7_2, L8_2)
if L6_2 == nil or A2_2 == "" then
L8_2 = false
return L8_2
end
if L6_2 == A2_2 then
if not A4_2 then
L8_2 = L3_1.setupvalue
L9_2 = A1_2
L10_2 = L5_2
L11_2 = A0_2
L8_2(L9_2, L10_2, L11_2)
L8_2 = true
return L8_2
end
L8_2 = L11_1
L9_2 = A0_2
L10_2 = L7_2
L11_2 = A4_2
L12_2 = ...
return L8_2(L9_2, L10_2, L11_2, L12_2)
end
L5_2 = L5_2 + 1
end
end
end
function L12_1(A0_2, A1_2)
local L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2
L2_2 = L0_1.print
L3_2 = pairs
L4_2 = A1_2
L3_2, L4_2, L5_2 = L3_2(L4_2)
for L6_2 in L3_2, L4_2, L5_2 do
L7_2 = type
L8_2 = L6_2
L7_2 = L7_2(L8_2)
if L7_2 == "function" then
L7_2 = 1
while true do
L8_2 = L3_1.getupvalue
L9_2 = L6_2
L10_2 = L7_2
L8_2, L9_2 = L8_2(L9_2, L10_2)
if L8_2 == nil or L8_2 == "" then
break
end
L10_2 = L3_1.upvalueid
L11_2 = L6_2
L12_2 = L7_2
L10_2 = L10_2(L11_2, L12_2)
L11_2 = A0_2[L10_2]
if L11_2 then
if L2_2 then
L12_2 = L2_2
L13_2 = "JOIN"
L14_2 = L6_2
L15_2 = L8_2
L12_2(L13_2, L14_2, L15_2)
end
L12_2 = L3_1.upvaluejoin
L13_2 = L6_2
L14_2 = L7_2
L15_2 = L11_2.func
L16_2 = L11_2.index
L12_2(L13_2, L14_2, L15_2, L16_2)
end
L7_2 = L7_2 + 1
end
end
end
end
function L13_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2, L17_2, L18_2, L19_2, L20_2, L21_2, L22_2, L23_2
L1_2 = L3_1.getregistry
L1_2 = L1_2()
L2_2 = L1_2._LOADED
L3_2 = L0_1.print
L4_2 = pairs
L5_2 = A0_2
L4_2, L5_2, L6_2 = L4_2(L5_2)
for L7_2, L8_2 in L4_2, L5_2, L6_2 do
L9_2 = L8_2.old_module
if L9_2 then
L9_2 = L8_2.map
L10_2 = L12_1
L11_2 = L8_2.upvalues
L12_2 = L9_2
L10_2(L11_2, L12_2)
L10_2 = pairs
L11_2 = L9_2
L10_2, L11_2, L12_2 = L10_2(L11_2)
for L13_2, L14_2 in L10_2, L11_2, L12_2 do
L15_2 = type
L16_2 = L13_2
L15_2 = L15_2(L16_2)
if L15_2 == "table" and L14_2 then
if L3_2 then
L15_2 = L3_2
L16_2 = "COPY"
L17_2 = L14_2
L15_2(L16_2, L17_2)
end
L15_2 = pairs
L16_2 = L13_2
L15_2, L16_2, L17_2 = L15_2(L16_2)
for L18_2, L19_2 in L15_2, L16_2, L17_2 do
L20_2 = type
L21_2 = L19_2
L20_2 = L20_2(L21_2)
if L20_2 == "table" then
L20_2 = getmetatable
L21_2 = L19_2
L20_2 = L20_2(L21_2)
if L20_2 == nil then
L20_2 = L14_2[L18_2]
if L20_2 ~= nil then
goto lbl_52
end
end
end
L14_2[L18_2] = L19_2
::lbl_52::
end
end
end
L10_2 = ipairs
L11_2 = L8_2.objects
L10_2, L11_2, L12_2 = L10_2(L11_2)
for L13_2, L14_2 in L10_2, L11_2, L12_2 do
L15_2 = L14_2[1]
L16_2 = L1_1.isdummy
L17_2 = L15_2
L16_2 = L16_2(L17_2)
if not L16_2 then
L16_2 = L9_2[L15_2]
if not L16_2 then
L16_2 = L11_1
L17_2 = L15_2
L18_2 = L8_2.old_module
L19_2 = L2_1.unpack
L20_2 = L14_2
L21_2 = 2
L19_2, L20_2, L21_2, L22_2, L23_2 = L19_2(L20_2, L21_2)
L16_2 = L16_2(L17_2, L18_2, L19_2, L20_2, L21_2, L22_2, L23_2)
if L3_2 then
L17_2 = L3_2
L18_2 = "MOVE"
L19_2 = L7_2
L20_2 = L2_1.concat
L21_2 = L14_2
L22_2 = "."
L23_2 = 2
L20_2 = L20_2(L21_2, L22_2, L23_2)
L21_2 = L16_2
L17_2(L18_2, L19_2, L20_2, L21_2)
end
end
end
end
else
L9_2 = L8_2.module
L9_2 = L9_2.module
L2_2[L7_2] = L9_2
end
end
end
function L14_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2, L17_2, L18_2, L19_2, L20_2, L21_2, L22_2, L23_2, L24_2, L25_2, L26_2, L27_2, L28_2
L1_2 = L3_1.getregistry
L1_2 = L1_2()
L1_2 = L1_2._LOADED
L2_2 = L0_1.print
L3_2 = 0
L4_2 = pairs
L5_2 = A0_2
L4_2, L5_2, L6_2 = L4_2(L5_2)
for L7_2, L8_2 in L4_2, L5_2, L6_2 do
L9_2 = pairs
L10_2 = L8_2.globals
L9_2, L10_2, L11_2 = L9_2(L10_2)
for L12_2, L13_2 in L9_2, L10_2, L11_2 do
L14_2 = L13_2[1]
L15_2 = tostring
L16_2 = L14_2
L15_2 = L15_2(L16_2)
L16_2 = nil
L17_2 = nil
L18_2 = nil
L19_2 = getmetatable
L20_2 = L14_2
L19_2 = L19_2(L20_2)
if L19_2 == "GLOBAL" then
L19_2 = _G
L20_2 = string
L20_2 = L20_2.gmatch
L21_2 = L15_2
L22_2 = "[_%a]%w*"
L20_2, L21_2, L22_2 = L20_2(L21_2, L22_2)
for L23_2 in L20_2, L21_2, L22_2 do
if L19_2 == nil then
L18_2 = true
break
end
L19_2 = L19_2[L23_2]
end
L16_2 = L19_2
else
L19_2 = string
L19_2 = L19_2.find
L20_2 = L15_2
L21_2 = "^%[([_%w]+)%]"
L19_2, L20_2, L21_2 = L19_2(L20_2, L21_2)
if L19_2 == nil then
L18_2 = true
break
end
L22_2 = L1_2[L21_2]
if L22_2 == nil then
L18_2 = true
break
end
L23_2 = string
L23_2 = L23_2.gmatch
L25_2 = L15_2
L24_2 = L15_2.sub
L26_2 = L20_2 + 1
L24_2 = L24_2(L25_2, L26_2)
L25_2 = "[_%a]%w*"
L23_2, L24_2, L25_2 = L23_2(L24_2, L25_2)
for L26_2 in L23_2, L24_2, L25_2 do
if L22_2 == nil then
L18_2 = true
break
end
L22_2 = L22_2[L26_2]
end
L23_2 = getmetatable
L24_2 = L22_2
L23_2 = L23_2(L24_2)
if L23_2 == "MODULE" then
else
L17_2 = true
L16_2 = L22_2
end
end
if L18_2 then
if L2_2 then
L19_2 = L2_2
L20_2 = "GLOBAL INVALID"
L21_2 = L15_2
L19_2(L20_2, L21_2)
end
L19_2 = L8_2.globals
L19_2[L12_2] = nil
elseif not L17_2 then
L3_2 = L3_2 + 1
if L2_2 then
L19_2 = L2_2
L20_2 = "GLOBAL"
L21_2 = L15_2
L22_2 = L16_2
L19_2(L20_2, L21_2, L22_2)
end
L19_2 = L11_1
L20_2 = L16_2
L21_2 = L1_2[L7_2]
L22_2 = L2_1.unpack
L23_2 = L13_2
L24_2 = 2
L22_2, L23_2, L24_2, L25_2, L26_2, L27_2, L28_2 = L22_2(L23_2, L24_2)
L19_2(L20_2, L21_2, L22_2, L23_2, L24_2, L25_2, L26_2, L27_2, L28_2)
L19_2 = L8_2.globals
L19_2[L12_2] = nil
end
end
end
return L3_2
end
function L15_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2, L17_2, L18_2, L19_2, L20_2, L21_2, L22_2, L23_2, L24_2, L25_2, L26_2, L27_2
L1_2 = L3_1.getregistry
L1_2 = L1_2()
L2_2 = coroutine
L2_2 = L2_2.running
L2_2 = L2_2()
L3_2 = {}
L3_2[A0_2] = true
L3_2[L2_2] = true
L4_2 = L3_1.getmetatable
L5_2 = L3_1.getinfo
L6_2 = L3_1.getlocal
L7_2 = L3_1.setlocal
L8_2 = L3_1.getupvalue
L9_2 = L3_1.setupvalue
L10_2 = L3_1.getuservalue
L11_2 = L3_1.setuservalue
L12_2 = type
L13_2 = next
L14_2 = rawset
L3_2[L3_2] = true
L15_2 = nil
function L16_2(A0_3, A1_3)
local L2_3, L3_3, L4_3, L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3
L2_3 = L5_2
L3_3 = A0_3
L4_3 = A1_3 + 1
L5_3 = "f"
L2_3 = L2_3(L3_3, L4_3, L5_3)
if L2_3 == nil then
return
end
L3_3 = L2_3.func
L2_3 = nil
L4_3 = L15_2
L5_3 = L3_3
L4_3(L5_3)
L4_3 = 1
while true do
L5_3 = L6_2
L6_3 = A0_3
L7_3 = A1_3 + 1
L8_3 = L4_3
L5_3, L6_3 = L5_3(L6_3, L7_3, L8_3)
if L5_3 == nil then
if 0 < L4_3 then
L4_3 = -1
else
break
end
end
L7_3 = A0_2[L6_3]
if L7_3 then
L8_3 = L7_2
L9_3 = A0_3
L10_3 = A1_3 + 1
L11_3 = L4_3
L12_3 = L7_3
L8_3(L9_3, L10_3, L11_3, L12_3)
L8_3 = L15_2
L9_3 = L7_3
L8_3(L9_3)
else
L8_3 = L15_2
L9_3 = L6_3
L8_3(L9_3)
end
if 0 < L4_3 then
L4_3 = L4_3 + 1
else
L4_3 = L4_3 - 1
end
end
L5_3 = L16_2
L6_3 = A0_3
L7_3 = A1_3 + 1
return L5_3(L6_3, L7_3)
end
function L17_2(A0_3)
local L1_3, L2_3, L3_3, L4_3, L5_3, L6_3, L7_3, L8_3, L9_3, L10_3, L11_3, L12_3, L13_3
L1_3 = L3_2[A0_3]
if L1_3 then
return
end
L1_3 = L12_2
L2_3 = A0_3
L1_3 = L1_3(L2_3)
if L1_3 == "table" then
L3_2[A0_3] = true
L2_3 = L4_2
L3_3 = A0_3
L2_3 = L2_3(L3_3)
if L2_3 then
L3_3 = L15_2
L4_3 = L2_3
L3_3(L4_3)
end
L3_3 = nil
L4_3 = L13_2
L5_3 = A0_3
L6_3 = nil
for L7_3, L8_3 in L4_3, L5_3, L6_3 do
L9_3 = A0_2[L8_3]
if L9_3 then
L10_3 = L14_2
L11_3 = A0_3
L12_3 = L7_3
L13_3 = L9_3
L10_3(L11_3, L12_3, L13_3)
L10_3 = L15_2
L11_3 = L9_3
L10_3(L11_3)
else
L10_3 = L15_2
L11_3 = L8_3
L10_3(L11_3)
end
L10_3 = A0_2[L7_3]
if L10_3 then
if L3_3 == nil then
L11_3 = {}
L3_3 = L11_3
end
L3_3[L7_3] = L10_3
else
L11_3 = L15_2
L12_3 = L7_3
L11_3(L12_3)
end
end
if L3_3 then
L4_3 = L13_2
L5_3 = L3_3
L6_3 = nil
for L7_3, L8_3 in L4_3, L5_3, L6_3 do
L9_3 = nil
L10_3 = A0_3[L7_3]
A0_3[L8_3] = L10_3
A0_3[L7_3] = L9_3
L9_3 = L15_2
L10_3 = L8_3
L9_3(L10_3)
end
L3_3 = nil
end
elseif L1_3 == "userdata" then
L3_2[A0_3] = true
L2_3 = L4_2
L3_3 = A0_3
L2_3 = L2_3(L3_3)
if L2_3 then
L3_3 = L15_2
L4_3 = L2_3
L3_3(L4_3)
end
L3_3 = L10_2
L4_3 = A0_3
L3_3 = L3_3(L4_3)
if L3_3 then
L4_3 = A0_2[L3_3]
if L4_3 then
L5_3 = L11_2
L6_3 = A0_3
L7_3 = L4_3
L5_3(L6_3, L7_3)
L5_3 = L15_2
L6_3 = L4_3
L5_3(L6_3)
else
L5_3 = L15_2
L6_3 = L3_3
L5_3(L6_3)
end
end
elseif L1_3 == "thread" then
L3_2[A0_3] = true
L2_3 = L16_2
L3_3 = A0_3
L4_3 = 2
L2_3(L3_3, L4_3)
elseif L1_3 == "function" then
L3_2[A0_3] = true
L2_3 = 1
while true do
L3_3 = L8_2
L4_3 = A0_3
L5_3 = L2_3
L3_3, L4_3 = L3_3(L4_3, L5_3)
if L3_3 == nil then
break
end
L5_3 = A0_2[L4_3]
if L5_3 then
L6_3 = L9_2
L7_3 = A0_3
L8_3 = L2_3
L9_3 = L5_3
L6_3(L7_3, L8_3, L9_3)
L6_3 = L15_2
L7_3 = L5_3
L6_3(L7_3)
else
L6_3 = L15_2
L7_3 = L4_3
L6_3(L7_3)
end
L2_3 = L2_3 + 1
end
end
end
L15_2 = L17_2
L17_2 = pairs
L18_2 = {}
L19_2 = nil
L20_2 = 0
L21_2 = true
L22_2 = ""
L23_2 = L2_2
L24_2 = L15_1
L25_2 = L3_1.upvalueid
L26_2 = L15_1
L27_2 = 1
L25_2, L26_2, L27_2 = L25_2(L26_2, L27_2)
L18_2[1] = L19_2
L18_2[2] = L20_2
L18_2[3] = L21_2
L18_2[4] = L22_2
L18_2[5] = L23_2
L18_2[6] = L24_2
L18_2[7] = L25_2
L18_2[8] = L26_2
L18_2[9] = L27_2
L17_2, L18_2, L19_2 = L17_2(L18_2)
for L20_2, L21_2 in L17_2, L18_2, L19_2 do
L22_2 = L4_2
L23_2 = L21_2
L22_2 = L22_2(L23_2)
if L22_2 then
L23_2 = L15_2
L24_2 = L22_2
L23_2(L24_2)
end
end
L17_2 = L16_2
L18_2 = L2_2
L19_2 = 2
L17_2(L18_2, L19_2)
L17_2 = L15_2
L18_2 = L1_2
L17_2(L18_2)
end
function L16_1(A0_2)
local L1_2, L2_2, L3_2, L4_2, L5_2, L6_2, L7_2, L8_2, L9_2, L10_2, L11_2, L12_2, L13_2, L14_2, L15_2, L16_2, L17_2, L18_2, L19_2, L20_2
L1_2 = L0_1.print
L2_2 = L3_1.getregistry
L2_2 = L2_2()
L3_2 = L2_2._LOADED
L4_2 = {}
L5_2 = ipairs
L6_2 = A0_2
L5_2, L6_2, L7_2 = L5_2(L6_2)
for L8_2, L9_2 in L5_2, L6_2, L7_2 do
L4_2[L9_2] = true
end
L5_2 = {}
L6_2 = pairs
L7_2 = L3_2
L6_2, L7_2, L8_2 = L6_2(L7_2)
for L9_2 in L6_2, L7_2, L8_2 do
L10_2 = L4_2[L9_2]
if not L10_2 then
L10_2 = L2_1.insert
L11_2 = L5_2
L12_2 = L9_2
L10_2(L11_2, L12_2)
end
end
L6_2 = L1_1.init
L7_2 = L5_2
L6_2(L7_2)
L6_2 = xpcall
L7_2 = L10_1
L8_2 = L3_1.traceback
L9_2 = A0_2
L6_2, L7_2 = L6_2(L7_2, L8_2, L9_2)
if not L6_2 then
L8_2 = L1_1.clear
L8_2()
if L1_2 then
L8_2 = L1_2
L9_2 = "print"
L10_2 = L7_2
L8_2(L9_2, L10_2)
end
L8_2 = L6_2
L9_2 = L7_2
return L8_2, L9_2
end
L8_2 = L13_1
L9_2 = L7_2
L8_2(L9_2)
L8_2 = pairs
L9_2 = L7_2
L8_2, L9_2, L10_2 = L8_2(L9_2)
for L11_2, L12_2 in L8_2, L9_2, L10_2 do
L13_2 = L12_2.module
L13_2 = L13_2.loader
if L13_2 then
L13_2 = L3_1.setupvalue
L14_2 = L12_2.module
L14_2 = L14_2.loader
L15_2 = 1
L16_2 = _ENV
L13_2(L14_2, L15_2, L16_2)
end
end
repeat
L8_2 = L14_1
L9_2 = L7_2
L8_2 = L8_2(L9_2)
until L8_2 == 0
L8_2 = {}
L9_2 = pairs
L10_2 = L7_2
L9_2, L10_2, L11_2 = L9_2(L10_2)
for L12_2, L13_2 in L9_2, L10_2, L11_2 do
L14_2 = pairs
L15_2 = L13_2.map
L14_2, L15_2, L16_2 = L14_2(L15_2)
for L17_2, L18_2 in L14_2, L15_2, L16_2 do
L19_2 = type
L20_2 = L17_2
L19_2 = L19_2(L20_2)
if L19_2 == "function" then
L8_2[L18_2] = L17_2
end
end
end
L7_2 = nil
L9_2 = L1_1.clear
L9_2()
L9_2 = L15_1
L10_2 = L8_2
L9_2(L10_2)
L9_2 = true
return L9_2
end
L0_1.reload = L16_1
return L0_1