Código:
$${
IF(xlyz);
log("&4&l[Macro Escavaçao] &4&lDesativada.");
Unset(xlyz);
stop;
else;
&m2 = "grass";
&m3 = "dirt";
&m12 = "sand";
&m13 = "gravel";
&m82 = "clay";
&m88 = "soul_sand";
&m110 = "mycelium";
log("&4&l[Macro Escavaçao] &e(by xlyz) &a&lAtivada.");
set(xlyz);
&dir = %DIRECTION%;
ifmatches(%&dir%,N);
&dir = NORTH;
endif;
ifmatches(%&dir%,S);
&dir = SOUTH;
endif;
ifmatches(%&dir%,E);
&dir = EAST;
endif;
ifmatches(%&dir%,W);
&dir = WEST;
endif;
set(nf);
PROMPT(#config,$$?, Quer usar a última configuraçao da macro?(1-Sim / 2-Não));
if(%#config% = 2);
log("&4[Macro]&9Você escolheu &4NAO &9usar a última configuraçao. Iniciando questionário..");
do;
PROMPT(&bloco,$$i, Qual bloco usará para escavar?);
until((&bloco = %&m2%)||(&bloco = %&m3%)||(&bloco = %&m12%)||(&bloco = %&m13%)||(&bloco = %&m82%)||(&bloco = %&m88%)||(&bloco = %&m110%));
do;
PROMPT(#quantidade,$$?, Qual quantidade de blocos que irá quebrar antes de verificar o inventário?Sugestão(500));
until((#quantidade > 30));
if(%#quantidade% > 799);
log("&4[Macro]&cCuidado! Esse valor é alto, podem ocorrer problemas só utilize se tem certeza do que esta fazendo!");
endif;
do;
PROMPT(#quebrar,$$?, Qual delay para quebrar os blocos?(0 sem delay para pás com mais eficiência/Aumente se o bloco nao quebrar!));
until((#quebrar < 20) && (#quebrar >= 0));
do;
PROMPT(#bau,$$?, Em qual baú devo iniciar o armazenamento?(1 à 91));
until((#bau > 0)&&(#bau <= 91));
else;
log("&4[Macro]&9Você escolheu &2usar &9a última configuraçao.");
log("&4[Macro]&9Configuraçoes:");
log("&4[Macro]&9Bau: &6%#bau%&e\&9Delay: &6%#quebrar%&e\&9Quantidade de blocos antes de verificar inventário: &6%#quantidade%&e\&9Id do bloco: &6%&bloco%");
endif;
#slot = 4;
#red = 0;
unset(repos_pas);
unset(bau_pas_full);
unset(sem_pas);
unset(pas_red);
unset(sem_material);
do();
if(repos_pas);
#slot = 4;
#red = 0;
unset(repos_pas);
endif;
// Quebrando blocos
do(%#quantidade%);
look(%&dir%);
look(,59);
pick(%&bloco%);
key(use);
wait(50ms);
slot(%#slot%);
if((DURABILITY < 100)&&(DURABILITY > 0));
inc(#slot);
else;
if(DURABILITY <= 0);
log("&4[Macro]&6Sem pá nesse slot, aguardando &915 &6segundos para carregar se você esta reconectando...");
wait(5);
log("&4[Macro]&910 &6segundos para continuar se você esta reconectando...");
log("&4[Macro]&2&lVou tentar logar, caso esteja reconectando...");
//##################INSIRA SUA SENHA ABAIXO CASO QUEIRA:################
}$$/login SUASENHA$${
//##################INSIRA SUA SENHA ACIMA CASO QUEIRA##################
wait(5);
log("&4[Macro]&9 5 &6segundos para continuar...");
wait(5);
log("&4[Macro]&9Continuando");
if((DURABILITY < 100) &&(DURABILITY > 0));
if(%#slot% < 9);
inc(#slot);
else;
log("&4[Macro]&9Reiniciando verificaçao de pás");
#slot = 4;
inc(#red);
endif;
endif;
if(DURABILITY <= 0);
inc(#slot);
endif;
endif;
endif;
if((%#slot% >= 10) && (%#red% < 3));
log("&4[Macro]&9Reiniciando verificaçao de pás");
#slot = 4;
inc(#red);
else;
if((%#slot% >= 10) && (%#red% > 2));
log("&4[Macro]&fReiniciei a verificaçao %#red% vezes, e todas as ferramentas estao no &4red&f, se possível as pás serao trocadas...");
set(pas_red);
break;
endif;
endif;
look(%&dir%);
look(,59);
if(%#quebrar% != 0);
do(%#quebrar%);
key(attack);
loop;
else;
key(attack);
endif;
loop;
if((pas_red)&&(!bau_pas_full)&&(!sem_pas));
set(repos_pas);
//Trocando pás
log("&4[Macro]&9Trocando pás no &4red&9...");
}$$/home trapbaus$${
wait(8);
//Guardar pás no red
look(WEST);
wait(800ms);
look(282,14);
do;
ifmatches(%GUI%,GUICHEST);
break;
endif;
look(282,14);
wait(2);
key(use);
wait(4);
loop;
log("&4[Macro]&9Guardando pás no &4red.");
for(#i,84,89);
slotclick(%#i%,l,true);
wait(30ms);
next;
//verifica se bau de pás red esta cheio
getslotitem(53,&id,#stack);
wait(500ms);
if(%#stack%!=0);
set(bau_pas_full);
log("&4[Macro]&f&lO baú de pás red está cheio!!! A próxima vez que as pás ficarem red nao irá trocar.");
endif;
gui();
//Pegar pás novas
look(299,15);
wait(800ms);
//Verificando slots vazios
#slot_vazio = 0;
for(#i,4,9);
getslotitem(%#i%,&id);
if(%#id%=0);
inc(#slot_vazio);
endif;
next;
do;
ifmatches(%GUI%,GUICHEST);
break;
endif;
look(299,15);
wait(2);
key(use);
wait(4);
loop;
wait(500ms);
log("&4[Macro]&9Pegando &2novas &9pás.");
//Pegando pás
#i = 0;
#cont = 0;
do;
getslotitem(%#i%,&id);
if(%#id%!=0);
slotclick(%#i%,l,true);
inc(#cont);
wait(100ms);
endif;
inc(#i);
if((%#cont% < %#slot_vazio%) && (%#i% >= 54));
log("&4[Macro]&f&lNao tem pás suficientes para encher a hotbar!!! A próxima vez que as pás ficarem red nao irá trocar.");
set(sem_pas);
break;
endif;
if((%#cont% >= %#slot_vazio%) || (%#i% >= 54));
break;
endif;
loop;
gui();
log("&4[Macro]&9Voltando ao local de escavaçao...");
}$$/home escavar$${
unset(pas_red);
wait(8);
elseif((pas_red)&&(bau_pas_full)||(sem_pas));
log("&4&l[Macro AVISO]&cInfelismente, nao será possível trocar as pás!!!");
if(bau_pas_full);
log("&4&l[Macro Escavaçao] &4Desativada&c, pois o bau de pás no red está cheio!!!");
else;
log("&4&l[Macro Escavaçao] &4Desativada&c, pois nao tem pás suficientes para repor no baú!!!");
endif;
unset(xlyz);
unset(bau_pas_full);
unset(sem_pas);
stop();
else;
// Abrindo inventário
gui(inventory);
pick(%&bloco%);
if(%STACKSIZE%<64);
log("&4[Macro]&9Repondo blocos.");
for(#i,9,35);
getslotitem(%#i%,&id);
if(%&id%=%&bloco%);
slotclick(%#i%,l,true);
wait(5ms);
endif;
next;
endif;
//Verifica se acabaram blocos do inventario
gui(inventory);
pick(%&bloco%)
if(%STACKSIZE% < 40);
log("&4[Macro]&9Aguardando blocos voltarem pro inventário.");
wait(4);
endif;
if((%STACKSIZE%<20) && (!sem_material));
log("&4[Macro]&9Nao tem blocos para repor, indo pegar mais!");
}$$/home trapbaus$${
wait(7);
do;
look(WEST);
wait(800ms);
look(270,17);
wait(2);
key(use);
wait(4);
ifmatches(%GUI%,GUICHEST);
wait(2);
break;
endif;
loop;
//Tirando outros itens dos slots onde fica o material usado.
for(#i,81,83);
slotclick(%#i%,l,true);
wait(30ms);
next;
//Pegando material do bau.
#i = 0;
#cont = 0;
do;
getslotitem(%#i%,&id);
if(%&id% = %&bloco%);
slotclick(%#i%,l,true);
inc(#cont);
wait(100ms);
endif;
inc(#i);
if((%#i% >= 54) && (%#cont% < 10));
log("&4[Macro]&f&lNao tem material suficiente para escavar no baú! A próxima vez que acabar, a macro desligará!");
set(sem_material);
break;
endif;
if((%#cont% >= 10) || (%#i% >= 54));
break;
endif;
loop;
log("&4[Macro]&9Voltando ao local de escavaçao...");
}$$/home escavar$${
wait(7);
elseif((%STACKSIZE% < 20) && (sem_material));
log("&4&l[Macro]&4 Desativada&c, pois acabou o material de escavaçao no baú!!!");
unset(sem_material);
unset(xlyz);
stop();
endif;
if(nf);
gui(inventory);
wait(1);
GETSLOTITEM(25,&id,#stack);
IF(%#stack%=0);
gui();
elseif;
// Indo para os baus.
}$$/home trapbaus$${
wait(7);
keydown(jump);wait(100ms);keyup(jump);wait(1);
//Guardando ítens nos baus.
do;
//Olhando e Tentando abrir baus.
do;
ifmatches(%GUI%,GUICHEST);
break;
endif;
look(NORTH);
wait(500ms);
if(%#bau%=1);look(-50,-24);endif;
if(%#bau%=2);look(-39,-28);endif;
if(%#bau%=3);look(-23,-32);endif;
if(%#bau%=4);look(+1,-34);endif;
if(%#bau%=5);look(+23,-32);endif;
if(%#bau%=6);look(+39,-28);endif;
if(%#bau%=7);look(+50,-24);endif;
if(%#bau%=8);look(+61,-23);endif;
if(%#bau%=9);look(+74,-24);endif;
if(%#bau%=10);look(+91,-26);endif;
if(%#bau%=11);look(+104,-25);endif;
if(%#bau%=12);look(+120,-23);endif;
if(%#bau%=13);look(+130,-24);endif;
if(%#bau%=14);look(+141,-28);endif;
if(%#bau%=15);look(+158,-32);endif;
if(%#bau%=16);look(-179,-34);endif;
if(%#bau%=17);look(-159,-32);endif;
if(%#bau%=18);look(-143,-27);endif;
if(%#bau%=19);look(-131,-24);endif;
if(%#bau%=20);look(-120,-23);endif;
if(%#bau%=21);look(-106,-24);endif;
if(%#bau%=22);look(-89,-26);endif;
if(%#bau%=23);look(-75,-25);endif;
if(%#bau%=24);look(-61,-23);endif;
if(%#bau%=25);look(-50,-10);endif;
if(%#bau%=26);look(-39,-12);endif;
if(%#bau%=27);look(-23,-14);endif;
if(%#bau%=28);look(+1,-16);endif;
if(%#bau%=29);look(+23,-14);endif;
if(%#bau%=30);look(+39,-12);endif;
if(%#bau%=31);look(+50,-10);endif;
if(%#bau%=32);look(+61,-10);endif;
if(%#bau%=33);look(+74,-11);endif;
if(%#bau%=34);look(+91,-11);endif;
if(%#bau%=35);look(+104,-11);endif;
if(%#bau%=36);look(+120,-10);endif;
if(%#bau%=37);look(+130,-10);endif;
if(%#bau%=38);look(+141,-12);endif;
if(%#bau%=39);look(+158,-14);endif;
if(%#bau%=40);look(-179,-16);endif;
if(%#bau%=41);look(-159,-14);endif;
if(%#bau%=42);look(-143,-12);endif;
if(%#bau%=43);look(-131,-10);endif;
if(%#bau%=44);look(-120,-10);endif;
if(%#bau%=45);look(-106,-11);endif;
if(%#bau%=46);look(-89,-11);endif;
if(%#bau%=47);look(-75,-11);endif;
if(%#bau%=48);look(-61,-10);endif;
if(%#bau%=49);look(-50,+4);endif;
if(%#bau%=50);look(-39,+4);endif;
if(%#bau%=51);look(-23,+4);endif;
if(%#bau%=52);look(+23,+4);endif;
if(%#bau%=53);look(+39,+4);endif;
if(%#bau%=54);look(+50,+4);endif;
if(%#bau%=55);look(+61,+4);endif;
if(%#bau%=56);look(+74,+4);endif;
if(%#bau%=57);look(+91,+4);endif;
if(%#bau%=58);look(+104,+4);endif;
if(%#bau%=59);look(+120,+4);endif;
if(%#bau%=60);look(+130,+4);endif;
if(%#bau%=61);look(+141,+4);endif;
if(%#bau%=62);look(+158,+4);endif;
if(%#bau%=63);look(-179,+4);endif;
if(%#bau%=64);look(-159,+4);endif;
if(%#bau%=65);look(-143,+4);endif;
if(%#bau%=66);look(-131,+4);endif;
if(%#bau%=67);look(-120,+4);endif;
if(%#bau%=68);look(-106,+4);endif;
if(%#bau%=69);look(-89,+4);endif;
if(%#bau%=70);look(-75,+4);endif;
if(%#bau%=71);look(-61,+4);endif;
if(%#bau%=72);look(-50,+16);endif;
if(%#bau%=73);look(-39,+20);endif;
if(%#bau%=74);look(-23,+22);endif;
if(%#bau%=75);look(+23,+22);endif;
if(%#bau%=76);look(+39,+20);endif;
if(%#bau%=77);look(+50,+16);endif;
if(%#bau%=78);look(+61,+16);endif;
if(%#bau%=79);look(+74,+18);endif;
if(%#bau%=80);look(+91,+18);endif;
if(%#bau%=81);look(+104,+18);endif;
if(%#bau%=82);look(+120,+16);endif;
if(%#bau%=83);look(+130,+16);endif;
if(%#bau%=84);look(+141,+20);endif;
if(%#bau%=85);look(+158,+22);endif;
if(%#bau%=86);look(-179,+24);endif;
if(%#bau%=87);look(-159,+22);endif;
if(%#bau%=88);look(-143,+20);endif;
if(%#bau%=89);look(-131,+16);endif;
if(%#bau%=90);look(-120,+17);endif;
if(%#bau%=91);look(-106,+18);endif;
wait(2);
key(use);
wait(4);//Delay para repetir o loop de tentar abrir baú.
loop;
for(#i,54,71);
slotclick(%#i%,l,true);
wait(30ms);
next;
wait(500ms);
getslotitem(53,&id,#stack);
wait(500ms);
if(%#stack%!=0);
if(%#bau%<91);
inc(#bau);
gui();
else;
unset(nf);
log("&4[Macro] &9Baús cheios! Agora &4nao &9serao guardados mais itens!!!");
gui();
break;
endif;
endif;
until(%#stack%=0);
}$$/home escavar$${
wait(10);
endif;
else;
gui();
endif;
endif;
loop;
endif;
}$$
