-- [[ Hyperion Engine V5.8 - Instruction Folding ]] --
local L_i1I1iI_liIi_ = { 0,126,52,124,78,180,66,73,146,61,86,172,224,148,145,55,100,212,205,55,4,147,222,23,247,20,193,11,59,212,247,115 }; local L_ll1lIi1il_1i = "00732e517adafd12fb48d62320c72750b44f27667f82c43ccc517d3f57d2711ba0576bbb9b55a8b2c6d27467dce4c621b8a942a0a4223c262f1533bd3749344041336b1a620eccd23a8894633c7b663474c9c44839b2e50ee6fe3db4c1581f98c0beee3234e61800af0b40aaf37327d2bb0563898e05211cef31f64405e4ff7481f3aedbe83df5e21fba3dcc929df1411ab18714e57134bd4fd113c99e43821452266d4f73ba42125cc79867353320f4fd5ae74143d6892aca70b374b74e3cb3a7b2ee9bbab12f3dca71"; local L_1_iI11IIl_i1 = (getgenv and getgenv()) or (getfenv and getfenv(0)) or _G; local function _H(h) local b = {}; for i = 1, #h, 2 do b[#b+1] = tonumber(h:sub(i, i+1), 16) end return b end; local function _D(b) local o = {}; for i = 1, #b do local k = ((i - 1) % 32) + 1; o[i] = bit32.bxor(b[i], L_i1I1iI_liIi_[k], ((i - 1) * 13) % 256) end return o end; local L__i_I_iiili1_ = _D(_H(L_ll1lIi1il_1i)); local function _R32(b, p) return b[p]*16777216 + b[p+1]*65536 + b[p+2]*256 + b[p+3] end; local function _R16(b, p) return b[p]*256 + b[p+1] end; local ic = _R32(L__i_I_iiili1_, 1); local co = 5 + ic * 7; local cc = _R32(L__i_I_iiili1_, co); local L_illil_lI1___ = {}; local cu = co + 4; for i = 1, cc do local t = L__i_I_iiili1_[cu]; cu = cu + 1; if t == 1 or t == 2 then local l = _R32(L__i_I_iiili1_, cu); cu = cu + 4; local s = {}; for j = 1, l do s[j] = string.char(L__i_I_iiili1_[cu]); cu = cu + 1 end; s = table.concat(s); if t == 2 then L_illil_lI1___[i] = tonumber(s) else L_illil_lI1___[i] = s end; else cu = cu + 1 end end; local function L_1liIlIIil1ii(p) local o = 5 + (p - 1) * 7; return L__i_I_iiili1_[o]*65536 + L__i_I_iiili1_[o+1]*256 + L__i_I_iiili1_[o+2], _R16(L__i_I_iiili1_, o+3), _R16(L__i_I_iiili1_, o+5) end; local function _V() local stack = {}; local pc = 1; while true do local op, a, b = L_1liIlIIil1ii(pc); if false then elseif op == 81492 then if (1 == 0) then pc = pc * 2 else stack[a] = L_illil_lI1___[b + 1] end;  elseif op == 48511 then if (math.abs(-1) == 1) then local n = L_illil_lI1___[b + 1]; L_1_iI11IIl_i1[n] = stack[a]; end;  elseif op == 42623 then if (type(math.abs) == 'function') then local n = L_illil_lI1___[a + 1]; L_1_iI11IIl_i1[n] = L_illil_lI1___[b + 1]; end;  elseif op == 66023 then if (#('Hyperion') == 8) then local n = L_illil_lI1___[b + 1]; local t = L_1_iI11IIl_i1; for p in n:gmatch('[^.:]+') do t = t[p] end; stack[a] = t; else pc = pc + 666 end;  elseif op == 78485 then stack[a] = stack[b];  elseif op == 6801 then if (math.ceil(5.1) == 6) then local f = stack[a]; local args = {}; for m = 1, b do args[m] = stack[a + m] end; local ok, err = pcall(f, unpack(args)); if not ok then error('VM Error: ' .. tostring(err)) end; end;  elseif op == 95660 then if (math.abs(-1) == 1) then local sn = L_illil_lI1___[a + 1]; local vn = L_illil_lI1___[b + 1]; local t = L_1_iI11IIl_i1; for p in vn:gmatch('[^.:]+') do t = t[p] end; L_1_iI11IIl_i1[sn] = t; end;  elseif op == 61035 then if (#('Hyperion') == 9) then pc = -1 end;  elseif op == 12273 then if (math.pi > 3) then local fn = L_illil_lI1___[a + 1]; local t = L_1_iI11IIl_i1; for p in fn:gmatch('[^.:]+') do t = t[p] end; t(L_illil_lI1___[b + 1]); end;  elseif op == 34021 then if (math.sin(0) == 0) then local fn = L_illil_lI1___[a + 1]; local vn = L_illil_lI1___[b + 1]; local f = L_1_iI11IIl_i1; for p in fn:gmatch('[^.:]+') do f = f[p] end; local v = L_1_iI11IIl_i1; for p in vn:gmatch('[^.:]+') do v = v[p] end; f(v); end;  elseif op == 23802 then if (math.ceil(5.1) == 6) then local x = math.sqrt(a * b); stack[0] = x; else stack[0] = 0; end;  elseif op == 88123 then if (1 == 0) then print('DEAD CODE') else return end;  end; pc = pc + 1; end end; pcall(_V);