Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- Made By Tea#1727
- local i=string.byte;local r=string.char;local c=string.sub;local b=table.concat;local l=table.insert;local s=math.ldexp;local S=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local t=unpack or table.unpack;local f=tonumber;local function u(d)local e,n,o="","",{}local t=256;local a={}for l=0,t-1 do a[l]=r(l)end;local l=1;local function i()local e=f(c(d,l,l),36)l=l+1;local n=f(c(d,l,l+e-1),36)l=l+e;return n end;e=r(i())o[1]=e;while l<#d do local l=i()if a[l]then n=a[l]else n=e..c(e,1,1)end;a[t]=e..c(n,1,1)o[#o+1],e,t=n,n,t+1 end;return table.concat(o)end;local f=u('24824327524127527824322R24S24024727827226Q26F26Z27D27826Z26E26S26U27727927525V27K27526226927027127U24326S26Q27226U24024927825W26U26F25C26U26926D26Y26O28523M27825D26U26B27328G27H26U26V25C26F27026926Q27O24024427828C27327326426928528727525X26Y29628C28E28D24024527826E27126B26Q26O26W27R23N27924227R27723L27529S27Q24324Z29W24329S24024329Q27829S29S24J27927E24624329V2A224329H2752A02AG29S2902AF2A424B27R2AG2A42772AK2A824324A29Z29V2AW28723L23K2432A427427R27E2AR2B52432B929R2A72AR29S275');local o=bit and bit.bxor or function(l,e)local n,o=1,0 while l>0 and e>0 do local a,c=l%2,e%2 if a~=c then o=o+n end l,e,n=(l-a)/2,(e-c)/2,n*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then o=o+n end l,n=(l-e)/2,n*2 end return o end local function n(n,l,e)if e then local l=(n/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(n%(l+l)>=l)and 1 or 0;end;end;local l=1;local function e()local c,a,n,e=i(f,l,l+3);c=o(c,147)a=o(a,147)n=o(n,147)e=o(e,147)l=l+4;return(e*16777216)+(n*65536)+(a*256)+c;end;local function d()local e=o(i(f,l,l),147);l=l+1;return e;end;local function a()local n,e=i(f,l,l+2);n=o(n,147)e=o(e,147)l=l+2;return(e*256)+n;end;local function A()local l=e();local e=e();local c=1;local o=(n(e,1,20)*(2^32))+l;local l=n(e,21,31);local e=((-1)^n(e,32));if(l==0)then if(o==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return s(e,l-1023)*(c+(o/(2^52)));end;local s=e;local function u(e)local n;if(not e)then e=s();if(e==0)then return'';end;end;n=c(f,l,l+e-1);l=l+e;local e={}for l=1,#n do e[l]=r(o(i(c(n,l,l)),147))end return b(e);end;local l=e;local function r(...)return{...},h('#',...)end local function s()local i={};local o={};local l={};local f={i,o,nil,l};local l=e()local c={}for n=1,l do local e=d();local l;if(e==1)then l=(d()~=0);elseif(e==2)then l=A();elseif(e==3)then l=u();end;c[n]=l;end;f[3]=d();for l=1,e()do o[l-1]=s();end;for f=1,e()do local l=d();if(n(l,1,1)==0)then local o=n(l,2,3);local t=n(l,4,6);local l={a(),a(),nil,nil};if(o==0)then l[3]=a();l[4]=a();elseif(o==1)then l[3]=e();elseif(o==2)then l[3]=e()-(2^16)elseif(o==3)then l[3]=e()-(2^16)l[4]=a();end;if(n(t,1,1)==1)then l[2]=c[l[2]]end if(n(t,2,2)==1)then l[3]=c[l[3]]end if(n(t,3,3)==1)then l[4]=c[l[4]]end i[f]=l;end end;return f;end;local function u(l,e,d)local n=l[1];local e=l[2];local l=l[3];return function(...)local c=n;local e=e;local o=l;local f=r local n=1;local a=-1;local s={};local i={...};local r=h('#',...)-1;local l={};local e={};for l=0,r do if(l>=o)then s[l-o]=i[l+1];else e[l]=i[l+1];end;end;local l=r-o+1 local l;local o;while true do l=c[n];o=l[1];if o<=12 then if o<=5 then if o<=2 then if o<=0 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[l[4]];elseif o>1 then e[l[2]]=d[l[3]];else local a;local o;e[l[2]]={};n=n+1;l=c[n];e[l[2]]=d[l[3]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];e[l[2]][l[3]]=e[l[4]];n=n+1;l=c[n];e[l[2]][l[3]]=l[4];n=n+1;l=c[n];e[l[2]]=d[l[3]];n=n+1;l=c[n];o=l[2];a=e[l[3]];e[o+1]=a;e[o]=a[l[4]];n=n+1;l=c[n];e[l[2]]=l[3];n=n+1;l=c[n];o=l[2]e[o]=e[o](t(e,o+1,l[3]))n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];end;elseif o<=3 then do return end;elseif o>4 then local l=l[2]e[l](t(e,l+1,a))else local l=l[2]e[l](t(e,l+1,a))end;elseif o<=8 then if o<=6 then local l=l[2]local o,n=f(e[l](e[l+1]))a=n+l-1 local n=0;for l=l,a do n=n+1;e[l]=o[n];end;elseif o==7 then local n=l[2]e[n]=e[n](t(e,n+1,l[3]))else do return end;end;elseif o<=10 then if o==9 then e[l[2]]=l[3];else local l=l[2]local o,n=f(e[l](e[l+1]))a=n+l-1 local n=0;for l=l,a do n=n+1;e[l]=o[n];end;end;elseif o==11 then e[l[2]]=e[l[3]][l[4]];else local n=l[2]e[n]=e[n](t(e,n+1,l[3]))end;elseif o<=18 then if o<=15 then if o<=13 then e[l[2]]=e[l[3]];elseif o>14 then e[l[2]]={};else e[l[2]]=e[l[3]][l[4]];end;elseif o<=16 then e[l[2]]=l[3];elseif o==17 then e[l[2]][l[3]]=e[l[4]];else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[l[4]];end;elseif o<=21 then if o<=19 then local i;local r,h;local o;e[l[2]]=d[l[3]];n=n+1;l=c[n];e[l[2]]=e[l[3]];n=n+1;l=c[n];o=l[2]r,h=f(e[o](e[o+1]))a=h+o-1 i=0;for l=o,a do i=i+1;e[l]=r[i];end;n=n+1;l=c[n];o=l[2]e[o](t(e,o+1,a))n=n+1;l=c[n];do return end;elseif o>20 then e[l[2]][l[3]]=e[l[4]];else e[l[2]]={};end;elseif o<=23 then if o>22 then e[l[2]]=e[l[3]];else e[l[2]][l[3]]=l[4];end;elseif o>24 then e[l[2]][l[3]]=l[4];else e[l[2]]=d[l[3]];end;n=n+1;end;end;end;return u(s(),{},S())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement