Amigo,em qual bau guardar as pás para ele pegar depois que as do inventário estiverem no red?
- Status
Bom demais vou testar agora q meu vip acabou 
Sou vip nem vou usar, malz <3
Anderson13fs
Bom
Agr sim ja posso falar com toda certeza que está o melhor macro de esc do forum, porem tenho uma sugestão, ele eh tao bom que vc poderia arrumar para players vips poder usar (no caso, reparar a pá), ai pronto, o macro estaria completo e perfeito. Analise a sugestão!xlyz disse:Escavação (Não VIP)
1.Descrição:
Editei a macro do [member=rogroote] (Macro aqui) para funcionar com Auto-reconnect, e fiz algumas melhorias no código em geral, pois continha alguns bugs. Parte dos créditos pra ele '-'
*Ela escava, guarda itens, troca a pá quando está no red, quando todas as pás da hotbar ficam no red irá para a trap de baús guardar as pás no red e pegar novas pás em outro baú, e repõe os blocos da hotbar com os blocos do inventário.
Obs: Adiantando, GUARDA livros.
2.Homes e trap de baús:
Usa 2 homes, a primeira é a home "escavar" na qual você vai upar .
Imagem:
E a segunda é a home "trapbaus", onde serão armazenados os itens. São 4 faces, 2 (uma de frente para outra) tem 4 linhas com 5 colunas, e as outras 2 são de 4 linhas e 7 colunas, marque a home no bloco do meio, preferencialmente olhando para o espaço (esse que é como uma porta).
Obrigatoriamente você deve construir a trap com essa "porta" virado para o lado NORTE
Imagem:
Imagens para ajudar na construção da trap:
Importante:
A macro irá usar 2 baús da trap para guardar as pás que estão no red do inventário, e pegar pás novas. Então vou colocar print mas também vou deixar um macro para vocês verificarem se a trap esta feita corretamente:
Baú de pás gastas (ao iniciar a macro deixe ele vazio):
Baú que irá pegar as pás novas (Quanto mais pás você deixar nele maior será o tempo que você poderá upar):
Quando o baú de pás no red estiver cheio e a macro não conseguir guardar mais pás, a macro irá desligar, ou quando acabarem as pás do baú que ela pega.
Macro para verificar se você fez a trap corretamente:
$${
if(flag);
unset(flag);
log("&4[Macro]&everifica baús escavação: &4Desativada");
stop();
else;
set(flag);
log("&4[Macro]&everifica baús escavação: &aAtivada");
#bau = 1;
do;
look(NORTH);
log("&4[Macro]&eBaú: %#bau%");
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;
if(%#bau%=92);look(-89,+19);endif;
wait(800ms);
inc(#bau);
if(%#bau% > 92);
break;
endif;
loop;
endif;
log("&4[Macro]&6Baú onde devem ficar pás no &4RED:");
look(WEST);
look(282,14);
wait(2);
log("&4[Macro]&6Baú onde devem ficar pás &aREPARADAS/NOVAS:");
look(WEST);
look(299,15);
wait(2);
unset(flag);
log("&4[Macro]&everifica baús escavação: &4Desativada");
endif;
}$$
3.Inventário:
Seu inventário deve estar organizado dessa maneira:
4.Perguntas da macro:
4.1:
Se você já executou a macro alguma vez e quer usar as mesmas respostas, digite 1. Se ainda não usou, ou não quer usar as mesmas configurações, pressione 2, fazendo isso a macro irá abrir o questionário.
4.2:
Primeira pergunta:
Escolha o bloco que usará ou digite o ID do bloco, se você escolher um item que não de para escavar, ou não de xp de escavação, a macro irá repetir a pergunta até você escolher o bloco correto.
4.3:
Essa pergunta se refere a quantos blocos você quer que escave antes de repor os blocos e verificar se o inventário esta cheio.
4.4:
Se você estiver usando pá eficiência 7 , 5 ou 4 pode digitar 0 (zero), mas se for uma pá eficiência 3 você terá que escolher um delay maior como 1 ou 2, e quanto menor a eficiência da pá você terá de ajustar o delay de acordo com ela.
4.5:
Por fim, escolha qual baú a macro deve iniciar o armazenamento dos itens, entre 1 e 92.
5.Agradecimento:
Obrigado ao [member=luiz bussatto], [member=zAries] e pedrucar, por me ajudarem a testar a macro (então se der algo errado culpem eles. -q).
6.Código:
Código:$${ IF(xlyz); log("&4&l[Macro Escavaçao] &4&lDesativada."); Unset(xlyz); stop; else; 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 = 2)||(#bloco = 3)||(#bloco = 12)||(#bloco = 13)||(#bloco = 82)||(#bloco = 88)||(#bloco = 110)); do; PROMPT(#quantidade,$$?, Qual quantidade de blocos que irá quebrar antes de verificar o inventário?Sugestão(500)); until((#quantidade > 30)); 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 à 92)); until((#bau > 0)&&(#bau <= 92)); 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); 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(1ms); 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..."); 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(1); key(use); wait(1); 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]&fO 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(1); key(use); wait(1); 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]&fNao 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; if((pas_red)&&(bau_pas_full) || (sem_pas)); log("&4&l[Macro AVISO]&cInfelismente, nao será possível trocar as pás!!!"); log("&4&l[Macro Escavaçao] &4Desativada&c, pois o bau de pás no red está cheio ou nao tem pás suficientes no baú."); unset(xlyz); unset(bau_pas_full); unset(sem_pas); stop(); endif; 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; 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); do; look(NORTH); 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; if(%#bau%=92);look(-89,+19);endif; wait(1); // Guardando ítens nos baus. //Tentando abrir baus. do; ifmatches(%GUI%,GUICHEST); break; endif; wait(1); key(use); wait(1); 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%<92); 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; }$$
Sugiro que usem o macro de economia de blocos do [member=Phodalao], testei quando usei a macro e não ocorreu nenhum bug, porém essa possibilidade não está descartada:
Tópico do macro (Clique aqui), mas vou colocar a macro aqui para facilitar:
Código:$${IFMATCHES(%CHAT%,"Limpando itens do chao em 5s");gui(inventory);wait(6000ms);gui();endif;}$$
Coloque em ONCHAT (e NÃO em uma tecla).
7.Atualizações:
*19/05/2015 - Tópico criado;
*20/05/2015 - Graças ao [member=Anderson13fs] percebi que o delay poderia ser menor, agora a macro está mais eficiente;
*23/05/2015 - Agora após a macro perceber que todos as pás do inventário estão no red, irá para a home trapbaus e pegará novas pás. Sugerido por [member=gabrielzym]
______________________________________________________________________
Qualquer bug ou sugestão deixem nos comentários vlw
Anderson13fs
Bom
Tambem poderia colocar para ter um bau onde pegaria terra quando as terras acabassem, pq msm com o economizador de blocos, os blocos estao bugando, n estao juntando uma cm a outra e talz, e assim perde mt bloco. Deixei upando esc aqui, em menos de 15 minutos todas as terras tinham acabadoxlyz disse:Escavação (Não VIP)
1.Descrição:
Editei a macro do [member=rogroote] (Macro aqui) para funcionar com Auto-reconnect, e fiz algumas melhorias no código em geral, pois continha alguns bugs. Parte dos créditos pra ele '-'
*Ela escava, guarda itens, troca a pá quando está no red, quando todas as pás da hotbar ficam no red irá para a trap de baús guardar as pás no red e pegar novas pás em outro baú, e repõe os blocos da hotbar com os blocos do inventário.
Obs: Adiantando, GUARDA livros.
2.Homes e trap de baús:
Usa 2 homes, a primeira é a home "escavar" na qual você vai upar .
Imagem:
E a segunda é a home "trapbaus", onde serão armazenados os itens. São 4 faces, 2 (uma de frente para outra) tem 4 linhas com 5 colunas, e as outras 2 são de 4 linhas e 7 colunas, marque a home no bloco do meio, preferencialmente olhando para o espaço (esse que é como uma porta).
Obrigatoriamente você deve construir a trap com essa "porta" virado para o lado NORTE
Imagem:
Imagens para ajudar na construção da trap:
Importante:
A macro irá usar 2 baús da trap para guardar as pás que estão no red do inventário, e pegar pás novas. Então vou colocar print mas também vou deixar um macro para vocês verificarem se a trap esta feita corretamente:
Baú de pás gastas (ao iniciar a macro deixe ele vazio):
Baú que irá pegar as pás novas (Quanto mais pás você deixar nele maior será o tempo que você poderá upar):
Quando o baú de pás no red estiver cheio e a macro não conseguir guardar mais pás, a macro irá desligar, ou quando acabarem as pás do baú que ela pega.
Macro para verificar se você fez a trap corretamente:
$${
if(flag);
unset(flag);
log("&4[Macro]&everifica baús escavação: &4Desativada");
stop();
else;
set(flag);
log("&4[Macro]&everifica baús escavação: &aAtivada");
#bau = 1;
do;
look(NORTH);
log("&4[Macro]&eBaú: %#bau%");
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;
if(%#bau%=92);look(-89,+19);endif;
wait(800ms);
inc(#bau);
if(%#bau% > 92);
break;
endif;
loop;
endif;
log("&4[Macro]&6Baú onde devem ficar pás no &4RED:");
look(WEST);
look(282,14);
wait(2);
log("&4[Macro]&6Baú onde devem ficar pás &aREPARADAS/NOVAS:");
look(WEST);
look(299,15);
wait(2);
unset(flag);
log("&4[Macro]&everifica baús escavação: &4Desativada");
endif;
}$$
3.Inventário:
Seu inventário deve estar organizado dessa maneira:
4.Perguntas da macro:
4.1:
Se você já executou a macro alguma vez e quer usar as mesmas respostas, digite 1. Se ainda não usou, ou não quer usar as mesmas configurações, pressione 2, fazendo isso a macro irá abrir o questionário.
4.2:
Primeira pergunta:
Escolha o bloco que usará ou digite o ID do bloco, se você escolher um item que não de para escavar, ou não de xp de escavação, a macro irá repetir a pergunta até você escolher o bloco correto.
4.3:
Essa pergunta se refere a quantos blocos você quer que escave antes de repor os blocos e verificar se o inventário esta cheio.
4.4:
Se você estiver usando pá eficiência 7 , 5 ou 4 pode digitar 0 (zero), mas se for uma pá eficiência 3 você terá que escolher um delay maior como 1 ou 2, e quanto menor a eficiência da pá você terá de ajustar o delay de acordo com ela.
4.5:
Por fim, escolha qual baú a macro deve iniciar o armazenamento dos itens, entre 1 e 92.
5.Agradecimento:
Obrigado ao [member=luiz bussatto], [member=zAries] e pedrucar, por me ajudarem a testar a macro (então se der algo errado culpem eles. -q).
6.Código:
Código:$${ IF(xlyz); log("&4&l[Macro Escavaçao] &4&lDesativada."); Unset(xlyz); stop; else; 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 = 2)||(#bloco = 3)||(#bloco = 12)||(#bloco = 13)||(#bloco = 82)||(#bloco = 88)||(#bloco = 110)); do; PROMPT(#quantidade,$$?, Qual quantidade de blocos que irá quebrar antes de verificar o inventário?Sugestão(500)); until((#quantidade > 30)); 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 à 92)); until((#bau > 0)&&(#bau <= 92)); 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); 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(1ms); 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..."); 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(1); key(use); wait(1); 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]&fO 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(1); key(use); wait(1); 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]&fNao 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; if((pas_red)&&(bau_pas_full) || (sem_pas)); log("&4&l[Macro AVISO]&cInfelismente, nao será possível trocar as pás!!!"); log("&4&l[Macro Escavaçao] &4Desativada&c, pois o bau de pás no red está cheio ou nao tem pás suficientes no baú."); unset(xlyz); unset(bau_pas_full); unset(sem_pas); stop(); endif; 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; 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); do; look(NORTH); 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; if(%#bau%=92);look(-89,+19);endif; wait(1); // Guardando ítens nos baus. //Tentando abrir baus. do; ifmatches(%GUI%,GUICHEST); break; endif; wait(1); key(use); wait(1); 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%<92); 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; }$$
Sugiro que usem o macro de economia de blocos do [member=Phodalao], testei quando usei a macro e não ocorreu nenhum bug, porém essa possibilidade não está descartada:
Tópico do macro (Clique aqui), mas vou colocar a macro aqui para facilitar:
Código:$${IFMATCHES(%CHAT%,"Limpando itens do chao em 5s");gui(inventory);wait(6000ms);gui();endif;}$$
Coloque em ONCHAT (e NÃO em uma tecla).
7.Atualizações:
*19/05/2015 - Tópico criado;
*20/05/2015 - Graças ao [member=Anderson13fs] percebi que o delay poderia ser menor, agora a macro está mais eficiente;
*23/05/2015 - Agora após a macro perceber que todos as pás do inventário estão no red, irá para a home trapbaus e pegará novas pás. Sugerido por [member=gabrielzym]
______________________________________________________________________
Qualquer bug ou sugestão deixem nos comentários vlw
Obrigado <3, Mas vou pensar nisso, porque eu ainda não testei a macro Cava-cava, mas ouvi falar muito bem dela, e é para VIPs, então não sei se seria muito útil. Mas talvez...Anderson13fs disse:
Que os blocos bugam, tudo bem mas menos de 15 minutos, acho que você exagerou '-'. Tem uma situação que percebi que as vezes quando caio do servidor e vou reconectar os blocos somem todos e até as pás, com isso não tem o que fazer. Mas vou ver o que faço aqui vou implementar para pegar mais blocos... Obrigado pela sugestão.Anderson13fs disse:
Anderson13fs
Bom
Nao exagerei nao, ate um amg meu reportou no forum pra ver se era um bug, e falaram se n me engano q estão cientesxlyz disse:
PsyCh0Social
Neutro
Boa man :]
Ja to usandown
USO ESTA MACRO !!! MTO BOA
- Status
