*12/04/2015 Macro não VIP acrescentado no final do tópico.
*03/05/2015 Nova disposição dos baús para o novo sistema de Homes.
[M]acro de Escavação VIP e Não VIP
•[I]ntrodução
- Este macro foi desenvolvido por mim,para garantir uma otima experiencia na hora de
upar escavação e reparação.
•[S]ethome
- Serão utilizadas essas duas:
/sethome cava
/sethome baucava
•[T]utorial
- Posicionamento dos Baús:
#Aviso: Nova disposição dos baús,sua nova forma nos revela uma maior quantidade de baús
para utilizarmos,em uma área de 7x5.
Em uma das partes com 7 baús,exatamente no meio,de baixo pra cima quebre 2 baús,ficando
como se fosse uma porta.
•Os baús deveram estar dispostos dessa maneira:
•Você deverá ficar exatamente no meio dos baús,e a olhar para a porta feita anteriormente e dar /sethome baucava:
[V]ídeo:
https://www.youtube.com/watch?v=9rVl4kgjbtU
Codigo do Macro Para VIP's:
$${
IF(rogroote);
Log(“&FMACRO ESCAVAÇÃO &4OFF”);
Unset(rogroote);
STOP;
Else;
Log(“&MACRO ESCAVAÇÃO &4ON”);
Set(rogroote);
&dir = %DIRECTION%;
#bau=1;
set(nf);
IFMATCHES(%DIRECTION%,N);
&direcao = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&direcao = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&direcao = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&direcao = EAST;
ENDIF;
#snposx1=%XPOS%; #snposx2=%ZPOS%;
#exp = 0;
PROMPT(&bloco,$$i, Que bloco usará para cavar?);
PROMPT(&pa,$$i, Que tipo de ferramenta irá ser usada?);
PROMPT(&quantidade,$$?, Qual aquantidade de blocos que ira quebrar? );
PROMPT(&quebrar,$$?, Qual delay para quebrar os blocos? Recomendado: 2 para eff4 - aumente o valor se o bloco nâo quebrar!);
do();
// Quebrando blocos
do(%&quantidade%);
look(%&DIRECTION%,59);
pick(%&bloco%);
key(use);
wait(1ms);
pick(%&pa%);
// Reparando ferramenta
if(%DURABILITY% < 50);
look(%&DIRECTION%,90);
wait(500ms);
KEY(USE);
wait(500ms);
endif;
next;
endif;
endif;
look(%&DIRECTION%,59);
do(%&quebrar%);
key(attack);
loop;
loop;
// Abrindo inventário
if(nf);
gui(inventory);
pick(%bloco%);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=%bloco%);
slotclick(%#i%,l,true);
wait(5ms);
endif;
next;
wait(1);
gui(inventory);
wait(1);
GETSLOTITEM(25,#id,#stack);
IF(%#stack%=0);
gui();
elseif;
// Indo para os baus.
}$$/home baucava$${
wait(7);
do;
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
keydown(jump);wait(100ms);keyup(jump);wait(1);
&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;
do;
look(%&dir%);
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;
if(%#bau%=93);look(-75,+18);endif;
if(%#bau%=94);look(-61,+17);endif;
wait(1);
// Guardando ítens nos baus.
wait(5);
key(use);
wait(1);
for(#i,54,71);
slotclick(%#i%,l,true);
wait(30ms);
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);
inc(#bau);
endif;
if(%#bau%=94);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá matar mobs agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);
}$$/home cava$${
wait(5);
endif;
endif;
loop;loop;
endif;loop;
}$$
Esquema do inventário para os Não VIP's:
![[IMG]](http://oi59.tinypic.com/14e10zr.jpg)
Obs: As pás não quebram, ele vai trocando de pá até a ultima. Na ultima ele para o macro.
Codigo do Macro Para NÃO VIP's:
$${
IF(rogroote);
echo(MACRO ESCAVAÇÃO OFF)
Unset(rogroote);
STOP;
Else;
Log(“&MACRO ESCAVAÇÃO &4ON”);
Set(rogroote);
&dir = %DIRECTION%;
#bau=1;
set(nf);
IFMATCHES(%DIRECTION%,N);
&direcao = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&direcao = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&direcao = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&direcao = EAST;
ENDIF;
#snposx1=%XPOS%; #snposx2=%ZPOS%;
#rod=4;
#exp = 0;
PROMPT(&bloco,$$i, Que bloco usará para cavar?);
PROMPT(&quantidade,$$?, Qual aquantidade de blocos que ira quebrar? );
PROMPT(&quebrar,$$?, Qual delay para quebrar os blocos? Recomendado: 2 para eff4 - aumente o valor se o bloco nâo quebrar!);
do();
// Quebrando blocos
do(%&quantidade%);
look(%&DIRECTION%,59);
pick(%&bloco%);
key(use);
wait(1ms);
slot(%#rod%);
if(DURABILITY<30);
inc(#rod);
endif;
if(%#rod%=10);
log("&2Todas as ferramentas estão no &4red &2repareas ou as troque.");
log("&4[Macro] &6Escavação desativada.");
unset(rogroote);
stop();
endif;
next;
endif;
endif;
look(%&DIRECTION%,59);
do(%&quebrar%);
key(attack);
loop;
loop;
// Abrindo inventário
if(nf);
gui(inventory);
pick(Dirt);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=Dirt);
slotclick(%#i%,l,true);
wait(5ms);
endif;
next;
wait(1);
gui(inventory);
wait(1);
GETSLOTITEM(25,#id,#stack);
IF(%#stack%=0);
gui();
elseif;
// Indo para os baus.
}$$/home baucava$${
wait(7);
do;
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
keydown(jump);wait(100ms);keyup(jump);wait(1);
&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;
do;
look(%&dir%);
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;
if(%#bau%=93);look(-75,+18);endif;
if(%#bau%=94);look(-61,+17);endif;
wait(1);
// Guardando ítens nos baus.
wait(5);
key(use);
wait(1);
for(#i,54,71);
slotclick(%#i%,l,true);
wait(30ms);
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);
inc(#bau);
endif;
if(%#bau%=94);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá matar mobs agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);
}$$/home cava$${
wait(5);
endif;
endif;
loop;loop;
endif;loop;
}$$
•[A]gradecimentos:
- Agradeço a todos que testarem esse Macro,e deem sua opnião sobre o macro,pois estarei fazendo o melhor para ajudar a todos.
- Agradecimento especial ao zNightmare58.