Advertisement
MegumuSenpai

Clover Online | Speed AutoFarm

Jul 19th, 2019
1,644
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.43 KB | None | 0 0
  1. --[[
  2. Made by Megumu#8008
  3. <3
  4. ]]
  5.  
  6. local d=string.byte;local i=string.char;local c=string.sub;local s=table.concat;local u=math.ldexp;local G=getfenv or function()return _ENV end;local l=setmetatable;local H=select;local h=unpack;local r=tonumber;local function X(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=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=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=X('24T24H27524E24P22922M25224P27524F24P23L24H25427C24H24C24927525B27M1X24D24127925724124H1X24E24X27925224X27D24H27V25827524H24F24H26924H28228326P28C28724627S22M24X27V28825528224X25527524D1122M28K28U26627E27524W27J28724H24N28724G24L28725Y25C25K25X29728725I25C25O25G24G24W28726R25G25T25P25K25E25C25X25G25H26Q25X25Q25V25C25I29J29827526A29Z29J24R28726F25K25V25G26Q25G25V25Z2AG24G24S28726Q25T25G29V26T2A025K25R2AT25I24H');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 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,o,c,e=d(a,l,l+3);a=n(a,161)o=n(o,161)c=n(c,161)e=n(e,161)l=l+4;return(e*16777216)+(c*65536)+(o*256)+a;end;local function t()local e=n(d(a,l,l),161);l=l+1;return e;end;local function f()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 u(e,l-1023)*(c+(n/(2^52)));end;local u=o;local function r(e)local o;if(not e)then e=u();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]=i(n(d(c(o,l,l)),161))end return s(e);end;local l=o;local function b(...)return{...},H('#',...)end local function s()local i={0,0,0,0,0,0,0,0,0,0,0,0};local d={};local l={};local a={i,nil,d,nil,l};for a=1,o()do local c=n(o(),62);local o=n(o(),16);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;i[a]=l;end;for l=1,o()do d[l-1]=s();end;local l=o()local o={0,0,0,0,0,0};for n=1,l do local e=t();local l;if(e==0)then l=(t()~=0);elseif(e==3)then l=f();elseif(e==1)then l=r();end;o[n]=l;end;a[2]=o a[4]=t();return a;end;local function X(l,e,u)local e=l[1];local o=l[2];local n=l[3];local l=l[4];return function(...)local a=e;local c=o;local e=n;local n=l;local l=b local o=1;local t=-1;local f={};local d={...};local i=H('#',...)-1;local l={};local e={};for l=0,i do if(l>=n)then f[l-n]=d[l+1];else e[l]=d[l+1];end;end;local l=i-n+1 local l;local n;while true do l=a[o];n=l[1];if n<=8 then if n<=3 then if n<=1 then if n>0 then do return end;else e[l[2]]=c[l[3]];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](h(c,1,l-o));t=o;else o=o+l[3];end;elseif n<=5 then if n>4 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=6 then if e[l[2]]then o=o+1;else o=o+l[3];end;elseif n==7 then e[l[2]]=u[c[l[3]]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=13 then if n<=10 then if n>9 then o=o+l[3];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;t=n;end;elseif n<=11 then do return end;elseif n>12 then local i;local d;local r;local f;local n;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];n=l[2];f=e[l[3]];e[n+1]=f;e[n]=f[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;i=n+l[3]-1;for l=n+1,i do d=d+1;r[d]=e[l];end;e[n](h(r,1,i-n));t=n;o=o+1;l=a[o];o=o+l[3];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));t=o;end;elseif n<=15 then if n==14 then if e[l[2]]then o=o+1;else o=o+l[3];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;t=n;end;elseif n<=16 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];elseif n>17 then e[l[2]]=u[c[l[3]]];else e[l[2]]=c[l[3]];end;o=o+1;end;end;end;return X(s(),{},G())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement