MegumuSenpai

Esper Online | Auto Weight

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