Advertisement
MegumuSenpai

Farm Life | Chop Trees

Sep 4th, 2019
558
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.53 KB | None | 0 0
  1. --[[
  2. Made by Megumu/Mommy Mango
  3. <3
  4. ]]
  5.  
  6. --Settings
  7. _G.Enabled = true; --Toggle On/Off
  8. _G.Type = "Basic"; --Tree Type
  9.  
  10. local t=string.byte;local f=string.char;local c=string.sub;local H=table.concat;local s=math.ldexp;local K=getfenv or function()return _ENV end;local l=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 d=C('21721L27526121L25L25I1P27521L26521D27921G21D27526421D27B21K27I21L26722X2751R27R2552622352791023521L25527E27G27O27K27M27O26723D27S28A27V1127Y1128126427C28G27J21D21521L1O27O2651X27G1X28L28N28P27526223T25I25I1029021Y26227F29227I25528I27528K21L27K28W27O26027O1327O21L21K28J27C2612971M28Q2152791H28N29E21D1921L1H28521D28A2A228L27R2A629E29X29W27526021L2A527C26222H25K25I1H22H21K25525P1927G2A021L25O1H22129M1H27525R23529N1R2B227V23D2AK1023D2AO25O1P25521L21I27B21L25H2AR25I21G2AT25G1124P29M28K25O1X27B1K28U21L25R1X2B32C027V2152B82152AO2AQ2AS2752AV2BQ21H2AZ2AU1P2A82BH2AV2BE1H2CE25H22X29V27R2AU2BU2A12BX25R2692751H2CW27V26H27Y26H2812C82BL2AT2CB21L122CE2BC2CH2CA1H23T2A12DB1H26X2DH27526N2492A824928126224H27Y24H28125O28121L1A27C25O22125L21L192AX2AU2552C61H2BE2AU24P1921K1H2BQ2AU2DO2EG2DQ2AU23T2212EG2DG2AU26X24P2EG2DK2AU26H23T2EG2D32AU26126H2EG27721L25D25L29V2E421L25C2AR2EG2AT2FD21L21N1H2FG192152FJ2FL1P2FO27526X2BK2FK27526W23D2BQ1H28A21L26W2BD2A12BH2FX2DQ2G02752702CE2CL27525C1P28N1H2BH2AE27B21F2AH25525J2922GO21Y29I27529K27C2GW1R27C21M21O27C22122G22822322221M21C27C22622E22322A2222H322I22K21M21R27C23J2HC22K22222521M21E27C22Y2H322622F22X22E22822F2252H72HS27523I22K22523E22922822D22L22322K22F21M21N27C22U23I21M21Q27C23G22F22G22J22D22K22L21M21J2HL2I022L23J2H52HP2I92IB2IV21P27C23121S2212HI2H127523122322422F22A2HJ27C23522K22G22D2252292H027C2332JO22422K29N2GW2GZ21M27C22G21T22K21N21K21M29L22J22421S22X2232282HH2JY2GW25L162H827C2HP22G22I22A2IR2IT2II21M21H27C22I22922E22122Y2252IE22F22M2JQ2KH2GW23D2IH27C2282IV29L23422322E22F1P23C2K421M29X21L22I22E22E2IC22E2HW2322H422523122822C2JX24J24G2M32M325S2KK2HK27522L22G22C22G22M2JX2JZ21L172L92H927522522K21T2252242IE2342IV21A27C22322J21T22G2222222I72LC131M1M1A1F191A1C111119111A21M2J727522M2MB2HI21427C22Z22K22122D2KF22G2MM22L2L12HC2MD2JC2J82IE2HO2IW2O122K22K2352282252NP2202JW2HP2KU27C23422F22722E22A22K22Y22K2232272OO2K12752LA2752IK2IM2IO2IQ2IS2IU2NH2HA2LW');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local a,c=l%2,o%2 if a~=c then n=n+e end l,o,e=(l-a)/2,(o-c)/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 o,c,a,l=t(d,e,e+3);o=n(o,57)c=n(c,57)a=n(a,57)l=n(l,57)e=e+4;return(l*16777216)+(a*65536)+(c*256)+o;end;local function a()local l=n(t(d,e,e),57);e=e+1;return l;end;local function C()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 s(l,e-1023)*(c+(n/(2^52)));end;local r=o;local function s(l)local o;if(not l)then l=r();if(l==0)then return'';end;end;o=c(d,e,e+l-1);e=e+l;local e={}for l=1,#o do e[l]=f(n(t(c(o,l,l)),57))end return H(e);end;local e=o;local function u(...)return{...},h('#',...)end local function I()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,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 e={};local d={f,nil,t,nil,e};for a=1,o()do local c=n(o(),225);local o=n(o(),40);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;f[a]=e;end;d[4]=a();for l=1,o()do t[l-1]=I();end;local l=o()local o={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};for n=1,l do local e=a();local l;if(e==2)then l=(a()~=0);elseif(e==1)then l=C();elseif(e==3)then l=s();end;o[n]=l;end;d[2]=o return d;end;local function H(l,e,r)local n=l[1];local e=l[2];local o=l[3];local l=l[4];return function(...)local a=n;local n=e;local L=o;local c=l;local C=u local o=1;local d=-1;local s={};local f={...};local t=h('#',...)-1;local l={};local e={};for l=0,t do if(l>=c)then s[l-c]=f[l+1];else e[l]=f[l+1];end;end;local l=t-c+1 local l;local c;while true do l=a[o];c=l[1];if c<=20 then if c<=9 then if c<=4 then if c<=1 then if c==0 then e[l[2]]=e[l[3]][e[l[5]]];else e[l[2]]=n[l[3]];end;elseif c<=2 then e[l[2]]();d=A;elseif c==3 then local c=l[2];local o=e[l[3]];e[c+1]=o;e[c]=o[n[l[5]]];else e[l[2]]=e[l[3]];end;elseif c<=6 then if c==5 then 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](i(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;d=l;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));d=o;end;elseif c<=7 then local c;local s,c;local f;local c;local h;local H;local t;e[l[2]]=r[n[l[3]]];o=o+1;l=a[o];e[l[2]]=r[n[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];t=l[2];H=e[l[3]];e[t+1]=H;e[t]=H[n[l[5]]];o=o+1;l=a[o];t=l[2];h={};c=0;f=t+l[3]-1;for l=t+1,f do c=c+1;h[c]=e[l];end;s,f=C(e[t](i(h,1,f-t)));f=f+t-1;c=0;for l=t,f do c=c+1;e[l]=s[c];end;d=f;o=o+1;l=a[o];t=l[2];h={};c=0;f=d;for l=t+1,f do c=c+1;h[c]=e[l];end;s={e[t](i(h,1,f-t))};f=t+l[5]-2;c=0;for l=t,f do c=c+1;e[l]=s[c];end;d=f;o=o+1;l=a[o];o=o+l[3];elseif c>8 then e[l[2]]();d=A;else e[l[2]]=H(L[l[3]],nil,r);end;elseif c<=14 then if c<=11 then if c==10 then if e[l[2]]then o=o+1;else o=o+l[3];end;else 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;end;elseif c<=12 then e[l[2]][n[l[3]]]=n[l[5]];elseif c>13 then local n=l[2];local c={};local o=0;local a=d;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](i(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;d=l;else e[l[2]][n[l[3]]]=n[l[5]];end;elseif c<=17 then if c<=15 then e[l[2]]=r[n[l[3]]];elseif c>16 then o=o+l[3];else e[l[2]]=e[l[3]];end;elseif c<=18 then do return end;elseif c==19 then e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][e[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];if(n[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;else local n=l[2];local a={};local o=0;local c=d;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(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;d=l;end;elseif c<=30 then if c<=25 then if c<=22 then if c>21 then 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](i(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;d=l;else e[l[2]]=H(L[l[3]],nil,r);end;elseif c<=23 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=C(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;d=l;elseif c==24 then local f;local t;local h;local s;local c;e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]][n[l[3]]]=n[l[5]];o=o+1;l=a[o];e[l[2]]=r[n[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];c=l[2];s=e[l[3]];e[c+1]=s;e[c]=s[n[l[5]]];o=o+1;l=a[o];e[l[2]]=r[n[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][e[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]];o=o+1;l=a[o];c=l[2];h={};t=0;f=c+l[3]-1;for l=c+1,f do t=t+1;h[t]=e[l];end;e[c](i(h,1,f-c));d=c;else e[l[2]]={};end;elseif c<=27 then if c>26 then e[l[2]]={};else e[l[2]]=e[l[3]][e[l[5]]];end;elseif c<=28 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=C(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;d=l;elseif c>29 then e[l[2]]=e[l[3]][n[l[5]]];else if(n[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif c<=35 then if c<=32 then if c==31 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](i(c,1,l-o));d=o;end;elseif c<=33 then if(n[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;elseif c>34 then o=o+l[3];else 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;end;elseif c<=38 then if c<=36 then local s;local f;local t;local h;local r;local c;e[l[2]]=e[l[3]][n[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][e[l[5]]];o=o+1;l=a[o];c=l[2];r=e[l[3]];e[c+1]=r;e[c]=r[n[l[5]]];o=o+1;l=a[o];e[l[2]]=n[l[3]];o=o+1;l=a[o];c=l[2];h={};t=0;f=c+l[3]-1;for l=c+1,f do t=t+1;h[t]=e[l];end;s={e[c](i(h,1,f-c))};f=c+l[5]-2;t=0;for l=c,f do t=t+1;e[l]=s[t];end;d=f;o=o+1;l=a[o];if e[l[2]]then o=o+1;else o=o+l[3];end;elseif c>37 then e[l[2]]=n[l[3]];else e[l[2]]=r[n[l[3]]];end;elseif c<=39 then local c=l[2];local o=e[l[3]];e[c+1]=o;e[c]=o[n[l[5]]];elseif c==40 then do return end;else e[l[2]]=e[l[3]][n[l[5]]];end;o=o+1;end;end;end;return H(I(),{},K())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement