Plus Ultra II | Instant Kill

--[[
Made by Megumu
<3
]]

_G.Damage = 10000

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