Anime Tycoon | Dropper

--[[
	Made by Megumu/Mommy Mango
	<3
]]

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