A Macro
Olá a todos, hoje venho aqui trazer uma macro para vocês que ví um cara no global do servidor Region pedindo, não me lembro o nick, mas em fim... Oque a macro faz? Pesca, repara, guarda (apenas minerios,blaze,lagrima e livros), e queima os itens desnecessários, como disco e etc...
Prints da Trap
Bom, antes das prints vou deixar um aviso, que é EXTREMAMENTE importante para a macro não haver bug's.
OBS¹: A macro guardará em 9 baús duplos certo, mas isso não é um alerta, o alerta é: Esses baús tem que estar para o SUL... (OBRIGATORIO);
OBS²: A macro queima os itens, não importa se eles vão ser queimados ou apenas 'depositados' em um bloco, essa lava é obrigatorio estar no NORTE.
Requisitos Básicos
~ O bloco de ferro deve ficar na altura do baú primeiro baú, como está sendo demonstrado nas prints.
~ Ter 100 de reparação para poder reparar a vara.
~ Inicie a macro já olhando para CIMA, você irá pescar para cima.
~ Ter a home '/home pesca' no bloco de ferro. Para setar a home digite -> /sethome pesca
~ A macro, deverá ser colocada em Edit File.
Script/Macro
Código:
$${
if(x);
log("&f&l[&a&l%PLAYER%&f&l] &a&lPesca Desativada");
unset(x);
stop;
else;
log("&f&l[&a&l%PLAYER%&f&l] &a&lPesca Ativada");
set(x);
ifmatches(%&dir%,N);&dir=NORTH;endif;
ifmatches(%&dir%,S);&dir=SOUTH;endif;
ifmatches(%&dir%,E);&dir=EAST;endif;
ifmatches(%&dir%,W);&dir=WEST;endif;
&njogar="^287$|^346$";
&itens="^264$|^265$|^266$|^387$|^340$|^369$|^370$";
#bau = 1;
pick(346);
gui(inventory);
look(%&dir%);
look(0,-90);
//Reparar
do;
look(%&dir%);
look(0,-90);
pick(346);
wait(10ms);
key(use);
wait(100ms);
key(use);
if(%DURABILITY% < 20);
gui();
wait(1);
look(0,90);
wait(160ms)
key(use);
key(attack);
key(use);
wait(1);
gui(inventory);
endif;
//Pescar
look(%&dir%);
look(0,-90);
pick(346);
wait(10ms);
key(use);
wait(100ms);
key(use);
//Verificar inventario
gui(inventory);
getslotitem(33,#id,#stack);
if(%#stack%!=0);
//Queimar itens
look(%&dir%);
look(NORTH);
look(359,45);
gui(inventory);
look(%&dir%);
wait(500ms);
for(#i,9,44);
getslotitem(%#i%,#id,#stack);
ifmatches(%#id%,%&njogar%|%&itens%|^0$);
else;
slotclick(%#i%);
slotclick(-999);
wait(80ms);
endif;
next;
wait(150ms);
//Olhar para os baus
look(%&dir%);
look(SOUTH);
wait(1);
//Baus do sul
if(%#bau%=1);wait(100ms);
look(SOUTH);wait(100ms);
look(150,3);wait(1);endif;
if(%#bau%=2);wait(100ms);
look(SOUTH);wait(100ms);
look(183,4);wait(1);endif;
if(%#bau%=3);wait(100ms);
look(SOUTH);wait(100ms);
look(207,3);wait(1);endif;
if(%#bau%=4);wait(100ms);
look(SOUTH);wait(100ms);
look(147,25);wait(1);endif;
if(%#bau%=5);wait(100ms);
look(SOUTH);wait(100ms);
look(181,33);wait(1);endif;
if(%#bau%=6);wait(100ms);
look(SOUTH);wait(100ms);
look(212,28);wait(1);endif;
if(%#bau%=7);wait(100ms);
look(SOUTH);wait(100ms);
look(149,47);wait(1);endif;
if(%#bau%=8);wait(100ms);
look(SOUTH);wait(100ms);
look(182,53);wait(1);endif;
if(%#bau%=9);wait(100ms);
look(SOUTH);wait(100ms);
look(212,48);wait(1);endif;
//Guardar itens, verificar bau e etc
$${wait(1);
key(use);
wait(10ms);
for(#i,54,80);
slotclick(%#i%,l,true);
wait(30ms);
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);
inc(#bau);
endif;
if(%#bau%=9);
unset(bau);
log("&f&l[&a&l%PLAYER%&f&l] &a&lTodos os 9, baús estão cheios. Não será mais guardado os itens.");
gui();
else;
gui();
endif;
until(%#stack%=0);
}$$
/home pesca
$${
wait(2);
gui(inventory);
endif;
endif;
loop;
endif;
loop;
endif;
}$$
Qualquer BUG / Sugestão por favor me mande uma MP...
Créditos ->
zLuuckNG ~ Me ajudou.
TequilAxBr/VitorTL/iVitinXDD ~ Desenvolvedor da macro.
