Shinobi Story | Inf Points [MMO]

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

local d=string.byte;local f=string.char;local c=string.sub;local T=table.concat;local b=math.ldexp;local A=getfenv or function()return _ENV end;local l=setmetatable;local u=select;local h=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]=f(l)end;local l=1;local function i()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=f(i())n[1]=e;while l<#d do local l=i()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 i=s('1A1427524L1C26S26Z2401C27524K1C2101424E27C1424N22427524227M23O24M21W27924421W1423O24L1K2792401K27D1421G1423W2751424T21027924D27G1424K1S27G24D1S28322C1424D28824K1422S28N28824T21O28C21O27D1S28228J27524M24426Z26Z24D29523F27E27524527J13288141028823722T23123429H28822R22T22X22P141E28821V22P23422F22P23A23623122V29T1L28822E22P23822W2A422T23422P22O22F23422Z23A22T22R29T1228822P22Q22Q22P22V29N29V27521U23123A22P2A02A22A114182882AK23122R23122Y22Q2BC23123B23029G14');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 e(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 l=1;local function o()local a,e,o,c=d(i,l,l+3);a=n(a,4)e=n(e,4)o=n(o,4)c=n(c,4)l=l+4;return(c*16777216)+(o*65536)+(e*256)+a;end;local function t()local e=n(d(i,l,l),4);l=l+1;return e;end;local function P()local l=o();local o=o();local c=1;local n=(e(o,1,20)*(2^32))+l;local l=e(o,21,31);local e=((-1)^e(o,32));if(l==0)then if(n==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(n==0)and(e*(1/0))or(e*(0/0));end;return b(e,l-1023)*(c+(n/(2^52)));end;local a=o;local function b(e)local o;if(not e)then e=a();if(e==0)then return'';end;end;o=c(i,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=f(n(d(c(o,l,l)),4))end return T(e);end;local l=o;local function r(...)return{...},u('#',...)end local function s()local f={0,0,0,0,0,0,0,0,0,0,0,0,0,0};local d={};local l={};local a={f,nil,d,nil,l};for a=1,o()do local c=n(o(),160);local o=n(o(),153);local n=e(c,1,2);local l=e(o,1,11);local l={l,e(c,3,11),nil,nil,o};if(n==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(n==1)then l[3]=e(o,12,33);elseif(n==2)then l[3]=e(o,12,32)-1048575;elseif(n==3)then l[3]=e(o,12,32)-1048575;l[5]=e(c,21,29);end;f[a]=l;end;local l=o()local n={0,0,0,0,0,0,0};for o=1,l do local e=t();local l;if(e==2)then l=(t()~=0);elseif(e==1)then l=P();elseif(e==0)then l=b();end;n[o]=l;end;a[2]=n a[4]=t();for l=1,o()do d[l-1]=s();end;return a;end;local function b(l,e,i)local n=l[1];local e=l[2];local o=l[3];local l=l[4];return function(...)local d=n;local c=e;local e=o;local n=l;local l=r local o=1;local f=-1;local r={};local t={...};local a=u('#',...)-1;local l={};local e={};for l=0,a do if(l>=n)then r[l-n]=t[l+1];else e[l]=t[l+1];end;end;local l=a-n+1 local l;local n;while true do l=d[o];n=l[1];if n<=9 then if n<=4 then if n<=1 then if n>0 then e[l[2]]=c[l[3]];else e[l[2]]=i[c[l[3]]];end;elseif n<=2 then o=o+l[3];elseif n==3 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;f=n;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](h(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;f=l;end;elseif n<=6 then if n==5 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;f=n;else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=7 then e[l[2]]=e[l[3]][c[l[5]]];elseif n>8 then o=o+l[3];else do return end;end;elseif n<=14 then if n<=11 then if n>10 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](h(c,1,l-o));f=o;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](h(c,1,l-o));f=o;end;elseif n<=12 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];elseif n>13 then if e[l[2]]then o=o+1;else o=o+l[3];end;else e[l[2]]=i[c[l[3]]];end;elseif n<=17 then if n<=15 then if e[l[2]]then o=o+1;else o=o+l[3];end;elseif n>16 then local s;local t;local a;local i;local r;local n;n=l[2];r=e[l[3]];e[n+1]=r;e[n]=r[c[l[5]]];o=o+1;l=d[o];e[l[2]]=c[l[3]];o=o+1;l=d[o];n=l[2];i={};a=0;t=n+l[3]-1;for l=n+1,t do a=a+1;i[a]=e[l];end;s={e[n](h(i,1,t-n))};t=n+l[5]-2;a=0;for l=n,t do a=a+1;e[l]=s[a];end;f=t;o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];n=l[2];r=e[l[3]];e[n+1]=r;e[n]=r[c[l[5]]];o=o+1;l=d[o];e[l[2]]=c[l[3]];o=o+1;l=d[o];n=l[2];i={};a=0;t=n+l[3]-1;for l=n+1,t do a=a+1;i[a]=e[l];end;e[n](h(i,1,t-n));f=n;o=o+1;l=d[o];o=o+l[3];else 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](h(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;f=l;end;elseif n<=18 then do return end;elseif n==19 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else e[l[2]]=c[l[3]];end;o=o+1;end;end;end;return b(s(),{},A())();