Untitled
raw download clone
TEXT
views 33
,
size 8963 b
unpack=table.unpack local f=string.byte;local C=string.char;local t=string.sub;local h=table.concat;local e=table.insert;local s=math.ldexp;local I=getfenv or function()return _ENV end;local e=setmetatable;local r=select;local a=unpack or table.unpack;local d=tonumber;local function D(i)local l,n,a="","",{}local c=256;local o={}for e=0,c-1 do o[e]=C(e)end;local e=1;local function f()local l=d(t(i,e,e),36)e=e+1;local n=d(t(i,e,e+l-1),36)e=e+l;return n end;l=C(f())a[1]=l;while e<#i do local e=f()if o[e]then n=o[e]else n=l..t(l,1,1)end;o[c]=l..t(n,1,1)a[#a+1],l,c=n,n,c+1 end;return table.concat(a)end;local d=D('1A1627514192751621Z22Q22Q21V23422R22W23622622V22W22Q22Y22R238141M27922X22W21X22Y23327G23622322V23A22D23622V23823627Q27922C22R22P23323923627O22022R23627E27Y141I27925H24F25G23X28P28R28T28S28Q28W28R1427427521X23822R22V28F22A23229422V22Q141K27922A23823322P22P27O22D27O27F23828K27H28827525H24E25G24H29U25G25329Y25128T23M141N27S22128A23922X23723822T22R23922228D23622122X29S1629Y29X29V2A029V24Q29Y25B2AM2AO29Y24R29Y25228T23R141E27922T27T28423322W23927727S22W2A92AB2AD22R283285236162B527627929D29F29H29J29L29N27O29Q28727R27522A23522T21H23G22M21W21J22321U23622722422V23521T279275122791K18279172CL1S162CP142CI1X2BQ2CS2751Q2CO2D12761B2A729G29I29K29422Q2AK2CI16152CI2192D2161K112DH162D02752CP275132BQ2CK27522922V2332362DE2CI23Y25121Y142D427522X2212D62BU2D92AK2BR2C12BT2D829M23829O2BY2AW28X28T23V28V2EN2DC1D2CL2CN2DO2CQ2CY2CU2792CW2BP2CP2CM2792DZ16102112DC2CP2CP121R2F92DI2EU162DT2DI2CR2CP2DR2EZ2CX2FB2FD2CI2DP2DN2CY2CJ2BQ2FM1628422S27N14102792BA23927O2872A62E62A82AF2BH2AE2AG2AI2EC1G2D52EF27O22R22Q2BG2AC2GE2AK2DP2752BO2DI1T2CY2GS2122EV2CT2DI2BP2F52F42DC2D12DE2GS2GX2CL2EV2FI2FE2BP2762G9162E72GO2BI2GF28E2GH2GJ2D72GL2GN2GC2GP2AF2DB2CI2FX162ES2H629E2DL2H62752I22HF2H62GS2GS142FX23A2DW2382BC2CI28N2I52CN2CU2H92CP2H42752D42CU2CU2CK2FC2792782F22CN2DK2IM2BN2F62CI2D42DK2CU1F2FH2FQ162D42CP101O2HZ2JF2FA2J82792ES2FP2792JB2752DG2742H929E2742EY2F6218162DK2B52H12IU2GT2CY102JW2IS2EX2JI2FV2DP2DG2JU2HB2IR2CI2FT2GS1C2BQ2G327528E29H22W22P142F527N22W2IB2792ID2332IF2A52A72HK2GE2AH2HN2AL2FI22Z296232142FI2AE23322Y2IO1621Y2E32I62E92EG2BW29P27F29R1Y28O28Q24728T23S28T2462LW2LU28T2LT2LS2LZ28Q246142JU22C21S2H92GW2I52JZ2FU162GZ2HA2KC2KC2FR162KE2I22CU2F52I22DE2HD2BP2K62HD1U2CY2F32DK2H42CP2B52KK2IP2JX2ML162J72K1162GI2IX162742FX2122KI2742742G31K2CR2J42IH2ND2N62CU102GZ2742NB2CY2N92NV2F32742GU2NL2JA2N72EW2CN2KI2792132NP2CN2JC2JW2DK2JQ2N62N92OF2K42N62MD2IS2J92MD2DM2DH2J72762FI2DV2DX2IO21Y23T2E32GU2B727H2DW2BB2KZ2GA2L12AF2L32AJ2AL2O7162L723A2L722W22V2D8142GI2GA2LK2HR2P72392EC2LJ2GK2382EH2EJ2LO2872LQ29T2M228Q2LV2M42LY2Q22M02Q72Q62M42M627921V22A2DC1L2ET2DH1K2A62H12I42IL2H22H52I52HC2HB2N62HY2CI2KE2N32D12JL2MK2F32752N32F72JM2HA2N92JN2N92EV2R12N52I52FK2J12RD2N62OR2752O92F12K82D22KG2792DG2IJ2QI2RE2JU142142N62DC2102FO2QO2752MP2QR2QM2MX2MK2QQ2NW2BQ2RW2QN2O82S02RB2FX2RV2K72792MW2RL2I62J22S82CP2DK2S52H92I12CI2O12CI2S32CY2RI2DC2QN2SM2GS2O22CP2RI2SH2MO2CI2RZ2SL2SW2QS2CP2PC2T02S62QI2EV2PC2T72FH2CI2RK2N62CT2RW2DQ2CL2SQ2JF2RR2EV2RG2CP2912ML2SB2SN2RJ2SE2FG2SG2RW2SP2CV2S02OP2TX16');local o=bit and bit.bxor or function(e,l)local n,o=1,0 while e>0 and l>0 do local c,t=e%2,l%2 if c~=t then o=o+n end e,l,n=(e-c)/2,(l-t)/2,n*2 end if e<l then e=l end while e>0 do local l=e%2 if l>0 then o=o+n end e,n=(e-l)/2,n*2 end return o end local function n(l,e,n)if n then local e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%(e+e)>=e)and 1 or 0;end;end;local e=1;local function l()local l,c,n,t=f(d,e,e+3);l=o(l,6)c=o(c,6)n=o(n,6)t=o(t,6)e=e+4;return(t*16777216)+(n*65536)+(c*256)+l;end;local function i()local l=o(f(d,e,e),6);e=e+1;return l;end;local function c()local n,l=f(d,e,e+2);n=o(n,6)l=o(l,6)e=e+2;return(l*256)+n;end;local function D()local o=l();local e=l();local t=1;local o=(n(e,1,20)*(2^32))+o;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;t=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return s(e,l-1023)*(t+(o/(2^52)));end;local s=l;local function F(l)local n;if(not l)then l=s();if(l==0)then return'';end;end;n=t(d,e,e+l-1);e=e+l;local l={}for e=1,#n do l[e]=C(o(f(t(n,e,e)),6))end return h(l);end;local e=l;local function C(...)return{...},r('#',...)end local function h()local d={};local o={};local e={};local f={d,o,nil,e};local e=l()local t={}for n=1,e do local l=i();local e;if(l==0)then e=(i()~=0);elseif(l==3)then e=D();elseif(l==2)then e=F();end;t[n]=e;end;f[3]=i();for e=1,l()do o[e-1]=h();end;for f=1,l()do local e=i();if(n(e,1,1)==0)then local o=n(e,2,3);local a=n(e,4,6);local e={c(),c(),nil,nil};if(o==0)then e[3]=c();e[4]=c();elseif(o==1)then e[3]=l();elseif(o==2)then e[3]=l()-(2^16)elseif(o==3)then e[3]=l()-(2^16)e[4]=c();end;if(n(a,1,1)==1)then e[2]=t[e[2]]end if(n(a,2,2)==1)then e[3]=t[e[3]]end if(n(a,3,3)==1)then e[4]=t[e[4]]end d[f]=e;end end;return f;end;local function i(e,l,c)local l=e[1];local n=e[2];local e=e[3];return function(...)local t=l;local f=n;local o=e;local e=C local l=1;local e=-1;local h={};local C={...};local d=r('#',...)-1;local e={};local n={};for e=0,d do if(e>=o)then h[e-o]=C[e+1];else n[e]=C[e+1];end;end;local e=d-o+1 local e;local o;while true do e=t[l];o=e[1];if o<=22 then if o<=10 then if o<=4 then if o<=1 then if o>0 then n[e[2]]=n[e[3]];else if not n[e[2]]then l=l+1;else l=e[3];end;end;elseif o<=2 then n[e[2]]=e[3];elseif o==3 then local e=e[2]n[e](n[e+1])else n[e[2]]={};end;elseif o<=7 then if o<=5 then local o;o=e[2]n[o](a(n,o+1,e[3]))l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=e[3];l=l+1;e=t[l];o=e[2]n[o](n[o+1])l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=e[3];elseif o==6 then if(n[e[2]]~=n[e[4]])then l=l+1;else l=e[3];end;else c[e[3]]=n[e[2]];end;elseif o<=8 then local a;local i;local o;n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=t[l];n[e[2]]=n[e[3]];l=l+1;e=t[l];o=e[2]n[o]=n[o](n[o+1])l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];o=e[2]i={n[o](n[o+1])};a=0;for e=o,e[4]do a=a+1;n[e]=i[a];end l=l+1;e=t[l];l=e[3];elseif o>9 then n[e[2]]=n[e[3]][e[4]];else local e=e[2]n[e]=n[e](n[e+1])end;elseif o<=16 then if o<=13 then if o<=11 then n[e[2]]={};l=l+1;e=t[l];c[e[3]]=n[e[2]];l=l+1;e=t[l];n[e[2]]=(e[3]~=0);l=l+1;e=t[l];c[e[3]]=n[e[2]];l=l+1;e=t[l];do return end;elseif o==12 then n[e[2]]=n[e[3]][e[4]];else local o=e[2]local t={n[o](n[o+1])};local l=0;for e=o,e[4]do l=l+1;n[e]=t[l];end end;elseif o<=14 then n[e[2]]=c[e[3]];elseif o>15 then local o=e[2]local t={n[o](n[o+1])};local l=0;for e=o,e[4]do l=l+1;n[e]=t[l];end else if(n[e[2]]<=n[e[4]])then l=l+1;else l=e[3];end;end;elseif o<=19 then if o<=17 then local o;n[e[2]]=e[3];l=l+1;e=t[l];o=e[2]n[o](n[o+1])l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=e[3];l=l+1;e=t[l];o=e[2]n[o]=n[o](a(n,o+1,e[3]))l=l+1;e=t[l];if not n[e[2]]then l=l+1;else l=e[3];end;elseif o==18 then do return n[e[2]]end else l=e[3];end;elseif o<=20 then local e=e[2]n[e]=n[e](n[e+1])elseif o==21 then local l=e[2]n[l]=n[l](a(n,l+1,e[3]))else local l=e[2]n[l]=n[l](a(n,l+1,e[3]))end;elseif o<=34 then if o<=28 then if o<=25 then if o<=23 then n[e[2]]=i(f[e[3]],nil,c);elseif o==24 then local o;o=e[2]n[o](n[o+1])l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=e[3];l=l+1;e=t[l];o=e[2]n[o](n[o+1])l=l+1;e=t[l];n[e[2]]={};l=l+1;e=t[l];c[e[3]]=n[e[2]];l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=e[3];l=l+1;e=t[l];o=e[2]n[o](n[o+1])l=l+1;e=t[l];n[e[2]]=c[e[3]];else n[e[2]]=c[e[3]];end;elseif o<=26 then n[e[2]]=e[3];elseif o>27 then do return end;else local o;n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=n[e[3]];l=l+1;e=t[l];o=e[2]n[o](a(n,o+1,e[3]))l=l+1;e=t[l];n[e[2]]=(e[3]~=0);l=l+1;e=t[l];c[e[3]]=n[e[2]];l=l+1;e=t[l];do return end;end;elseif o<=31 then if o<=29 then l=e[3];elseif o==30 then if(n[e[2]]~=n[e[4]])then l=l+1;else l=e[3];end;else do return end;end;elseif o<=32 then if(n[e[2]]<=n[e[4]])then l=l+1;else l=e[3];end;elseif o>33 then local o;o=e[2]n[o](a(n,o+1,e[3]))l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=e[3];l=l+1;e=t[l];o=e[2]n[o](n[o+1])l=l+1;e=t[l];n[e[2]]=c[e[3]];l=l+1;e=t[l];n[e[2]]=e[3];else local l=e[2]n[l](a(n,l+1,e[3]))end;elseif o<=40 then if o<=37 then if o<=35 then if not n[e[2]]then l=l+1;else l=e[3];end;elseif o==36 then n[e[2]]=(e[3]~=0);else local l=e[2]n[l](a(n,l+1,e[3]))end;elseif o<=38 then do return n[e[2]]end elseif o>39 then local t=e[2];local c=e[4];local o=t+2 local t={n[t](n[t+1],n[o])};for e=1,c do n[o+e]=t[e];end;local t=t[1]if t then n[o]=t l=e[3];else l=l+1;end;else local e=e[2]n[e](n[e+1])end;elseif o<=43 then if o<=41 then n[e[2]]={};elseif o>42 then n[e[2]]=(e[3]~=0);else local o=e[2];local c=e[4];local t=o+2 local o={n[o](n[o+1],n[t])};for e=1,c do n[t+e]=o[e];end;local o=o[1]if o then n[t]=o l=e[3];else l=l+1;end;end;elseif o<=44 then c[e[3]]=n[e[2]];elseif o>45 then n[e[2]]=i(f[e[3]],nil,c);else n[e[2]]=n[e[3]];end;l=l+1;end;end;end;return i(h(),{},I())();
close fullscreen
Login or Register to edit or fork this paste. It's free.