Advertisement
MegumuSenpai

Clover Online | Mana AutoFarm

Jul 19th, 2019
1,434
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.71 KB | None | 0 0
  1. --[[
  2. Made by Megumu#8008
  3. <3
  4. ]]
  5.  
  6. local f=string.byte;local i=string.char;local c=string.sub;local b=table.concat;local A=math.ldexp;local V=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,t="","",{}local a=256;local n={}for l=0,a-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())t[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[a]=e..c(o,1,1)t[#t+1],e,a=o,o,a+1 end;return table.concat(t)end;local a=s('23122T23127623022X2762311Q1C141P27827A1A1C101823023G27A21R181T11141E1C1P181921Q1P121V1C1A27L27927621A28127L22V27A217141V1821Q181V1R28I23022U27A21B181A141321A151C1V28423022R27A2181W28327T2171O131E1P14121323022P27A21M28S1922521B1O1111181P1U23J27A1V22T24D2422362752311U22T22523122O29Z1T1527623H2A826L1S1D29W23J1D23126L1V23H29W23623H2761U23122L2312902AP23121923123627A2AQ21P2AY27A1N22L2AM2AS2A02392AO2362392762AK2AM2AO2A02AR2B32AV1T2BK2BI2B22AZ2761N2192AM2AX2B92AO2352BD2311S1T24224223J2C21I2A127623G29Z27A231');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=f(a,e,e+3);l=n(l,109)a=n(a,109)c=n(c,109)o=n(o,109)e=e+4;return(o*16777216)+(c*65536)+(a*256)+l;end;local function t()local l=n(f(a,e,e),109);e=e+1;return l;end;local function r()local e=o();local o=o();local c=1;local n=(l(o,1,20)*(2^32))+e;local e=l(o,21,31);local l=((-1)^l(o,32));if(e==0)then if(n==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(n==0)and(l*(1/0))or(l*(0/0));end;return A(l,e-1023)*(c+(n/(2^52)));end;local d=o;local function A(l)local o;if(not l)then l=d();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(f(c(o,l,l)),109))end return b(e);end;local e=o;local function b(...)return{...},u('#',...)end local function s()local i={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local d={};local e={};local a={i,nil,d,nil,e};a[4]=t();local e=o()local c={0,0,0,0,0,0,0,0};for o=1,e do local e=t();local l;if(e==0)then l=(t()~=0);elseif(e==2)then l=r();elseif(e==1)then l=A();end;c[o]=l;end;a[2]=c for a=1,o()do local c=n(o(),115);local o=n(o(),31);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;i[a]=e;end;for l=1,o()do d[l-1]=s();end;return a;end;local function A(l,e,f)local o=l[1];local n=l[2];local e=l[3];local l=l[4];return function(...)local a=o;local c=n;local e=e;local n=l;local l=b local o=1;local d=-1;local r={};local i={...};local t=u('#',...)-1;local l={};local e={};for l=0,t do if(l>=n)then r[l-n]=i[l+1];else e[l]=i[l+1];end;end;local l=t-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 e[l[2]]=f[c[l[3]]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n==2 then if e[l[2]]then o=o+1;else o=o+l[3];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](h(c,1,l-o));d=o;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 local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];elseif n>7 then do return end;else e[l[2]]=f[c[l[3]]];end;elseif n<=13 then if n<=10 then if n>9 then e[l[2]]=c[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));d=o;end;elseif n<=11 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;d=n;elseif n==12 then e[l[2]]=c[l[3]];else o=o+l[3];end;elseif n<=15 then if n>14 then if e[l[2]]then o=o+1;else o=o+l[3];end;else do return end;end;elseif n<=16 then o=o+l[3];elseif n==17 then local r;local i;local u;local t;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];t=e[l[3]];e[n+1]=t;e[n]=t[c[l[5]]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];n=l[2];u={};i=0;r=n+l[3]-1;for l=n+1,r do i=i+1;u[i]=e[l];end;e[n](h(u,1,r-n));d=n;o=o+1;l=a[o];e[l[2]]=f[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];n=l[2];t=e[l[3]];e[n+1]=t;e[n]=t[c[l[5]]];o=o+1;l=a[o];e[l[2]]=c[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;d=n;end;o=o+1;end;end;end;return A(s(),{},V())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement