-- fuck mommy tight pussy 😏 return (function(...)local l;local R;local N=497.160920;local Z=169.403509;local p=1006.488372;local j = "v181383";local j = "v181383";local j = "v181383";local m=92;local K=271;local _d236646=function(p142271,q108322)return string.sub(p142271,1,q108322)end;local _d679491=function(p408917,q473107)return string.sub(p408917,1,q473107)end;local k=3;local C=function(a,k)local function x(a,b)local r=0;local v=1;while a>0 or b>0 do if a%2~=b%2 then r=r+v end;v=v*2;a=math.floor(a/2)b=math.floor(b/2)end;return r end;local c='!#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_abcdefghijklmnopqrstuvwxyz{|}~';local res={}local p=1;local al=#a;while p<=al do local rm=al-p+1;local cl=rm>=5 and 5 or rm;local n=0;for i=0,cl-1 do local ch=a:sub(p+i,p+i)local idx=c:find(ch,1,true)if idx then n=n*85+(idx-1)end end;local bc=cl==5 and 4 or(cl==4 and 3 or(cl==3 and 2 or 1))local bts={}for i=bc,1,-1 do bts[i]=n%256;n=math.floor(n/256)end;for i=1,bc do res[#res+1]=string.char(bts[i])end;p=p+cl end;local dec=table.concat(res)if k and #k>0 then local ux={}local kl=#k;for i=1,#dec do local by=string.byte(dec,i)local kb=string.byte(k,((i-1)%kl)+1)ux[i]=string.char(x(by,kb))end;return table.concat(ux)else return dec end end;local K=203;local d=(function()local m1,m2,m3,m4,m5={},{},{},{},{}local function a(b)local c={}for d=0,255 do c[d]={}end;c[0][0]=b[1]*255;local e=1;for f=0,7 do for d=0,e-1 do for g=0,e-1 do local h=c[d][g]-b[1]*e;c[d][g+e]=h+b[2]*e;c[d+e][g]=h+b[3]*e;c[d+e][g+e]=h+b[4]*e end end;e=e*2 end;return c end;local i=a{0,1,1,0}local function z_0(x_a,x_b)local x_c=(x_a+1)%256;return x_c,x_b end;local function z_1(x_s,x_i,x_j)local x_k=x_s[x_i];local x_l=x_s[x_j];x_s[x_i]=x_l;x_s[x_j]=x_k;return (x_k+x_l)%256 end;local function z_2(x_s,x_i,x_j)return x_s[(x_s[x_i]+x_s[x_j])%256]end;local function j(self,k)local l,d,g=self.S,self.i,self.j;local m={}local n=string.char;local x_cache={}for o=1,k do d,g=z_0(d,g)g=(g+l[d])%256;local x_idx=z_1(l,d,g)m[o]=n(z_2(l,d,g))x_cache[o]=d end;self.i,self.j=d,g;return table.concat(m)end;local function p(self,q)local r=j(self,#q)local s={}local t=string.byte;local n=string.char;for d=1,#q do s[d]=n(i[t(q,d)][t(r,d)])end;return table.concat(s)end;local function u(self,v)local l=self.S;local g,w=0,#v;local t=string.byte;local x_keys={}for x_i=1,w do x_keys[x_i]=t(v,x_i)end;for d=0,255 do local x_vbyte=x_keys[((d%w)==0 and w or d%w)]g=(g+l[d]+x_vbyte)%256;l[d],l[g]=l[g],l[d]end end;function new(v)local l={}local s={S=l,i=0,j=0,generate=j,cipher=p,schedule=u}for d=0,255 do l[d]=d end;if v then s:schedule(v)end;return s end;return new end)();local fev=getfenv or function()return _ENV end;local t=(function()if not bit then local bit_=nil pcall(function()bit_=require('bit') end)bit=bit_ end local bit=bit or bit32 or(function()local a={_TYPE='module',_NAME='bit.numberlua',_VERSION='0.3.1.20120131'}local b=math.floor;local c=2^32;local d=c-1;local function e(f)local g={}local h=setmetatable({},g)function g:__index(i)local j=f(i)h[i]=j;return j end;return h end;local function k(h,l)local function m(n,o)local p,q=0,1;while n~=0 and o~=0 do local r,s=n%l,o%l;p=p+h[r][s]*q;n=(n-r)/l;o=(o-s)/l;q=q*l end;p=p+(n+o)*q;return p end;return m end;local function t(h)local u=k(h,2^1)local v=e(function(n)return e(function(o)return u(n,o)end)end)return k(v,2^(h.n or 1))end;function a.tobit(w)return w%2^32 end;a.bxor=t{[0]={[0]=0,[1]=1},[1]={[0]=1,[1]=0},n=4}local x=a.bxor;function a.bnot(n)return d-n end;local y=a.bnot;function a.band(n,o)return(n+o-x(n,o))/2 end;local z=a.band;function a.bor(n,o)return d-z(d-n,d-o)end;local A=a.bor;local B,C;function a.rshift(n,D)if D<0 then return B(n,-D)end;return b(n%2^32/2^D)end;C=a.rshift;function a.lshift(n,D)if D<0 then return C(n,-D)end;return n*2^D%2^32 end;B=a.lshift;function a.tohex(w,E)E=E or 8;local F;if E<=0 then if E==0 then return''end;F=true;E=-E end;w=z(w,16^E-1)return('%0'..E..(F and'X'or'x')):format(w)end;local G=a.tohex;function a.extract(E,H,I)I=I or 1;return z(C(E,H),2^I-1)end;local J=a.extract;function a.replace(E,j,H,I)I=I or 1;local K=2^I-1;j=z(j,K)local L=y(B(K,H))return z(E,L)+B(j,H)end;local M=a.replace;function a.bswap(w)local n=z(w,0xff)w=C(w,8)local o=z(w,0xff)w=C(w,8)local N=z(w,0xff)w=C(w,8)local O=z(w,0xff)return B(B(B(n,8)+o,8)+N,8)+O end;local P=a.bswap;function a.rrotate(w,D)D=D%32;local Q=z(w,2^D-1)return C(w,D)+B(Q,32-D)end;local R=a.rrotate;function a.lrotate(w,D)return R(w,-D)end;local S=a.lrotate;a.rol=a.lrotate;a.ror=a.rrotate;function a.arshift(w,D)local T=C(w,D)if w>=0x80000000 then T=T+B(2^D-1,32-D)end;return T end;local U=a.arshift;function a.btest(w,V)return z(w,V)~=0 end;a.bit32={}local function W(w)return(-1-w)%c end;a.bit32.bnot=W;local function X(n,o,N,...)local T;if o then n=n%c;o=o%c;T=x(n,o)if N then T=X(T,N,...)end;return T elseif n then return n%c else return 0 end end;a.bit32.bxor=X;local function Y(n,o,N,...)local T;if o then n=n%c;o=o%c;T=(n+o-x(n,o))/2;if N then T=Y(T,N,...)end;return T elseif n then return n%c else return d end end;a.bit32.band=Y;local function Z(n,o,N,...)local T;if o then n=n%c;o=o%c;T=d-z(d-n,d-o)if N then T=Z(T,N,...)end;return T elseif n then return n%c else return 0 end end;a.bit32.bor=Z;function a.bit32.btest(...)return Y(...)~=0 end;function a.bit32.lrotate(w,D)return S(w%c,D)end;function a.bit32.rrotate(w,D)return R(w%c,D)end;function a.bit32.lshift(w,D)if D>31 or D<-31 then return 0 end;return B(w%c,D)end;function a.bit32.rshift(w,D)if D>31 or D<-31 then return 0 end;return C(w%c,D)end;function a.bit32.arshift(w,D)w=w%c;if D>=0 then if D>31 then return w>=0x80000000 and d or 0 else local T=C(w,D)if w>=0x80000000 then T=T+B(2^D-1,32-D)end;return T end else return B(w,-D)end end;function a.bit32.extract(w,H,...)local I=...or 1;if H<0 or H>31 or I<0 or H+I>32 then error'out of range'end;w=w%c;return J(w,H,...)end;function a.bit32.replace(w,j,H,...)local I=...or 1;if H<0 or H>31 or I<0 or H+I>32 then error'out of range'end;w=w%c;j=j%c;return M(w,j,H,...)end;a.bit={}function a.bit.tobit(w)w=w%c;if w>=0x80000000 then w=w-c end;return w end;local _=a.bit.tobit;function a.bit.tohex(w,...)return G(w%c,...)end;function a.bit.bnot(w)return _(y(w%c))end;local function a0(n,o,N,...)if N then return a0(a0(n,o),N,...)elseif o then return _(A(n%c,o%c))else return _(n)end end;a.bit.bor=a0;local function a1(n,o,N,...)if N then return a1(a1(n,o),N,...)elseif o then return _(z(n%c,o%c))else return _(n)end end;a.bit.band=a1;local function a2(n,o,N,...)if N then return a2(a2(n,o),N,...)elseif o then return _(x(n%c,o%c))else return _(n)end end;a.bit.bxor=a2;function a.bit.lshift(w,E)return _(B(w%c,E%32))end;function a.bit.rshift(w,E)return _(C(w%c,E%32))end;function a.bit.arshift(w,E)return _(U(w%c,E%32))end;function a.bit.rol(w,E)return _(S(w%c,E%32))end;function a.bit.ror(w,E)return _(R(w%c,E%32))end;function a.bit.bswap(w)return _(P(w%c))end;return a end)()local unpack=table.unpack or unpack;local a3;local a4;local a5;local a6=50;local a7={[0]=27,[1]=2,[2]=6,[3]=25,[4]=11,[5]=3,[6]=22,[7]=19,[8]=30,[9]=17,[10]=12,[11]=13,[12]=23,[13]=36,[14]=20,[15]=33,[16]=10,[17]=21,[18]=1,[19]=29,[20]=14,[21]=16,[22]=0,[23]=9,[24]=5,[25]=18,[26]=35,[27]=34,[28]=4,[29]=7,[30]=15,[31]=28,[32]=32,[33]=37,[34]=31,[35]=8,[36]=26,[37]=24}local a8={[0]="__fmt_abc_19923_935",[1]="__fmt_abx_89216_905",[2]="__fmt_abc_19923_935",[3]="__fmt_abc_19923_935",[4]="__fmt_abc_19923_935",[5]="__fmt_abx_89216_905",[6]="__fmt_abc_19923_935",[7]="__fmt_abx_89216_905",[8]="__fmt_abc_19923_935",[9]="__fmt_abc_19923_935",[10]="__fmt_abc_19923_935",[11]="__fmt_abc_19923_935",[12]="__fmt_abc_19923_935",[13]="__fmt_abc_19923_935",[14]="__fmt_abc_19923_935",[15]="__fmt_abc_19923_935",[16]="__fmt_abc_19923_935",[17]="__fmt_abc_19923_935",[18]="__fmt_abc_19923_935",[19]="__fmt_abc_19923_935",[20]="__fmt_abc_19923_935",[21]="__fmt_abc_19923_935",[22]="__fmt_asbx_43983_937",[23]="__fmt_abc_19923_935",[24]="__fmt_abc_19923_935",[25]="__fmt_abc_19923_935",[26]="__fmt_abc_19923_935",[27]="__fmt_abc_19923_935",[28]="__fmt_abc_19923_935",[29]="__fmt_abc_19923_935",[30]="__fmt_abc_19923_935",[31]="__fmt_asbx_43983_937",[32]="__fmt_asbx_43983_937",[33]="__fmt_abc_19923_935",[34]="__fmt_abc_19923_935",[35]="__fmt_abc_19923_935",[36]="__fmt_abx_89216_905",[37]="__fmt_abc_19923_935"}local a9={[0]={b="__margR_44808_926",c="__margN_11675_904"},[1]={b="__margK_35579_904",c="__margN_11675_904"},[2]={b="__margU_65131_933",c="__margU_65131_933"},[3]={b="__margR_44808_926",c="__margN_11675_904"},[4]={b="__margU_65131_933",c="__margN_11675_904"},[5]={b="__margK_35579_904",c="__margN_11675_904"},[6]={b="__margR_44808_926",c="__margK_35579_904"},[7]={b="__margK_35579_904",c="__margN_11675_904"},[8]={b="__margU_65131_933",c="__margN_11675_904"},[9]={b="__margK_35579_904",c="__margK_35579_904"},[10]={b="__margU_65131_933",c="__margU_65131_933"},[11]={b="__margR_44808_926",c="__margK_35579_904"},[12]={b="__margK_35579_904",c="__margK_35579_904"},[13]={b="__margK_35579_904",c="__margK_35579_904"},[14]={b="__margK_35579_904",c="__margK_35579_904"},[15]={b="__margK_35579_904",c="__margK_35579_904"},[16]={b="__margK_35579_904",c="__margK_35579_904"},[17]={b="__margK_35579_904",c="__margK_35579_904"},[18]={b="__margR_44808_926",c="__margN_11675_904"},[19]={b="__margR_44808_926",c="__margN_11675_904"},[20]={b="__margR_44808_926",c="__margN_11675_904"},[21]={b="__margR_44808_926",c="__margR_44808_926"},[22]={b="__margR_44808_926",c="__margN_11675_904"},[23]={b="__margK_35579_904",c="__margK_35579_904"},[24]={b="__margK_35579_904",c="__margK_35579_904"},[25]={b="__margK_35579_904",c="__margK_35579_904"},[26]={b="__margR_44808_926",c="__margU_65131_933"},[27]={b="__margR_44808_926",c="__margU_65131_933"},[28]={b="__margU_65131_933",c="__margU_65131_933"},[29]={b="__margU_65131_933",c="__margU_65131_933"},[30]={b="__margU_65131_933",c="__margN_11675_904"},[31]={b="__margR_44808_926",c="__margN_11675_904"},[32]R_44808_926",c="__margN_11675_904"},[33]={b="__margN_11675_904",c="__margU_65131_933"},[34]={b="__margU_65131_933",c="__margU_65131_933"},[35]={b="__margN_11675_904",c="__margN_11675_904"},[36]={b="__margU_65131_933",c="__margN_11675_904"},[37]={b="__margU_65131_933",c="__margN_11675_904"}}local __PH_OPR={[0]=18,[1]=30,[2]=13,[3]=4,[4]=11,[5]=27,[6]=23,[7]=15,[8]=25,[9]=24,[10]=20,[11]=2,[12]=17,[13]=5,[14]=19,[15]=21,[16]=22,[17]=14,[18]=29,[19]=9,[20]=10,[21]=26,[22]=7,[23]=1,[24]=35,[25]=0,[26]=31,[27]=3,[28]=8,[29]=36,[30]=12,[31]=37,[32]=34,[33]=16,[34]=32,[35]=33,[36]=6,[37]=28} local __PH_HS={[0]=184,[1]=69,[2]=191,[3]=204,[4]=79,[5]=250,[6]=100,[7]=180,[8]=236,[9]=168,[10]=74,[11]=149,[12]=41,[13]=137,[14]=116,[15]=205,[16]=208,[17]=80,[18]=241,[19]=243,[20]=251,[21]=115,[22]=89,[23]=212,[24]=87,[25]=219,[26]=158,[27]=202,[28]=196,[29]=43,[30]=133,[31]=248,[32]=53,[33]=67,[34]=102,[35]=131,[36]=242,[37]=159} local __PH_HM={[41]=17,[69]=30,[191]=13,[67]=16,[205]=21,[196]=8,[80]=14,[158]=31,[133]=12,[208]=22,[202]=3,[115]=26,[219]=0,[168]=24,[159]=28,[116]=19,[149]=2,[212]=1,[131]=33,[243]=9,[79]=11,[248]=37,[242]=6,[43]=36,[89]=7,[100]=23,[53]=34,[74]=20,[204]=4,[102]=32,[241]=29,[236]=25,[184]=18,[180]=15,[250]=27,[137]=5,[87]=35,[251]=10} local function __PH_RS(op,field,value,is_k)if value==nil then return nil end;if field=='A' then if op==18 or op==24 or op==27 or op==29 then return value end;return value+46 end;if field=='B' then if op==0 or op==3 or op==5 or op==7 or op==19 or op==22 or op==30 or op==32 or op==36 then return value+46 end;if op==1 or op==6 or op==10 or op==14 or op==16 or op==20 or op==24 or op==26 or op==27 or op==29 then if is_k then return value end;return value+46 end end;if field=='C' then if op==22 then return value+46 end;if op==1 or op==5 or op==6 or op==7 or op==10 or op==14 or op==16 or op==20 or op==24 or op==26 or op==27 or op==29 then if is_k then return value end;return value+46 end end;return value end local function __PH_CE(index,count)if index==nil then return nil end;return index+63 end local function __PH_CD(consts,count,encoded)if encoded==nil then return nil end;return consts[encoded-63]end local __PH_AR={[212]=function(x,y)return x+y end,[115]=function(x,y)return x^y end,[242]=function(x,y)return x-y end,[67]=function(x,y)return x/y end,[74]=function(x,y)return x%y end,[251]=function(x,y)return x*y end} local function aa(ab,s,e,d)local ac=0;for i=s,e,d do ac=ac+string.byte(ab,i,i)*256^(i-s)end;return ac end;local function ad(ae,af,ag,ah)local ai=(-1)^bit.rshift(ah,7)local aj=bit.rshift(ag,7)+bit.lshift(bit.band(ah,0x7F),1)local ak=ae+bit.lshift(af,8)+bit.lshift(bit.band(ag,0x7F),16)local al=1;if aj==0 then if ak==0 then return ai*0 else al=0;aj=1 end elseif aj==0x7F then if ak==0 then return ai*1/0 else return ai*0/0 end end;return ai*2^(aj-127)*(1+al/2^23)end;local function am(ae,af,ag,ah,an,ao,ap,aq)local ai=(-1)^bit.rshift(aq,7)local aj=bit.lshift(bit.band(aq,0x7F),4)+bit.rshift(ap,4)local ak=bit.band(ap,0x0F)*2^48;local al=1;ak=ak+ao*2^40+an*2^32+ah*2^24+ag*2^16+af*2^8+ae;if aj==0 then if ak==0 then return ai*0 else al=0;aj=1 end elseif aj==0x7FF then if ak==0 then return ai*1/0 else return ai*0/0 end end;return ai*2^(aj-1023)*(al+ak/2^52)end;local function ar(ab,s,e)return aa(ab,s,e-1,1)end;local function as(ab,s,e)return aa(ab,e-1,s,-1)end;local function at(ab,s)return ad(string.byte(ab,s,s+3))end;local function au(ab,s)local ae,af,ag,ah=string.byte(ab,s,s+3)return ad(ah,ag,af,ae)end;local function av(ab,s)return am(string.byte(ab,s,s+7))end;local function aw(ab,s)local ae,af,ag,ah,an,ao,ap,aq=string.byte(ab,s,s+7)return am(aq,ap,ao,an,ah,ag,af,ae)end;local ax={[4]={little=at,big=au},[8]={little=av,big=aw}}local function ay(S)local az=S.index;local aA=string.byte(S.source,az,az)S.index=az+1;return aA end;local function aB(S,aC)local aD=S.index+aC;local aE=string.sub(S.source,S.index,aD-1)S.index=aD;return aE end;local function aF(S)local aC=S:s_szt()local aE;if aC~=0 then aE=string.sub(aB(S,aC),1,-2)end;return aE end;local function aG(aC,aH)return function(S)local aD=S.index+aC;local aI=aH(S.source,S.index,aD)S.index=aD;return aI end end;local function aJ(aC,aH)return function(S)local aK=aH(S.source,S.index)S.index=S.index+aC;return aK end end;local function aL(S)local aM=S:s_int()local aN={}for i=1,aM do local aO=S:s_ins()local aP=bit.band(aO,0x3F)local aQ=a8[aP]local aR=a9[aP]local aS=a7[aP]local aT=__PH_OPR[aS]local aU={value=aO,op=aS,A=__PH_RS(aT,'A',bit.band(bit.rshift(aO,6),0xFF))}if aQ=="__fmt_abc_19923_935" then local aV=bit.band(bit.rshift(aO,23),0x1FF)local aW=bit.band(bit.rshift(aO,14),0x1FF)local aX=aR.b=="__margK_35579_904" and aV>0xFF local aY=aR.c=="__margK_35579_904" and aW>0xFF aU.B=__PH_RS(aT,'B',aV,aX)aU.C=__PH_RS(aT,'C',aW,aY)aU.is_KB=aX;aU.is_KC=aY elseif aQ=="__fmt_abx_89216_905" then aU.Bx=bit.band(bit.rshift(aO,14),0x3FFFF)aU.is_K=aR.b=="__margK_35579_904" elseif aQ=="__fmt_asbx_43983_937" then aU.sBx=bit.band(bit.rshift(aO,14),0x3FFFF)-131071 end;aN[i]=aU end;return aN end ;local function aT(S)local aM=S:s_int()local aU={}for i=1,aM do local aV=ay(S)local k;if aV==1 then k=ay(S)~=0 elseif aV==3 then k=S:s_num()elseif aV==4 then k=aF(S)end;aU[i]=k end;return aU end;local function aW(S,ab)local aM=S:s_int()local aX={}for i=1,aM do aX[i]=a5(S,ab)end;return aX end;local function aY(S)local aM=S:s_int()local aZ={}for i=1,aM do aZ[i]=S:s_int()end;return aZ end;local function a_(S)local aM=S:s_int()local b0={}for i=1,aM do b0[i]={varname=aF(S),startpc=S:s_int(),endpc=S:s_int()}end;return b0 end;local function b1(S)local aM=S:s_int()local b2={}for i=1,aM do b2[i]=aF(S)end;return b2 end;function a5(S,b3)local b4={}local ab=aF(S)or b3;b4[1]=ab;S:s_int()S:s_int()b4[2]=ay(S)b4[3]=ay(S)ay(S)ay(S)b4[6]=aL(S)b4[7]=aT(S)b4[8]=aW(S,ab)b4[9]=aY(S)a_(S)b1(S)local b5=#b4[7]for _,v in ipairs(b4[6])do if v.is_K then v.const=__PH_CE(v.Bx+1,b5)else if v.is_KB then v.const_B=__PH_CE(v.B-0xFF,b5)end;if v.is_KC then v.const_C=__PH_CE(v.C-0xFF,b5)end end end;return b4 end ;function a3(ab)local b5;local b6;local b7;local b8;local b9;local ba;local bb;local bc={index=1,source=ab}assert(aB(bc,4)=='\27Lua','invalid Lua signature')assert(ay(bc)==0x51,'invalid Lua version')assert(ay(bc)==0,'invalid Lua format')b6=ay(bc)~=0;b7=ay(bc)b8=ay(bc)b9=ay(bc)ba=ay(bc)bb=ay(bc)~=0;b5=b6 and ar or as;bc.s_int=aG(b7,b5)bc.s_szt=aG(b8,b5)bc.s_ins=aG(b9,b5)if bb then bc.s_num=aG(ba,b5)elseif ax[ba]then bc.s_num=aJ(ba,ax[ba][b6 and'little'or'big'])else error('unsupported float size')end;return a5(bc,'@virtual')end;local function bd(be,bf)for i,bg in pairs(be)do if bg.index>=bf then bg.value=bg.store[bg.index]bg.store=bg;bg.index='value'be[i]=nil end end end;local function bh(be,bf,bi)local bj=be[bf]if not bj then bj={index=bf,store=bi}be[bf]=bj end;return bj end;local function bk(...)return select('#',...),{...}end;local function bl(bm,bn)local ab=bm.source;local bo=bm.lines[bm.pc-1]local b3,bp,bq=string.match(bn,'^(.-):(%d+):%s+(.+)')local br='%s:%i: [%s:%i] %s'bo=bo or'0'b3=b3 or'?'bp=bp or'0'bq=bq or bn;error(string.format(br,ab,bo,b3,bp,bq),0)end;local function bs(bm)local __PHK=function(v)return __PH_CD(bm.consts,bm.kcount,v)end;local aN=bm.code;local bt=bm.subs;local bu=bm.env;local bv=bm.upvals;local bw=bm.varargs;local bx=-1;local by={}local bi=bm.stack;local bz=bm.pc; while true do local bA=aN[bz]local aP0=bA.op;local _slot=__PH_HS[aP0];local _arith=__PH_AR[_slot];bz=bz+1;if _arith then local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B)else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C)else bC=bi[bA.C]end;bi[bA.A]=_arith(bB,bC)else local aP=__PH_HM[_slot];if aP<18 then if aP<8 then if aP<3 then if aP<1 then for i=bA.A,bA.B do bi[i]=nil end elseif aP>1 then local bg=bv[bA.B]bi[bA.A]=bg.store[bg.index]else local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;bi[bA.A]=bB+bC end elseif aP>3 then if aP<6 then if aP>4 then local A=bA.A;local B=bA.B;local bf;if bA.is_KC then bf=__PHK(bA.const_C) else bf=bi[bA.C]end;bi[A+1]=bi[B]bi[A]=bi[B][bf]else bi[bA.A]=bu[__PHK(bA.const)]end elseif aP>6 then local bf;if bA.is_KC then bf=__PHK(bA.const_C) else bf=bi[bA.C]end;bi[bA.A]=bi[bA.B][bf]else local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;bi[bA.A]=bB-bC end else bi[bA.A]=bi[bA.B]end elseif aP>8 then if aP<13 then if aP<10 then bu[__PHK(bA.const)]=bi[bA.A]elseif aP>10 then if aP<12 then local A=bA.A;local B=bA.B;local C=bA.C;local bD;local bE,bF;if B==0 then bD=bx-A else bD=B-1 end;bE,bF=bk(bi[A](unpack(bi,A+1,A+bD)))if C==0 then bx=A+bE-1 else bE=C-1 end;for i=1,bE do bi[A+i-1]=bF[i]end else local bg=bv[bA.B]bg.store[bg.index]=bi[bA.A]end else local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;bi[bA.A]=bB*bC end elseif aP>13 then if aP<16 then if aP>14 then local A=bA.A;local B=bA.B;local bD;if B==0 then bD=bx-A else bD=B-1 end;bd(by,0)return bk(bi[A](unpack(bi,A+1,A+bD)))else local bf,bG;if bA.is_KB then bf=__PHK(bA.const_B) else bf=bi[bA.B]end;if bA.is_KC then bG=__PHK(bA.const_C) else bG=bi[bA.C]end;bi[bA.A][bf]=bG end elseif aP>16 then bi[bA.A]={}else local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;bi[bA.A]=bB/bC end else bi[bA.A]=__PHK(bA.const) end else local A=bA.A;local bH=bi[A+2]local bf=bi[A]+bH;local bI=bi[A+1]local bJ;if bH==math.abs(bH)then bJ=bf<=bI else bJ=bf>=bI end;if bJ then bi[bA.A]=bf;bi[bA.A+3]=bf;bz=bz+bA.sBx end end elseif aP>18 then if aP<28 then if aP<23 then if aP<20 then bi[bA.A]=#bi[bA.B]elseif aP>20 then if aP<22 then local A=bA.A;local B=bA.B;local bK={}local aM;if B==0 then aM=bx-A+1 else aM=B-1 end;for i=1,aM do bK[i]=bi[A+i-1]end;bd(by,0)return aM,bK else local aE=tostring(bi[bA.B] or '')for i=bA.B+1,bA.C do aE=aE..tostring(bi[i] or '')end;bi[bA.A]=aE end else local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;bi[bA.A]=bB%bC end elseif aP>23 then if aP<26 then if aP>24 then bd(by,bA.A)else local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;if bB==bC==(bA.A~=0)then bz=bz+aN[bz].sBx end;bz=bz+1 end elseif aP>26 then local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;if bB28 then if aP<33 then if aP<30 then local bB,bC;if bA.is_KB then bB=__PHK(bA.const_B) else bB=bi[bA.B]end;if bA.is_KC then bC=__PHK(bA.const_C) else bC=bi[bA.C]end;if bB<=bC==(bA.A~=0)then bz=bz+aN[bz].sBx end;bz=bz+1 elseif aP>30 then if aP<32 then local aX=bt[bA.Bx+1]local bL=aX[2];local bM;if bL~=0 then bM={}for i=1,bL do local bN=aN[bz+i-1]if bN.op==a7[0]then bM[i-1]=bh(by,bN.B,bi)elseif bN.op==a7[4]then bM[i-1]=bv[bN.B]end end;bz=bz+bL end;bi[bA.A]=a4(aX,bu,bM)else local A=bA.A;local B=bA.B;if not bi[B]==(bA.C~=0)then bz=bz+1 else bi[A]=bi[B]end end else bi[bA.A]=-bi[bA.B]end elseif aP>33 then if aP<36 then if aP>34 then local A=bA.A;local aM=bA.B;if aM==0 then aM=bw.size;bx=A+aM-1 end;for i=1,aM do bi[A+i-1]=bw.list[i]end else local A=bA.A;local bO,bI,bH;bO=assert(tonumber(bi[A]),'`for` initial value must be a number')bI=assert(tonumber(bi[A+1]),'`for` limit must be a number')bH=assert(tonumber(bi[A+2]),'`for` step must be a number')bi[A]=bO-bH;bi[A+1]=bI;bi[A+2]=bH;bz=bz+bA.sBx end elseif aP>36 then local A=bA.A;local C=bA.C;local aM=bA.B;local bP=bi[A]local bQ;if aM==0 then aM=bx-A end;if C==0 then C=bA[bz].value;bz=bz+1 end;bQ=(C-1)*a6;for i=1,aM do bP[i+bQ]=bi[A+i]end else bi[bA.A]=not bi[bA.B]end else if not bi[bA.A]==(bA.C~=0)then bz=bz+1 end end else local A=bA.A;local aH=bi[A]local bR=bi[A+1]local bf=bi[A+2]local bS=A+3;local bK;bi[bS+2]=bf;bi[bS+1]=bR;bi[bS]=aH;bK={aH(bR,bf)}for i=1,bA.C do bi[bS+i-1]=bK[i]end;if bi[bS]~=nil then bi[A+2]=bi[bS]else bz=bz+1 end end else bz=bz+bA.sBx end;bm.pc=bz end end end;function a4(bR,bu,b2)local bT=bR[6];local bU=bR[8];local bV=bR[9];local bW=bR[1];local bX=bR[3];local b0=bR[7];local function bY(...)local bi={}local bZ={}local b_=0;local c0,c1=bk(...)local bm;local c2,bn,bK;for i=1,bX do bi[46+i-1]=c1[i]end;if bX0 or b>0 do local ra,rb=a%2,b%2 if (ra+rb)%2==1 then r=r+bit end a=(a-ra)/2 b=(b-rb)/2 bit=bit*2 end return r end bit32.bxor=bxor end;local function __ph_unmask_hex(h) return (h:gsub('..', function(cc) return string.char(bit32.bxor(tonumber(cc,16), 0xAA)) end)) end; local g = __ph_unmask_hex(__K1_PART1..__K1_PART2..__K1_PART3);local g='!!!!!!!!!!!!!!!INf;j';local G='Fb&1Q12h4<13$b/.(aIZ!gJSxKt@