Código:
$${
if(running);
log("&4[Craftlandia] Finalizando o macro...");
keyup(FORWARD);
unset(running);
stop();
else;
log("&2[Craftlandia] Iniciando o macro... Passe as informações necessárias para seu funcionamento!");
set(running);
endif;
do;
prompt(#slot,$$?,"[Macro] Digite em qual slot do HotBar está o item a ser utilizado na colheita (1-9) :");
while((%#slot%<1)|(%#slot%>9));
do;
prompt(#storeys,$$?,"[Macro] Digite o numero de anderes que sua plantação tem :");
if(%#storeys%=0);
#storeys = 1;endif;
while((%#storeys%<0));
if(%#storeys%>1);
prompt(&name,$$?,"[Macro] Digite o nome do /home dos andares :");
endif;
&dire=%DIRECTION%;ifmatches(%&dire%,N);
&dire=NORTH;endif;ifmatches(%&dire%,S);
&dire=SOUTH;endif;ifmatches(%&dire%,E);
&dire=EAST;endif;ifmatches(%&dire%,W);
&dire=WEST;
endif;
#storey=1;
do;
slot(%#slot%);
wait(100ms);
look(%&dire%);
wait(100ms);
look(,90);
wait(100ms);
key(ATTACK);
wait(100ms);
look(,65);
wait(100ms);
do;
if((%HITID%=88)|(%HITID%=115));
keydown(FORWARD);
key(ATTACK);
wait(50ms);
else;
keyup(FORWARD);
BREAK;
endif;
loop;
look(+180,);
wait(100ms);
look(,90);
wait(100ms);
pick(372);
wait(100ms);
do(3);
key(USE);
loop;
wait(100ms);
look(,65);
wait(100ms);
do;
pick(372);
if((%HITID%=88)|(%HITID%=115));
keydown(FORWARD);
key(USE);
wait(50ms);
else;
keyup(FORWARD);
BREAK;
endif;
loop;
key(USE);
wait(1);
for(#i,54,88);
getslotitem(%#i%,#id,#stack);
if(%#id%=372);
slotclick(%#i%,l,true);
wait(50ms);
endif;
next;
gui();
look(-90,);
wait(100ms);
if((%HITID%=88)|(%HITID%=115));
wait(100ms);
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
do;wait(10ms);
until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
keyup(FORWARD);
else;
wait(100ms);
if(%#storeys%>1);
wait(100ms);
if(%#storey%=%#storeys%);
key(CHAT);wait(1);
type(/home);
wait(1);
press(RETURN);
wait(8);
unset(running);
stop();
else;
inc(#storey,1);
key(CHAT);
wait(1);
type(/home %&name%%#storey%);
wait(1);
press(RETURN);
wait(8);
endif;
else;
key(CHAT);
wait(1);
type(/home);
wait(1);
press(RETURN);
wait(8);
unset(running);
stop();
endif;
endif;
loop;
}$$
