Shinobi Eternity | Inf Ryo

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

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