$${
 if(z);
  log("&4[Macro] Colheita Hiper Feliz [OFF]");
  keyup(FORWARD);
  unset(z);
  stop();
 else;
  log("&2[Macro] Colheita Hiper Feliz [ON]");
  set(z);
 endif;

 &d=%DIRECTION%;
 ifmatches(%&d%,N);&d=NORTH;endif;
 ifmatches(%&d%,S);&d=SOUTH;endif;
 ifmatches(%&d%,E);&d=EAST;endif;
 ifmatches(%&d%,W);&d=WEST;endif;

 do;
  slot(9);wait(100ms);
  look(%&d%);wait(100ms);
  look(,90);wait(100ms);
  key(ATTACK);wait(100ms);
  look(,65);wait(100ms);
  do;
   if((HITNAME="Areia de Almas")|(HITNAME="Fungo do Nether"));
    keydown(forward);
    key(ATTACK);wait(100ms);
   else;
    keyup(FORWARD);
    BREAK;
   endif;
  loop;
  look(+180,);wait(100ms);
  look(,90);wait(100ms);
  pick(nether_wart);wait(100ms);
  do(3);key(USE);
  loop;wait(100ms);
  look(,65);wait(100ms);
  do;
   pick("nether_wart");
   if((HITNAME="Areia de Almas")|(HITNAME="Fungo do Nether"));
    keydown(FORWARD);
    key(USE);
    wait(100ms);
   else;
    keyup(FORWARD);
    BREAK;
   endif;
  loop;
  key(USE);
  wait(1);
  for(#i,54,88);
   getslotitem(%#i%,#id,#stack);
   if(%#id%=ITEMID("nether_wart"));
    slotclick(%#i%,l,true);
    wait(50ms);
   endif;
  next;
  gui();
  look(-90,);wait(100ms);
  if((HITNAME="Areia de Almas")|(HITNAME="Fungo do Nether"));
   #posx=%XPOS%;
   #posz=%ZPOS%;
   keydown(FORWARD);
   do;
    wait(10ms);
   until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
   wait(150ms);
   keyup(FORWARD);
  else;
  }$$/home inicio$${
  wait(8);
  endif;
 loop;
}$$