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