$${
if(cav);
unset(cav);
log( );
log("&6&l[VIP] &1Cava-Cava &4(OFF) &f- &aAproximadamente &a%#exp% de EXP.");
log( );
unset(@cav);
unset(@autoesc);
stop();
else;
set(cav);
log( );
log("&6&l[VIP] &1Cava-Cava &2(ON)");
log( );
set(@cav);
set(@autoesc);
IFMATCHES(%DIRECTION%,N);&near = NORTH;ENDIF;
IFMATCHES(%DIRECTION%,S);&near = SOUTH;ENDIF;
IFMATCHES(%DIRECTION%,W);&near = WEST;ENDIF;
IFMATCHES(%DIRECTION%,E);&near = EAST;ENDIF;
#nether = 0;
#exp = 0;
#bau = 1;
#repq=0;
&rep="diamond";
&pa="diamond_shovel"
&bloco="soul_sand";
look(%&near%);
look(,71);
set(cav2);
do;
do(250);
pick(%&bloco%);
key(use);
wait(1ms);
pick(%&pa%);
if(%DURABILITY%<20);
gui(inventory);
for(#i,9,45);
getslotitem(%#i%,&id,#stack1);
if(%&id%=%&rep%);
#repq=%#repq%+%#stack1%;
endif;
next;
wait(1);
gui();
if(%#repq%=0);
log( );
log("&6&l[VIP] &d&lCava-Cava &4(OFF) &dNão pôde reparar &f- &aAproximadamente &a%#exp% de EXP.");
log( );
unset(@cav);
unset(cav);
unset(cav2);
stop();
else(%#repq%>0%);
#repq=0;
look(%&near%);
look(,90);
key(use);
wait(2);
#repq=0;
endif;
endif;
endif;
look(%&near%);
look(,71);
if(%HITID%=%&bloco%);
key(attack);
inc(#exp, 1);
elseif(%HITID%="cake");
do(30);
look(%&near%);
look(,71);
key(attack);
wait(0.00000001ms);
loop;
elseif(%HITID%="netherrack");
do(80);
look(%&near%);
look(,71);
key(attack);
wait(0.00000001ms);
loop;
endif;
loop;
if(cav2);
gui(inventory);
wait(1);
getslotitem(35,&ida,#stack);
if(%#stack%=0);
else;
unset(@cav);
wait(1);
}$$/home esclixo$${
wait(3);
gui(inventory);
wait(300ms);
for(#lixo,9,35);
getslotitem(%#lixo%,&idl,#stackl);
if((%&idl%="cake")||(%&idl%="egg")||(%&idl%="record_wait"));
slotclick(%#lixo%,l,false);
wait(200ms);
slotclick(-999);
endif;
next;
do;
wait(1);
if(%#bau%=1);}$$/home esc1$${endif;
if(%#bau%=2);}$$/home esc2$${endif;
if(%#bau%=3);}$$/home esc3$${endif;
if(%#bau%=4);}$$/home esc4$${endif;
if(%#bau%=5);}$$/home esc5$${endif;
if(%#bau%=6);}$$/home esc6$${endif;
if(%#bau%=7);}$$/home esc7$${endif;
if(%#bau%=8);}$$/home esc8$${endif;
if(%#bau%=9);}$$/home esc9$${endif;
if(%#bau%=10);}$$/home esc10$${endif;
if(%#bau%=11);}$$/home esc11$${endif;
if(%#bau%=12);}$$/home esc12$${endif;
if(%#bau%=13);}$$/home esc13$${endif;
if(%#bau%=14);}$$/home esc14$${endif;
if(%#bau%=15);}$$/home esc15$${endif;
if(%#bau%=16);}$$/home esc16$${endif;
if(%#bau%=17);}$$/home esc17$${endif;
if(%#bau%=18);}$$/home esc18$${endif;
if(%#bau%=19);}$$/home esc19$${endif;
if(%#bau%=20);}$$/home esc20$${endif;
if(%#bau%=21);}$$/home esc21$${endif;
if(%#bau%=22);}$$/home esc22$${endif;
if(%#bau%=23);}$$/home esc23$${endif;
if(%#bau%=24);}$$/home esc24$${endif;
if(%#bau%=25);}$$/home esc25$${endif;
if(%#bau%=26);}$$/home esc26$${endif;
if(%#bau%=27);}$$/home esc27$${endif;
if(%#bau%=28);}$$/home esc28$${endif;
if(%#bau%=29);}$$/home esc29$${endif;
if(%#bau%=30);}$$/home esc30$${endif;
if(%#bau%=31);}$$/home esc31$${endif;
if(%#bau%=32);}$$/home esc32$${endif;
wait(5);
key(use);
wait(2);
for(#slotn,54,89);
GETSLOTITEM(%#slotn%,&id,#stack);
if((%&id%=%&pa%) || (%&id%=%&bloco%) || (%&id%=%&rep%));
else;
slotclick(%#slotn%,l,true);
wait(30ms);
slotclick(%#slotn%,l,true);
wait(30ms);
endif;
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);
inc(#bau);
endif;
if(%#bau%=33);
unset(cav2);
log(&d&l[MACRO] Cava-Cava &b"Baús cheios! Voltando a escavar.");
gui();
else;
gui();
endif;
set(@cav);
until(%#stack%=0);
}$$ /home macroesc $${
endif;//esse
endif;
gui(inventory);
wait(600ms);
for(#cli,36,45);
getslotitem(%#cli%,&ida,#stack);
if((%&ida%=%&bloco%)||(%&ida%=%&pa%));
else;
slotclick(%#cli%,l,true);
wait(50ms);
endif;
next;
wait(400ms);
for(#slot,9,35);
GETSLOTITEM(%#slot%,&id,#stack);
if((%&id%=%&pa%) || (%&id%=%&bloco%));
slotclick(%#slot%,l,true);
wait(30ms);
endif;
next;
getslotitem(35,&id35,#stack35);
if((%&id35%=%&bloco%)||(%&id35%=%&rep%));
slotclick(35,l,false);
wait(200ms);
slotclick(34,l,false);
wait(300ms);
endif;
gui();
loop;
endif;
}$$
Créditos não sei de quem, MAIS OBRIGADO AÍ QUEM FEZ (O macro é automático, upa somente com cascalho e puxa do inventário se preciso, também acho que guarda os livros, não me lembro, prefiro upar herbalismo). 
