Esper Online | Inf Dash

--[[
	Made by Megumu#8008
	<3
]]

local f=string.byte;local r=string.char;local c=string.sub;local u=table.concat;local s=math.ldexp;local G=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local t=unpack;local i=tonumber;local function D(t)local e,o,n="","",{}local a=256;local d={}for l=0,a-1 do d[l]=r(l)end;local l=1;local function f()local e=i(c(t,l,l),36)l=l+1;local o=i(c(t,l,l+e-1),36)l=l+e;return o end;e=r(f())n[1]=e;while l<#t do local l=f()if d[l]then o=d[l]else o=e..c(e,1,1)end;d[a]=e..c(o,1,1)n[#n+1],e,a=o,o,a+1 end;return table.concat(n)end;local d=D('24H24G27527624G23K2762682761U27626C2761L27A24G24W24G1N27626D24O22822N1F24O27526C25427921625427526W27K24G1F28226C24W27928427526X27P27R27T24G26W23K28827924G27028228928F28728328226F25C24028325C24G1W26I26W27Q1I26W28X27123K27Q1F28J26O2761127628L2791D28227324829A1024828X26I24029128U1W29529729928J1128J29E24G29G27527324W28W1027K28Y28C1I27T1W27023S2751B2AE28K2821J28227124829729M28K23S1W24G1R2AH29A2751F27626S2762AY2752702B129D2B527526G28E27S27524H28E27524L27625W25D25E25O25H24G24M27625U25H25P25R25Y2BM24Q27626E25L2BQ26R25H25U2BU25U24G2BE25W25R25V25W25U25L25Q25J24G24K27626K25R25D25G2C627626R25X25E2CB25D25F25W2BN27625V25K25D2BQ2CM2BW2A227325Q25D25P25H25F25D25O25O25327626H28C1K28E26L25429727Z24G26929627R28J26K28P28N26K24O28828E26G24W27K28N26H2DL27R2DN26L2DQ2982B82DU28226L23S2972AH27B27529C27U2762142CI2542E22E72E51F2DN2DP29U2752DT28828226924G27Q1A2CI28P1P2ED2EF27R2EH2B724G26C2BA28E26K2EP2832DN2B92AX2BE2BG2762BO2752CY2D025H2D22762732D52D72D92DB25O24G24V27625J25H2CS25Z2D82BI2BI2BK2BM2CH27525J2FZ24G24R2CX2G72BQ2CL25R25Q25O261');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 o,l,c,a=f(d,e,e+3);o=n(o,160)l=n(l,160)c=n(c,160)a=n(a,160)e=e+4;return(a*16777216)+(c*65536)+(l*256)+o;end;local function a()local l=n(f(d,e,e),160);e=e+1;return l;end;local function D()local e=o();local o=o();local c=1;local n=(l(o,1,20)*(2^32))+e;local e=l(o,21,31);local l=((-1)^l(o,32));if(e==0)then if(n==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(n==0)and(l*(1/0))or(l*(0/0));end;return s(l,e-1023)*(c+(n/(2^52)));end;local i=o;local function s(l)local o;if(not l)then l=i();if(l==0)then return'';end;end;o=c(d,e,e+l-1);e=e+l;local e={}for l=1,#o do e[l]=r(n(f(c(o,l,l)),160))end return u(e);end;local e=o;local function f(...)return{...},h('#',...)end local function B()local t={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 d={t,nil,e,nil,c};for l=1,o()do e[l-1]=B();end;for a=1,o()do local c=n(o(),72);local o=n(o(),175);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;t[a]=e;end;d[4]=a();local l=o()local o={0,0,0,0,0,0,0,0};for n=1,l do local e=a();local l;if(e==1)then l=(a()~=0);elseif(e==2)then l=D();elseif(e==0)then l=s();end;o[n]=l;end;d[2]=o return d;end;local function D(l,e,r)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local c=e;local d=n;local B=o;local n=l;local l=f local e=1;local a=-1;local i={};local s={...};local f=h('#',...)-1;local l={};local o={};for l=0,f do if(l>=n)then i[l-n]=s[l+1];else o[l]=s[l+1];end;end;local u=f-n+1 local l;local n;while true do l=c[e];n=l[1];if n<=20 then if n<=9 then if n<=4 then if n<=1 then if n>0 then for l=l[2],l[3]do o[l]=nil;end;else o[l[2]]=r[d[l[3]]];end;elseif n<=2 then local n=l[2];local c={};local e=0;local d=n+l[3]-1;for l=n+1,d do e=e+1;c[e]=o[l];end;local c={o[n](t(c,1,d-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;a=l;elseif n>3 then for l=l[2],l[3]do o[l]=nil;end;else local e=l[2];local l={};local n=a;for e=e+1,n do l[#l+1]=o[e];end;do return o[e](t(l,1,n-e))end;end;elseif n<=6 then if n==5 then o[l[2]]=D(B[l[3]],nil,r);else do return end;end;elseif n<=7 then o[l[2]]=o[l[3]];elseif n>8 then o[l[2]]=(l[3]~=0);else local n=l[2];local c=n+l[3]-2;local e={};local l=0;for n=n,c do l=l+1;e[l]=o[n];end;do return t(e,1,l)end;end;elseif n<=14 then if n<=11 then if n>10 then local e=l[2];local n=(l[5]-1)*50;local c=o[e];local l=a-e;for l=1,l do c[n+l]=o[e+l]end;else o[l[2]]=D(B[l[3]],nil,r);end;elseif n<=12 then local l=l[2];a=l+u-1;for e=l,a do local l=i[e-l];o[e]=l;end;elseif n==13 then o[l[2]]={};else o[l[2]]=o[l[3]];end;elseif n<=17 then if n<=15 then if(o[l[2]]==d[l[5]])then e=e+1;else e=e+l[3];end;elseif n>16 then o[l[2]]={};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](t(c,1,l-e));a=e;end;elseif n<=18 then local n=l[2];local c=a;local e={};local l=0;for n=n,c do l=l+1;e[l]=o[n];end;do return t(e,1,l)end;elseif n>19 then local r;local s;local f;local h;local D;local n;o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];n=l[2];a=n+u-1;for l=n,a do D=i[l-n];o[l]=D;end;e=e+1;l=c[e];n=l[2];h={};f=a;for l=n+1,f do h[#h+1]=o[l];end;do return o[n](t(h,1,f-n))end;e=e+1;l=c[e];n=l[2];f=a;s={};r=0;for l=n,f do r=r+1;s[r]=o[l];end;do return t(s,1,r)end;e=e+1;l=c[e];do return end;else o[l[2]]=r[d[l[3]]];end;elseif n<=30 then if n<=25 then if n<=22 then if n==21 then do return end;else local h;local f;local i;local n;o[l[2]][d[l[3]]]=o[l[5]];e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];o[l[2]]=(l[3]~=0);e=e+1;l=c[e];n=l[2];i={};f=0;h=n+l[3]-1;for l=n+1,h do f=f+1;i[f]=o[l];end;o[n](t(i,1,h-n));a=n;e=e+1;l=c[e];do return end;end;elseif n<=23 then local n=l[2];local c=a;local e={};local l=0;for n=n,c do l=l+1;e[l]=o[n];end;do return t(e,1,l)end;elseif n>24 then local l=l[2];local e={};local n=a;for l=l+1,n do e[#e+1]=o[l];end;do return o[l](t(e,1,n-l))end;else local l=l[2];local n=o[l];local e=a-l;for e=1,e do n[e]=o[l+e]end;end;elseif n<=27 then if n==26 then local l=l[2];a=l+u-1;for e=l,a do local l=i[e-l];o[e]=l;end;else local s;local i;local n;local h;local f;o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];f=l[2];h={};n=0;i=f+l[3]-1;for l=f+1,i do n=n+1;h[n]=o[l];end;s={o[f](t(h,1,i-f))};i=f+l[5]-2;n=0;for l=f,i do n=n+1;o[l]=s[n];end;a=i;e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]][d[l[3]]]=o[l[5]];e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];f=l[2];h={};n=0;i=f+l[3]-1;for l=f+1,i do n=n+1;h[n]=o[l];end;s={o[f](t(h,1,i-f))};i=f+l[5]-2;n=0;for l=f,i do n=n+1;o[l]=s[n];end;a=i;e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];end;elseif n<=28 then local e=l[2];local c=e+l[3]-2;local n={};local l=0;for e=e,c do l=l+1;n[l]=o[e];end;do return t(n,1,l)end;elseif n>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](t(c,1,l-e));a=e;else e=e+l[3];end;elseif n<=35 then if n<=32 then if n>31 then e=e+l[3];else o[l[2]]=o[l[3]][d[l[5]]];end;elseif n<=33 then o[l[2]][d[l[3]]]=o[l[5]];elseif n>34 then o[l[2]][d[l[3]]]=o[l[5]];else local l=l[2];local n=o[l];local e=a-l;for e=1,e do n[e]=o[l+e]end;end;elseif n<=38 then if n<=36 then o[l[2]]=(l[3]~=0);elseif n>37 then if(o[l[2]]==d[l[5]])then e=e+1;else e=e+l[3];end;else local s;local i;local n;local h;local f;o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];f=l[2];h={};n=0;i=f+l[3]-1;for l=f+1,i do n=n+1;h[n]=o[l];end;s={o[f](t(h,1,i-f))};i=f+l[5]-2;n=0;for l=f,i do n=n+1;o[l]=s[n];end;a=i;e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];f=l[2];h={};n=0;i=f+l[3]-1;for l=f+1,i do n=n+1;h[n]=o[l];end;s={o[f](t(h,1,i-f))};i=f+l[5]-2;n=0;for l=f,i do n=n+1;o[l]=s[n];end;a=i;e=e+1;l=c[e];if(o[l[2]]==d[l[5]])then e=e+1;else e=e+l[3];end;end;elseif n<=39 then local s;local i;local f;local h;local n;o[l[2]]=(l[3]~=0);e=e+1;l=c[e];n=l[2];h={};f=0;i=n+l[3]-1;for l=n+1,i do f=f+1;h[f]=o[l];end;o[n](t(h,1,i-n));a=n;e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];o[l[2]]=r[d[l[3]]];e=e+1;l=c[e];n=l[2];h={};f=0;i=n+l[3]-1;for l=n+1,i do f=f+1;h[f]=o[l];end;s={o[n](t(h,1,i-n))};i=n+l[5]-2;f=0;for l=n,i do f=f+1;o[l]=s[f];end;a=i;elseif n==40 then o[l[2]]=o[l[3]][d[l[5]]];else local n=l[2];local d={};local e=0;local c=n+l[3]-1;for l=n+1,c do e=e+1;d[e]=o[l];end;local c={o[n](t(d,1,c-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;a=l;end;e=e+1;end;end;end;return D(B(),{},G())();