Farm Life | Glitch Farm

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

local d=string.byte;local r=string.char;local c=string.sub;local B=table.concat;local u=math.ldexp;local S=getfenv or function()return _ENV end;local l=setmetatable;local i=select;local f=unpack;local h=tonumber;local function s(d)local e,o,t="","",{}local a=256;local n={}for l=0,a-1 do n[l]=r(l)end;local l=1;local function f()local e=h(c(d,l,l),36)l=l+1;local o=h(c(d,l,l+e-1),36)l=l+e;return o end;e=r(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('26Z27027527026U27624024324D24823Z23S23Y24524224B27026W27624B24D24124927027427525023S23S23W25724923S27025B27624427V23W23Z25I25V25V23S24424924124D27I24327F24924925U25O28M23V24924E24424327E24D23W23W25U24F24324125V24A24D23Y24124024524A28K23W24423W25F24724923P25D24X25924Y25724Z26223T23Z24923Y25D27R27624S24024D23P29Q23Z27026V27624W24324F24D24029V29X29Q27026Y27624P29P23Y25124826Q27622H26S1C131126S27522L26K2AO1L26K27522K26S25O2701L2AR27022D2642AV2642752212AU132AW27522026424S2B22B92702BG24C2BJ2BF26423W2BO27022C26C2582B226C2BF2B42B32AY2BK1K2BK22G2702B91P27622G26S2AX142B42CB2751N2B4276275');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(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 e=1;local function o()local a,c,l,o=d(a,e,e+3);a=n(a,252)c=n(c,252)l=n(l,252)o=n(o,252)e=e+4;return(o*16777216)+(l*65536)+(c*256)+a;end;local function t()local l=n(d(a,e,e),252);e=e+1;return l;end;local function W()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 u(l,e-1023)*(c+(n/(2^52)));end;local h=o;local function u(l)local o;if(not l)then l=h();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]=r(n(d(c(o,l,l)),252))end return B(e);end;local e=o;local function r(...)return{...},i('#',...)end local function s()local f={0,0,0,0,0,0,0,0,0,0,0,0,0,0};local d={};local e={};local a={f,nil,d,nil,e};local e=o()local c={0,0,0,0,0,0,0};for o=1,e do local e=t();local l;if(e==1)then l=(t()~=0);elseif(e==2)then l=W();elseif(e==0)then l=u();end;c[o]=l;end;a[2]=c for a=1,o()do local c=n(o(),164);local o=n(o(),233);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;a[4]=t();for l=1,o()do d[l-1]=s();end;return a;end;local function u(l,e,d)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local a=e;local c=n;local e=o;local n=l;local h=r local o=1;local t=-1;local s={};local r={...};local i=i('#',...)-1;local l={};local e={};for l=0,i do if(l>=n)then s[l-n]=r[l+1];else e[l]=r[l+1];end;end;local l=i-n+1 local l;local n;while true do l=a[o];n=l[1];if n<=9 then if n<=4 then if n<=1 then if n>0 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](f(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else do return end;end;elseif n<=2 then do return end;elseif n==3 then local n=l[3];local o=e[n]for l=n+1,l[5]do o=o..e[l];end;e[l[2]]=o;else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=6 then if n>5 then e[l[2]]=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](f(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;elseif n<=7 then e[l[2]]();t=A;elseif n>8 then e[l[2]]=(l[3]~=0);else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];end;elseif n<=14 then if n<=11 then if n>10 then e[l[2]]=c[l[3]];else e[l[2]]=d[c[l[3]]];end;elseif n<=12 then local n=l[2];local c={};local o=0;local a=t;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](f(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;t=l;elseif n>13 then local n=l[3];local o=e[n]for l=n+1,l[5]do o=o..e[l];end;e[l[2]]=o;else local n=l[2];local a={};local o=0;local c=t;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](f(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;t=l;end;elseif n<=17 then if n<=15 then e[l[2]]=e[l[3]][c[l[5]]];elseif n==16 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else e[l[2]]();t=A;end;elseif n<=18 then e[l[2]]=(l[3]~=0);elseif n==19 then e[l[2]]=d[c[l[3]]];else local t;local n;local f;e[l[2]]=d[c[l[3]]];o=o+1;l=a[o];e[l[2]]=d[c[l[3]]];o=o+1;l=a[o];f=l[2];n=e[l[3]];e[f+1]=n;e[f]=n[c[l[5]]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];e[l[2]]=d[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];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];n=l[3];t=e[n]for l=n+1,l[5]do t=t..e[l];end;e[l[2]]=t;o=o+1;l=a[o];e[l[2]]=(l[3]~=0);end;o=o+1;end;end;end;return u(s(),{},S())();