script.lua

([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _nBixPEXburUq = a; end)); return(function(u,...)local d;local h;local o;local c;local t;local r;local e=24915;local n=0;local l={};while n<648 do n=n+1;while n<0x26f and e%0xcb8<0x65c do n=n+1 e=(e-30)%45829 local a=n+e if(e%0xff2)>0x7f9 then e=(e*0x36e)%0x3d61 while n<0x39b and e%0x485a<0x242d do n=n+1 e=(e*122)%25915 local t=n+e if(e%0x3096)<=0x184b then e=(e-0x174)%0x38e2 local e=89558 if not l[e]then l[e]=0x1 c={};end elseif e%2~=0 then e=(e+0x29d)%0xab30 local e=6193 if not l[e]then l[e]=0x1 o=string;end else e=(e*0x1b)%0x7f1e n=n+1 local e=17079 if not l[e]then l[e]=0x1 d=getfenv and getfenv();end end end elseif e%2~=0 then e=(e*0x258)%0x60ef while n<0x77 and e%0x14ce<0xa67 do n=n+1 e=(e*122)%21106 local t=n+e if(e%0xa80)>=0x540 then e=(e-0x219)%0x7425 local e=22720 if not l[e]then l[e]=0x1 d=(not d)and _ENV or d;end elseif e%2~=0 then e=(e-0x2c3)%0x9b79 local e=57636 if not l[e]then l[e]=0x1 end else e=(e-0x306)%0x7775 n=n+1 local e=51211 if not l[e]then l[e]=0x1 end end end else e=(e+0x153)%0x43be n=n+1 while n<0x236 and e%0x303c<0x181e do n=n+1 e=(e+344)%46216 local a=n+e if(e%0x2b9e)<0x15cf then e=(e+0xfc)%0xa97a local e=78307 if not l[e]then l[e]=0x1 h=tonumber;end elseif e%2~=0 then e=(e-0x181)%0x1637 local e=14421 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\105\107\107\99\111\83\76\69\0\6\115\116\114\105\110\103\4\99\104\97\114\86\71\79\82\76\106\82\86\0\6\115\116\114\105\110\103\3\115\117\98\77\103\80\76\74\87\72\111\0\6\115\116\114\105\110\103\4\98\121\116\101\111\72\90\103\109\110\121\69\0\5\116\97\98\108\101\6\99\111\110\99\97\116\77\113\117\80\109\121\116\85\0\5\116\97\98\108\101\6\105\110\115\101\114\116\71\109\115\99\74\115\110\85\5";end else e=(e+0xfc)%0x8363 n=n+1 local e=44483 if not l[e]then l[e]=0x1 t=function(t)local e=0x01 local function l(n)e=e+n return t:sub(e-n,e-0x01)end while true do local n=l(0x01)if(n=="\5")then break end local e=o.byte(l(0x01))local e=l(e)if n=="\2"then e=c.ikkcoSLE(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then d[e]=function(e,n)return u(8,nil,u,n,e)end elseif n=="\4"then e=d[e]elseif n=="\0"then e=d[e][l(o.byte(l(0x01)))];end local n=l(0x08)c[n]=e end end end end end end end e=(e-918)%44989 end t(r);local e={};for n=0x0,0xff do local l=c.VGORLjRV(n);e[n]=l;e[l]=n;end local function f(n)return e[n];end local r=(function(r,t)local a,l=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01 local o=r while true do n[0x03][c.MgPLJWHo(t,e,(function()e=a+e return e-0x01 end)())]=(function()d=d+0x01 return d end)()if d==(0x0f)then d=""l=0x000 break end end local d=#t while e<d+0x01 do n[0x02][l]=c.MgPLJWHo(t,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 c.GmscJsnU(n[0x01],(f((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=r+o;end end return c.MquPmytU(n[0x01])end);t(r(157,",Iwe<jvg+LV{Qd3Sv+"));t(r(132,"BOZdgTo-}m ,V<E7-V7EE-og<ETO<Zg-o)dVVmd<,VOg mZ,-7OC}TZT}A VZmO3-77m}w7Vo,EET}7OTE<Od EoE<o<Tg<ZgTVog},OOOm-dg}-Og  OVdK,Zm,O}mZ?T}o7,OT7mom7}odEggTETgO,4Z<<dgO,,<}T}d< <dV VVT }OVmmZ}mV7g}TCO} <,- <7}d}VOL7doOEVoO<To?VmT}VOdEVgdmmZOZ <Z-}Z7E} 7mdg,d-ELm}dO9}-Uogd<-- <oTOV-T7,oT--!EV<,gOVTgVVTgg}E^, EZZ,idMdo,OoTOd}oE7}o7OovE TO}VFV7go,E,o}EZTT<og,VgO<,{gO,}OoVY37gvVO VOTmZO}}<  mTa }}7T-d7--d7VoEE_gm,-gT,}EVo TTV g},Tdd,-OO mdO}mZTmm7,mE VZmOU}EbO}ZYgTOEZgV7TTO7Zom<g71oET-VTg},<d-VgZEmdd-}}d/}mZ-mV VZVOO}OOe}9mm-o7}--7d-Z<7TOV}TmEog- }dooO"));local e=(-4531+(function()local t,l=0,1;(function(l,e,n,d)d(e(n,e and d,d and d,e)and e(n and e,n and l,n and n,l and n),e(l,e,l,e),l(e,e,d,e and l),l(n,n,d,n))end)(function(o,e,d,n)if t>351 then return n end t=t+1 l=(l-402)%16319 if(l%1196)<598 then return e else return d(d(n,o,e,o),e(e,d and n,e,e),d(n,n,o and e,e),o(n,e,d,n))end return e(e(d,d and n,o,e),d(d,o,n,e)and d(d,o,n,n),e(e,o,n,n),n(o,e,o,d))end,function(d,n,e,o)if t>387 then return e end t=t+1 l=(l+662)%7924 if(l%244)<122 then return e(d(e,n,o and n,o),o(o,e,n,e and n),d(d,n,e,n and o),d(d and o,n and d,d,e))else return e end return o end,function(o,e,n,d)if t>377 then return o end t=t+1 l=(l*299)%42072 if(l%1216)>=608 then return n(n(e,o and n,n,n),e(d and e,e,n,e),e(n,o,d,o),o(d and e,d,e,e)and d(e,e,n,d and e))else return d end return o end,function(d,o,n,e)if t>215 then return e end t=t+1 l=(l*447)%11276 if(l%1932)<966 then return e(e(o,e,n and d,o),e(n,d,n and n,d and d),e(n and e,e,o,d and n),n(e,e,n,n)and o(d,e,n,o))else return d end return o end)return l;end)())local ne=(getfenv)or(function()return _ENV end);local s=c.IeqMmeKr or c.kxndQCUL;local ee=1;local f=4;local d=2;local t=3;local function j(m,...)local r=r(e,"gScl{ Uu;m=OM9TssSMMOcm;usuS{=lYSU{}{ulTSl_JTm9W=OmT TU9lsc =OOuuU M{cuMuU 9{9TPWMs 9TO9 TmOUOUlsUcMS{suTcOmm9m{UO Nsccs2us;9cuJ;l;OuS UcSSms9=.OMusllSssTT{M=^usO9TM=Oum9ussOsmMU=MmcM M9Olm;Ul OlscSsOwcTUMl=T;9usl={Scc(;Ts9TmuO(mUu=Ts{9O==K;U9{MU=M;Tuuc{ssT ,#TO9OOS=l;MU{S{cscSL =9M O=mm{ ul{uc=SU4lTmMOOm O{lcOScs{9sM{=Tm uO ={ c Scs;9MM3=U;mul lUs{;39hST=sTmsMu;U muS{UlMT;T;9uOsmm;s sum zxcc9MOO m=mu=U;s ccs{cTuMUO MsmS;uUO TlucMTcsM99MOu=UcUl OcV<uss9TOMOmu6mO {UC^OccauMT=u;M={clScTT9{O=#Ms M9OU=OmcuU llTS9m9;sU;{Tl{umUTc;l c=T;MlOM=M= ;; S lMms;m{u=U(=T=&;UU; SsT9mOsT;O9Om Uu  9{Tc;SOTTTuMO=lmUU9 s{{l5,usUTc;cm9;sulSOSmcu0=T;MTO m={O ; uluS;MM=s9;OSm;;Oc9{McsSSs=TsmSO ;su9U;5sy;S;8SsxM{OUmsumU={sMl=s;Tu{ =;;m=;CUcSsclS;;Ou{ UlMccUs{s{SSs=S;TUM cl;uluu{s{cc{s9TsM9USl{S=CdTU9lOcm;uTU {=lhSU*TT=M;=Tm{uTUk{UcMc{SS9TM{==muuU M{c{Tc?s{9=M)=M;Mul ;{Wc{XTsm9UOM=c;TUT  l=c{2sTM9cO;= ;{UO /lUcuJcT;MTO m=;3UU TlsS;sTT{MOOWmUuMu{{9cTS{s=TOMU=Mmc;=Ul{{c=SAsO9MMc=;=v;  ={rcU!ssc9;OTOUmuuJ UlMc;z;TT9{MMO ;UU9 c{cST2{T=sk9lmM;lU;{sl{cly3s;T OcmOuTUM{=l>SUsMsSM;=sm{u9Ua{UcMSc^_9TM{==mKuU T{cc;Sms{9=M}=u;Mul ;lTcm_=sb9UO9=c;;UT {l=cNvUTM");local n=0;c._fTqbYFv(function()c.qtBCjbtx()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,a=u(0,u,e,r,c.oHZgmnyE);local function o()local n,l=c.oHZgmnyE(r,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local b=true;local b=0 local function _()local d=n();local e=n();local t=1;local d=(l(e,1,20)*(2^32))+d;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then if(d==b)then return e*0;else n=1;t=0;end;elseif(n==2047)then return(d==0)and(e*(1/0))or(e*(0/0));end;return c.LaanCfOw(e,n-1023)*(t+(d/(2^52)));end;local k=n;local function g(n)local l;if(not n)then n=k();if(n==0)then return'';end;end;l=c.MgPLJWHo(r,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+b),#l do e=e..c.MgPLJWHo(l,n,n)end return e;end;local b=#c.dAXmhJxK(h('\49.\48'))~=1 local e=n;local function p(...)return{...},c.bKsHtQsl('#',...)end local function y()local u={};local e={};local h={};local s={h,u,nil,e};local e=n()local r={}for d=1,e do local l=a();local e;if(l==0)then e=(a()~=#{});elseif(l==2)then local n=_();if b and c.MqQDEoa_(c.dAXmhJxK(n),'.(\48+)$')then n=c.cYTiz_DV(n);end e=n;elseif(l==1)then e=g();end;r[d]=e;end;for u=1,n()do local e=a();if(l(e,1,1)==0)then local c=l(e,2,3);local a=l(e,4,6);local e={o(),o(),nil,nil};if(c==0)then e[t]=o();e[f]=o();elseif(c==#{1})then e[t]=n();elseif(c==m[2])then e[t]=n()-(2^16)elseif(c==m[3])then e[t]=n()-(2^16)e[f]=o();end;if(l(a,1,1)==1)then e[d]=r[e[d]]end if(l(a,2,2)==1)then e[t]=r[e[t]]end if(l(a,3,3)==1)then e[f]=r[e[f]]end h[u]=e;end end;s[3]=a();for e=1,n()do u[e-(#{1})]=y();end;return s;end;local function j(l,n,e)local d=n;local d=e;return h(c.MqQDEoa_(c.MqQDEoa_(({c._fTqbYFv(l)})[2],n),e))end local function z(g,e,a)local function j(...)local r,j,o,y,b,l,h,_,m,k,z,n;local e=0;while-1<e do if e<3 then if e>0 then if-3<e then repeat if 1<e then l=-41;h=-1;break;end;o=u(6,93,3,67,g);b=p y=0;until true;else o=u(6,93,3,67,g);b=p y=0;end else r=u(6,4,1,40,g);j=u(6,66,2,16,g);end else if e>4 then if 1<=e then for l=33,77 do if e<6 then n=u(7);break;end;e=-2;break;end;else e=-2;end else if e~=-1 then for n=46,97 do if e>3 then k=c.bKsHtQsl('#',...)-1;z={};break;end;_={};m={...};break;end;else _={};m={...};end end end e=e+1;end;for e=0,k do if(e>=o)then _[e-o]=m[e+1];else n[e]=m[e+1];end;end;local e=k-o+1 local e;local o;local function c(...)while true do end end while true do if l<-40 then l=l+42 end e=r[l];o=e[ee];if 12<=o then if o>=18 then if o<21 then if 18>=o then local e=e[d]n[e]=n[e](s(n,e+1,h))else if o>17 then repeat if 20~=o then n[e[d]]=(e[t]~=0);break;end;l=e[t];until true;else n[e[d]]=(e[t]~=0);end end else if 22<o then if o==23 then n(e[d],e[t]);else local l=e[d]local d,e=b(n[l](s(n,l+1,e[t])))h=e+l-1 local e=0;for l=l,h do e=e+1;n[l]=d[e];end;end else if 19<=o then for l=22,89 do if o~=22 then local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[f]];break;end;do return end;break;end;else local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[f]];end end end else if o>=15 then if o<=15 then local l=e[d]local d,e=b(n[l](s(n,l+1,e[t])))h=e+l-1 local e=0;for l=l,h do e=e+1;n[l]=d[e];end;else if o~=12 then for l=23,81 do if 16~=o then n[e[d]]();break;end;n[e[d]]=a[e[t]];break;end;else n[e[d]]();end end else if 12<o then if 11~=o then for c=22,54 do if o<14 then n(e[d],e[t]);break;end;if(n[e[d]]==e[f])then l=l+1;else l=e[t];end;break;end;else n(e[d],e[t]);end else a[e[t]]=n[e[d]];end end end else if 6>o then if 2>=o then if 0>=o then if(n[e[d]]==e[f])then l=l+1;else l=e[t];end;else if-1~=o then repeat if o~=1 then n[e[d]]();break;end;local e=e[d]n[e]=n[e](s(n,e+1,h))until true;else n[e[d]]();end end else if o>=4 then if o>4 then local u,c;for o=0,6 do if 2>=o then if 1<=o then if-3<=o then for c=15,55 do if o~=2 then n(e[d],e[t]);l=l+1;e=r[l];break;end;a[e[t]]=n[e[d]];l=l+1;e=r[l];break;end;else a[e[t]]=n[e[d]];l=l+1;e=r[l];end else a[e[t]]=n[e[d]];l=l+1;e=r[l];end else if o<5 then if 3==o then n[e[d]]=a[e[t]];l=l+1;e=r[l];else n[e[d]]=a[e[t]];l=l+1;e=r[l];end else if o>3 then for a=23,79 do if o>5 then n(e[d],e[t]);break;end;u=e[d];c=n[e[t]];n[u+1]=c;n[u]=c[e[f]];l=l+1;e=r[l];break;end;else n(e[d],e[t]);end end end end else a[e[t]]=n[e[d]];end else n[e[d]]=(e[t]~=0);end end else if o<=8 then if 6<o then if 7<o then local t;t=e[d]n[t]=n[t](s(n,t+1,h))l=l+1;e=r[l];n[e[d]]();l=l+1;e=r[l];do return end;else for o=0,3 do if 1<o then if-2<o then repeat if 3~=o then n[e[d]]=a[e[t]];l=l+1;e=r[l];break;end;if(n[e[d]]==e[f])then l=l+1;else l=e[t];end;until true;else n[e[d]]=a[e[t]];l=l+1;e=r[l];end else if o>=-2 then repeat if o~=0 then a[e[t]]=n[e[d]];l=l+1;e=r[l];break;end;n[e[d]]=(e[t]~=0);l=l+1;e=r[l];until true;else a[e[t]]=n[e[d]];l=l+1;e=r[l];end end end end else n[e[d]]=a[e[t]];end else if 9<o then if 9<o then repeat if o<11 then local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[f]];break;end;do return end;until true;else local l=e[d];local d=n[e[t]];n[l+1]=d;n[l]=d[e[f]];end else l=e[t];end end end end l=1+l;end;end;return j end;local t=0xff;local f={};local r=(1);local d='';(function(n)local l=n local o=0x00 local e=0x00 l={(function(c)if o>0x1e then return c end o=o+1 e=(e+0xabe-c)%0x33 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x65);end return true end)'TSMWm'and l[0x2](0x2f7+c))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xbd);t[2]=(t[2]*(j(function()f()end,s(d))-j(t[1],s(d))))+1;f[r]={};t=t[2];r=r+t;end return true end)'TcYSg'and l[0x3](c+0x36b))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x88);end return true end)'klnLP'and l[0x1](c+0x3c3))or c end),(function(a)if o>0x1e then return a end o=o+1 e=(e+0x745-a)%0xd return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x5);end return true end)'XTXUv'and l[0x2](0xcc+a))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x7);d={d..'\58 a',d};f[r]=y();r=r+((not c.LekCXQuT)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'_oVie'and l[0x1](a+0x31c))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xc2);end return true end)'SQJSF'and l[0x3](a+0x1bd))or a end),(function(c)if o>0x30 then return c end o=o+1 e=(e+0x1333-c)%0x12 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf1);end return true end)'qVVwl'and l[0x3](0x2b2+c))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x6f);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'TeBtA'and l[0x2](c+0xd8))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x7d);f[r]=ne();r=r+t;end return true end)'FaDjw'and l[0x1](c+0x3b4))or c end)}l[0x3](0x1c8)end){};local e=z(s(f));return e(...);end return j((function()local n={}local e=0x01;local l;if c.LekCXQuT then l=c.LekCXQuT(j)else l=''end if c.MqQDEoa_(l,c.aEOpGXrh)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(n,e,l,d,t,o)local o;if n>3 then if 5<n then if 6>=n then do return t[l]end;else if 7~=n then do return l(n,nil,l);end else do return setmetatable({},{['__\99\97\108\108']=function(e,t,d,l,n)if n then return e[n]elseif l then return e else e[t]=d end end})end end end else if n>2 then for o=49,95 do if n~=4 then local n=d;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;break;end;local n=d;local r,o,c=t(2);do return function()local t,d,l,e=e(l,n(n,n),n(n,n)+3);n(4);return(e*r)+(l*o)+(d*c)+t;end;end;break;end;else local n=d;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;end end else if n<2 then if n~=1 then do return e(1),e(4,t,d,l,e),e(5,t,d,l)end;else do return function(n,e,l)if l then local e=(n/2^(e-1))%2^((l-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(n%(e+e)>=e)and 1 or 0;end;end;end;end else if n>=1 then for o=42,75 do if n~=2 then do return e(1),e(4,t,d,l,e),e(5,t,d,l)end;break;end;do return 16777216,65536,256 end;break;end;else do return 16777216,65536,256 end;end end end end),...)