[hr]
Aviso
Esta macro de pesca foi criada originalmente por [member=Phodalao], como houveram alterações no sistema de homes e o criador original não programa mais macros, a macro atualmente não funciona corretamente.
Como usei bastante esta macro gostaria de retribuir de alguma forma, resolvi atualizar a macro, embora existam macros mais complexas, esta macro funciona muito bem para quem tem poucos níveis de habilidade em pesca, ou ainda começou com poucos itens para fazer um pesqueiro maior.
[hr]
Olá pessoal do fórum, vim por meio deste tópico atualizar uma macro bem útil para quem está começando nos servidores e tem pouco nível na habilidade pescador, tinham alguns posts no tópico original falando que a macro não estava olhando corretamente para os baús então resolvi concertar, no mais a macro funciona agora.
Link do tópico original: http://forum.craftlandia.com.br/ipb/index.php?/topic/210158-macro-melhor-macro-de-pesca-sem-homes-271013/
Leia o tópico original sobre como a macro funciona. Mas o que mudou? E como uso esta macro?
1. A home de pesca é sempre salva no meio do bloco, isto é, é só olhar para o NORTE e salvar a home.
2. O código para olhar os baús não é mais necessário, mas foi usado para atualizar a macro.
Macro para quem possui 99 ou menos em Reparação:
- Deixe somente varas de pescar na hotbar pois não se pode reparar a vara de pescar
- A macro vai pescar até suas varas quebrarem
$${
if(x);
log("&8[MACRO] O Macro foi &cDESLIGADO&8!");
log("&8Foram pescados &c%#peixe% &8peixes.");
unset(x);
stop();
else;
log("&8[MACRO] O Macro acaba de ser ligado &c
%PLAYER%&8.");
set(x);
#peixe=0;#bau=1;#rep=0;#slot=1;
ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
ifmatches(%DIRECTION%,W);&dir=WEST;endif;
ifmatches(%DIRECTION%,E);&dir=EAST;endif;
gui(INVENTORY);
do;
do(100);
if(%DURABILITY%<15);
if(%#slot%=10);log("&8Suas varas acabaram,
&cdesligando&8...");
STOP;endif;
inc(#slot,1);
endif;
pick(346);
look(%&dir%);
look(,-90);
key(use);
loop;
ifmatches(%GUI%,None);gui(INVENTORY);wait
(100ms);endif;
getslotitem(35,#id,#stack);
if(%#stack%=0);
else;
do;
if(%#bau%=1);look(%&dir%);look(0,35);endif;
if(%#bau%=2);look(%&dir%);look(30,30);endif;
if(%#bau%=3);look(%&dir%);look(60,30);endif;
if(%#bau%=4);look(%&dir%);look(90,35);endif;
if(%#bau%=5);look(%&dir%);look(120,45);endif;
if(%#bau%=6);look(%&dir%);look(180,60);endif;
if(%#bau%=7);look(%&dir%);look(270,60);endif;
if(%#bau%=8);look(%&dir%);look(330,45);endif;
if(%#bau%=9);look(%&dir%);look(330,0);endif;
if(%#bau%=10);look(%&dir%);look(270,0);endif;
if(%#bau%=11);look(%&dir%);look(60,0);endif;
if(%#bau%=12);look(%&dir%);look(90,0);endif;
wait(1);
key(use);
wait(3);
for(#i,54,80);
getslotitem(%#i%,#id,#item);
if(%#id%=349);
#peixe=%#peixe%+%#item%;
endif;
slotclick(%#i%,l,true);
wait(90ms);
next;
getslotitem(53,#id,#stack);
if(%#stack%!=0);inc(#bau,1);endif;gui;
until(%#stack%=0);
endif;
loop;
endif;
}$$
Macro para quem possui 100 ou mais em Reparação:
- Deixe uma ou duas varas de pescar na hotbar e o restante com linhas
- A macro vai pescar e reparar enquanto houver linhas
$${
if(x);
log("&8[MACRO] O Macro foi &cDESLIGADO&8!");
log("&8Foram pescados &c%#peixe% &8peixes.");
log("&8A vara foi reparada &c%#rep% &8vezes.");
unset(x);
stop();
else;
log("&8[MACRO] O Macro acaba de ser ligado &c%PLAYER%&8.");
set(x);
#peixe=0;#bau=1;#rep=0;#slot=1;
ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
ifmatches(%DIRECTION%,W);&dir=WEST;endif;
ifmatches(%DIRECTION%,E);&dir=EAST;endif;
gui(INVENTORY);
do;
do(100);
if(%DURABILITY%<15);
do(7);
look(%&dir%);
look(,90);
key(use);
wait(100ms);
loop;
inc(#rep,1);
endif;
pick(346);
look(%&dir%);
look(,-90);
key(use);
loop;
ifmatches(%GUI%,None);gui(INVENTORY);wait(100ms);endif;
getslotitem(35,#id,#stack);
if(%#stack%=0);
else;
do;
if(%#bau%=1);look(%&dir%);look(0,35);endif;
if(%#bau%=2);look(%&dir%);look(30,30);endif;
if(%#bau%=3);look(%&dir%);look(60,30);endif;
if(%#bau%=4);look(%&dir%);look(90,35);endif;
if(%#bau%=5);look(%&dir%);look(120,45);endif;
if(%#bau%=6);look(%&dir%);look(180,60);endif;
if(%#bau%=7);look(%&dir%);look(270,60);endif;
if(%#bau%=8);look(%&dir%);look(330,45);endif;
if(%#bau%=9);look(%&dir%);look(330,0);endif;
if(%#bau%=10);look(%&dir%);look(270,0);endif;
if(%#bau%=11);look(%&dir%);look(60,0);endif;
if(%#bau%=12);look(%&dir%);look(90,0);endif;
wait(1);
key(use);
wait(3);
for(#i,54,80);
getslotitem(%#i%,#id,#item);
if(%#id%=349);
#peixe=%#peixe%+%#item%;
endif;
slotclick(%#i%,l,true);
wait(90ms);
next;
getslotitem(53,#id,#stack);
if(%#stack%!=0);inc(#bau,1);endif;gui;
until(%#stack%=0);
endif;
loop;
endif;
}$$
Macro para olhar para os baús (não necessário, mas use caso queira editar novamente):
- Somente olha para os baús.
$${
if(x);
log("&4[Macro] OFF);
unset(x);
stop();
else;
log("&d[Macro] ONN");
set(x);
look(%&dir%);look(0,35);
wait(1);
look(%&dir%);look(30,30);
wait(1);
look(%&dir%);look(60,30);
wait(1);
look(%&dir%);look(90,35);
wait(1);
look(%&dir%);look(120,45);
wait(1);
look(%&dir%);look(180,60);
wait(1);
look(%&dir%);look(270,60);
wait(1);
look(%&dir%);look(330,45);
wait(1);
look(%&dir%);look(330,0);
wait(1);
look(%&dir%);look(270,0);
wait(1);
look(%&dir%);look(60,0);
wait(1);
look(%&dir%);look(90,0);
stop();
}$$
Recomendo conseguir 100 em reparação antes de pescar porque reparando a vara de pesca é bem mais prático e gasta menos linhas (duas para se fazer mais três gravetos contra somente uma linha para reparar dependendo do seu nível em reparação).
E isso pessoal, qualquer dúvida, sugestão, correção, podem postar abaixo, como instalar macros e fazer o pesqueiro já existem tópicos excelentes no fórum, dê uma olhada.
Créditos: [member=Phodalao] criador original da macro, [member=Galinha] tópico de revisão da macro.
