Advertisement
MegumuSenpai

Adventure Up! | Presents

Dec 24th, 2019
3,492
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.88 KB | None | 0 0
  1. --[[
  2. Made by Megumu
  3. <3
  4. ]]
  5.  
  6. local t=string.char;local h=tonumber;local C=math.ldexp;local r=unpack;local c=string.sub;local i=string.byte;local X=getfenv or function()return _ENV end;local W=setmetatable;local s=table.concat;local G=select;local function u(f)local e,o,n="","",{}local d=256;local a={}for l=0,d-1 do a[l]=t(l)end;local l=1;local function r()local e=h(c(f,l,l),36)l=l+1;local o=h(c(f,l,l+e-1),36)l=l+e;return o end;e=t(r())n[1]=e;while l<#f do local l=r()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[d]=e..c(o,1,1)n[#n+1],e,d=o,o,d+1 end;return table.concat(n)end;local a=u('26F26G2751W2681O1N24E26827521026W27924C26W27521126826026G24C27C26G27K24O27N27P21127I27N27W1X26G27S24C27526G1Z25K27G25K26G22W21G25C27923V25C27521M1G26V26G2461G1N2471X28826G24F28Q21H26W27I24B27W21928323L28327Z28823P2831Z2141N1N24129828O27P23W27P26L28326J29H27524823T23L24A24B26J26928324F23R24A23N24B29M23V23X26J27P26G25424A23X24B23X23Q24C29Q26B28324V23X24C24R23K23L23O23W2A623Q29J28324823V23T23O23O26H28326C28327727923S27P27E27G27W27K27M27O27J26828127P1X26W28827H27527Z25427N29226G23S2BL27521425S27G25S27528Z2752822BV26O22W27N26O2BI25K27I24C28Q1X27P2B926G2A326J26N2832A624924D29O2A126K28323Z23T23P2A126X28325623X24823O23L2AS24C23X23W25724C29V23T23Z2A129S27524U24A2CP23X29U29W2CE28324M2AG2DF23N26J2CM2752572A923W26J2CS27524H2AA23X2DC23V24C23T23U23O2A725J2592A826J26Y2832DW2D02DZ2E12E323X24L23R23W24D2E4283283');local n=(bit and bit.bxor)or(bit32 and bit32.bxor)or function(l,e)local o,n=1,0 while l>0 and e>0 do local a,c=l%2,e%2 if a~=c then n=n+o end l,e,o=(l-a)/2,(e-c)/2,o*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then n=n+o end l,o=(l-e)/2,o*2 end return n end local function l(o,l,e)if e then local l=(o/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(o%(l+l)>=l)and 1 or 0;end;end;local e=1;local function o()local l,o,a,c=i(a,e,e+3);l=n(l,232)a=n(a,232)c=n(c,232)o=n(o,232)e=e+4;return(c*16777216)+(a*65536)+(o*256)+l;end;local function d()local l=n(i(a,e,e),232);e=e+1;return l;end;local function h()local e=o();local n=o();local c=1;local o=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local l=((-1)^l(n,32));if(e==0)then if(o==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(o==0)and(l*(1/0))or(l*(0/0));end;return C(l,e-1023)*(c+(o/(2^52)));end;local f=o;local function u(l)local o;if(not l)then l=f();if(l==0)then return'';end;end;o=c(a,e,e+l-1);e=e+l;local e={}for l=1,#o do e[l]=t(n(i(c(o,l,l)),232))end return s(e);end;local e=o;local function i(...)return{...},G('#',...)end local function A()local f={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local t={0};local e={};local a={[6]=t,[3]=e,[4]=nil,[8]=nil,[2]=f,};for a=1,o()do local c=n(o(),201);local o=n(o(),116);local e=l(o,1,11);local n=l(c,1,2);local e={[1]=l(c,3,11),[3]=nil,[4]=e,[2]=o,[5]=nil,};if(n==0)then e[3]=l(c,12,20);e[2]=l(c,21,29);elseif(n==1)then e[3]=l(o,12,33);elseif(n==2)then e[3]=l(o,12,32)-1048575;elseif(n==3)then e[3]=l(o,12,32)-1048575;e[2]=l(c,21,29);end;f[a]=e;end;local l,c=o(),{}local n={0,0,0,0,0,0,0,0};for o=1,l do local e=d();local c,l,a={};if(e==2)then l=(d()~=0);elseif(e==0)then l=h();elseif(e==3)then l=u();end;n[-o]=c;n[o]=l;end;a[1]=c a[4]=n for l=1,o()do t[l-1]=A();end;a[8]=d();return a;end;local function C(l,s,h)local o=l[2];local e=l[8];local f=l[6];local l=l[4];return function(...)local a=l;local c=o;local n=e;local t=-1;local u=i local d=G('#',...)-1;local G=f;local i={};local f={...};local A={};local e={};local o=1;for l=0,d do if(l>=n)then A[l-n]=f[l+1];else e[l]=f[l+1];end;end;local l=d-n+1 local l;local n;while true do l=c[o];n=l[4];if n<=14 then if n<=6 then if n<=2 then if n<=0 then local n=l[1];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;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;elseif n==1 then e[l[1]]=h[a[l[3]]];else local n;local s,n;local f;local d;local i;local C;local n;e[l[1]]=h[a[l[3]]];o=o+1;l=c[o];e[l[1]]=h[a[l[3]]];o=o+1;l=c[o];e[l[1]]=e[l[3]][a[l[2]]];o=o+1;l=c[o];n=l[1];C=e[l[3]];e[n+1]=C;e[n]=C[a[l[2]]];o=o+1;l=c[o];n=l[1];i={};d=0;f=n+l[3]-1;for l=n+1,f do d=d+1;i[d]=e[l];end;s,f=u(e[n](r(i,1,f-n)));f=f+n-1;d=0;for l=n,f do d=d+1;e[l]=s[d];end;t=f;o=o+1;l=c[o];n=l[1];i={};d=0;f=t;for l=n+1,f do d=d+1;i[d]=e[l];end;s={e[n](r(i,1,f-n))};f=n+l[2]-2;d=0;for l=n,f do d=d+1;e[l]=s[d];end;t=f;o=o+1;l=c[o];o=o+l[3];end;elseif n<=4 then if n>3 then local o=l[1];local n=e[l[3]];e[o+1]=n;e[o]=n[a[l[2]]];else e[l[1]]=e[l[3]];end;elseif n>5 then local a=l[1];local n={};for l=1,#i do local l=i[l];for o=0,#l do local o=l[o];local c=o[1];local l=o[2];if c==e and l>=a then n[l]=c[l];o[1]=n;end;end;end;else e[l[1]]=s[l[3]];end;elseif n<=10 then if n<=8 then if n>7 then o=o+l[3];else local o=l[1];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](r(c,1,l-o));t=o;end;elseif n>9 then local t=G[l[3]];local d;local n={};d=W({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for a=1,l[2]do o=o+1;local l=c[o];if l[4]==3 then n[a-1]={e,l[3]};else n[a-1]={s,l[3]};end;i[#i+1]=n;end;e[l[1]]=C(t,d,h);else e[l[1]]=a[l[3]];end;elseif n<=12 then if n==11 then local n=l[1];local c={};local o=0;local a=t;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[2]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else e[l[1]]=a[l[3]];end;elseif n==13 then o=o+l[3];else local n=l[1];local a={};local o=0;local c=n+l[3]-1;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[2]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;elseif n<=22 then if n<=18 then if n<=16 then if n==15 then local n=l[1];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;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else do return end;end;elseif n==17 then local o=l[1];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](r(c,1,l-o));t=o;else local d=G[l[3]];local a;local n={};a=W({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for a=1,l[2]do o=o+1;local l=c[o];if l[4]==3 then n[a-1]={e,l[3]};else n[a-1]={s,l[3]};end;i[#i+1]=n;end;e[l[1]]=C(d,a,h);end;elseif n<=20 then if n==19 then do return end;else local u;local C;local f;local d;local i;local n;e[l[1]]=h[a[l[3]]];o=o+1;l=c[o];e[l[1]]=h[a[l[3]]];o=o+1;l=c[o];e[l[1]]=e[l[3]][a[l[2]]];o=o+1;l=c[o];e[l[1]]=e[l[3]][a[l[2]]];o=o+1;l=c[o];n=l[1];i={};d=0;f=n+l[3]-1;for l=n+1,f do d=d+1;i[d]=e[l];end;C={e[n](r(i,1,f-n))};f=n+l[2]-2;d=0;for l=n,f do d=d+1;e[l]=C[d];end;t=f;o=o+1;l=c[o];e[l[1]]=e[l[3]][a[l[2]]];o=o+1;l=c[o];n=l[1];u=e[l[3]];e[n+1]=u;e[n]=u[a[l[2]]];o=o+1;l=c[o];e[l[1]]=a[l[3]];o=o+1;l=c[o];e[l[1]]=s[l[3]];o=o+1;l=c[o];e[l[1]]=e[l[3]][a[l[2]]];o=o+1;l=c[o];n=l[1];i={};d=0;f=n+l[3]-1;for l=n+1,f do d=d+1;i[d]=e[l];end;e[n](r(i,1,f-n));t=n;o=o+1;l=c[o];do return end;end;elseif n>21 then local n=l[1];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[2]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else e[l[1]]=e[l[3]][a[l[2]]];end;elseif n<=26 then if n<=24 then if n==23 then e[l[1]]=h[a[l[3]]];else local o=l[1];local n=e[l[3]];e[o+1]=n;e[o]=n[a[l[2]]];end;elseif n>25 then local n=l[1];local a={};local o=0;local c=t;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[2]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else local n=l[1];local c=l[2];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;end;elseif n<=28 then if n>27 then e[l[1]]=s[l[3]];else e[l[1]]=e[l[3]][a[l[2]]];end;elseif n==29 then local a=l[1];local n={};for l=1,#i do local l=i[l];for o=0,#l do local l=l[o];local c=l[1];local o=l[2];if c==e and o>=a then n[o]=c[o];l[1]=n;end;end;end;else local n=l[1];local a=l[2];local l=n+2;local c={e[n](e[n+1],e[l])};for o=1,a do e[l+o]=c[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;end;o=o+1;end;end;end;return r({C(A(),{},X())()})or nil;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement