Advertisement
MegumuSenpai

Water Park World | Auto Collect

Sep 11th, 2019
3,299
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.74 KB | None | 0 0
  1. --[[
  2. Made by Megumu/Mommy Mango
  3. <3
  4.  
  5. Consider donating
  6. paypal.me/megumugay
  7. ludwigpaypal@gmail.com
  8. ]]
  9.  
  10. local t=string.byte;local f=string.char;local c=string.sub;local s=table.concat;local u=math.ldexp;local C=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local i=unpack;local r=tonumber;local function H(t)local e,o,a="","",{}local d=256;local n={}for l=0,d-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())a[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[d]=e..c(o,1,1)a[#a+1],e,d=o,o,d+1 end;return table.concat(a)end;local a=H('22122H27522I22K27522H21521K21C21721622I22827921A21I21721E21627B21M21O27G2791L21I21M21K21H1T21821G21522I22A2791921C21M21E21827B21N21H21O27F2832751U21O2191Q21D21C21H21P21721O21J22G27927924P22U28S28T22H21T1P22I22L27921Q21K21G27Q2202791B21O21521H28621K21921O21P1A21927K21K21Q27Q2932751Q21I21G21G22I22C29A21O21421828D2192852871C28122B2791V27D21O1A21O21721B2AE22I22927929L21J27Z21N2AH29Q22H1N29627Q2A829R28L28N1O21P21P29I22I22M27929S21J21J21O21M21928X22H27H2752BC28U28W28Y28Z2912AQ29529722I29927529B29D29F29H29J29L21729N29P2B529T29V29X2BR29Z2A12162A328621E2A622I2AV22H2AA28P2AD2AF2AH2AJ2752AL2AN2AP2792AS29728T27427526L22924P24M1X2CL2692212CY1X2CU26D2CX2CZ2CL26M1H2CY2151H22H26127121T2CY21321T2752702351P22H21J2352DN2351922H1Y2DT22H2DO21L2DX2DZ2DO2152E327526S23D2751Y2EA22H25L1P2CY1Y2DQ22H25O2EE2DX27925K2CU1Y2CU27022H2741Y27926M26X24M24M21O2EZ21226G2CL21C2CL22G23C27926H2D821M2CL26L2D324M2ER27526K22922X2DX2CL2FL2DQ1Y2FP2292DW2FS2FK2EQ2CU26G22H2FR27926I2152EH2E62DH22X2D42FN22H26P22P2D422P27526T2G92CZ2GB2722DC24M2DE2DG25P2EG24M2132EJ25O1H25L2DR2DF2EK1H26X2DX2H02GW26H2H42752GW2492H822H25G2EJ2EI27526121D2EH21D27526423D2552DX2ED2602FY2H92EU2EN2752722EZ2F12F32G02EA21B2G32152F021K2I621226H2FH2132FZ22H2FN21F2792G02DQ2IH2752G024P22H2IL22H2G022H22G21G27926922H2CY2162II21T27421E2DM2IR2F62CL22H');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(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 l=1;local function o()local c,a,e,o=t(a,l,l+3);c=n(c,89)a=n(a,89)e=n(e,89)o=n(o,89)l=l+4;return(o*16777216)+(e*65536)+(a*256)+c;end;local function d()local e=n(t(a,l,l),89);l=l+1;return e;end;local function E()local n=o();local l=o();local c=1;local n=(e(l,1,20)*(2^32))+n;local o=e(l,21,31);local l=((-1)^e(l,32));if(o==0)then if(n==0)then return l*0;else o=1;c=0;end;elseif(o==2047)then return(n==0)and(l*(1/0))or(l*(0/0));end;return u(l,o-1023)*(c+(n/(2^52)));end;local H=o;local function r(e)local o;if(not e)then e=H();if(e==0)then return'';end;end;o=c(a,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=f(n(t(c(o,l,l)),89))end return s(e);end;local l=o;local function s(...)return{...},h('#',...)end local function D()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};local t={0};local l={};local a={f,nil,t,nil,l};local l=o()local c={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};for o=1,l do local e=d();local l;if(e==0)then l=(d()~=0);elseif(e==1)then l=E();elseif(e==3)then l=r();end;c[o]=l;end;a[2]=c for l=1,o()do t[l-1]=D();end;for a=1,o()do local c=n(o(),177);local o=n(o(),123);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;a[4]=d();return a;end;local function u(l,e,r)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local d=e;local c=n;local D=o;local n=l;local H=s local o=1;local a=-1;local s={};local f={...};local t=h('#',...)-1;local l={};local e={};for l=0,t do if(l>=n)then s[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<=15 then if n<=7 then if n<=3 then if n<=1 then if n>0 then local n=l[2];local a=e[n+2];local c=e[n]+a;e[n]=c;if a>0 then if c<=e[n+1]then o=o+l[3];e[n+3]=c;end;elseif c>=e[n+1]then o=o+l[3];e[n+3]=c;end;else local n=l[2];e[n]=e[n]-e[n+2];o=o+l[3];end;elseif n==2 then e[l[2]]=c[l[3]];else e[l[2]]=c[l[3]];end;elseif n<=5 then if n>4 then e[l[2]]=r[c[l[3]]];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=H(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==6 then e[l[2]]=e[l[3]];else do return end;end;elseif n<=11 then if n<=9 then if n==8 then e[l[2]]=u(D[l[3]],nil,r);else local l=l[2];local c={};local o=0;local n=a;for l=l+1,n do o=o+1;c[o]=e[l];end;e[l](i(c,1,n-l));a=l;end;elseif n==10 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 local n=l[2];e[n]=e[n]-e[n+2];o=o+l[3];end;elseif n<=13 then if n>12 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={};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>14 then o=o+l[3];else e[l[2]]=r[c[l[3]]];end;elseif n<=23 then if n<=19 then if n<=17 then if n==16 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]]=e[l[3]][c[l[5]]];end;elseif n==18 then do return end;else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=21 then if n==20 then e[l[2]]=e[l[3]];else local u,n;local f;local t;local h;local s;local n;e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];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]]=e[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];n=l[2];h={};t=0;f=n+l[3]-1;for l=n+1,f do t=t+1;h[t]=e[l];end;u,f=H(e[n](i(h,1,f-n)));f=f+n-1;t=0;for l=n,f do t=t+1;e[l]=u[t];end;a=f;o=o+1;l=d[o];n=l[2];h={};t=0;f=a;for l=n+1,f do t=t+1;h[t]=e[l];end;e[n](i(h,1,f-n));a=n;end;elseif n>22 then local l=l[2];local n={};local o=0;local c=a;for l=l+1,c do o=o+1;n[o]=e[l];end;e[l](i(n,1,c-l));a=l;else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];end;elseif n<=27 then if n<=25 then if n>24 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=H(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 local n;local s,n;local f;local t;local h;local u;local n;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];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];n=l[2];u=e[l[3]];e[n+1]=u;e[n]=u[c[l[5]]];o=o+1;l=d[o];n=l[2];h={};t=0;f=n+l[3]-1;for l=n+1,f do t=t+1;h[t]=e[l];end;s,f=H(e[n](i(h,1,f-n)));f=f+n-1;t=0;for l=n,f do t=t+1;e[l]=s[t];end;a=f;o=o+1;l=d[o];n=l[2];h={};t=0;f=a;for l=n+1,f do t=t+1;h[t]=e[l];end;s={e[n](i(h,1,f-n))};f=n+l[5]-2;t=0;for l=n,f do t=t+1;e[l]=s[t];end;a=f;o=o+1;l=d[o];o=o+l[3];end;elseif n>26 then 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;else o=o+l[3];end;elseif n<=29 then if n>28 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];else e[l[2]]=u(D[l[3]],nil,r);end;elseif n>30 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 local n=l[2];local a=e[n+2];local c=e[n]+a;e[n]=c;if a>0 then if c<=e[n+1]then o=o+l[3];e[n+3]=c;end;elseif c>=e[n+1]then o=o+l[3];e[n+3]=c;end;end;o=o+1;end;end;end;return u(D(),{},C())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement