yuppers

([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _amcARgfGkahq = a; end)); return(function(u,...)local t;local d;local r;local s;local f;local o;local e=24915;local n=0;local l={};while n<888 do n=n+1;while n<0x353 and e%0x3c68<0x1e34 do n=n+1 e=(e+536)%43302 local a=n+e if(e%0x2340)>=0x11a0 then e=(e-0x145)%0x748 while n<0x18d and e%0x4022<0x2011 do n=n+1 e=(e-513)%1448 local r=n+e if(e%0x31de)>=0x18ef then e=(e+0x295)%0x3abb local e=74253 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e-0x3b8)%0x3c1f local e=97022 if not l[e]then l[e]=0x1 d=string;end else e=(e*0x3ce)%0x737a n=n+1 local e=47456 if not l[e]then l[e]=0x1 o={};end end end elseif e%2~=0 then e=(e-0x2a1)%0xcf0 while n<0x2b3 and e%0x3e40<0x1f20 do n=n+1 e=(e-12)%24941 local t=n+e if(e%0x10a6)<=0x853 then e=(e*0x1f9)%0x7534 local e=45968 if not l[e]then l[e]=0x1 r=getfenv and getfenv();end elseif e%2~=0 then e=(e-0x143)%0xb1fc local e=3921 if not l[e]then l[e]=0x1 end else e=(e+0x6a)%0x616a n=n+1 local e=2914 if not l[e]then l[e]=0x1 r=(not r)and _ENV or r;end end end else e=(e-0x115)%0x4757 n=n+1 while n<0x1f5 and e%0x1194<0x8ca do n=n+1 e=(e+541)%48655 local a=n+e if(e%0x4b6a)<=0x25b5 then e=(e*0x5f)%0xa7e3 local e=91225 if not l[e]then l[e]=0x1 s=tonumber;end elseif e%2~=0 then e=(e+0x3b8)%0x6ac3 local e=36509 if not l[e]then l[e]=0x1 f="\4\8\116\111\110\117\109\98\101\114\104\88\70\112\82\118\72\112\0\6\115\116\114\105\110\103\4\99\104\97\114\80\117\77\115\87\111\110\90\0\6\115\116\114\105\110\103\3\115\117\98\103\89\108\83\83\114\104\101\0\6\115\116\114\105\110\103\4\98\121\116\101\105\95\109\90\111\98\121\109\0\5\116\97\98\108\101\6\99\111\110\99\97\116\86\90\110\116\67\118\114\67\0\5\116\97\98\108\101\6\105\110\115\101\114\116\65\106\105\99\83\109\71\117\5";end else e=(e-0x87)%0x6909 n=n+1 local e=72413 if not l[e]then l[e]=0x1 t=function(l)local e=0x01 local function n(n)e=e+n return l:sub(e-n,e-0x01)end while true do local l=n(0x01)if(l=="\5")then break end local e=d.byte(n(0x01))local e=n(e)if l=="\2"then e=o.hXFpRvHp(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then r[e]=function(n,e)return u(8,nil,u,e,n)end elseif l=="\4"then e=r[e]elseif l=="\0"then e=r[e][n(d.byte(n(0x01)))];end local n=n(0x08)o[n]=e end end end end end end end e=(e*155)%14893 end t(f);local n={};for e=0x0,0xff do local l=o.PuMsWonZ(e);n[e]=l;n[l]=e;end local function c(e)return n[e];end local d=(function(f,d)local a,l=0x01,0x10 local n={{},{},{}}local r=-0x01 local e=0x01 local t=f while true do n[0x03][o.gYlSSrhe(d,e,(function()e=a+e return e-0x01 end)())]=(function()r=r+0x01 return r end)()if r==(0x0f)then r=""l=0x000 break end end local r=#d while e<r+0x01 do n[0x02][l]=o.gYlSSrhe(d,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 o.AjicSmGu(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+t)%0x100)));t=f+t;end end return o.VZntCvrC(n[0x01])end);t(d(97,"w_Odl/5tHP-0Jo;X-l"));t(d(91,"YS!25DFnKzr#>O_QrDDmF! Kr#5nQSKQOSOFK>!zOSn>Q!zO57_>KSDFQr2!OK_KK;!2O2nKQDzOn5Qrr_!OOFK2OrK2z22rOFKm!##!nzSK#!5FUKr#!sK5!Q5S_nKr!FOuF_#S#_Dn3Qr25OO!zF5#>rF5xzrOnz#!D#Fz9!#rD2zDrS2__5z>2z>DDOSMrznKc>zF5uzr5nD2_rz_2>OzKOSQOnFzpQ#_D>SFrz22Q2K55<>QFK>Kn?F5SK##nSSS#zSQO>K32H>nnOl>>zD_#OF!nr*z#FFFQSr5!D_Dz-S#>^z)>SFD5!S_>rFz_Q#rD#_!z#OrK2z525OOK2!F>!F>-rzrFHO5Kr5FODK_2>nbSr!_>GFFSD#2QztOr#D!_KKQ2>#rF_!F>_n:!K>5FQr!5zDOQ#r!2KOQK>2O_In5!2rQFOSSK_Q!zKrK5Q_#zD5u>AFr!#OrDKkO>z5zzO55DF_Ozz2nOrzo!2O!nzSO>z2#QzzS_zz!r 2zQSKr>>O!nO!D>rn!QQzSDFCn#S2!_nKSO!"));local e=(-19209+(function()local l,e=0,1;(function(e,n)n(e(e,e),e(e,e))end)(function(r,n)if l>117 then return r end l=l+1 e=(e*288)%15167 if(e%732)>366 then return n(n(n,r and r),n(n,n))else return r end return n end,function(r,n)if l>431 then return r end l=l+1 e=(e*262)%35487 if(e%836)>418 then e=(e-1006)%20815 return n(r(n and n,n),r(n,n))else return n end return n end)return e;end)())local c=o.wudnUnmE or o.DSfifypv;local ne=(getfenv)or(function()return _ENV end);local ee=1;local r=2;local a=4;local t=3;local function p(z,...)local h=d(e,"{rZPe5wn+*)z_</-_*+eewI+_<*we/rR<Z(G_5n*P/7-<Z*ZezrZ_<Zzrr)_w/Psewr_<-)zr)ZZ/n)_wn/e-<)*n</_-/_Z+re+-zzz+/erKZ+V**e<r)<Ee)P*r<<-)Benrz<z5)5Z-r+PwP1e_w++zZ+ eZyi_5e/A5_n_)n<5rre_n+we-rw*++-5<r<)r)w5nZ-)*zZe*-5_<zewb&/-<e-rZ<N*Z5en<P*En_rZr/n)ZweZwPpr//3*/Pnrn/+P*rrz)n_P/e<Pr-Pze5zZ-/-)<wPewcwz-+wer=-)w+*ewb+_z*wZzZ /Z)Z-5_rnwP+-)rz<-)<w595<+)-nLrP-*zrn)e5*w5+r)<_)_w ZZ/e)wn-Z)/_)/nrPZ-ezw+)ez-_z/+be+ce_w++5_r<_/*E5Zrz<w*+5)eZ-r).wZZe/_)+wzZ_-Bzynwe)-wz+n)eZ-/_r+Zeerz_++)e_j-<I*Z5eZ+/5*)5_r//r)ZweZw-)zZw_Z--VzwnePw-+<)++P/>r_Z+5ewR<_)*/wnr6<5*e5*r+<)*_5/P+/Z)5wwZz/))_w/PLyezenwP+-)z_+ge#(Z<n+we+b)_<+/5rrZ<e))5+r)<_*-w2ZZ/e)w");local n=0;o.DGyZiCGO(function()o.ZhD_eKKv()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,f=u(0,u,e,h,o.i_mZobym);local function d()local l,n=o.i_mZobym(h,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local _=true;local _=0 local function g()local e=n();local n=n();local t=1;local r=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(r==_)then return n*0;else e=1;t=0;end;elseif(e==2047)then return(r==0)and(n*(1/0))or(n*(0/0));end;return o.WJXLveJO(n,e-1023)*(t+(r/(2^52)));end;local k=n;local function b(n)local l;if(not n)then n=k();if(n==0)then return'';end;end;l=o.gYlSSrhe(h,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+_),#l do e=e..o.gYlSSrhe(l,n,n)end return e;end;local _=#o.RsBSjThq(s('\49.\48'))~=1 local e=n;local function j(...)return{...},o.blnmtAZM('#',...)end local function p()local h={};local e={};local s={};local u={h,s,nil,e};local e=n()local c={}for r=1,e do local l=f();local n;if(l==0)then n=(f()~=#{});elseif(l==2)then local e=g();if _ and o.HgwQFFEl(o.RsBSjThq(e),'.(\48+)$')then e=o.ZGgsxTdY(e);end n=e;elseif(l==3)then n=b();end;c[r]=n;end;for e=1,n()do s[e-(#{1})]=p();end;for u=1,n()do local e=f();if(l(e,1,1)==0)then local o=l(e,2,3);local f=l(e,4,6);local e={d(),d(),nil,nil};if(o==0)then e[t]=d();e[a]=d();elseif(o==#{1})then e[t]=n();elseif(o==z[2])then e[t]=n()-(2^16)elseif(o==z[3])then e[t]=n()-(2^16)e[a]=d();end;if(l(f,1,1)==1)then e[r]=c[e[r]]end if(l(f,2,2)==1)then e[t]=c[e[t]]end if(l(f,3,3)==1)then e[a]=c[e[a]]end h[u]=e;end end;u[3]=f();return u;end;local function m(l,e,n)local r=e;local r=n;return s(o.HgwQFFEl(o.HgwQFFEl(({o.DGyZiCGO(l)})[2],e),n))end local function y(b,e,h)local function p(...)local d,p,_,m,s,n,f,g,z,k,y,l;local e=0;while-1<e do if e>=3 then if e<5 then if e~=-1 then for n=36,94 do if e<4 then g={};z={...};break;end;k=o.blnmtAZM('#',...)-1;y={};break;end;else g={};z={...};end else if e~=1 then for n=19,91 do if 6~=e then l=u(7);break;end;e=-2;break;end;else e=-2;end end else if 0<e then if-3<=e then repeat if 1~=e then n=-41;f=-1;break;end;_=u(6,39,3,78,b);s=j m=0;until true;else n=-41;f=-1;end else d=u(6,53,1,2,b);p=u(6,26,2,54,b);end end e=e+1;end;for e=0,k do if(e>=_)then g[e-_]=z[e+1];else l[e]=z[e+1];end;end;local e=k-_+1 local e;local o;local function u(...)while true do end end while true do if n<-40 then n=n+42 end e=d[n];o=e[ee];if o<12 then if o>5 then if o>8 then if o<10 then local n=e[r]local r,e=s(l[n](c(l,n+1,e[t])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=r[e];end;else if 11~=o then l[e[r]]=(e[t]~=0);else l[e[r]]();end end else if 7>o then l[e[r]]();else if 4~=o then repeat if o~=7 then local o,z,b,_,u;l[e[r]]=h[e[t]];n=n+1;e=d[n];o=e[r];z=l[e[t]];l[o+1]=z;l[o]=z[e[a]];n=n+1;e=d[n];l(e[r],e[t]);n=n+1;e=d[n];o=e[r]b,_=s(l[o](c(l,o+1,e[t])))f=_+o-1 u=0;for e=o,f do u=u+1;l[e]=b[u];end;n=n+1;e=d[n];o=e[r]l[o]=l[o](c(l,o+1,f))n=n+1;e=d[n];l[e[r]]();n=n+1;e=d[n];do return end;break;end;local n=e[r];local r=l[e[t]];l[n+1]=r;l[n]=r[e[a]];until true;else local o,z,_,b,u;l[e[r]]=h[e[t]];n=n+1;e=d[n];o=e[r];z=l[e[t]];l[o+1]=z;l[o]=z[e[a]];n=n+1;e=d[n];l(e[r],e[t]);n=n+1;e=d[n];o=e[r]_,b=s(l[o](c(l,o+1,e[t])))f=b+o-1 u=0;for e=o,f do u=u+1;l[e]=_[u];end;n=n+1;e=d[n];o=e[r]l[o]=l[o](c(l,o+1,f))n=n+1;e=d[n];l[e[r]]();n=n+1;e=d[n];do return end;end end end else if 3<=o then if o>=4 then if 3~=o then for d=39,91 do if 4~=o then local r=e[r];local n=l[e[t]];l[r+1]=n;l[r]=n[e[a]];break;end;if(l[e[r]]~=e[a])then n=n+1;else n=e[t];end;break;end;else local n=e[r];local r=l[e[t]];l[n+1]=r;l[n]=r[e[a]];end else do return end;end else if 0<o then if o~=-2 then repeat if 1<o then local n=e[r]local r,e=s(l[n](c(l,n+1,e[t])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=r[e];end;break;end;local e=e[r]l[e]=l[e](c(l,e+1,f))until true;else local n=e[r]local r,e=s(l[n](c(l,n+1,e[t])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=r[e];end;end else if(l[e[r]]~=e[a])then n=n+1;else n=e[t];end;end end end else if 17>=o then if 14>=o then if 13>o then local o,a,f,c,d;local n=0;while n>-1 do if n>=3 then if n>4 then if n~=1 then repeat if n~=5 then n=-2;break;end;l(d,c);until true;else n=-2;end else if-1~=n then for e=16,74 do if n>3 then d=o[a];break;end;c=o[f];break;end;else d=o[a];end end else if n>0 then if n~=-2 then repeat if 1~=n then f=t;break;end;a=r;until true;else f=t;end else o=e;end end n=n+1 end else if o~=13 then local e=e[r]l[e]=l[e](c(l,e+1,f))else l[e[r]]=h[e[t]];end end else if 15>=o then h[e[t]]=l[e[r]];else if o<17 then l[e[r]]=(e[t]~=0);else h[e[t]]=l[e[r]];end end end else if 20<o then if 22<=o then if 21<=o then for f=17,74 do if 23~=o then n=e[t];break;end;for o=0,3 do if o<=1 then if o>-3 then repeat if 1>o then l[e[r]]=(e[t]~=0);n=n+1;e=d[n];break;end;h[e[t]]=l[e[r]];n=n+1;e=d[n];until true;else l[e[r]]=(e[t]~=0);n=n+1;e=d[n];end else if o>=-1 then repeat if o<3 then l[e[r]]=h[e[t]];n=n+1;e=d[n];break;end;if(l[e[r]]~=e[a])then n=n+1;else n=e[t];end;until true;else if(l[e[r]]~=e[a])then n=n+1;else n=e[t];end;end end end break;end;else n=e[t];end else do return end;end else if o<19 then l[e[r]]=h[e[t]];else if 20>o then l(e[r],e[t]);else n=e[t];end end end end end n=1+n;end;end;return p end;local r=0xff;local u={};local d=(1);local t='';(function(n)local l=n local f=0x00 local e=0x00 l={(function(a)if f>0x22 then return a end f=f+1 e=(e+0xa0b-a)%0x28 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x9c);end return true end)'KMolz'and l[0x2](0x7e+a))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4c);t={t..'\58 a',t};u[d]=p();d=d+((not o.vGMKRBrq)and 1 or 0);t[1]='\58'..t[1];r[2]=0xff;end return true end)'oInzx'and l[0x3](a+0x80))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x9b);end return true end)'GvXGu'and l[0x1](a+0xcd))or a end),(function(t)if f>0x24 then return t end f=f+1 e=(e+0xbd5-t)%0x2e return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb4);end return true end)'twboC'and l[0x1](0x18a+t))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x2f);u[d]=ne();d=d+r;end return true end)'AMbYg'and l[0x3](t+0x320))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x22);end return true end)'PCVGr'and l[0x2](t+0x20a))or t end),(function(o)if f>0x2f then return o end f=f+1 e=(e+0xb3b-o)%0x1c return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf2);r[2]=(r[2]*(m(function()u()end,c(t))-m(r[1],c(t))))+1;u[d]={};r=r[2];d=d+r;end return true end)'hgEYM'and l[0x2](0x367+o))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xc9);t='\37';r={function()r()end};t=t..'\100\43';end return true end)'TMcgg'and l[0x1](o+0x15b))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x61);end return true end)'_Y_EO'and l[0x3](o+0x366))or o end)}l[0x3](0x24b9)end){};local e=y(c(u));return e(...);end return p((function()local n={}local e=0x01;local l;if o.vGMKRBrq then l=o.vGMKRBrq(p)else l=''end if o.HgwQFFEl(l,o.VxrgVsqA)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(l,e,n,t,r,o)local o;if 4<=l then if l<=5 then if 4==l then local l=t;local f,r,t=r(2);do return function()local e,d,n,o=e(n,l(l,l),l(l,l)+3);l(4);return(o*f)+(n*r)+(d*t)+e;end;end;else local l=t;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;end else if l>=7 then if l==7 then do return setmetatable({},{['__\99\97\108\108']=function(e,l,r,t,n)if n then return e[n]elseif t then return e else e[l]=r end end})end else do return n(l,nil,n);end end else do return r[n]end;end end else if l<2 then if l>-4 then repeat if 1~=l then do return e(1),e(4,r,t,n,e),e(5,r,t,n)end;break;end;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;until true;else do return e(1),e(4,r,t,n,e),e(5,r,t,n)end;end else if-1<l then for o=43,60 do if 2<l then do return e(1),e(4,r,t,n,e),e(5,r,t,n)end;break;end;do return 16777216,65536,256 end;break;end;else do return 16777216,65536,256 end;end end end end),...)