$${
IF(rxoneto);
Log("&2&l[&4&lMACRO&2&l] &4OFF");
Unset(rxoneto);set(@canaon);
keyup(sneak);keyup(left);keyup(right);keyup(back);keyup(forward);
stop;
Else;
Log("&2&l[&4&lMACRO&2&l] &2ON");set(@canaon);
keyup(sneak);keyup(left);keyup(right);keyup(back);keyup(forward);
Set(rxoneto);
getidrel(0,-1,0,&bloco);
if(%&bloco% = "stonebrick");else;echo(/home cana);
do;wait(1ms);getidrel(0,-1,0,&bloco);until(%&bloco% = "stonebrick");
endif;wait(500ms);

IFMATCHES(%DIRECTION%,N);
&direcao = NORTH;&direcao2 = SOUTH;&direcao3 = WEST;&direcao4 = EAST;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&direcao = SOUTH;&direcao2 = NORTH;&direcao3 = EAST;&direcao4 = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&direcao = WEST;&direcao2 = EAST;&direcao3 = NORTH;&direcao4 = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&direcao = EAST;&direcao2 = WEST;&direcao3 = SOUTH;&direcao4 = NORTH;
ENDIF;

log("&2&l[&4&lMACRO&2&l] &f%&direcao% Salva como Direção da Plantação");

do;
wait(600ms);
log("&2&l[&4&lMACRO&2&l] &fColhendo Direita - Esquerda");
keyup(sneak);keyup(left);keyup(right);keyup(back);keyup(forward);
wait(500ms);
keydown(sneak);do(10);keydown(left);look(%&direcao%);key(attack);wait(1ms);loop;keyup(sneak);
do;
look(%&direcao%);
keydown(left);
if(%HITID% = "reeds");
keyup(left);
keydown(sneak);
do;
key(attack);wait(1ms);
until(%HITID% = "air");
endif;
keyup(sneak);
keydown(left);
getidrel(0,-1,0,&bloco);
until(%&bloco% = "glowstone");
echo(/sethome canatemp);wait(300ms);

gui(inventory);#vazio = 0;
for(#inv,9,44);
getslotitem(%#inv%,&id,#stack);
ifmatches(%&id%,"^reeds$|^written_book$");else;
slotclick(%#inv%);wait(100ms);slotclick(-999);
endif;
ifmatches(%#stack%,"0");
inc(#vazio,1);
endif;
next;
gui();

if(%#vazio% < 5);keyup(sneak);keyup(left);keyup(right);keyup(back);keyup(forward);
echo(/clan home);do;wait(1ms);getidrel(0,-1,0,&bloco);until(%&bloco% = "planks");wait(500ms);
keydown(forward);look(SOUTH);do;look(SOUTH);key(use);wait(1ms);ifmatches(%ZPOS%,"120");echo(/clan home);wait(1);endif;until(%GUI% = "GUICHEST");wait(450ms);keyup(forward);
do(5);slotclick(16,r,true);wait(650ms);loop;
echo(/home canatemp);do;wait(1ms);getidrel(0,-1,0,&bloco);until(%&bloco% = "glowstone");
#vazio = 0;
else;
endif;

keydown(forward);wait(750ms);keydown(sneak);do;look(%&direcao%);wait(1ms);getidrel(0,-1,0,&bloco);until((%&bloco% = "glowstone") || (%&bloco% = "crafting_table"));keyup(forward);keyup(sneak);wait(500ms);
if(%&bloco% = "crafting_table");echo(/home cana);endif;

log("&2&l[&4&lMACRO&2&l] &fColhendo Esquerda - Direita");
keyup(sneak);keyup(left);keyup(right);keyup(back);keyup(forward);
wait(500ms);
keydown(sneak);do(10);keydown(right);look(%&direcao%);key(attack);wait(1ms);loop;keyup(sneak);
do;
look(%&direcao%);
keydown(right);
if(%HITID% = "reeds");
keyup(right);
keydown(sneak);
do;
key(attack);wait(1ms);
until(%HITID% = "air");
endif;
keydown(right);
keyup(sneak);
getidrel(0,-1,0,&bloco);
until(%&bloco% = "glowstone");
echo(/sethome canatemp);wait(300ms);

gui(inventory);#vazio = 0;
for(#inv,9,44);
getslotitem(%#inv%,&id,#stack);
ifmatches(%&id%,"^reeds$|^written_book$");else;
slotclick(%#inv%);wait(100ms);slotclick(-999);
endif;
ifmatches(%#stack%,"0");
inc(#vazio,1);
endif;
next;
gui();

if(%#vazio% < 5);keyup(sneak);keyup(left);keyup(right);keyup(back);keyup(forward);
echo(/clan home);do;wait(1ms);getidrel(0,-1,0,&bloco);until(%&bloco% = "planks");wait(500ms);
keydown(forward);look(SOUTH);do;look(SOUTH);key(use);wait(1ms);ifmatches(%ZPOS%,"120");echo(/clan home);wait(1);endif;until(%GUI% = "GUICHEST");wait(450ms);keyup(forward);
do(5);slotclick(16,r,true);wait(650ms);loop;
echo(/home canatemp);do;wait(1ms);getidrel(0,-1,0,&bloco);until(%&bloco% = "glowstone");
#vazio = 0;
else;
endif;

keydown(forward);wait(750ms);keydown(sneak);do;look(%&direcao%);wait(1ms);getidrel(0,-1,0,&bloco);until((%&bloco% = "glowstone") || (%&bloco% = "crafting_table"));keyup(forward);keyup(sneak);wait(500ms);
if(%&bloco% = "crafting_table");echo(/home cana);endif;


loop;
endif;
}$$