Demon Slayer | Fling Others

--[[
	Made by Megumu/Mommy Mango
	<3
]]

local t=string.byte;local f=string.char;local c=string.sub;local u=table.concat;local s=math.ldexp;local A=getfenv or function()return _ENV end;local l=setmetatable;local r=select;local i=unpack;local h=tonumber;local function B(t)local e,o,d="","",{}local n=256;local a={}for l=0,n-1 do a[l]=f(l)end;local l=1;local function i()local e=h(c(t,l,l),36)l=l+1;local o=h(c(t,l,l+e-1),36)l=l+e;return o end;e=f(i())d[1]=e;while l<#t do local l=i()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[n]=e..c(o,1,1)d[#d+1],e,n=o,o,n+1 end;return table.concat(d)end;local d=B('1J1V2751V1R27622W23I23A22Z1V1P27623A23327B23123027727623C23I23623E1V1O27622723723I22U23E27K1V1L27622G23E22Z27V27X27Z27L1M27622K23B23I23123I23G22Z27Z1V1K27622B23423G23I23728727Y23128128328522427Z22X23A23G27R1E27622523E23323729223I28J23F22422Z23428G23C27R28B27522L23123E29C23B23A23523C28W27522H23A29O28Z23122X28K1G27621A23022Z22H29H23622029C27Z22F27C27627521Q27624N1N26N26822J1N27524M1N21R1V2222AQ1V24L27329M2B024F24K25J2AN22G25J1V24F24N1F2AN22J1F27524J172AN2281727524I1N22N1V22M2AX2BN2272BQ2BS2BF2BQ2BX24M1V2BP22M27624K2472AN22M2472B924Y21R23J1V21U2AU1V24X22V29M2CJ2B32332B62332B924Z2BI2AO2BL1V24Y21J2BP21U21J2752CW2CP2CZ2752512272BU22F2BU2B322F2B622F2CQ2CS22J2CU2CW24F1V22E2D01V2572DC26822M2DE2CV172AU22M2DI21J25B2BQ2DN2CW24V2E127525723J2C72CD1V23Q2BP2BQ2ED23M2CC2BQ2CG2CW2BF22M2DN2C02DW2C421Z26826822G2ER22O24K26F2692ET2EY22O2AS27521W2AX');local n=bit and bit.bxor or function(l,e)local o,n=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then n=n+o end l,e,o=(l-c)/2,(e-a)/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(e,l,o)if o then local l=(e/2^(l-1))%2^((o-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 o()local a,l,o,c=t(d,e,e+3);a=n(a,31)l=n(l,31)o=n(o,31)c=n(c,31)e=e+4;return(c*16777216)+(o*65536)+(l*256)+a;end;local function a()local l=n(t(d,e,e),31);e=e+1;return l;end;local function B()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 s(l,e-1023)*(c+(o/(2^52)));end;local h=o;local function s(l)local o;if(not l)then l=h();if(l==0)then return'';end;end;o=c(d,e,e+l-1);e=e+l;local e={}for l=1,#o do e[l]=f(n(t(c(o,l,l)),31))end return u(e);end;local e=o;local function h(...)return{...},r('#',...)end local function C()local t={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local f={};local e={};local d={t,nil,f,nil,e};local e=o()local c={0,0,0,0,0,0,0,0,0,0,0,0};for o=1,e do local e=a();local l;if(e==1)then l=(a()~=0);elseif(e==3)then l=B();elseif(e==0)then l=s();end;c[o]=l;end;d[2]=c d[4]=a();for l=1,o()do f[l-1]=C();end;for a=1,o()do local c=n(o(),185);local o=n(o(),65);local n=l(c,1,2);local e=l(o,1,11);local e={e,l(c,3,11),nil,nil,o};if(n==0)then e[3]=l(c,12,20);e[5]=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[5]=l(c,21,29);end;t[a]=e;end;return d;end;local function V(l,e,u)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local f=e;local a=n;local e=o;local n=l;local B=h local o=1;local c=-1;local h={};local t={...};local d=r('#',...)-1;local l={};local e={};for l=0,d do if(l>=n)then h[l-n]=t[l+1];else e[l]=t[l+1];end;end;local l=d-n+1 local l;local n;while true do l=f[o];n=l[1];if n<=15 then if n<=7 then if n<=3 then if n<=1 then if n>0 then e[l[2]]=u[a[l[3]]];else local n=l[2];local a=l[5];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;elseif n>2 then if e[l[2]]then o=o+1;else o=o+l[3];end;else local n=l[2];local a={};local o=0;local d=n+l[3]-1;for l=n+1,d do o=o+1;a[o]=e[l];end;local a={e[n](i(a,1,d-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;end;elseif n<=5 then if n==4 then if e[l[2]]then o=o+1;else o=o+l[3];end;else e[l[2]]=u[a[l[3]]];end;elseif n==6 then o=o+l[3];else e[l[2]]=a[l[3]];end;elseif n<=11 then if n<=9 then if n==8 then local s;local t;local d;local r;local h;local n;n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[a[l[5]]];o=o+1;l=f[o];e[l[2]]=a[l[3]];o=o+1;l=f[o];n=l[2];r={};d=0;t=n+l[3]-1;for l=n+1,t do d=d+1;r[d]=e[l];end;s={e[n](i(r,1,t-n))};t=n+l[5]-2;d=0;for l=n,t do d=d+1;e[l]=s[d];end;c=t;o=o+1;l=f[o];e[l[2]]=e[l[3]][a[l[5]]];o=o+1;l=f[o];n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[a[l[5]]];o=o+1;l=f[o];e[l[2]]=a[l[3]];o=o+1;l=f[o];for l=l[2],l[3]do e[l]=nil;end;o=o+1;l=f[o];e[l[2]]=e[l[3]][a[l[5]]];o=o+1;l=f[o];n=l[2];r={};d=0;t=n+l[3]-1;for l=n+1,t do d=d+1;r[d]=e[l];end;e[n](i(r,1,t-n));c=n;else if(e[l[2]]~=e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n==10 then local o=l[2];local a,n={e[o]()};local n=o+l[5]-2;local l=0;for o=o,n do l=l+1;e[o]=a[l];end;c=n;else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[a[l[5]]];end;elseif n<=13 then if n>12 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[a[l[5]]];else for l=l[2],l[3]do e[l]=nil;end;end;elseif n==14 then local n;local h,n;local t;local n;local r;local s;local d;e[l[2]]=u[a[l[3]]];o=o+1;l=f[o];e[l[2]]=e[l[3]][a[l[5]]];o=o+1;l=f[o];d=l[2];s=e[l[3]];e[d+1]=s;e[d]=s[a[l[5]]];o=o+1;l=f[o];d=l[2];r={};n=0;t=d+l[3]-1;for l=d+1,t do n=n+1;r[n]=e[l];end;h,t=B(e[d](i(r,1,t-d)));t=t+d-1;n=0;for l=d,t do n=n+1;e[l]=h[n];end;c=t;o=o+1;l=f[o];d=l[2];r={};n=0;t=c;for l=d+1,t do n=n+1;r[n]=e[l];end;h={e[d](i(r,1,t-d))};t=d+l[5]-2;n=0;for l=d,t do n=n+1;e[l]=h[n];end;c=t;o=o+1;l=f[o];o=o+l[3];else local n=l[2];local a={};local o=0;local d=c;for l=n+1,d do o=o+1;a[o]=e[l];end;local a={e[n](i(a,1,d-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;end;elseif n<=23 then if n<=19 then if n<=17 then if n>16 then local n=l[2];local d={};local o=0;local a=c;for l=n+1,a do o=o+1;d[o]=e[l];end;local a={e[n](i(d,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;else local o=l[2];local a={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;a[n]=e[l];end;e[o](i(a,1,l-o));c=o;end;elseif n==18 then e[l[2]]=a[l[3]];else local n=l[2];local d={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;d[o]=e[l];end;local a={e[n](i(d,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;end;elseif n<=21 then if n==20 then local o=l[2];local a,n={e[o]()};local n=o+l[5]-2;local l=0;for o=o,n do l=l+1;e[o]=a[l];end;c=n;else o=o+l[3];end;elseif n==22 then e[l[2]]=e[l[3]][a[l[5]]];else if(e[l[2]]~=e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n<=27 then if n<=25 then if n>24 then local n=l[2];local a={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;a[o]=e[l];end;local a,l=B(e[n](i(a,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;else local n=l[2];local a={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;a[o]=e[l];end;local a,l=B(e[n](i(a,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;end;elseif n==26 then do return end;else local o=l[2];local a={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;a[n]=e[l];end;e[o](i(a,1,l-o));c=o;end;elseif n<=29 then if n==28 then e[l[2]]=e[l[3]][a[l[5]]];else local n=l[2];local a=l[5];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;elseif n>30 then for l=l[2],l[3]do e[l]=nil;end;else do return end;end;o=o+1;end;end;end;return V(C(),{},A())();