[Pedido] Editar macro cava cava

Bem-vindo!

Ao se registrar conosco, você poderá discutir, compartilhar e enviar mensagens privadas com outros membros da nossa comunidade.

Inscreva-se agora!
Status
Não está aberto para novas respostas.
zfasteurn_

zfasteurn_

Bom
VIP
Entrou
Jul 30, 2013
Mensagens
1,249
Cubos
0
Olá, Se você ai que está lendo esse tópico souber mexer com macros e quizer editar fazendo um favor pra mim valeu.

Quero que o macro guarde apenas livro, E quando der home esc1 dropar os discos e os bolos.

macro:
$${
if(cav1);

log( );
log("&6&l[MACRO] &d&lCava-Cava 2.0&4&l (OFF)");
log( );
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();

else;

log( );
log("&6&l[MACRO] &d&lCava-Cava 2.0&2&l (ON)");
log( );
ACHIEVEMENTGET("by MrBlueees",351:4);
set(cav1);
set(cav2);

endif;

#bau=1;

IFMATCHES(%DIRECTION%,N);&near=NORTH;ENDIF;
IFMATCHES(%DIRECTION%,S);&near=SOUTH;ENDIF;
IFMATCHES(%DIRECTION%,W);&near=WEST;ENDIF;
IFMATCHES(%DIRECTION%,E);&near=EAST;ENDIF;

if(%#bloco%=nothing);set(nperg);&cont=n;endif;
if(%#pa%=nothing);set(nperg);&cont=n;endif;
if(%#dur%=nothing);set(nperg);&cont=n;endif;
if(%#del%=nothing);set(nperg);&cont=n;endif;
if(%#hit%=nothing);set(nperg);&cont=n;endif;

if(nperg);
else;
PROMPT(&cont,$$?,"Deseja continuar com a última configuraçao? (s/n)");
endif;

IFBEGINSWITH(%&cont%,n);
IFENDSWITH(%&cont%,n);

PROMPT(#bloco,$$i,Que bloco usará para cavar?);

PROMPT(#pa,$$i,Que tipo de pá irá ser usada?);

if(%#pa%=277);#rep=264;endif;
if(%#pa%=256);#rep=265;endif;
if(%#pa%=284);#rep=266;endif;
if(%#pa%=269);#rep=125;endif;
if(%#pa%=273);#rep=4;endif;

PROMPT(#dur,$$?,Em qual durabilidade você quer reparar sua pá?);
#dur=%#dur%;
PROMPT(#del,$$?,Qual delay para verificar o inventário? Recomendado: 300 - 400);

PROMPT(#hit,$$?,"Quantos hits para quebrar o bloco? Exemplos: 1 = pá eficiência 5 || 10 ou mais = pá de pedra");

if(%#bloco%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#pa%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#dur%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#del%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#hit%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;

ENDIF;
ENDIF;


set(mrb);
set(@cav);
if(mrb);
look(%&near%);
look(,30);

do;

do(%#del%);

pick(%#bloco%);
key(use);
wait(1ms);
pick(%#pa%);

if(%DURABILITY%<%#dur%);

look(%&near%);
look(,90);
key(use);
wait(2);

endif;

look(%&near%);
look(,30);
do(%#hit%);
key(attack);
loop;

loop;


if(cav2);

gui(inventory);
wait(10ms);
getslotitem(35,#id,#stack);

if(%#stack%=0);
gui();
else;
wait(1);
do;
//=================BAUS=================//
}$$

$${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;}$$

$${
//======================================//
wait(5);
key(use);
wait(1);

for(#slotn,54,89);

getslotitem(%#slotn%,#id,#stack);

if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));
else;
slotclick(%#slotn%,l,true);
wait(30ms);
endif;

next;

wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);

if(%#stack%!=0);

inc(#bau);

else;

endif;

if(%#bau%=11);

unset(cav2);
log("&cBaús cheios! Voltando a escavar somente.");
gui();

else;

gui();

endif;

until(%#stack%=0);

endif;

}$$/home macroesc$${
wait(4);

gui(inventory);
wait(600ms);


for(#slot,9,35);

GETSLOTITEM(%#slot%,#id,#stack);

if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));

slotclick(%#slot%,l,true);wait(30ms);
else;
endif;
next;

gui();

endif;
loop;
endif;

}$$



O macro é o cava cava 2.0 Link do macro oficial : http://forum.craftlandia.com.br/ipb/index.php?/topic/448402-macro-cava-cava-20/


valeu galera
 
Olá, não testei, mas provavelmente irá funcionar:

Código:
$${
if(cav1);

log( );
log("&6&l[MACRO] &d&lCava-Cava 2.0&4&l (OFF)");
log( );
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();

else;

log( );
log("&6&l[MACRO] &d&lCava-Cava 2.0&2&l (ON)");
log( );
ACHIEVEMENTGET("by MrBlueees",351:4);
set(cav1);
set(cav2);

endif;

#bau=1;

IFMATCHES(%DIRECTION%,N);&near=NORTH;ENDIF;
IFMATCHES(%DIRECTION%,S);&near=SOUTH;ENDIF;
IFMATCHES(%DIRECTION%,W);&near=WEST;ENDIF;
IFMATCHES(%DIRECTION%,E);&near=EAST;ENDIF;

if(%#bloco%=nothing);set(nperg);&cont=n;endif;
if(%#pa%=nothing);set(nperg);&cont=n;endif;
if(%#dur%=nothing);set(nperg);&cont=n;endif;
if(%#del%=nothing);set(nperg);&cont=n;endif;
if(%#hit%=nothing);set(nperg);&cont=n;endif;

if(nperg);
else;
PROMPT(&cont,$$?,"Deseja continuar com a última configuraçao? (s/n)");
endif;

IFBEGINSWITH(%&cont%,n);
IFENDSWITH(%&cont%,n);

PROMPT(#bloco,$$i,Que bloco usará para cavar?);

PROMPT(#pa,$$i,Que tipo de pá irá ser usada?);

if(%#pa%=277);#rep=264;endif;
if(%#pa%=256);#rep=265;endif;
if(%#pa%=284);#rep=266;endif;
if(%#pa%=269);#rep=125;endif;
if(%#pa%=273);#rep=4;endif;

PROMPT(#dur,$$?,Em qual durabilidade você quer reparar sua pá?);
#dur=%#dur%;
PROMPT(#del,$$?,Qual delay para verificar o inventário? Recomendado: 300 - 400);

PROMPT(#hit,$$?,"Quantos hits para quebrar o bloco? Exemplos: 1 = pá eficiência 5 || 10 ou mais = pá de pedra");

if(%#bloco%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#pa%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#dur%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#del%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#hit%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;

ENDIF;
ENDIF;


set(mrb);
set(@cav);
if(mrb);
look(%&near%);
look(,30);

do;

do(%#del%);

pick(%#bloco%);
key(use);
wait(1ms);
pick(%#pa%);

if(%DURABILITY%<%#dur%);

look(%&near%);
look(,90);
key(use);
wait(2);

endif;

look(%&near%);
look(,30);
do(%#hit%);
key(attack);
loop;

loop;


if(cav2);

gui(inventory);
wait(10ms);
getslotitem(35,#id,#stack);

if(%#stack%=0);
gui();
else;
wait(1);
do;
//=================BAUS=================//
}$$

$${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;}$$

$${
//======================================//
wait(5);
key(use);
wait(1);

for(#slotn,54,89);

getslotitem(%#slotn%,#id,#stack);

if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));
elseif(%#id%=387);
slotclick(%#slotn%,l,true);
wait(30ms);
else;
endif;

next;

wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);

if(%#stack%!=0);

inc(#bau);

else;

endif;

if(%#bau%=11);

unset(cav2);
log("&cBaús cheios! Voltando a escavar somente.");
gui();

else;

gui();

endif;

until(%#stack%=0);

endif;

}$$/home macroesc$${
wait(4);

gui(inventory);
wait(600ms);


for(#slot,9,35);

GETSLOTITEM(%#slot%,#id,#stack);

if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));

slotclick(%#slot%,l,true);wait(30ms);
else;
endif;
next;

gui();

endif;
loop;
endif;

}$$

Bjos.
 
Iiishi Nen Manjo Dos Macro Vou Tentar Aprender rsrs

Enviado de meu LG-E455f usando Tapatalk
 
Status
Não está aberto para novas respostas.

Users who are viewing this thread

Total: 1 (membros: 0, visitantes: 1)

Estatísticas online

Membros online
0
Visitantes online
2
Total de visitantes
2
Os totais podem incluir visitantes ocultos.

Em alta

Novos membros

Stay Connected

Voltar
Topo