$${
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;
}$$
