ENTREGUE [Macro]Escavação - 1.7.2

[rogroote]

tomei um banzinho de 5 min porque você esqueceu de abrir " $$ { " no código pra quem não é vip e também acho que esta faltando código, porque não aparece pra mim colocar a pá. arruma ai no segundo código por favor.

Valeu arrumado

Bom não tenho nem lvl 1 de escavação e voltei a jogar hoje acho que n vai dar para testar...

para vc ter uma idéia, em 2 dias upei 42 levels de escavação, isso porque tenho 900 nesse level.

 

[rogroote]

Parece bom.. Vou testar dpois

Testa e me avisa se funciona

 

[ZGobix]

Parabéns,Macro excelente s2 rogroote !

 

[rogroote]

Parabéns,Macro excelente s2 rogroote !

Valeu obrigado.

 

[caiotambra]

funciona pra 1.5.2?

 

[Especial]

*12/04/2015 ​Macro não VIP acrescentado no final do tópico.

[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:
•Os baús deveram estar dispostos dessa maneira:

Spoiler

•Você deverá ficar exatamente no meio dos baús,como a imagem abaixo:

Spoiler

•Você deverá olhar no meio dos baús da primeiro fileira a direita,assim como a imagem.

Spoiler

[V]ídeo:

https://www.youtube.com/watch?v=9rVl4kgjbtU​

Codigo do Macro Para VIP's:

Spoiler

$${
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.

echo(/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(-26,-40);endif;
if(%#bau%=2);look(+26,-40);endif;
if(%#bau%=3);look(+65,-40);endif;
if(%#bau%=4);look(+116,-40);endif;
if(%#bau%=5);look(+155,-40);endif;
if(%#bau%=6);look(+206,-40);endif;
if(%#bau%=7);look(-26,-20);endif;
if(%#bau%=8);look(+26,-20);endif;
if(%#bau%=9);look(+65,-20);endif;
if(%#bau%=10);look(+116,-20);endif;
if(%#bau%=11);look(+155,-20);endif;
if(%#bau%=12);look(+206,-20);endif;
if(%#bau%=13);look(-26,-0);endif;
if(%#bau%=14);look(+26,-0);endif;
if(%#bau%=15);look(+65,-0);endif;
if(%#bau%=16);look(+116,-0);endif;
if(%#bau%=17);look(+155,-0);endif;
if(%#bau%=18);look(+206,-0);endif;
if(%#bau%=19);look(-26,+25);endif;
if(%#bau%=20);look(+26,+25);endif;
if(%#bau%=21);look(+65,+25);endif;
if(%#bau%=22);look(+116,+25);endif;
if(%#bau%=23);look(+155,+25);endif;
if(%#bau%=24);look(+206,+25);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%=24);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá matar mobs agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);




echo(/home cava);
wait(5);
endif;
endif;
loop;loop;
endif;loop;
}$$

Esquema do inventário para os Não VIP's:

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:

Spoiler

$${
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.

echo(/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(-26,-40);endif;
if(%#bau%=2);look(+26,-40);endif;
if(%#bau%=3);look(+65,-40);endif;
if(%#bau%=4);look(+116,-40);endif;
if(%#bau%=5);look(+155,-40);endif;
if(%#bau%=6);look(+206,-40);endif;
if(%#bau%=7);look(-26,-20);endif;
if(%#bau%=8);look(+26,-20);endif;
if(%#bau%=9);look(+65,-20);endif;
if(%#bau%=10);look(+116,-20);endif;
if(%#bau%=11);look(+155,-20);endif;
if(%#bau%=12);look(+206,-20);endif;
if(%#bau%=13);look(-26,-0);endif;
if(%#bau%=14);look(+26,-0);endif;
if(%#bau%=15);look(+65,-0);endif;
if(%#bau%=16);look(+116,-0);endif;
if(%#bau%=17);look(+155,-0);endif;
if(%#bau%=18);look(+206,-0);endif;
if(%#bau%=19);look(-26,+25);endif;
if(%#bau%=20);look(+26,+25);endif;
if(%#bau%=21);look(+65,+25);endif;
if(%#bau%=22);look(+116,+25);endif;
if(%#bau%=23);look(+155,+25);endif;
if(%#bau%=24);look(+206,+25);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%=24);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá matar mobs agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);
echo(/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.

mano edita para 1.5.2 q vai fazer sucesso .

 

[rogroote]

mano edita para 1.5.2 q vai fazer sucesso .

Valeu vou ver aqui o que preciso mudar e publico.

 

[Especial]

Valeu vou ver aqui o que preciso mudar e publico.

publica eh me marca ou manda mp c possivel

 

[ScorpianRed]

Não consigo usar o não vip
Ele fica parado

 

[G E O Z A O]

*12/04/2015 ​Macro não VIP acrescentado no final do tópico.

[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:
•Os baús deveram estar dispostos dessa maneira:

Spoiler

•Você deverá ficar exatamente no meio dos baús,como a imagem abaixo:

Spoiler

•Você deverá olhar no meio dos baús da primeiro fileira a direita,assim como a imagem.

Spoiler

[V]ídeo:

https://www.youtube.com/watch?v=9rVl4kgjbtU​

Codigo do Macro Para VIP's:

Spoiler

$${
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.

echo(/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(-26,-40);endif;
if(%#bau%=2);look(+26,-40);endif;
if(%#bau%=3);look(+65,-40);endif;
if(%#bau%=4);look(+116,-40);endif;
if(%#bau%=5);look(+155,-40);endif;
if(%#bau%=6);look(+206,-40);endif;
if(%#bau%=7);look(-26,-20);endif;
if(%#bau%=8);look(+26,-20);endif;
if(%#bau%=9);look(+65,-20);endif;
if(%#bau%=10);look(+116,-20);endif;
if(%#bau%=11);look(+155,-20);endif;
if(%#bau%=12);look(+206,-20);endif;
if(%#bau%=13);look(-26,-0);endif;
if(%#bau%=14);look(+26,-0);endif;
if(%#bau%=15);look(+65,-0);endif;
if(%#bau%=16);look(+116,-0);endif;
if(%#bau%=17);look(+155,-0);endif;
if(%#bau%=18);look(+206,-0);endif;
if(%#bau%=19);look(-26,+25);endif;
if(%#bau%=20);look(+26,+25);endif;
if(%#bau%=21);look(+65,+25);endif;
if(%#bau%=22);look(+116,+25);endif;
if(%#bau%=23);look(+155,+25);endif;
if(%#bau%=24);look(+206,+25);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%=24);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá matar mobs agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);




echo(/home cava);
wait(5);
endif;
endif;
loop;loop;
endif;loop;
}$$

Esquema do inventário para os Não VIP's:

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:

Spoiler

$${
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.

echo(/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(-26,-40);endif;
if(%#bau%=2);look(+26,-40);endif;
if(%#bau%=3);look(+65,-40);endif;
if(%#bau%=4);look(+116,-40);endif;
if(%#bau%=5);look(+155,-40);endif;
if(%#bau%=6);look(+206,-40);endif;
if(%#bau%=7);look(-26,-20);endif;
if(%#bau%=8);look(+26,-20);endif;
if(%#bau%=9);look(+65,-20);endif;
if(%#bau%=10);look(+116,-20);endif;
if(%#bau%=11);look(+155,-20);endif;
if(%#bau%=12);look(+206,-20);endif;
if(%#bau%=13);look(-26,-0);endif;
if(%#bau%=14);look(+26,-0);endif;
if(%#bau%=15);look(+65,-0);endif;
if(%#bau%=16);look(+116,-0);endif;
if(%#bau%=17);look(+155,-0);endif;
if(%#bau%=18);look(+206,-0);endif;
if(%#bau%=19);look(-26,+25);endif;
if(%#bau%=20);look(+26,+25);endif;
if(%#bau%=21);look(+65,+25);endif;
if(%#bau%=22);look(+116,+25);endif;
if(%#bau%=23);look(+155,+25);endif;
if(%#bau%=24);look(+206,+25);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%=24);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá matar mobs agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);
echo(/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.

sou vip uso pá eff 4 toque suave 1 queria que quebrasse bloco mais rapido ta muito devagar

 

[rogroote]

usa 1 na pergunta do delay para ver se melhora

 

[rogroote]

Não consigo usar o não vip
Ele fica parado

Recopia o cod e testa de novo qq coisa me da tell que te ajudo.

 

[RitaT]

Não estou a conseguir :/ a macro nao vip nao teleporta para os baus, quando o inventario enche fica parado no mesmo lugar de escavar olhando para o alto...

Mais alguem notou o problema ou me explicam o que estou fazendo de errado

 

[rogroote]

Não estou a conseguir :/ a macro nao vip nao teleporta para os baus, quando o inventario enche fica parado no mesmo lugar de escavar olhando para o alto...

Mais alguem notou o problema ou me explicam o que estou fazendo de errado

recopia o cod e ve se funciona, fiz algumas alterações.

 

[RitaT]

recopia o cod e ve se funciona, fiz algumas alterações.

Agora sim ta funcionando direito voce arranjou a macro. Vlw

 

[majesticbird]

vlw vo começa a usa

 

[rogroote]

vlw vo começa a usa

Me avisa se tiver algum erro.

 

[Pujol / Huan]

Parabéns pelo excelente macro, perfeito!

 

[zItalozicadinho]

Passa pra 1.5.2 ?

Enviado de meu XT1069 usando Tapatalk

 

[rogroote]

Passa pra 1.5.2 ?

Enviado de meu XT1069 usando Tapatalk

vou ver o que faço, se tiver tempo eu passo sim