Advertisement
MegumuSenpai

Land of the Rising Sun | Dupe GUI

Jan 1st, 2020
1,537
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.24 KB | None | 0 0
  1. local a=unpack or table.unpack;local l=table.insert;local r=math.ldexp;local D=table.concat;local C=select;local u=getfenv or function()return _ENV end;local d=tonumber;local s=setmetatable;local h=string.char;local t=string.sub;local f=string.byte;local function A(i)local e,n,a="","",{}local o=256;local c={}for l=0,o-1 do c[l]=h(l)end;local l=1;local function f()local e=d(t(i,l,l),36)l=l+1;local n=d(t(i,l,l+e-1),36)l=l+e;return n end;e=h(f())a[1]=e;while l<#i do local l=f()if c[l]then n=c[l]else n=e..t(e,1,1)end;c[o]=e..t(n,1,1)a[#a+1],e,o=n,n,o+1 end;return table.concat(a)end;local d=A('26G26Y26H27626J26B27626H23P23Q23S23X24A24D24B23K23R23Y26J26L27A23Y23S23O23W26J26M27A24H24D24D24924U23W24D26J25K27A23L27X24924A25V25I25I24923S27G23W23V27J25J23U23Q23O25I24B23S24E25I23W25A24I23Y23V23X23K24126J26D27A24Q24B23W23S24D28S27J23X23Q24E26J26K27A24E23Q23Q24A23L27T27A25623W23U24D23K23Q23R26J26F27A24K27E23W25L23V24025L24K23W23Y24C23O24C26J26I27A24R23Q28Z27N27624G29723O27M27A23Z23P23S27L2AG26H23K2AJ2AL27624D24024927S26N27A27G27I27K26J2B127624O23O23Q24C23R28226J27A27Q2B627A23R2A723V23W24B2BI27624R24C27X29S2AV26H24T24C2AZ25N27A26Z26Z26H26Y28426H26G2C12762C52C82BF27625L2CA25K2C82C82AB2C32C425K2AB2AR27A2C527N2C827A2CG2C82CP2CG2CU2CD2CY2C726H2BF2CF2CM2CT26H29E2CL2C52AB2B727625O2D626H2AB2D426E2CM2BF2C827U2DA25K27N2692CU2CG2BF2CS26H2D52C52DM26H26826H2DP27N2792DT2C529E27726H2612CG29E26A26H2912EC2CM29E26C26H29V2AA2CM2DD27A25C2DL26H2B12D42CG2AB2C82E22DP29E2DK2E725K2DD2BF2EI2C52B12EF26X2EB2CG2B12EL26W2D32AB2C527U2D726H2DF2DB26H27U2D42C02CR2D22C326Z25Q2EP2C427A26N2B12FK2D32D22CT29E2C52762FM2FO2DQ2FQ2G526H26V2CM2GA27A2AB27A2CC2E926H2492B42822DD27R2A62A82AR26Z2752FP2D72FX2CM27N2D026H26O2CM2DI2D22GG2GI2HA2DT2EY2D32GO2GQ27J2822GL26H2A523Y2GX2GZ2CN2HD2H22FU2H52H72FP2E02HB2G92HD2CU2AB2DS2DT2761P25Y29D2AM2AO23Y24A2BV2AT23W23O2I527624P26J2I426H24D29S2BL2BN26J2D725G26J2D027Q2II26924P2II2772E227629G24B23M24A28D23U27S27U2762572IG23Q2972ID2EF2762552AO2402BN25623L23Q28826J27229229429623W29N23P23P24M24B23X2BN24V2BC29P29R29T2912AH23R24F23Q23M2JY2BN24F2IR2AR24E23S2AT26J27527624Q23S23R2JA2K12K32K52K729Q29S2C627625E2HC2762HL2DG2CU2DY2CH2D22EW2DG2CJ26H2FC2HC2CI2E32CV2D82C92ET2EQ2EX2DT2LA2AB2H92LS2DH2GE2CQ25K2BF2BF2L72CB2G52BF2LH2I02DW2F82C62DS2F02LL2E62DX2LL2C82EF2LA2LJ2912MJ2D22EL2MM2C829V2LY2L72CU2M32HF2DP2C82F32MU2LB2LJ2MX26H2ME2MP26H2MI2MG2EG2MF2LE2LG2NB2M32MQ2N02MT2LV2LU2LQ2LT2N02LF2FM2I02FM2DT');local o=(bit and bit.bxor)or(bit32 and bit32.bxor)or function(l,n)local e,o=1,0 while l>0 and n>0 do local a,c=l%2,n%2 if a~=c then o=o+e end l,n,e=(l-a)/2,(n-c)/2,e*2 end if l<n then l=n end while l>0 do local n=l%2 if n>0 then o=o+e end l,e=(l-n)/2,e*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 a,n,e,c=f(d,l,l+3);e=o(e,233)a=o(a,233)n=o(n,233)c=o(c,233)l=l+4;return(c*16777216)+(e*65536)+(n*256)+a;end;local function i()local e=o(f(d,l,l),233);l=l+1;return e;end;local function c()local e,n=f(d,l,l+2);l=l+2;e=o(e,233)n=o(n,233)return(n*256)+e;end;local function B()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 r(e,l-1023)*(c+(o/(2^52)));end;local r=e;local function A(e)local n;if(not e)then e=r();if(e==0)then return'';end;end;n=t(d,l,l+e-1);l=l+e;local e={}for l=1,#n do e[l]=h(o(f(t(n,l,l)),233))end return D(e);end;local l=e;local function r(...)return{...},C('#',...)end local function D()local f={};local l={};local h={};local d={[2]=l,[1]=f,[8]=h,[4]=nil,[5]=nil,};local o=i()local l;if o==0 then l=c()*2;else l=e();end local o={}for n=1,l do local e=i();local l;if(e==0)then l=B()end if(e==3)then l=(i()~=0)end if(e==2)then l=A()end o[n]=l;end;for d=1,e()do local l=i();if(n(l,1,1)==0)then local t=n(l,4,6);local i,f,C=c(),c(),c();local a=n(l,2,3);local l={[6]=3}local l={[3]=i,[7]=C,[4]=f,[6]=nil,};if(a==3)then l[4],l[6]=e()-65536,c()end if(a==0)then l[4],l[6]=c(),c()end if(a==1)then l[4]=e()end if(a==2)then l[4]=e()-65536 end if(n(t,3,3)==1)then l[6]=o[l[6]]end if(n(t,1,1)==1)then l[7]=o[l[7]]end if(n(t,2,2)==1)then l[4]=o[l[4]]end h[d]=l;end end;for l=1,e()do f[l-1]=D();end;d[5]=i();return d;end;local function f(l,d,t)local n=l[1];local o=l[8];local e=l[5];local l=l[4];return function(...)local c=e;local h={};local D={...};local A=C('#',...)-1;local C=n;local r=r local n=1;local B={};local e={};local i=-1;local o=o;for l=0,A do if(l>=c)then B[l-c]=D[l+1];else e[l]=D[l+1];end;end;local l;local c=A-c+1 local c;while true do l=o[n];c=l[3];if c<=23 then if c<=11 then if c<=5 then if c<=2 then if c<=0 then e[l[7]]=d[l[4]];elseif c==1 then local l=l[7]e[l]=e[l](e[l+1])else e[l[7]]=(l[4]~=0);end;elseif c<=3 then e[l[7]]=f(C[l[4]],nil,t);elseif c==4 then e[l[7]]=f(C[l[4]],nil,t);else e[l[7]]=e[l[4]];end;elseif c<=8 then if c<=6 then local i=C[l[4]];local a;local c={};a=s({},{__index=function(e,l)local l=c[l];return l[1][l[2]];end,__newindex=function(n,l,e)local l=c[l]l[1][l[2]]=e;end;});for a=1,l[6]do n=n+1;local l=o[n];if l[3]==5 then c[a-1]={e,l[4]};else c[a-1]={d,l[4]};end;h[#h+1]=c;end;e[l[7]]=f(i,a,t);elseif c>7 then e[l[7]]=e[l[4]];else e[l[7]]=e[l[4]][l[6]];end;elseif c<=9 then e[l[7]]=d[l[4]];elseif c==10 then e[l[7]][l[4]]=l[6];else local n=l[7]local o,l=r(e[n](a(e,n+1,l[4])))i=l+n-1 local l=0;for n=n,i do l=l+1;e[n]=o[l];end;end;elseif c<=17 then if c<=14 then if c<=12 then local l=l[7]e[l](e[l+1])elseif c>13 then local l=l[7]e[l]=e[l](e[l+1])else local i=C[l[4]];local a;local c={};a=s({},{__index=function(e,l)local l=c[l];return l[1][l[2]];end,__newindex=function(n,l,e)local l=c[l]l[1][l[2]]=e;end;});for a=1,l[6]do n=n+1;local l=o[n];if l[3]==5 then c[a-1]={e,l[4]};else c[a-1]={d,l[4]};end;h[#h+1]=c;end;e[l[7]]=f(i,a,t);end;elseif c<=15 then local t;local c;c=l[7];t=e[l[4]];e[c+1]=t;e[c]=t[l[6]];n=n+1;l=o[n];e[l[7]]=l[4];n=n+1;l=o[n];c=l[7]e[c](a(e,c+1,l[4]))n=n+1;l=o[n];c=l[7];t=e[l[4]];e[c+1]=t;e[c]=t[l[6]];n=n+1;l=o[n];e[l[7]]=l[4];n=n+1;l=o[n];e[l[7]]={};n=n+1;l=o[n];e[l[7]][l[4]]=l[6];n=n+1;l=o[n];e[l[7]][l[4]]=l[6];elseif c>16 then local o=l[4];local n=e[o]for l=o+1,l[6]do n=n..e[l];end;e[l[7]]=n;else local n=l[7]e[n]=e[n](a(e,n+1,l[4]))end;elseif c<=20 then if c<=18 then local f;local C,h;local d;local c;e[l[7]]=t[l[4]];n=n+1;l=o[n];e[l[7]]=t[l[4]];n=n+1;l=o[n];c=l[7];d=e[l[4]];e[c+1]=d;e[c]=d[l[6]];n=n+1;l=o[n];e[l[7]]=l[4];n=n+1;l=o[n];e[l[7]]=(l[4]~=0);n=n+1;l=o[n];c=l[7]C,h=r(e[c](a(e,c+1,l[4])))i=h+c-1 f=0;for l=c,i do f=f+1;e[l]=C[f];end;n=n+1;l=o[n];c=l[7]e[c]=e[c](a(e,c+1,i))n=n+1;l=o[n];c=l[7]e[c]=e[c]()n=n+1;l=o[n];c=l[7];d=e[l[4]];e[c+1]=d;e[c]=d[l[6]];n=n+1;l=o[n];e[l[7]]=l[4];elseif c>19 then local l=l[7]e[l]=e[l](a(e,l+1,i))else e[l[7]]=t[l[4]];end;elseif c<=21 then e[l[7]][l[4]]=l[6];elseif c==22 then e[l[7]]={};else e[l[7]]=(l[4]~=0);end;elseif c<=35 then if c<=29 then if c<=26 then if c<=24 then local l=l[7]e[l]=e[l]()elseif c>25 then local n=l[7]e[n](a(e,n+1,l[4]))else local l=l[7]e[l](e[l+1])end;elseif c<=27 then do return end;elseif c>28 then e[l[7]]();else local o=l[7];local n=e[l[4]];e[o+1]=n;e[o]=n[l[6]];end;elseif c<=32 then if c<=30 then do return end;elseif c==31 then e[l[7]]=t[l[4]];else e[l[7]]={};end;elseif c<=33 then e[l[7]]=l[4];elseif c==34 then local n=l[7];local o=e[l[4]];e[n+1]=o;e[n]=o[l[6]];else local n=l[7]local o,l=r(e[n](a(e,n+1,l[4])))i=l+n-1 local l=0;for n=n,i do l=l+1;e[n]=o[l];end;end;elseif c<=41 then if c<=38 then if c<=36 then e[l[7]][l[4]]=e[l[6]];elseif c==37 then local n=l[7]e[n]=e[n](a(e,n+1,l[4]))else local o=l[4];local n=e[o]for l=o+1,l[6]do n=n..e[l];end;e[l[7]]=n;end;elseif c<=39 then e[l[7]]=l[4];elseif c>40 then local t;local c;c=l[7]e[c]=e[c](a(e,c+1,l[4]))n=n+1;l=o[n];c=l[7];t=e[l[4]];e[c+1]=t;e[c]=t[l[6]];n=n+1;l=o[n];e[l[7]]=l[4];n=n+1;l=o[n];e[l[7]]={};n=n+1;l=o[n];e[l[7]][l[4]]=l[6];n=n+1;l=o[n];e[l[7]][l[4]]=l[6];else local l=l[7]e[l]=e[l](a(e,l+1,i))end;elseif c<=44 then if c<=42 then e[l[7]]=e[l[4]][l[6]];elseif c==43 then local c;local f;local i;e[l[7]]={};n=n+1;l=o[n];e[l[7]]=d[l[4]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]][l[4]]=e[l[6]];n=n+1;l=o[n];e[l[7]]=t[l[4]];n=n+1;l=o[n];e[l[7]]=l[4];n=n+1;l=o[n];e[l[7]]=d[l[4]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];i=l[4];f=e[i]for l=i+1,l[6]do f=f..e[l];end;e[l[7]]=f;n=n+1;l=o[n];c=l[7]e[c]=e[c](e[c+1])n=n+1;l=o[n];e[l[7]][l[4]]=e[l[6]];n=n+1;l=o[n];e[l[7]][l[4]]=l[6];n=n+1;l=o[n];e[l[7]]=t[l[4]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];c=l[7];i=e[l[4]];e[c+1]=i;e[c]=i[l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]];n=n+1;l=o[n];c=l[7]e[c](a(e,c+1,l[4]))n=n+1;l=o[n];e[l[7]]=t[l[4]];n=n+1;l=o[n];e[l[7]]();n=n+1;l=o[n];e[l[7]]=t[l[4]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];c=l[7];i=e[l[4]];e[c+1]=i;e[c]=i[l[6]];n=n+1;l=o[n];e[l[7]]=d[l[4]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];e[l[7]]=e[l[4]][l[6]];n=n+1;l=o[n];c=l[7]e[c](a(e,c+1,l[4]))n=n+1;l=o[n];do return end;else e[l[7]]();end;elseif c<=45 then local l=l[7]e[l]=e[l]()elseif c>46 then local n=l[7]e[n](a(e,n+1,l[4]))else e[l[7]][l[4]]=e[l[6]];end;n=n+1;end;end;end;return a({f(D(),{},u())()})or nil;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement