Plus Ultra II | No Aggro

--[[
    Made by Megumu
    <3
]]

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