API tools faq
paste
Guest User

Untitled

a guest
May 2nd, 2020
4,201
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 22.10 KB | None | 0 0
raw download clone embed print report
  1. local var0 = assert
  2. local var1 = select
  3. local var2 = tonumber
  4. local var3 = unpack
  5. local var4 = pcall
  6. local var5 = setfenv
  7. local var6 = setmetatable
  8. local var7 = type
  9. local var8 = getfenv
  10. local var9 = tostring
  11. local var10 = error
  12. local var11 = string.sub
  13. local var12 = string.byte
  14. local var13 = string.char
  15. local var14 = string.rep
  16. local var15 = string.gsub
  17. local var16 = string.match
  18. local var17 = 1.0
  19. local var18 = {  }
  20. local var19 = 1.0
  21. local function vm_run(var21, var75)
  22.  
  23.   local var20
  24.   var21 = string.gsub(string.sub(var21, 5.0), "..", function (var22)
  25.     if (string.byte(var22, 2.0) == 71.0) then
  26.       var20 = tonumber(string.sub(var22, 1.0, 1.0))
  27.       return ""
  28.     else
  29.       local var23 = string.char(tonumber(var22, 16.0))
  30.       if var20 then
  31.         local var24 = string.rep(var23, var20)
  32.         var20 = nil
  33.         return var24
  34.       else
  35.         return var23
  36.       end
  37.  
  38.     end
  39.  
  40.   end
  41.  
  42. )
  43.   local function get_byte()
  44.  
  45.     local var25 = string.byte(var21, var19, var19)
  46.     var19 = (var19 + 1.0)
  47.     return var25
  48.   end
  49.  
  50.  
  51.   local function get_dword()
  52.  
  53.     local var26, var27, var28, var29 = string.byte(var21, var19, (var19 + 3.0))
  54.     var19 = (var19 + 4.0)
  55.     return ((((var29 * 1.6777216E7) + (var28 * 65536.0)) + (var27 * 256.0)) + var26)
  56.   end
  57.  
  58.  
  59.   local function get_bits(var34, var33, var30)
  60.  
  61.     if var30 then
  62.       local var31, var32 = 0.0, 0.0
  63.       for var35 = var33, var30 do
  64.  
  65.         var31 = (var31 + ((2.0 ^ var32) * get_bits(var34, var35)))
  66.         var32 = (var32 + 1.0)
  67.       end
  68.  
  69.  
  70.       return var31
  71.     else
  72.       local var36 = (2.0 ^ (var33 - 1.0))
  73.       return (((var36 <= (var34 % (var36 + var36))) and 1.0) or 0.0)
  74.     end
  75.  
  76.   end
  77.  
  78.  
  79.   local function get_float64()
  80.  
  81.     local var37, var38 = get_dword(), get_dword()
  82.     if ((var37 == 0.0) and (var38 == 0.0)) then
  83.       return 0.0
  84.     end
  85.  
  86.     return ((((-2.0 * get_bits(var38, 32.0)) + 1.0) * (2.0 ^ (get_bits(var38, 21.0, 31.0) - 1023.0))) * ((((get_bits(var38, 1.0, 20.0) * 4.294967296E9) + var37) / 4.503599627370496E15) + 1.0))
  87.   end
  88.  
  89.  
  90.   local function get_instruction(var42)
  91.  
  92.     local var39 = { string.byte(var21, var19, (var19 + 3.0)) }
  93.     var19 = (var19 + 4.0)
  94.     local var40 = { nil, nil, nil, nil, nil, nil, nil, nil }
  95.     for var41 = 1.0, 8.0 do
  96.  
  97.       var40[var41] = get_bits(var42, var41)
  98.     end
  99.  
  100.  
  101.     local var43 = ""
  102.     for var47 = 1.0, 4.0 do
  103.  
  104.       local var44, var45 = 0.0, 0.0
  105.       for var48 = 1.0, 8.0 do
  106.  
  107.         local var46 = get_bits(var39[var47], var48)
  108.         if (var40[var48] == 1.0) then
  109.           var46 = (((var46 == 1.0) and 0.0) or 1.0)
  110.         end
  111.  
  112.         var44 = (var44 + ((2.0 ^ var45) * var46))
  113.         var45 = (var45 + 1.0)
  114.       end
  115.  
  116.  
  117.       var43 = (var43 .. var43.char(var44))
  118.     end
  119.  
  120.  
  121.     local var49, var50, var51, var52 = string.byte(var43, 1.0, 4.0)
  122.     return ((((var52 * 1.6777216E7) + (var51 * 65536.0)) + (var50 * 256.0)) + var49)
  123.   end
  124.  
  125.  
  126.   local function get_string(var56)
  127.  
  128.     local var53 = get_dword()
  129.     var19 = (var19 + var53)
  130.     local var54 = { nil, nil, nil, nil, nil, nil, nil, nil }
  131.     for var55 = 1.0, 8.0 do
  132.  
  133.       var54[var55] = get_bits(var56, var55)
  134.     end
  135.  
  136.  
  137.     local var57 = ""
  138.     for var61 = 1.0, var53 do
  139.  
  140.       local var58, var59 = 0.0, 0.0
  141.       for var62 = 1.0, 8.0 do
  142.  
  143.         local var60 = get_bits(string.byte(var21, (((var19 - var53) + var61) - 1.0)), var62)
  144.         if (var54[var62] == 1.0) then
  145.           var60 = (((var60 == 1.0) and 0.0) or 1.0)
  146.         end
  147.  
  148.         var58 = (var58 + ((2.0 ^ var59) * var60))
  149.         var59 = (var59 + 1.0)
  150.       end
  151.  
  152.  
  153.       var57 = (var57 .. var57.char(var58))
  154.     end
  155.  
  156.  
  157.     return var57
  158.   end
  159.  
  160.  
  161.   local var63 = get_byte()
  162.   local var64 = get_byte()
  163.   local function decode_chunk()
  164.  
  165.     local var65 = { [72954.0] = {  }, [66314.0] = {  }, [27462.0] = {  }, [71906.0] = {  } }
  166.     get_byte()
  167.  
  168.     local var66 = (get_dword() - 133703.0)
  169.     for var69 = var17, var66 do
  170.  
  171.       local var67 = {  }
  172.       local var68 = get_instruction(var64)
  173.       var67[109731.0] = get_bits(var68, 27.0, 32.0)
  174.       var67[33794.0] = get_bits(var68, 1.0, 9.0)
  175.       var67[10795.0] = get_bits(var68, 10.0, 18.0)
  176.       var67[4075.0] = get_bits(var68, 19.0, 26.0)
  177.       var67[103007.0] = get_bits(var68, 1.0, 18.0)
  178.       var67[47774.0] = get_bits(var68, 1.0, 18.0)
  179.       var65[71906.0][var69] = var67
  180.     end
  181.  
  182.  
  183.     var65[35853.0] = get_byte()
  184.     get_dword()
  185.  
  186.     get_byte()
  187.  
  188.     var65[47888.0] = get_byte()
  189.     get_dword()
  190.  
  191.     local var66 = (get_dword() - 133707.0)
  192.     for var72 = var17, var66 do
  193.  
  194.       local var70 = {  }
  195.       local var71 = get_byte()
  196.       if (var71 == 167.0) then
  197.         var70[85265.0] = get_string(var63)
  198.       end
  199.  
  200.       if (var71 == 110.0) then
  201.         var70[85265.0] = get_float64()
  202.       end
  203.  
  204.       if (var71 == 18.0) then
  205.         var70[85265.0] = false
  206.       end
  207.  
  208.       if (var71 == 251.0) then
  209.         var70[85265.0] = get_dword()
  210.       end
  211.  
  212.       if (var71 == 17.0) then
  213.         var70[85265.0] = true
  214.       end
  215.  
  216.       if (var71 == 240.0) then
  217.         var70[85265.0] = get_float64()
  218.       end
  219.  
  220.       if (var71 == 218.0) then
  221.         var70[85265.0] = get_string(120.0)
  222.       end
  223.  
  224.       if (var71 == 219.0) then
  225.         var70[85265.0] = get_byte()
  226.       end
  227.  
  228.       if (var71 == 131.0) then
  229.         var70[85265.0] = get_dword()
  230.       end
  231.  
  232.       var65[66314.0][(var72 - var17)] = var70
  233.     end
  234.  
  235.  
  236.     get_dword()
  237.  
  238.     get_dword()
  239.  
  240.     get_byte()
  241.  
  242.     get_byte()
  243.  
  244.     local var66 = get_dword()
  245.     for var73 = var17, var66 do
  246.  
  247.       var65[72954.0][(var73 - var17)] = decode_chunk()
  248.     end
  249.  
  250.  
  251.     var65[34709.0] = get_byte()
  252.     local var66 = get_dword()
  253.     for var74 = var17, var66 do
  254.  
  255.       var65[27462.0][var74] = get_dword()
  256.     end
  257.  
  258.  
  259.     return var65
  260.   end
  261.  
  262.  
  263.   local function create_wrapper(cache, environment, upvalues)
  264.  
  265.     local var76, var77 = 15.0, -1.0
  266.     local var78 = cache[71906.0]
  267.     local constants = setmetatable({  }, { [__index] = function (test6lIlIll1l11IlilllIlI1i, var82)
  268.       local var81 = cache[66314.0][var82]
  269.       if (string.sub(type(var81[85265.0]), 1.0, 1.0) == "s") then
  270.         return { [85265.0] = string.sub(var81[85265.0], 3.0) }
  271.       end
  272.  
  273.       return var81
  274.     end
  275.  
  276.  })
  277.     local var83 = 34709.0
  278.     local var84 = cache[72954.0]
  279.     local var85 = 85265.0
  280.     local var86 = cache[47888.0]
  281.     local var87 = 109731.0
  282.     local var88 = cache[27462.0]
  283.     local var89 = 33794.0
  284.     local function vm_run_func(...)
  285.  
  286.       local var90 = 0.0
  287.       local stack = {  }
  288.       local var92 = 1.0
  289.       local var93 = {  }
  290.       local var94 = {  }
  291.       local var95 = 1.0
  292.       local environment = getfenv()
  293.       local var97 = { ... }
  294.       local varargsz = (#var97 - 1.0)
  295.       for var99 = 0.0, varargsz do
  296.  
  297.         if (var99 < var86) then
  298.           stack[var99] = var97[(var99 + 1.0)]
  299.         end
  300.  
  301.       end
  302.  
  303.  
  304.       local function handle_return(...)
  305.  
  306.         local var100 = select("#", ...)
  307.         local var101 = { ... }
  308.         return var100, var101
  309.       end
  310.  
  311.  
  312.       local sbx_bias = 131071.0
  313.       local vm_opcode_handler_table
  314.       local vm_handler_table = { function (var106, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli, test6lIllil1llIiil11Iii1l1)
  315.         local var105 = var106[103007.0]
  316.         local var107 = var106[4075.0]
  317.         local var108 = var106[33794.0]
  318.         local var109 = (var106[103007.0] - sbx_bias)
  319.         local var110 = var106[10795.0]
  320.         stack[var107] = { unpack(var18, 1.0, (((var108 == 0.0) and 895.0) or var108)) }
  321.       end
  322.  
  323. , nil, nil, function (var112, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  324.         local var111 = (var112[103007.0] - sbx_bias)
  325.         local var113 = var112[33794.0]
  326.         local var114 = var112[10795.0]
  327.         local var115 = var112[4075.0]
  328.         local var116 = var112[103007.0]
  329.         if (var113 > 255.0) then
  330.           var113 = constants[(var113 - 256.0)][var85]
  331.         else
  332.           var113 = stack[var113]
  333.         end
  334.  
  335.         if (var114 > 255.0) then
  336.           var114 = constants[(var114 - 256.0)][var85]
  337.         else
  338.           var114 = stack[var114]
  339.         end
  340.  
  341.         stack[var115] = (var113 % var114)
  342.       end
  343.  
  344. , nil, nil, function (var118, test6lIll11illiIlIiI1Ill1I)
  345.         local var117 = var118[4075.0]
  346.         local var119 = var118[10795.0]
  347.         local var120 = var118[33794.0]
  348.         local var121 = var118[103007.0]
  349.         local var122 = (var118[103007.0] - sbx_bias)
  350.         if (var120 > 255.0) then
  351.           var120 = constants[(var120 - 256.0)][var85]
  352.         else
  353.           var120 = stack[var120]
  354.         end
  355.  
  356.         if (var119 > 255.0) then
  357.           var119 = constants[(var119 - 256.0)][var85]
  358.         else
  359.           var119 = stack[var119]
  360.         end
  361.  
  362.         stack[var117][var120] = var119
  363.       end
  364.  
  365. , function (var124)
  366.         local var123 = (var124[103007.0] - sbx_bias)
  367.         local var125 = var124[10795.0]
  368.         local var126 = var124[4075.0]
  369.         local var127 = var124[33794.0]
  370.         local var128 = var124[103007.0]
  371.         if (var127 > 255.0) then
  372.           var127 = constants[(var127 - 256.0)][var85]
  373.         else
  374.           var127 = stack[var127]
  375.         end
  376.  
  377.         if (var125 > 255.0) then
  378.           var125 = constants[(var125 - 256.0)][var85]
  379.         else
  380.           var125 = stack[var125]
  381.         end
  382.  
  383.         stack[var126] = (var127 + var125)
  384.       end
  385.  
  386. , nil, nil, nil, nil, function (var130, test6lIll11illiIlIiI1Ill1I)
  387.         local var129 = (var130[103007.0] - sbx_bias)
  388.         local var131 = var130[103007.0]
  389.         local var132 = var130[10795.0]
  390.         local var133 = var130[33794.0]
  391.         local var134 = var130[4075.0]
  392.         upvalues[var133] = stack[var134]
  393.       end
  394.  
  395. , nil, nil, nil, nil, nil, function (var137, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  396.         local var136 = var137[10795.0]
  397.         local var138 = var137[103007.0]
  398.         local var139 = var137[4075.0]
  399.         local var140 = (var137[103007.0] - sbx_bias)
  400.         local var141 = var137[33794.0]
  401.         stack[var139] = assert(tonumber(stack[var139]), "`for` initial value must be a number")
  402.         stack[(var139 + 1.0)] = assert(tonumber(stack[(var139 + 1.0)]), "`for` limit value must be a number")
  403.         stack[(var139 + 2.0)] = assert(tonumber(stack[(var139 + 2.0)]), "`for` step value must be a number")
  404.         stack[var139] = (stack[var139] - stack[(var139 + 2.0)])
  405.         var92 = (var92 + var140)
  406.       end
  407.  
  408. , nil }
  409.       vm_handler_table[6.0] = function (var143, test6lIll11illiIlIiI1Ill1I)
  410.         local var142 = var143[103007.0]
  411.         local var144 = (var143[103007.0] - sbx_bias)
  412.         local var145 = var143[33794.0]
  413.         local var146 = var143[10795.0]
  414.         local var147 = var143[4075.0]
  415.         local var148 = var84[var142]
  416.         local var149 = {  }
  417.         if (var148[var83] > 0.0) then
  418.           do
  419.  
  420.             local var150 = {  }
  421.             var149 = setmetatable({  }, { [__index] = function (test6lIlIll1l11IlilllIlI1i, var152)
  422.               local var151 = var150[var152]
  423.               return var151[1.0][var151[2.0]]
  424.             end
  425.  
  426. , [__newindex] = function (test6lIlIll1l11IlilllIlI1i, var154, var155)
  427.               local var153 = var150[var154]
  428.               var153[1.0][var153[2.0]] = var155
  429.             end
  430.  
  431.  })
  432.             for var157 = 1.0, var148[var83] do
  433.  
  434.               local var156 = var78[var92]
  435.               if (var156[var87] == var76) then
  436.                 var150[(var157 - 1.0)] = { stack, var156[var89] }
  437.               elseif (var156[var87] == var77) then
  438.                 var150[(var157 - 1.0)] = { upvalues, var156[var89] }
  439.               end
  440.  
  441.               var92 = (var92 + 1.0)
  442.             end
  443.  
  444.  
  445.             var93[(#var93 + 1.0)] = var150
  446.           end
  447.  
  448.  
  449.         end
  450.  
  451.         local var158 = create_wrapper(var148, environment, var149)
  452.         stack[var147] = var158
  453.       end
  454.  
  455.  
  456.       vm_handler_table[20.0] = function (var160, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli, test6lIllil1llIiil11Iii1l1)
  457.         local var159 = var160[4075.0]
  458.         local var161 = (var160[103007.0] - sbx_bias)
  459.         local var162 = var160[103007.0]
  460.         local var163 = var160[33794.0]
  461.         local var164 = var160[10795.0]
  462.         if (var164 == 19.0) then
  463.           return vm_opcode_handler_table[14.0]({ [4075.0] = ((var159 - 182.0) % 256.0), [33794.0] = ((var163 - 182.0) % 256.0), [103007.0] = 0.0 })
  464.         end
  465.  
  466.         stack[var159] = stack[var163]
  467.       end
  468.  
  469.  
  470.       vm_handler_table[0.0] = function (var166, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  471.         local var165 = var166[10795.0]
  472.         local var167 = var166[103007.0]
  473.         local var168 = (var166[103007.0] - sbx_bias)
  474.         local var169 = var166[4075.0]
  475.         local var170 = var166[33794.0]
  476.         local var171
  477.         if (var167 == 100000.0) then
  478.           var171 = stack[251.0]
  479.         else
  480.           var171 = constants[var167][var85]
  481.         end
  482.  
  483.         stack[var169] = environment[var171]
  484.       end
  485.  
  486.  
  487.       vm_handler_table[17.0] = function (var173, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  488.         local var172 = var173[33794.0]
  489.         local var174 = var173[10795.0]
  490.         local var175 = var173[103007.0]
  491.         local var176 = (var173[103007.0] - sbx_bias)
  492.         local var177 = var173[4075.0]
  493.         if (var174 == 36.0) then
  494.           return vm_opcode_handler_table[16.0]({ [4075.0] = ((var177 - 60.0) % 256.0), [33794.0] = ((var172 - 60.0) % 256.0), [103007.0] = 0.0 })
  495.         end
  496.  
  497.         stack[var177] = not stack[var172]
  498.       end
  499.  
  500.  
  501.       vm_handler_table[16.0] = function (var179, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  502.         local var178 = var179[33794.0]
  503.         local var180 = var179[10795.0]
  504.         local var181 = (var179[103007.0] - sbx_bias)
  505.         local var182 = var179[103007.0]
  506.         local var183 = var179[4075.0]
  507.         local var184 = stack[var178]
  508.         for var185 = (var178 + 1.0), var180 do
  509.  
  510.           var184 = (var184 .. stack[var185])
  511.         end
  512.  
  513.  
  514.         stack[var183] = var184
  515.       end
  516.  
  517.  
  518.       vm_handler_table[18.0] = function (var187, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  519.         local var186 = var187[103007.0]
  520.         local var188 = var187[33794.0]
  521.         local var189 = (var187[103007.0] - sbx_bias)
  522.         local var190 = var187[10795.0]
  523.         local var191 = var187[4075.0]
  524.         local var192 = stack[(var191 + 2.0)]
  525.         local var193 = (stack[var191] + var192)
  526.         stack[var191] = var193
  527.         if (var192 > 0.0) then
  528.           if (var193 <= stack[(var191 + 1.0)]) then
  529.             var92 = (var92 + var189)
  530.             stack[(var191 + 3.0)] = var193
  531.           end
  532.  
  533.         elseif (var193 >= stack[(var191 + 1.0)]) then
  534.           var92 = (var92 + var189)
  535.           stack[(var191 + 3.0)] = var193
  536.         end
  537.  
  538.       end
  539.  
  540.  
  541.       vm_handler_table[5.0] = function (var195, test6lIll11illiIlIiI1Ill1I)
  542.         local var194 = var195[33794.0]
  543.         local var196 = (var195[103007.0] - sbx_bias)
  544.         local var197 = var195[103007.0]
  545.         local var198 = var195[4075.0]
  546.         local var199 = var195[10795.0]
  547.         for var200 = var198, var194 do
  548.  
  549.           stack[var200] = nil
  550.         end
  551.  
  552.  
  553.       end
  554.  
  555.  
  556.       vm_handler_table[2.0] = function (var202, test6lIll11illiIlIiI1Ill1I)
  557.         local var201 = (var202[103007.0] - sbx_bias)
  558.         local var203 = var202[4075.0]
  559.         local var204 = var202[103007.0]
  560.         local var205 = var202[10795.0]
  561.         local var206 = var202[33794.0]
  562.         if (stack[var203] == (var205 == 0.0)) then
  563.           var92 = (var92 + 1.0)
  564.         end
  565.  
  566.       end
  567.  
  568.  
  569.       vm_handler_table[15.0] = function (var208, test6lIll11illiIlIiI1Ill1I)
  570.         local var207 = var208[33794.0]
  571.         local var209 = (var208[103007.0] - sbx_bias)
  572.         local var210 = var208[103007.0]
  573.         local var211 = var208[10795.0]
  574.         local var212 = var208[4075.0]
  575.         stack[var212] = constants[var210][var85]
  576.       end
  577.  
  578.  
  579.       vm_handler_table[11.0] = function (var214, test6lIll11illiIlIiI1Ill1I)
  580.         local var213 = var214[103007.0]
  581.         local var215 = var214[33794.0]
  582.         local var216 = var214[10795.0]
  583.         local var217 = (var214[103007.0] - sbx_bias)
  584.         local var218 = var214[4075.0]
  585.         if (var215 == 1.0) then
  586.           return true
  587.         end
  588.  
  589.         local var219 = ((var218 + var215) - 2.0)
  590.         if (var215 == 0.0) then
  591.           var219 = var90
  592.         end
  593.  
  594.         return true, var218, var219
  595.       end
  596.  
  597.  
  598.       vm_handler_table[10.0] = function (var221, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli, test6lIllil1llIiil11Iii1l1)
  599.         local var220 = var221[4075.0]
  600.         local var222 = (var221[103007.0] - sbx_bias)
  601.         local var223 = var221[103007.0]
  602.         local var224 = var221[33794.0]
  603.         local var225 = var221[10795.0]
  604.         local var226, var227, var228
  605.         if (var224 ~= 1.0) then
  606.           if (var224 ~= 0.0) then
  607.             var227 = ((var220 + var224) - 1.0)
  608.           else
  609.             var227 = var90
  610.           end
  611.  
  612.           var227, var226 = handle_return(stack[var220](unpack(stack, (var220 + 1.0), var227)))
  613.         else
  614.           var227, var226 = handle_return(stack[var220]())
  615.         end
  616.  
  617.         if (var225 ~= 1.0) then
  618.           if (var225 ~= 0.0) then
  619.             var227 = ((var220 + var225) - 2.0)
  620.           else
  621.             var227 = (var227 + var220)
  622.           end
  623.  
  624.           var228 = 0.0
  625.           for var229 = var220, var227 do
  626.  
  627.             var228 = (var228 + 1.0)
  628.             stack[var229] = var226[var228]
  629.           end
  630.  
  631.  
  632.         end
  633.  
  634.         var90 = (var227 - 1.0)
  635.       end
  636.  
  637.  
  638.       vm_handler_table[14.0] = function (var231)
  639.         local var230 = var231[33794.0]
  640.         local var232 = var231[4075.0]
  641.         local var233 = var231[103007.0]
  642.         local var234 = (var231[103007.0] - sbx_bias)
  643.         local var235 = var231[10795.0]
  644.         local var236 = (((var230 > 0.0) and (var230 - 1.0)) or (varargsz - var86))
  645.         if (var236 < 0.0) then
  646.           var236 = -1.0
  647.         end
  648.  
  649.         for var237 = var232, (var232 + var236) do
  650.  
  651.           stack[var237] = var97[((var86 + (var237 - var232)) + 1.0)]
  652.         end
  653.  
  654.  
  655.         var90 = (var232 + var236)
  656.       end
  657.  
  658.  
  659.       vm_handler_table[12.0] = function (var239, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  660.         local var238 = var239[10795.0]
  661.         local var240 = var239[103007.0]
  662.         local var241 = (var239[103007.0] - sbx_bias)
  663.         local var242 = var239[33794.0]
  664.         local var243 = var239[4075.0]
  665.         var92 = (var92 + var241)
  666.       end
  667.  
  668.  
  669.       vm_handler_table[9.0] = function (var245, test6lIll11illiIlIiI1Ill1I, test6iii1iil1IIiilIliIli)
  670.         local var244 = var245[103007.0]
  671.         local var246 = var245[33794.0]
  672.         local var247 = var245[4075.0]
  673.         local var248 = var245[10795.0]
  674.         local var249 = (var245[103007.0] - sbx_bias)
  675.         if (var246 > 255.0) then
  676.           var246 = constants[(var246 - 256.0)][var85]
  677.         else
  678.           var246 = stack[var246]
  679.         end
  680.  
  681.         if (var248 > 255.0) then
  682.           var248 = constants[(var248 - 256.0)][var85]
  683.         else
  684.           var248 = stack[var248]
  685.         end
  686.  
  687.         stack[var247] = (var246 / var248)
  688.       end
  689.  
  690.  
  691.       vm_handler_table[3.0] = function (var251, test6lIll11illiIlIiI1Ill1I)
  692.         local var250 = var251[10795.0]
  693.         local var252 = var251[4075.0]
  694.         local var253 = var251[103007.0]
  695.         local var254 = var251[33794.0]
  696.         local var255 = (var251[103007.0] - sbx_bias)
  697.         local var256
  698.         if (var253 == 100000.0) then
  699.           var256 = stack[251.0]
  700.         else
  701.           var256 = constants[var253][var85]
  702.         end
  703.  
  704.         environment[var256] = stack[var252]
  705.       end
  706.  
  707.  
  708.       vm_opcode_handler_table = { vm_handler_table[2.0], vm_handler_table[0.0], vm_handler_table[19.0], vm_handler_table[1.0], vm_handler_table[5.0], vm_handler_table[3.0], vm_handler_table[16.0], vm_handler_table[14.0], vm_handler_table[15.0], vm_handler_table[17.0], vm_handler_table[6.0], vm_handler_table[12.0], vm_handler_table[10.0], vm_handler_table[11.0], vm_handler_table[4.0], vm_handler_table[20.0], vm_handler_table[18.0], vm_handler_table[9.0], vm_handler_table[13.0], vm_handler_table[8.0], vm_handler_table[7.0] }
  709.       local function func11()
  710.  
  711.         while true do
  712.  
  713.           local var257 = var78[var92]
  714.           var92 = (var92 + 1.0)
  715.           local var258, var259, var260 = vm_opcode_handler_table[(var257[109731.0] + 1.0)](var257)
  716.           if var258 then
  717.             return var259, var260
  718.           end
  719.  
  720.         end
  721.  
  722.  
  723.       end
  724.  
  725.  
  726.       local var261, var262, var263 = pcall(func11)
  727.       if var261 then
  728.         if var262 then
  729.           return unpack(stack, var262, var263)
  730.         end
  731.  
  732.       else
  733.         local var264 = string.gsub(("Luraph Script:" .. ((var88[(var92 - 1.0)] or "") .. (": " .. tostring(var262)))), "[^:]+:%d*: ", function (var265)
  734.           if not string.match(var265, "Luraph Script:%d") then
  735.             return ""
  736.           end
  737.  
  738.         end
  739.  
  740. )
  741.         error(var264, 0.0)
  742.  
  743.       end
  744.  
  745.     end
  746.  
  747.  
  748.     setfenv(vm_run_func, var266)
  749.  
  750.     return vm_run_func
  751.   end
  752.  
  753.  
  754.   local var267 = decode_chunk()
  755.   return create_wrapper(var267, var75)
  756. end
  757.  
  758.  
  759. vm_run("LPH|46E72D4E0A02002GE7E5CBE62GE7CF3GE7CF3GE7F33GE7E3E62GE7D73GE7D3000D3B467FFE00E4FE55294C0A0200F05G00E4944065DA3261B57BC72BAF8B013G00EF790A0200F0E7E5CB2GE7EFE3DBAF1BC32GE7E5CB64E6EFF72GE5EFD7E2E7EFE3FDE7E5CB2GE7EFE3FFE7E5CBE7EDE7ABF2E7EDA72GE7EFC7E5E7EBC7E4E7F7C7E3E7EDEFDAAFEFC2A6AFEBC22G18E6CBE3E72GC7E1F7E3FF1E18EEA7E2E7EFE30E18E6CB0018E6CBE6E7E5CB3GE7CF3GE7E33GE7C7E6E7E3C72GE7EFC7E5E7EBC7E4E7F7C70F18EEEF0118E6CBDAAF1BC32GE7E5CBC9E6EFF72GE5EFD750C13FD9FF3119CA093702A1090B35CF9E9253DED4FC21E74D7F67EB681B19F907FF87E36B568CAC0450FEB7096D4B731D37003BFA8F7C520A0200F08G00A7083G002G4628272B237C66F06G002440F06G00F03FA7033G002G466AA7073G002G4636342F2832A7023G002G461ED09A4C9B683C423B825G00289G002G000D9G002G000D3G000E9G006G00063G00053G00093G00093G00093G00093G000A3G000A7G000A3G000A3G00093G000D9G009G005G00013G00033G00053G00053G00053G00057G000E9G002G000E3G000E8G00", getfenv())
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!