Advertisement
MegumuSenpai

Mythical World | Kill Others

Aug 25th, 2019
293
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.89 KB | None | 0 0
  1. --[[
  2. Made by Megumu/Mommy Mango
  3. <3
  4. ]]
  5.  
  6. local t=string.byte;local f=string.char;local c=string.sub;local s=table.concat;local u=math.ldexp;local C=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local i=unpack;local r=tonumber;local function D(t)local e,o,d="","",{}local a=256;local n={}for l=0,a-1 do n[l]=f(l)end;local l=1;local function i()local e=r(c(t,l,l),36)l=l+1;local o=r(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 n[l]then o=n[l]else o=e..c(e,1,1)end;n[a]=e..c(o,1,1)d[#d+1],e,a=o,o,a+1 end;return table.concat(d)end;local a=D('26825O27526I25G21O21F21I25G27526M26427921726427526N25G27025O21727C25O26E26K27G26K27J25W27U21725W27J25G24C27N27P26N27I27N28626J25O23W27N27525O26H21G27G21G25O22427227F21F21J28627326C27M21Q26C27526U27S21F21727U25O27327W27N27Z29126C24S27N28U25O26W142822171428J26H1C2792111C28J27326K25825O21H29027023G2751X29V22426H22S29K22S29N29P29R29028Q22429R29A27022K29W2AD29Z21W29K21W2A429Q29S2752A82AA2AN26C2AD21H29A25C24K28221O24K29H24S29K29828K28M28O2AQ27M21829A26U24427G2442AN29327Y2AQ29M21729A28Q1S2992AQ2182BO25O26V2A528Z27526V26S2A921726S27525N2BU29025N23W2BZ28B25O2C62AS2C929O27I21M29028927U21B28D26H21021E21F2112CN24Z26J27P21C27P25E28D25Q25M28D24L25824T24L25A25B25Q25K28D24R24T24H24P25Q25I28D23V24P25424F24P25A25624L24V2DE25N28D24C24G24T2512DM2D72DG2752DI2542DU2DW2DY25Q25J28D23K24J24V24T24G2E42DX25A25Q25H28D23Z24K24T25A24T24V2542DM25Q27P25O23O25524H24T24I24J24L24O2CZ28D23O24P2ED2542AZ28D2FB25O25Q26528D24E24P25824G2DP24T2ER24O24F25424J2EO24R2DE2D027523T25624P24I2542D72E827523S2DC24T2FT2FX2FZ2542DF28D23U2D524P2DL2DN2DM2FC');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 e(o,l,e)if e then local l=(o/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(o%(l+l)>=l)and 1 or 0;end;end;local l=1;local function o()local o,e,a,c=t(a,l,l+3);o=n(o,204)e=n(e,204)a=n(a,204)c=n(c,204)l=l+4;return(c*16777216)+(a*65536)+(e*256)+o;end;local function d()local e=n(t(a,l,l),204);l=l+1;return e;end;local function D()local l=o();local n=o();local c=1;local o=(e(n,1,20)*(2^32))+l;local l=e(n,21,31);local e=((-1)^e(n,32));if(l==0)then if(o==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return u(e,l-1023)*(c+(o/(2^52)));end;local r=o;local function u(e)local o;if(not e)then e=r();if(e==0)then return'';end;end;o=c(a,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=f(n(t(c(o,l,l)),204))end return s(e);end;local l=o;local function r(...)return{...},h('#',...)end local function A()local f={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,0,0,0,0,0,0,0,0,0,0,0};local t={};local l={};local a={f,nil,t,nil,l};for a=1,o()do local c=n(o(),39);local o=n(o(),231);local n=e(c,1,2);local l=e(o,1,11);local l={l,e(c,3,11),nil,nil,o};if(n==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(n==1)then l[3]=e(o,12,33);elseif(n==2)then l[3]=e(o,12,32)-1048575;elseif(n==3)then l[3]=e(o,12,32)-1048575;l[5]=e(c,21,29);end;f[a]=l;end;local l=o()local n={0,0,0,0,0,0,0,0,0,0,0,0,0,0};for o=1,l do local e=d();local l;if(e==3)then l=(d()~=0);elseif(e==0)then l=D();elseif(e==2)then l=u();end;n[o]=l;end;a[2]=n for l=1,o()do t[l-1]=A();end;a[4]=d();return a;end;local function O(l,e,u)local e=l[1];local o=l[2];local n=l[3];local l=l[4];return function(...)local d=e;local c=o;local e=n;local n=l;local D=r local o=1;local f=-1;local r={};local t={...};local a=h('#',...)-1;local l={};local e={};for l=0,a do if(l>=n)then r[l-n]=t[l+1];else e[l]=t[l+1];end;end;local l=a-n+1 local l;local n;while true do l=d[o];n=l[1];if n<=14 then if n<=6 then if n<=2 then if n<=0 then local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](i(c,1,l-o));f=o;elseif n>1 then if(e[l[2]]~=e[l[5]])then o=o+1;else o=o+l[3];end;else local n=l[2];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](i(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif n<=4 then if n>3 then local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=D(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif n==5 then e[l[2]]=c[l[3]];else local n=l[2];local a={};local o=0;local c=f;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif n<=10 then if n<=8 then if n==7 then local s;local r;local a;local h;local t;local n;n=l[2];t=e[l[3]];e[n+1]=t;e[n]=t[c[l[5]]];o=o+1;l=d[o];e[l[2]]=c[l[3]];o=o+1;l=d[o];n=l[2];h={};a=0;r=n+l[3]-1;for l=n+1,r do a=a+1;h[a]=e[l];end;s={e[n](i(h,1,r-n))};r=n+l[5]-2;a=0;for l=n,r do a=a+1;e[l]=s[a];end;f=r;o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];n=l[2];t=e[l[3]];e[n+1]=t;e[n]=t[c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];else if(c[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n>9 then if e[l[2]]then o=o+1;else o=o+l[3];end;else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n<=12 then if n>11 then local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else e[l[2]]=u[c[l[3]]];end;elseif n>13 then o=o+l[3];else do return end;end;elseif n<=22 then if n<=18 then if n<=16 then if n>15 then local n=l[2];local c={};local o=0;local a=f;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](i(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;else local n=l[2];local a={};local o=0;local c=n+l[3]-1;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif n==17 then local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](i(c,1,l-o));f=o;else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=D(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif n<=20 then if n==19 then o=o+l[3];else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];end;elseif n>21 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else local s;local t;local a;local r;local h;local n;n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[c[l[5]]];o=o+1;l=d[o];e[l[2]]=c[l[3]];o=o+1;l=d[o];n=l[2];r={};a=0;t=n+l[3]-1;for l=n+1,t do a=a+1;r[a]=e[l];end;s={e[n](i(r,1,t-n))};t=n+l[5]-2;a=0;for l=n,t do a=a+1;e[l]=s[a];end;f=t;o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];if(e[l[2]]~=e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n<=26 then if n<=24 then if n>23 then e[l[2]]=c[l[3]];else if(c[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n>25 then e[l[2]]=e[l[3]][c[l[5]]];else if(e[l[2]]~=e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n<=28 then if n>27 then e[l[2]]=u[c[l[3]]];else do return end;end;elseif n==29 then local n,n;local h;local t;local a;local r;local s;local n;e[l[2]]=u[c[l[3]]];o=o+1;l=d[o];e[l[2]]=u[c[l[3]]];o=o+1;l=d[o];n=l[2];s=e[l[3]];e[n+1]=s;e[n]=s[c[l[5]]];o=o+1;l=d[o];e[l[2]]=c[l[3]];o=o+1;l=d[o];n=l[2];r={};a=0;t=n+l[3]-1;for l=n+1,t do a=a+1;r[a]=e[l];end;h={e[n](i(r,1,t-n))};t=n+l[5]-2;a=0;for l=n,t do a=a+1;e[l]=h[a];end;f=t;o=o+1;l=d[o];n=l[2];s=e[l[3]];e[n+1]=s;e[n]=s[c[l[5]]];o=o+1;l=d[o];n=l[2];r={};a=0;t=n+l[3]-1;for l=n+1,t do a=a+1;r[a]=e[l];end;h,t=D(e[n](i(r,1,t-n)));t=t+n-1;a=0;for l=n,t do a=a+1;e[l]=h[a];end;f=t;o=o+1;l=d[o];n=l[2];r={};a=0;t=f;for l=n+1,t do a=a+1;r[a]=e[l];end;h={e[n](i(r,1,t-n))};t=n+l[5]-2;a=0;for l=n,t do a=a+1;e[l]=h[a];end;f=t;o=o+1;l=d[o];o=o+l[3];else e[l[2]]=e[l[3]][c[l[5]]];end;o=o+1;end;end;end;return O(A(),{},C())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement