Hexaria | Inf Range & AoE

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

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