Advertisement
MegumuSenpai

D-Day | Kill All

Jan 10th, 2020
1,637
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.50 KB | None | 0 0
  1. --[[
  2. Made by Megumu
  3. <3
  4. ]]
  5.  
  6. local s=select;local h=string.char;local H=getfenv or function()return _ENV end;local i=string.byte;local O=setmetatable;local d=unpack or table.unpack;local r=math.ldexp;local f=tonumber;local D=table.insert;local a=string.sub;local E=table.concat;local function A(d)local l,n,o="","",{}local c=256;local t={}for e=0,c-1 do t[e]=h(e)end;local e=1;local function i()local l=f(a(d,e,e),36)e=e+1;local n=f(a(d,e,e+l-1),36)e=e+l;return n end;l=h(i())o[1]=l;while e<#d do local e=i()if t[e]then n=t[e]else n=l..a(l,1,1)end;t[c]=l..a(n,1,1)o[#o+1],l,c=n,n,c+1 end;return table.concat(o)end;local f=A('22P23H22O27622P22Q27622O21R21322P22W27A2111O15131L1K151422R22Q22P22P22S27A17111D1522P22V27A21C1C111P151I1J22P22Z27A2181F13111C28228428622P22R27A1G1C1I27S27A27W1D1F22P22U27A1K1P1G151F1622P22T28X11121C27Y27F2762151E1J1K111E1327Y23527A21E1528N1928E27M1421F1K1F1I111727Y28W27629N28T27M22P23027A1X1K27M1D1G1K21R212191I27Y22Y27A2AG2AI21F2861M28J22X27A1Z181129X1327M28P2392AL191E142AM29F2AU191C1421B161Z2831J28827T27621G1F1F1C28Q27621415111427E27A2141L1D29H1F192BT2342BV2BX2BZ2C121E2BL1K21C2AW1K2BU27621C1F1J191K191F1E27A2CO27729B22O29V1E2BX122862CP27624022N2CY2761W2BO22O1N112CJ29427A210152831P1W27A23629525W1Z27727A21S22I22O2DK2CO27921Y2DL2DR22O2D122P22O28L22S22K2DQ2DL2DX22O2DZ2DI2E42DM2762282282EA22O27927T2E92DW2952762DO2EF27628W2EN2DW27628022U22C2E42DZ2DM2EY21V2EO2DH23E2EX22O2CR2EV2F52DZ2FA2762F12ES2F32F52AS2762EJ1Z2DZ2AK2FI2DJ1Z2792FH2EM2E42792EY2762272F52762DT2DV2FK22O22J2E722O28A2E22EF2G42E82FO2FL2DH2FO2792CR22O21S2FT2G527A2FX2DK2FV2G02F52GA22O2A72G82DW2GS2FJ2DZ2GH2372F92EG22O2362762DK2FQ2CY2H72G52792H52E428L2EL2GI2H61Z28L28L2312HH2HE2E022O2322HN2DK2HK22O2332HS2HJ2HP2C32GJ2E42HG29L2I12DK2952952H52362AK2DK2802H127A2752I622O2802792I51Z28W2DZ2382HX2802DZ2B12IL27F2DZ23A2HX2FR2I42HI2AS2AS2IX2IL2J222O23B2CO2DK2AK2FM2H42HI28A23C2DH2HI2A723D2DN2DP2DK2HM2792F422O2B12DK2A72792HC2HI2HM2JK2FS2E42HR27923F2J91Z2HM2HR2CP2HT27A2E82HI28L23G2JH2E427T2FV2IL27T27T27527A2KA2FU2H42GC22O2KF27A21W2H22DZ2GV2E52HW2EY2222F227A22G2EF2GP2KB2HM2772HG1G2D82872D527V27X27Z2812DE2862882JC213152CA2LL2LF2BI22O21G2BR1D2DA2761G28E1C2BN2FR2AU2AW112AY28J2CR2BW2BY1E2C02BT2A122O2BQ28F1K182D22772K822O2AG2B42B61K2B82BA22P2JC21229W29J2AG2DD142CY24G21Q1W2232DH2HR2DW2FV2HD2GO2H32K02NF2DZ28L2IL2FB2LU2F52792K92E52FZ22O2BI2DW21Y2GL2DG2IH2CO22U2A72DK27T28A2DZ2952KZ2762O52NT2E32DW21X2G52ER1Z2O722O2EL2NY2IM2CP2OG28W28W29522U2G42IH2OE2DZ28W2O822O2OV2KR2I222O2MH2F82DK2MH2DZ2NP2FD2E52NN28A2FE27A22A2P22JV2P321Z2P22JG2NM2OC2E52PM2OB2EF2P02OG2OI2802PU2OJ2F62GI2JM2OH2PY2AS2322252E42AK2P02O72PO2762PT2Q12PV2GI2JG2IH29528A2IA2E42802A727A2IX2IH2IJ2PJ2P22P02KY2QB2OZ2OF2QE2NT2II2762HW2IH2NP2762L32KA2O022E2EF2IR2H32OY2RD2QL2DW2LA2R32EF2R622O2L62NC2KB2KB28A2772FV1122P2M52AV2AX2AZ2D52MJ2BT2FV122CE2MI2C52ME2C127R27A1322P2B12762MR2B52AH2B7182B92BB2BD2BF2BH27A2BK2BM2SB2762C22C42MD2MF2C81F2CA2CC2SU22O152J827A2OE2PE2HX2DS2TB27A28L2NE2E52FV2KO2NR2DN2HI2TC2IL2CO2I82TM2R12NQ2EB2TD2NS2TO27A2802TG2GG2H92E52PI2TG2EP2U22CY2TX2TW2TR2762AK2U522O2FR2TJ2TU2U92H32UJ2UD2TR2RS2K52TU2D22IN2LC2M22BN2MH29F1I2B3172LG1J1L2S52FR28H2851I2131L1928V27A2V91E21321H2152RW2A81D28T21229X2LI28L276219111O2D52LW1O2CD2R622721S2TI2LJ2761Z1L1I2AI1E1K2N52N723I2GE2L727A2P52G22EZ2O92L42762PG2DW2PI22U2202EF2K42FV2OY2WT2P12WO2DN23J2F22VQ2HI2TI2HX2NM2X52G52952NL2G52EQ2X32G52PW2XD2GZ2JD2GK2FR2TG28L2JC2UH2HP2RM2NF2RM2HI2XS2IL2PI27T2XV2H32X92XT2H32XC2GK27928A2XY2U12TJ2X22NQ2NJ2GL2R42G22R62RH2E52QO2RK2WY2L52WF2TU2W32E72RU2VJ2CF2LS2V92VB2MH2VE2VG2VI2FR1X2VL1F2VN27W27Y2802W42W62W82CD2S428K27A2VS1O2RJ22O22D2WL2UJ2IK2UB2HP2UJ2XX2ZO2TQ2YN2UP2ON2ZO2ZN2X12TV2R12UJ2TZ2TR2MH2XO2X42CP');local o=(bit and bit.bxor)or(bit32 and bit32.bxor)or function(e,n)local l,o=1,0 while e>0 and n>0 do local a,c=e%2,n%2 if a~=c then o=o+l end e,n,l=(e-a)/2,(n-c)/2,l*2 end if e<n then e=n end while e>0 do local n=e%2 if n>0 then o=o+l end e,l=(e-n)/2,l*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,a=i(f,e,e+3);n=o(n,96)c=o(c,96)l=o(l,96)a=o(a,96)e=e+4;return(a*16777216)+(n*65536)+(c*256)+l;end;local function t()local l=o(i(f,e,e),96);e=e+1;return l;end;local function c()local l,n=i(f,e,e+2);n=o(n,96)e=e+2;l=o(l,96)return(n*256)+l;end;local function F()local e=l();local l=l();local c=1;local o=(n(l,1,20)*(2^32))+e;local e=n(l,21,31);local l=((-1)^n(l,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 r(l,e-1023)*(c+(o/(2^52)));end;local r=l;local function A(l)local n;if(not l)then l=r();if(l==0)then return'';end;end;n=a(f,e,e+l-1);e=e+l;local l={}for e=1,#n do l[e]=h(o(i(a(n,e,e)),96))end return E(l);end;local e=l;local function h(...)return{...},s('#',...)end local function E()local i={};local e={};local d={};local f={[8]=e,[6]=i,[4]=nil,[1]=nil,[5]=d,};local o=t()local e;if o==0 then e=c()*2;else e=l();end local a={}for n=1,e do local l=t();local e;if(l==0)then e=F()end if(l==2)then e=(t()~=0)end if(l==1)then e=A()end local l={[7]=2}a[n]=e;end;for s=1,l()do local e=t();if(n(e,1,1)==0)then local o=n(e,2,3);local h,d,f=c(),c(),c();local t=n(e,4,6);local e={[5]=h,[4]=nil,[1]=f,[2]=d,};if(o==1)then e[2]=l()end if(o==3)then e[2],e[4]=l()-65536,c()end if(o==2)then e[2]=l()-65536 end if(o==0)then e[2],e[4]=c(),c()end if(n(t,2,2)==1)then e[2]=a[e[2]]end if(n(t,1,1)==1)then e[1]=a[e[1]]end if(n(t,3,3)==1)then e[4]=a[e[4]]end i[s]=e;end end;for e=1,l()do d[e-1]=E();end;f[4]=t();return f;end;local function r(e,f,a)local l=e[4];local A=e[5];local o=e[6];local e=e[1];return function(...)local s=s('#',...)-1;local i={};local h=h local E={};local n={};local c=l;local l=1;local t=-1;local o=o;local F=A;local A={...};for e=0,s do if(e>=c)then E[e-c]=A[e+1];else n[e]=A[e+1];end;end;local e=s-c+1 local e;local c;while true do e=o[l];c=e[5];if c<=35 then if c<=17 then if c<=8 then if c<=3 then if c<=1 then if c>0 then if(n[e[1]]==n[e[4]])then l=l+1;else l=e[2];end;else n[e[1]]=n[e[2]][e[4]];end;elseif c>2 then for e=e[1],e[2]do n[e]=nil;end;else n[e[1]]();end;elseif c<=5 then if c==4 then n[e[1]]=e[2];else n[e[1]]=a[e[2]];end;elseif c<=6 then l=e[2];elseif c>7 then n[e[1]]=a[e[2]];else local l=e[1]local c={n[l](d(n,l+1,t))};local o=0;for e=l,e[4]do o=o+1;n[e]=c[o];end end;elseif c<=12 then if c<=10 then if c>9 then n[e[1]]=e[2];else local e=e[1]local o,l=h(n[e]())t=l+e-1 local l=0;for e=e,t do l=l+1;n[e]=o[l];end;end;elseif c==11 then n[e[1]]=f[e[2]];else if(n[e[1]]==n[e[4]])then l=l+1;else l=e[2];end;end;elseif c<=14 then if c==13 then n[e[1]]={};else local c;local f;local i,r;local s;local c;n[e[1]]=a[e[2]];l=l+1;e=o[l];n[e[1]]=a[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];c=e[1];s=n[e[2]];n[c+1]=s;n[c]=s[e[4]];l=l+1;e=o[l];c=e[1]i,r=h(n[c](n[c+1]))t=r+c-1 f=0;for e=c,t do f=f+1;n[e]=i[f];end;l=l+1;e=o[l];c=e[1]i={n[c](d(n,c+1,t))};f=0;for e=c,e[4]do f=f+1;n[e]=i[f];end l=l+1;e=o[l];l=e[2];end;elseif c<=15 then do return n[e[1]]end elseif c==16 then n[e[1]]={};else for e=e[1],e[2]do n[e]=nil;end;end;elseif c<=26 then if c<=21 then if c<=19 then if c==18 then do return end;else local t;local c;c=e[1]n[c]=n[c]()l=l+1;e=o[l];n[e[1]]=a[e[2]];l=l+1;e=o[l];c=e[1]n[c]=n[c]()l=l+1;e=o[l];n[e[1]]=a[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];c=e[1];t=n[e[2]];n[c+1]=t;n[c]=t[e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];c=e[1];t=n[e[2]];n[c+1]=t;n[c]=t[e[4]];end;elseif c>20 then local f;local s,i;local c;c=e[1]n[c]=n[c](n[c+1])l=l+1;e=o[l];n[e[1]]=a[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];c=e[1]s,i=h(n[c](n[c+1]))t=i+c-1 f=0;for e=c,t do f=f+1;n[e]=s[f];end;l=l+1;e=o[l];c=e[1]n[c](d(n,c+1,t))l=l+1;e=o[l];n[e[1]]=a[e[2]];l=l+1;e=o[l];n[e[1]]=a[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];c=e[1]n[c](n[c+1])else local a=e[1];local o={};for e=1,#i do local e=i[e];for l=0,#e do local l=e[l];local c=l[1];local e=l[2];if c==n and e>=a then o[e]=c[e];l[1]=o;end;end;end;end;elseif c<=23 then if c==22 then local l=e[1]n[l]=n[l](d(n,l+1,e[2]))else local e=e[1]n[e](n[e+1])end;elseif c<=24 then local l=e[1];local o=n[e[2]];n[l+1]=o;n[l]=o[e[4]];elseif c==25 then local e=e[1]n[e]=n[e](n[e+1])else a[e[2]]=n[e[1]];end;elseif c<=30 then if c<=28 then if c==27 then if not n[e[1]]then l=l+1;else l=e[2];end;else local d=F[e[2]];local t;local c={};t=O({},{__index=function(l,e)local e=c[e];return e[1][e[2]];end,__newindex=function(n,e,l)local e=c[e]e[1][e[2]]=l;end;});for a=1,e[4]do l=l+1;local e=o[l];if e[5]==35 then c[a-1]={n,e[2]};else c[a-1]={f,e[2]};end;i[#i+1]=c;end;n[e[1]]=r(d,t,a);end;elseif c==29 then local c;c=e[1]n[c]=n[c](d(n,c+1,e[2]))l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];for e=e[1],e[2]do n[e]=nil;end;l=l+1;e=o[l];n[e[1]]=e[2];l=l+1;e=o[l];n[e[1]]=a[e[2]];else local l=e[1]n[l]=n[l](d(n,l+1,e[2]))end;elseif c<=32 then if c>31 then local e=e[1]local o,l=h(n[e]())t=l+e-1 local l=0;for e=e,t do l=l+1;n[e]=o[l];end;else local a;local c;n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=e[2];l=l+1;e=o[l];n[e[1]]=e[2];l=l+1;e=o[l];c=e[1]n[c]=n[c](d(n,c+1,e[2]))l=l+1;e=o[l];n[e[1]]={};l=l+1;e=o[l];n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]];l=l+1;e=o[l];c=e[1];a=n[c];for e=c+1,e[2]do D(a,n[e])end;end;elseif c<=33 then n[e[1]][e[2]]=e[4];elseif c==34 then local e=e[1]n[e](d(n,e+1,t))else n[e[1]]=n[e[2]];end;elseif c<=53 then if c<=44 then if c<=39 then if c<=37 then if c>36 then local t;local c;n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];a[e[2]]=n[e[1]];l=l+1;e=o[l];n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];a[e[2]]=n[e[1]];l=l+1;e=o[l];n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];c=e[1];t=n[e[2]];n[c+1]=t;n[c]=t[e[4]];l=l+1;e=o[l];n[e[1]]=e[2];l=l+1;e=o[l];c=e[1]n[c]=n[c](d(n,c+1,e[2]))l=l+1;e=o[l];a[e[2]]=n[e[1]];l=l+1;e=o[l];n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];a[e[2]]=n[e[1]];l=l+1;e=o[l];n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];a[e[2]]=n[e[1]];l=l+1;e=o[l];do return end;else n[e[1]]();end;elseif c>38 then if not n[e[1]]then l=l+1;else l=e[2];end;else n[e[1]]=n[e[2]];end;elseif c<=41 then if c==40 then if n[e[1]]then l=l+1;else l=e[2];end;else do return n[e[1]]end end;elseif c<=42 then local a=e[1];local o={};for e=1,#i do local e=i[e];for l=0,#e do local e=e[l];local c=e[1];local l=e[2];if c==n and l>=a then o[l]=c[l];e[1]=o;end;end;end;elseif c==43 then local l=e[1];local o=n[l];for e=l+1,e[2]do D(o,n[e])end;else local e=e[1]n[e]=n[e]()end;elseif c<=48 then if c<=46 then if c==45 then if(e[1]<n[e[4]])then l=l+1;else l=e[2];end;else local e=e[1]n[e](d(n,e+1,t))end;elseif c>47 then n[e[1]][e[2]]=e[4];else local e=e[1]n[e]=n[e](d(n,e+1,t))end;elseif c<=50 then if c==49 then local o=e[1]local c={n[o](d(n,o+1,t))};local l=0;for e=o,e[4]do l=l+1;n[e]=c[l];end else local e=e[1]n[e]=n[e](n[e+1])end;elseif c<=51 then local o=e[1];local l=n[e[2]];n[o+1]=l;n[o]=l[e[4]];elseif c>52 then n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];a[e[2]]=n[e[1]];l=l+1;e=o[l];n[e[1]]=f[e[2]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];n[e[1]]=n[e[2]][e[4]];l=l+1;e=o[l];a[e[2]]=n[e[1]];l=l+1;e=o[l];do return end;else local d=F[e[2]];local t;local c={};t=O({},{__index=function(l,e)local e=c[e];return e[1][e[2]];end,__newindex=function(n,e,l)local e=c[e]e[1][e[2]]=l;end;});for a=1,e[4]do l=l+1;local e=o[l];if e[5]==35 then c[a-1]={n,e[2]};else c[a-1]={f,e[2]};end;i[#i+1]=c;end;n[e[1]]=r(d,t,a);end;elseif c<=62 then if c<=57 then if c<=55 then if c==54 then local o=e[1];local a=e[4];local c=o+2 local o={n[o](n[o+1],n[c])};for e=1,a do n[c+e]=o[e];end;local o=o[1]if o then n[c]=o l=e[2];else l=l+1;end;else if(n[e[1]]~=n[e[4]])then l=l+1;else l=e[2];end;end;elseif c>56 then local l=e[1];local o=n[l];for e=l+1,e[2]do D(o,n[e])end;else do return end;end;elseif c<=59 then if c==58 then n[e[1]]=n[e[2]][e[4]];else if(n[e[1]]~=n[e[4]])then l=l+1;else l=e[2];end;end;elseif c<=60 then l=e[2];elseif c>61 then local e=e[1]local o,l=h(n[e](n[e+1]))t=l+e-1 local l=0;for e=e,t do l=l+1;n[e]=o[l];end;else if(e[1]<n[e[4]])then l=l+1;else l=e[2];end;end;elseif c<=67 then if c<=64 then if c==63 then local e=e[1]n[e]=n[e]()else n[e[1]]=f[e[2]];end;elseif c<=65 then if n[e[1]]then l=l+1;else l=e[2];end;elseif c==66 then local e=e[1]n[e](n[e+1])else if(n[e[1]]==e[4])then l=l+1;else l=e[2];end;end;elseif c<=69 then if c==68 then if(n[e[1]]==e[4])then l=l+1;else l=e[2];end;else a[e[2]]=n[e[1]];end;elseif c<=70 then local e=e[1]local o,l=h(n[e](n[e+1]))t=l+e-1 local l=0;for e=e,t do l=l+1;n[e]=o[l];end;elseif c>71 then local e=e[1]n[e]=n[e](d(n,e+1,t))else local c=e[1];local a=e[4];local o=c+2 local c={n[c](n[c+1],n[o])};for e=1,a do n[o+e]=c[e];end;local c=c[1]if c then n[o]=c l=e[2];else l=l+1;end;end;l=l+1;end;end;end;return d({r(E(),{},H())()})or nil;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement