local _GGGGGGGGGG = (function() local unpack = table.unpack local pack = table.pack local select = select local type = type local _43E7AeNV3 do local ok, e = pcall(function() return getfenv() end) _43E7AeNV3 = ok and type(e) == 'table' and e or _G end local _q5tvVAr3r = {_Gm2QzEKdv = {}, _1bZCtiqeQ = false, _yyhuLqvYS = 0, cache = {}} local function _JrMiblV2i(v) return v ~= nil and v ~= false end local function _fwTU1fuNF(s) if s:byte(1) == 1 then local n = #s - 1 local out = table.create(n) local seed = (57 + _q5tvVAr3r._yyhuLqvYS * 17) % 256 local inv = _q5tvVAr3r._aFESR0Hng for i = 1, n do local b = s:byte(i + 1) if inv then b = inv[b] end out[i] = string.char(bit32.bxor(b, seed, 92)) seed = (141 * seed + 29) % 256 end return table.concat(out) end return s end local function _Ubsbv1I28(v) if type(v) ~= 'string' or not _q5tvVAr3r._1bZCtiqeQ then return v end local c = _q5tvVAr3r.cache[v] if c ~= nil then return c end c = _fwTU1fuNF(v) _q5tvVAr3r.cache[v] = c return c end local CELL_MT = {} local function _nP9A7KZOl(v) return setmetatable({v = v}, CELL_MT) end local function cellval(v) if type(v) == 'table' and getmetatable(v) == CELL_MT then return v.v end return v end local function _lfYjf8qml(pid, ups) return function(...) return _q5tvVAr3r._14psQKMvt(pid, ups, ...) end end local function _1nu4irIx6(f, q, base, argc) local args = table.create(argc) for i = 1, argc do args[i] = q[base + i] end return pack(f(unpack(args, 1, argc))) end function _q5tvVAr3r._14psQKMvt(pid, ups, ...) local p = _q5tvVAr3r._Gm2QzEKdv[pid] if not p then error('', 0) end local q = {} local rb = _q5tvVAr3r._AemMG5UmX or 0 local np = p._siJEdxLcd local nargs = select('#', ...) for i = 1, np do q[rb + i - 1] = (select(i, ...)) end local va, nva = {}, 0 if p._xXv1ZRLhY then nva = nargs - np for i = 1, nva do va[i] = select(np + i, ...) end end local code = p._Y6qtyND31 local n = #code local pc = 1 local top = rb - 1 while pc >= 1 and pc <= n do local ins = code[pc] local op = _q5tvVAr3r._xbq6Djkds and _q5tvVAr3r._xbq6Djkds[ins[1]] or bit32.bxor(ins[1], _q5tvVAr3r._hbWrq01O5) if op == 16 then q[ins._ZaQTbAR4e] = _Ubsbv1I28(ins._rgVCceoXD) pc = pc + 1 elseif op == 81 then q[ins._ZaQTbAR4e] = q[ins._CL6KWxKa1] pc = pc + 1 elseif op == 180 then q[ins._ZaQTbAR4e] = nil pc = pc + 1 elseif op == 98 then q[ins._ZaQTbAR4e] = _43E7AeNV3[_Ubsbv1I28(ins._Zg4WYm0ur)] pc = pc + 1 elseif op == 0x102 then _43E7AeNV3[_Ubsbv1I28(ins._Zg4WYm0ur)] = q[ins._ZaQTbAR4e] pc = pc + 1 elseif op == 117 then q[ins._CL6KWxKa1] = ups[ins._ZaQTbAR4e + 1].v pc = pc + 1 elseif op == 148 then ups[ins._CL6KWxKa1 + 1].v = q[ins._zZE8Bqred] pc = pc + 1 elseif op == 0x105 then local c = q[ins._ZaQTbAR4e] q[ins._CL6KWxKa1] = type(c) == 'table' and c.v or c pc = pc + 1 elseif op == 0x106 then local c = q[ins._CL6KWxKa1] if type(c) ~= 'table' then c = _nP9A7KZOl(nil) q[ins._CL6KWxKa1] = c end c.v = q[ins._ZaQTbAR4e] pc = pc + 1 elseif op == 0x110 then q[ins._CL6KWxKa1] = _nP9A7KZOl(q[ins._CL6KWxKa1]) pc = pc + 1 elseif op == 0x10A then local from = ins._CL6KWxKa1 for _, r in ipairs(p._o52tJcQQq or {}) do if r >= from then local c = q[r] q[r] = _nP9A7KZOl(type(c) == 'table' and c.v or c) end end pc = pc + 1 elseif op == 0 then q[ins._CL6KWxKa1] = q[ins._zZE8Bqred][_Ubsbv1I28(ins._AtMlaFbkV)] pc = pc + 1 elseif op == 119 then q[ins._zZE8Bqred] = q[ins._CL6KWxKa1][q[ins._ZaQTbAR4e]] pc = pc + 1 elseif op == 25 then q[ins._zZE8Bqred][_Ubsbv1I28(ins._rgVCceoXD)] = q[ins._ZaQTbAR4e] pc = pc + 1 elseif op == 41 then q[ins._ZaQTbAR4e][q[ins._zZE8Bqred]] = q[ins._CL6KWxKa1] pc = pc + 1 elseif op == 35 then q[ins._CL6KWxKa1] = {} pc = pc + 1 elseif op == 0x104 then local t = q[ins._CL6KWxKa1] local from, cnt, idx = ins._ZaQTbAR4e, ins._zZE8Bqred, ins._AtMlaFbkV or 1 if cnt < 0 then cnt = top - from + 1 end for i = 0, cnt - 1 do t[idx + i] = q[from + i] end pc = pc + 1 elseif op == 220 or op == 4 then q[ins._CL6KWxKa1] = q[ins._ZaQTbAR4e] + q[ins._zZE8Bqred] pc = pc + 1 elseif op == 108 then q[ins._CL6KWxKa1] = q[ins._ZaQTbAR4e] - q[ins._zZE8Bqred] pc = pc + 1 elseif op == 43 then q[ins._ZaQTbAR4e] = q[ins._zZE8Bqred] * q[ins._CL6KWxKa1] pc = pc + 1 elseif op == 147 then q[ins._zZE8Bqred] = q[ins._CL6KWxKa1] / q[ins._ZaQTbAR4e] pc = pc + 1 elseif op == 45 then q[ins._zZE8Bqred] = q[ins._CL6KWxKa1] % q[ins._ZaQTbAR4e] pc = pc + 1 elseif op == 0x10B then q[ins._CL6KWxKa1] = math.floor(q[ins._ZaQTbAR4e] / q[ins._zZE8Bqred]) pc = pc + 1 elseif op == 0x111 then q[ins._CL6KWxKa1] = q[ins._ZaQTbAR4e] ^ q[ins._zZE8Bqred] pc = pc + 1 elseif op == 208 then q[ins._ZaQTbAR4e] = q[ins._CL6KWxKa1] .. q[ins._zZE8Bqred] pc = pc + 1 elseif op == 110 then q[ins._ZaQTbAR4e] = q[ins._CL6KWxKa1] + ins._Zg4WYm0ur pc = pc + 1 elseif op == 126 then q[ins._zZE8Bqred] = q[ins._ZaQTbAR4e] - ins._rgVCceoXD pc = pc + 1 elseif op == 158 then q[ins._ZaQTbAR4e] = -q[ins._CL6KWxKa1] pc = pc + 1 elseif op == 67 then q[ins._zZE8Bqred] = not _JrMiblV2i(q[ins._ZaQTbAR4e]) pc = pc + 1 elseif op == 92 then q[ins._CL6KWxKa1] = #q[ins._zZE8Bqred] pc = pc + 1 elseif op == 165 then q[ins._ZaQTbAR4e] = q[ins._CL6KWxKa1] == q[ins._zZE8Bqred] pc = pc + 1 elseif op == 127 then q[ins._ZaQTbAR4e] = q[ins._CL6KWxKa1] ~= q[ins._zZE8Bqred] pc = pc + 1 elseif op == 55 then q[ins._CL6KWxKa1] = q[ins._ZaQTbAR4e] == nil pc = pc + 1 elseif op == 94 then q[ins._CL6KWxKa1] = q[ins._zZE8Bqred] <= q[ins._ZaQTbAR4e] pc = pc + 1 elseif op == 141 then q[ins._CL6KWxKa1] = q[ins._ZaQTbAR4e] > q[ins._zZE8Bqred] pc = pc + 1 elseif op == 166 then q[ins._ZaQTbAR4e] = q[ins._CL6KWxKa1] >= q[ins._zZE8Bqred] pc = pc + 1 elseif op == 173 then pc = ins._ZaQTbAR4e + 1 elseif op == 14 then pc = _JrMiblV2i(q[ins._ZaQTbAR4e]) and ins._zZE8Bqred + 1 or pc + 1 elseif op == 72 then pc = _JrMiblV2i(q[ins._ZaQTbAR4e]) and pc + 1 or ins._CL6KWxKa1 + 1 elseif op == 109 then pc = q[ins._ZaQTbAR4e] == _Ubsbv1I28(ins._Zg4WYm0ur) and ins._CL6KWxKa1 + 1 or pc + 1 elseif op == 207 then pc = q[ins._zZE8Bqred] ~= q[ins._ZaQTbAR4e] and ins._CL6KWxKa1 + 1 or pc + 1 elseif op == 157 then for i = ins._ZaQTbAR4e, ins._CL6KWxKa1 do q[i] = nil end pc = pc + 1 elseif op == 46 then local r = pack(q[ins._CL6KWxKa1]()) q[ins._CL6KWxKa1] = r[1] top = ins._CL6KWxKa1 pc = pc + 1 elseif op == 171 then local r = pack(q[ins._CL6KWxKa1](q[ins._CL6KWxKa1 + 1])) q[ins._CL6KWxKa1] = r[1] top = ins._CL6KWxKa1 pc = pc + 1 elseif op == 106 then local r = pack(q[ins._ZaQTbAR4e](q[ins._ZaQTbAR4e + 1], q[ins._ZaQTbAR4e + 2])) q[ins._ZaQTbAR4e] = r[1] top = ins._ZaQTbAR4e pc = pc + 1 elseif op == 44 then local base, argc = ins._zZE8Bqred, ins._ZaQTbAR4e - 1 local r = _1nu4irIx6(q[base], q, base, argc) q[base] = r[1] top = base pc = pc + 1 elseif op == 69 then local base, argc = ins._CL6KWxKa1, ins._ZaQTbAR4e - 1 local r = _1nu4irIx6(q[base], q, base, argc) for i = 1, r.n do q[base + i - 1] = r[i] end top = base + r.n - 1 pc = pc + 1 elseif op == 73 then local base = ins._zZE8Bqred q[base](q[base + 1]) pc = pc + 1 elseif op == 0x107 then local base, argc, nres = ins._CL6KWxKa1, ins._ZaQTbAR4e, ins._zZE8Bqred if argc < 0 then argc = top - base if argc < 0 then argc = 0 end end local r = _1nu4irIx6(q[base], q, base, argc) if nres < 0 then for i = 1, r.n do q[base + i - 1] = r[i] end top = base + r.n - 1 else for i = 1, nres do q[base + i - 1] = r[i] end top = base + nres - 1 end pc = pc + 1 elseif op == 0x109 then local dst, src = ins._CL6KWxKa1, ins._ZaQTbAR4e local cnt = top - src + 1 if cnt < 0 then cnt = 0 end for i = 0, cnt - 1 do local v = cellval(q[src + i]) local c = q[dst + i] if type(c) == 'table' and getmetatable(c) == CELL_MT then c.v = v else q[dst + i] = v end end top = dst + cnt - 1 pc = pc + 1 elseif op == 65 then return elseif op == 58 then return q[ins._CL6KWxKa1] elseif op == 0x100 then return unpack(q, ins._CL6KWxKa1, ins._CL6KWxKa1 + ins._ZaQTbAR4e - 1) elseif op == 0x101 then return unpack(q, ins._CL6KWxKa1, top >= ins._CL6KWxKa1 and top or ins._CL6KWxKa1 - 1) elseif op == 0x103 then local dst, cnt = ins._CL6KWxKa1, ins._ZaQTbAR4e if cnt < 0 then cnt = nva end for i = 1, cnt do q[dst + i - 1] = va[i] end top = dst + cnt - 1 pc = pc + 1 elseif op == 0x10C then local base = ins._CL6KWxKa1 local limit, step = tonumber(q[base]), tonumber(q[base + 1]) local idx = tonumber(q[base + 2]) q[base], q[base + 1], q[base + 2] = limit, step, idx local go = (step > 0 and idx <= limit) or (step <= 0 and limit <= idx) pc = go and pc + 1 or ins._zZE8Bqred + 1 elseif op == 0x10D then local base = ins._CL6KWxKa1 local limit, step = tonumber(q[base]), tonumber(q[base + 1]) local idx = tonumber(q[base + 2]) + step q[base + 2] = idx if (step > 0 and idx <= limit) or (step <= 0 and limit <= idx) then pc = ins._zZE8Bqred + 1 else pc = pc + 1 end elseif op == 0x10E then pc = pc + 1 elseif op == 0x10F then local base, nvars = ins._CL6KWxKa1, ins._ZaQTbAR4e local r = pack(q[base](q[base + 1], q[base + 2])) if r[1] == nil then pc = pc + 1 else q[base + 2] = r[1] q[base + 3] = r[1] q[base + 4] = r[2] for i = 3, nvars do q[base + 2 + i] = r[i] end pc = ins._zZE8Bqred + 1 end elseif op == 49 then local caps = ins._Zg4WYm0ur or {} local children = {} for i = 1, #caps do local desc = caps[i] local kind, idx = desc[1], desc[2] if kind == 0 then children[i] = _nP9A7KZOl(q[idx]) elseif kind == 1 then local c = q[idx] if type(c) ~= 'table' then c = _nP9A7KZOl(c) q[idx] = c end children[i] = c else children[i] = ups[idx + 1] end end local newclos = _lfYjf8qml(ins._zZE8Bqred, children) local target = q[ins._CL6KWxKa1] if type(target) == 'table' and getmetatable(target) == CELL_MT then target.v = newclos else q[ins._CL6KWxKa1] = newclos end for i = 1, #caps do local desc = caps[i] if desc[1] == 0 and desc[2] == ins._CL6KWxKa1 then children[i].v = newclos end end pc = pc + 1 elseif op == 134 or op == 0x108 then pc = pc + 1 else error('', 0) end end end local _HsRQcVAiU = {} function _HsRQcVAiU.load(_INMpjCv3R) _q5tvVAr3r._Gm2QzEKdv = _INMpjCv3R._Gm2QzEKdv _q5tvVAr3r._1bZCtiqeQ = _INMpjCv3R._1bZCtiqeQ or false _q5tvVAr3r._yyhuLqvYS = _INMpjCv3R._yyhuLqvYS or 0 _q5tvVAr3r._hbWrq01O5 = _INMpjCv3R._hbWrq01O5 or 0 _q5tvVAr3r._xbq6Djkds = _INMpjCv3R._xbq6Djkds _q5tvVAr3r._aFESR0Hng = _INMpjCv3R._aFESR0Hng _q5tvVAr3r._AemMG5UmX = _INMpjCv3R._AemMG5UmX or 0 _q5tvVAr3r.cache = {} _HsRQcVAiU._INMpjCv3R = _INMpjCv3R return _HsRQcVAiU end function _HsRQcVAiU._LMYEg1pZO(...) return _q5tvVAr3r._14psQKMvt(_HsRQcVAiU._INMpjCv3R._68BSsWSLd, {}, ...) end function _HsRQcVAiU._srFuTyaD8(protos) _q5tvVAr3r._Gm2QzEKdv = protos end return _HsRQcVAiU end)() local __G = {_1bZCtiqeQ=true,_yyhuLqvYS=3,_hbWrq01O5=3,_AemMG5UmX=0,_68BSsWSLd=2,_Gm2QzEKdv={ [1]={_siJEdxLcd=1,_xXv1ZRLhY=false,_Orh7Xq23d=5,_o52tJcQQq={},_Y6qtyND31={ {118,_CL6KWxKa1=1,_ZaQTbAR4e=0}, {57,_CL6KWxKa1=1}, }}, [2]={_siJEdxLcd=0,_xXv1ZRLhY=true,_Orh7Xq23d=14,_o52tJcQQq={},_Y6qtyND31={ {32,_CL6KWxKa1=0}, {97,_ZaQTbAR4e=1,_Zg4WYm0ur="\001Y\181_\"\230j"}, {32,_CL6KWxKa1=2}, {19,_ZaQTbAR4e=4,_rgVCceoXD="\001Q"}, {19,_ZaQTbAR4e=5,_rgVCceoXD="\001R"}, {263,_CL6KWxKa1=2,_ZaQTbAR4e=3,_zZE8Bqred=2,_AtMlaFbkV=1}, {82,_CL6KWxKa1=1,_ZaQTbAR4e=9}, {82,_CL6KWxKa1=2,_ZaQTbAR4e=10}, {260,_CL6KWxKa1=9,_ZaQTbAR4e=1,_zZE8Bqred=3}, {82,_CL6KWxKa1=9,_ZaQTbAR4e=1}, {82,_CL6KWxKa1=10,_ZaQTbAR4e=2}, {82,_CL6KWxKa1=11,_ZaQTbAR4e=3}, {174,_ZaQTbAR4e=15}, {50,_CL6KWxKa1=6,_zZE8Bqred=1,_Zg4WYm0ur={{0,5}}}, {42,_CL6KWxKa1=6,_ZaQTbAR4e=0,_zZE8Bqred=5}, {268,_CL6KWxKa1=1,_ZaQTbAR4e=2,_zZE8Bqred=13}, {97,_ZaQTbAR4e=1,_Zg4WYm0ur="\001@\183W%\224"}, {3,_CL6KWxKa1=2,_zZE8Bqred=0,_AtMlaFbkV="\001Q"}, {32,_CL6KWxKa1=3}, {168,_CL6KWxKa1=2}, {3,_CL6KWxKa1=3,_zZE8Bqred=0,_AtMlaFbkV="\001R"}, {32,_CL6KWxKa1=4}, {82,_CL6KWxKa1=3,_ZaQTbAR4e=9}, {82,_CL6KWxKa1=4,_ZaQTbAR4e=10}, {260,_CL6KWxKa1=9,_ZaQTbAR4e=1,_zZE8Bqred=-1}, {266,_CL6KWxKa1=3,_ZaQTbAR4e=9}, {82,_CL6KWxKa1=1,_ZaQTbAR4e=9}, {266,_CL6KWxKa1=10,_ZaQTbAR4e=2}, {260,_CL6KWxKa1=9,_ZaQTbAR4e=-1,_zZE8Bqred=0}, {66,_CL6KWxKa1=0}, }}, }} return _GGGGGGGGGG.load(__G)._LMYEg1pZO()