ENTREGUE [Pedido] Acrescentar

[Fischbornes]

Bom dia. Gostaria de fazer 2 pedidos para que fossem acrescentado a uma macro já pronta. O primeiro é bem simples o segundo é complexo. Caso alguém consiga fazer somente o primeiro já esta de bom tamanho.

a macro em particular é esta aqui: https://forum.craftlandia.com.br/xf...-vip-1-8-warp-vip-craftlandia-chronos.964493/
(vou colocar o código no final do post)
A macro faz o seguinte, ela utiliza o autofish (1.8) para pescar, quando o inventario lota ela vai para uma home e o esvazia, deixando apenas no inventário livros encantados.

O primeiro pedido seria de que quando a vara estivesse com a durabilidade baixa, o boneco desse /home, reparasse num bloco de ferro e voltasse a repetir o processo padrão da macro. (O autofish ja permite que as varas sejam trocadas automaticamente quando estão para quebrar, mas prefiro usar uma só e reparar).

O segundo pedido (se conseguir o primeiro já é uma mão na roda) é de que os livros encantados sejam armazenados em baús (ou até mesmo um único baú).
Grato desde já.

$${
&home_lixo="/home lixo";
&home_pesq="/home pesca";
&nao_dropar="written_book|enchanted_book";
if(@pesca);
log(&9[Macro] &fLimpar itens de pesca &6[VIP] &fdo &5Casal Win &cdesligado);
unset(@pesca);
stop();
else;
log(&9[Macro] &fLimpar itens de pesca &6[VIP] &fdo &5Casal Win &aligado);
set(@pesca);
endif;
do;
#x=%XPOS%;#z=%ZPOS%;
do(3);
echo(%&home_lixo%);
do(15);
wait(300ms);
If((%XPOS%!=%#x%)||(%ZPOS%!=%#z%));
break;
endif;
loop;
If((%XPOS%!=%#x%)||(%ZPOS%!=%#z%));
wait(1000ms);
break;
endif;
loop;
do(2);
Getidrel(0,-1,0,&chao);
If(&chao != "air"); break; endif;
wait(500ms);
loop;
look(0,20);
wait(300ms);
unsafe(0);
gui(inventory);
for(#i,9,35);
GETSLOTITEM(%#i%,&item);
ifmatches(%&item%,%&nao_dropar%);
else;
SLOTCLICK(%#i%);
SLOTCLICK(-999);
endif;
next;
Gui();
endunsafe;
#x=%XPOS%;#z=%ZPOS%;
do(3);
echo(%&home_pesq%);
do(15);
wait(300ms);
If((%XPOS%!=%#x%)||(%ZPOS%!=%#z%));
break;
endif;
loop;
If((%XPOS%!=%#x%)||(%ZPOS%!=%#z%));
wait(1000ms);
break;
endif;
loop;
wait(400ms);
wait(1000ms);
Key(use);
wait(500); /// acredito que o delay de limpeza seja isso aqui;
loop;
}$$

 

[dark1304]

Pro primeiro pedido, eu tenho a macro do lomexicano, porém modificada pra quando eu ainda jogava e ficava pescando k
Se você for vip ela serve, ela da auto /reparar na vara quando chega a uma certa durabilidade(que você pode mudar facilmente)...
Espero que ajude, sei que não é como seu pedido mas vai que ajuda kk

Se quiser esse é o código dela:

$${
if(a);
unset(a);
log("&e&l[&2&lMA&f&lC&4&lRO&e&l] &l&fMacro de reparar simples: &4&lOFF&f&l!!");
stop;
else;
set(a);
log("&e&l[&2&lMA&f&lC&4&lRO&e&l] &l&fMacro de reparar simples: &2&lON&f&l!!");
endif;

do();
if((%ITEM% == 272)&&(%DURABILITY% < 17));
}$$ /reparar $${
log("&e&l[&2&lMA&f&lC&4&lRO&e&l] &l&fReparando!! &0(&8durabilidade: &f%DURABILITY%&0)");
wait(100ms);
log("&e&l[&2&lMA&f&lC&4&lRO&e&l] &l&fReparando!! &0(&8durabilidade: &f%DURABILITY%&0)");
wait(100ms);
log("&e&l[&2&lMA&f&lC&4&lRO&e&l] &l&fReparando!! &0(&8durabilidade: &f%DURABILITY%&0)");
wait(100ms);
log("&e&l[&2&lMA&f&lC&4&lRO&e&l] &l&fReparando!! &0(&8durabilidade: &f%DURABILITY%&0)");
wait(100ms);
log("&e&l[&2&lMA&f&lC&4&lRO&e&l] &l&fReparando!! &0(&8durabilidade: &f%DURABILITY%&0)");
endif;
if((%ITEM% == 346)&&(%DURABILITY% < 17));
endif;
loop;
}$$

 

[Fischbornes]

em relação ao primeiro pedido eu consegui juntamente com um amigo alterar o código pra reparar indo num bloco.
Não é 100% eficiente já que a durabilidade só é checada quando o processo de jogar itens fora se reinicia, mas quebra um galho.
Se alguém conseguir fazer o segundo pedido ia ser top kk.
Código ae:
$${
&home_lixo="/home lixo";
&home_pesq="/home pesca";


&nao_dropar="written_book|enchanted_book";
if(@pesca);
log(&9[Macro] &fLimpar itens de pesca &6[VIP] &fdo &5Casal Win &cdesligado);
unset(@pesca);
stop();
else;
log(&9[Macro] &fLimpar itens de pesca &6[VIP] &fdo &5Casal Win &aligado);
set(@pesca);
endif;
do;
#x=%XPOS%;#z=%ZPOS%;
do(3);
echo(%&home_lixo%);
do(15);
wait(300ms);
If((%XPOS%!=%#x%)(%ZPOS%!=%#z%));
break;
endif;
loop;
If((%XPOS%!=%#x%)(%ZPOS%!=%#z%));
wait(1000ms);
break;
endif;
loop;


do(2);
Getidrel(0,-1,0,&chao);
If(&chao != "air"); break; endif;
wait(500ms);
loop;
look(0,20);
wait(300ms);
unsafe(0);
gui(inventory);
for(#i,9,35);
GETSLOTITEM(%#i%,&item);
ifmatches(%&item%,%&nao_dropar%);
else;
SLOTCLICK(%#i%);
SLOTCLICK(-999);
endif;
next;
Gui();
endunsafe;
#x=%XPOS%;#z=%ZPOS%;
do(3);
echo(%&home_pesq%);
do(15);
wait(300ms);
If((%XPOS%!=%#x%)(%ZPOS%!=%#z%));
break;
endif;
loop;
If((%XPOS%!=%#x%)(%ZPOS%!=%#z%));
wait(1000ms);
break;
endif;
loop;
wait(400ms);
wait(1000ms);

if(%DURABILITY% < 50);

echo(/home reppesca);
wait(2);
key(use);
wait(2);
key(use);
wait(2);
echo(/home pesca);

endif;
wait(5);
key(use);
wait(500); /// acredito que o delay de limpeza seja isso aqui;
loop;
}$$