HxH: Lost Souls | Strength Farm

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

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