Advertisement
MegumuSenpai

Bloody Battle | GodMode

Mar 13th, 2020
908
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.76 KB | None | 0 0
  1. --[[
  2. Made by Megumu
  3. <3
  4. ]]
  5.  
  6. return(function(l,a,l,e)local f=unpack or table.unpack;local S=getfenv or function()return _ENV end;local s=string.byte;local l=table.insert;local r=tonumber;local V=select;local A=table.concat;local l=setmetatable;local u=string.char;local i=string.sub;local h={}for l=0,255 do h[l]=u(l)end;local function D(t)local n,o,a="","",{}local c=256;local l=e;local function d()local n=r(i(t,l,l),36)l=l+e;local e=r(i(t,l,l+n-e),36)l=l+n;return e end;n=u(d())a[e]=n;while l<#t do local l=d()if h[l]then o=h[l]else o=n..i(n,e,1)end;h[c]=n..i(o,e,1)a[#a+e],n,c=o,o,c+e end;return A(a)end;local u=D('22U22U22V27622S22Q27622V1N14161B1B22O27A23923022V25S21B27627527622T22W27L21B27P27A27A27M27Q22V27527J27T27O27A27R27T27527V27X27N22V22T28027622Y28328E28527W28D22S23127A1B1816131K1J1L1E191022S22R27A10161A1222S27H27621B1J1J1N1W121J22S21Y27A1F29A1N1K22L2202201N1628T121528W22114181A2201L161G2201H2191022921G1622N1G23227I23A28H27V23927627M27528D27621Z2AJ27U28E22S22V2AI27T2AS29027W27T2902892AP2752AX27W27Y28J28A2842892B62B127W29028Z29129329529722V21J1B161U121L1K22S27K2762171827D1B2BL2BN2BP22S2AD2762101F162A1141J2C12AS27610181329627A1Z1228T1L181U22S2AM22V21B21J27827A132CF101223527I2AI2BB27A2AO28H27Z2D52B627722V2D828B2762902DC27W2792DG27A22P2B528B28D2812AP2842AN2DQ28J2DJ2DA2DV22V2DF2DT27627H2DX2DL2B828C28E2AU2D32DS2D62E62DX2AS2DX2DZ2EB2332DB2E022V2E42DT2DO2DM2DR2AY22V');local t=(bit or bit32)and(bit or bit32).bxor or function(l,n)local e,o=e,0 while l>0 and n>0 do local a,c=l%2,n%2 if a~=c then o=o+e end l,n,e=(l-a)/2,(n-c)/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(o,l,n)if n then local l=(o/2^(l-e))%2^((n-e)-(l-e)+e);return l-l%e;else local l=2^(l-e);return(o%(l+l)>=l)and e or 0;end;end;local l=e;local function c()local o,e,c,n=s(u,l,l+3);o=t(o,103)e=t(e,103)c=t(c,103)n=t(n,103)l=l+a;return(n*16777216)+(c*65536)+(e*256)+o;end;local function d()local e,n=s(u,l,l+2);e=t(e,103)n=t(n,103)l=l+2;return(n*256)+e;end;local function J(...)return{...},V('#',...)end local function r()local n=t(s(u,l,l),103);l=l+e;return n;end;local function B()local n={};local b={};local A={};local D={[e]=n,[3]=A,[5]=nil,[7]=b,[8]=nil,};local f={}local n={}for d=e,r()==0 and d()*2 or c()do local n=r();while true do if(n==0)then local a,l=c(),c();local c,a,l,o=e,(o(l,e,20)*(2^32))+a,o(l,21,31),((-e)^o(l,32));if l==0 then if a==0 then n=o*0 break;else l=e;c=0;end;elseif(l==2047)then n=(o*((a==0 and e or 0)/0))break;end;n=(o*(2^(l-1023)))*(c+(a/(2^52)));break;end if(n==e)then n=(r()~=0);break;end if(n==3)then local o,c,a='',c();if(c==0)then n=o;break;end;a=i(u,l,l+c-e);l=l+c;for l=e,#a do o=o..h[t(s(i(a,l,l)),103)]end n=o break;end n=nil break;end f[d]=n;end;for h=e,c()do local l=r();if(o(l,e,e)==0)then local u,i,r=d(),d(),d();local n=o(l,2,3);local t=o(l,a,6);local l={[a]=r,[5]=i,[7]=u,[6]=nil,};if(n==0)then l[5],l[6]=d(),d()end if(n==2)then l[5]=c()-65536 end if(n==e)then l[5]=c()end if(n==3)then l[5],l[6]=c()-65536,d()end if(o(t,2,2)==e)then l[5]=f[l[5]]end if(o(t,e,e)==e)then l[a]=f[l[a]]end if(o(t,3,3)==e)then l[6]=f[l[6]]end A[h]=l;end end;D[8]=r();for l=e,c()do b[l-e]=B();end;return D;end;local function u(l,n,i)local D=0;local n=l[3];local r=l[7];local t=l[8];local l=l[5];return function(...)local c=n;local A=V('#',...)-e;local n={};local o=e;local d={...};local l={};local B={};local t=t;local s=r;local r=-e;local h=J for l=0,A do if(l>=t)then B[l-t]=d[l+e];else n[l]=d[l+e];end;end;local l;local t=A-t+e local t;while true do l=c[o];t=l[7];if D>0 then n[l[a]]=l[5];end if t<=11 then if t<=5 then if t<=2 then if t<=0 then local l=l[a]n[l](n[l+e])elseif t>e then n[l[a]]=l[5];else local o=l[a]local a,l=h(n[o](f(n,o+e,l[5])))r=l+o-e local l=0;for o=o,r do l=l+e;n[o]=a[l];end;end;elseif t<=3 then local l=l[a]n[l]=n[l](f(n,l+e,r))elseif t>a then local o=l[a];local a=n[l[5]];n[o+e]=a;n[o]=a[l[6]];else n[l[a]]=(l[5]~=0);end;elseif t<=8 then if t<=6 then n[l[a]]=i[l[5]];elseif t==7 then local a=l[a];local o=n[l[5]];n[a+e]=o;n[a]=o[l[6]];else local l=l[a]n[l]=n[l](f(n,l+e,r))end;elseif t<=9 then n[l[a]]=l[5];elseif t>10 then n[l[a]]=i[l[5]];else n[l[a]]();end;elseif t<=17 then if t<=14 then if t<=12 then do return end;elseif t==13 then do return end;else n[l[a]]();end;elseif t<=15 then n[l[a]]=u(s[l[5]],nil,i);elseif t>16 then local d;local s,A;local u;local t;n[l[a]]=i[l[5]];o=o+e;l=c[o];n[l[a]]=i[l[5]];o=o+e;l=c[o];t=l[a];u=n[l[5]];n[t+e]=u;n[t]=u[l[6]];o=o+e;l=c[o];n[l[a]]=l[5];o=o+e;l=c[o];n[l[a]]=(l[5]~=0);o=o+e;l=c[o];t=l[a]s,A=h(n[t](f(n,t+e,l[5])))r=A+t-e d=0;for l=t,r do d=d+e;n[l]=s[d];end;o=o+e;l=c[o];t=l[a]n[t]=n[t](f(n,t+e,r))o=o+e;l=c[o];n[l[a]]();o=o+e;l=c[o];do return end;else n[l[a]]=n[l[5]][l[6]];end;elseif t<=20 then if t<=18 then local d;local t;n[l[a]]=i[l[5]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];t=l[a];d=n[l[5]];n[t+e]=d;n[t]=d[l[6]];o=o+e;l=c[o];t=l[a]n[t](n[t+e])o=o+e;l=c[o];n[l[a]]=i[l[5]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];t=l[a];d=n[l[5]];n[t+e]=d;n[t]=d[l[6]];o=o+e;l=c[o];t=l[a]n[t](n[t+e])o=o+e;l=c[o];n[l[a]]=i[l[5]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];n[l[a]]=n[l[5]][l[6]];o=o+e;l=c[o];t=l[a];d=n[l[5]];n[t+e]=d;n[t]=d[l[6]];o=o+e;l=c[o];t=l[a]n[t](n[t+e])o=o+e;l=c[o];do return end;elseif t>19 then local o=l[a]local a,l=h(n[o](f(n,o+e,l[5])))r=l+o-e local l=0;for o=o,r do l=l+e;n[o]=a[l];end;else n[l[a]]=(l[5]~=0);end;elseif t<=21 then local l=l[a]n[l](n[l+e])elseif t==22 then n[l[a]]=u(s[l[5]],nil,i);else n[l[a]]=n[l[5]][l[6]];end;o=o+e;end;end;end;return f({u(B(),{},S())()})or nil;end)({},4,{},1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement