ENTREGUE [Macro] Pesca Automatica 1.7.2 - 100% Funcional -

Peixoto · 28 Abril 2015

yMonster disse:

boa mano , macro top .-.
Clique para expandir...

rogroote · 14 Maio 2015

O BANCO disse:

boa mano , macro top .-.
Clique para expandir...

Clique para expandir...

Valeu.

rogroote · 10 Junho 2015

Samuel2014 disse:

bom macro!
Clique para expandir...

valeu amigo

diamondninja · 6 Setembro 2015

rogroote disse:

*03/05/2015 Nova disposição dos baús para o novo sistema de Homes.

[M]acro de Pesca VIP e Não VIP

•[I]ntrodução
- Este Macro foi criado por mim,para ajudar a subir o level da Skill de Pesca,podendo tanto ser usado por Vips e Não Vips.
Agora ficou mais fácil,pois o macro além de pescar(lógico,sua função principal),repara a vara,guarda itens no baú e não corre o risco
da vara de pesca quebrar.

•[S]ethome
- Serão utilizadas 2 homes: /sethome baupesca = Deverá ser feito olhando para os baús como na terceira imagem.
/sethome pesca = Deverá ser feita olhando para a água na trap,como no video.
•[T]utorial
- Posicionamento dos Baús:
#Aviso: Nova disposição dos baús,sua nova forma nos revela uma maior quantidade de baús
para utilizarmos,em uma área de 7x5.
Em uma das partes com 7 baús,exatamente no meio,de baixo pra cima quebre 2 baús,ficando
como se fosse uma porta.
•Os baús deveram estar dispostos dessa maneira:

•Você deverá ficar exatamente no meio dos baús,e a olhar para a porta feita anteriormente e dar /sethome baupesca:

• [ T]rap de Pesca e Macro:
- Bom,para a facilitação do processo de criação da trap,meu amigo zNightmare58,fez um video sobre como montar e como instalar o macro:
https://www.youtube.com/watch?v=CFaRJ9urPjE

- Também é preciso por um bloco de Ferro,embaixo de você enquanto estiver pescando,para reparar a vara,
mais precisamente no local onde for setar a home pesca. :v
- O mais importante ,o codigo do Macro:

$${
if(rogroote);
log("&4[Macro] &6Pesca desativada.");
log("&4[Macro] &2Obrigado por usar meu macro ASS: &bROGROOTE - REGION 2.0.");
unset(rogroote);
stop();
else;
log("&4[Macro] &6Pesca ativado.");
set(rogroote);
set(nf);
&dir = %DIRECTION%;
#bau=1;
#rod=1;
set(nf);
ifmatches(%&dir%,N);&dir=NORTH;endif;
ifmatches(%&dir%,S);&dir=SOUTH;endif;
ifmatches(%&dir%,E);&dir=EAST;endif;
ifmatches(%&dir%,W);&dir=WEST;endif;

prompt(&vip,$$?,Você é vip? (pesque somente com varas encantadas.)' (im ou [N]ao ?);

do;

ifmatches(%&vip%,^[a|b|c|d|e|f|g|h|i|j|k|l|m|o|p|q|r|t|u|v|x|y|w|z|A|B|C|D|E|F|G|H|I|J|K|L|M|O|P|Q|R|T|U|V|X|Y|W|Z|1|2|3|4|5|6|7|8|9|0]);
log("&2Preste &6ATENÇÃO &2no que digita, digite &6S &2ou &6N&2 ");
log("&4[Macro] &6Pesca desativada.");
unset(rogroote);
stop();

elseif;

ifmatches(%&vip%,^[S|s|SIM|sim|N|n|NAO|nao]);

PROMPT(&tempo,$$?, Qual tempo em segundos de espera para fisgar?( recomendo de dia 22 e a noite 15 segundos );

do;
ifmatches(%&vip%,^[S|s|SIM|sim]);

log("&f Para se ter resultado na pesca devese usar varas com encantamento &a Sorte do mar &63 &a e Sedução &63&a.")

do;
&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;

// PESCAR

look(%&dir%);
look(,352);
slot(8);
keydown(sneak);
wait(200ms);
key(use);
Wait(%&tempo%);
key(use);
Wait(200ms);
keyup(sneak);
slot(8);

// REPARAR
if(%DURABILITY%<20);
look(,90);
log("&4[Macro] &6 Durabilidade baixa, reparando...");
wait(200ms);
key(use);
wait(200ms);
key(use);
log("&4[Macro] &6 Vara reparada!");
endif;

// OLHAR INVENTÁRIO

if(nf);
wait(1);
gui(inventory);
wait(1);
getslotitem(35,#id,#stack);
if(%#stack%=0);
gui();
else;

// IR PARA OS BAUS

}$$/home baupesca$${
wait(3);
do;
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
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;

// OLHANDO PARA OS BAUS

do;
look(%&dir%);
if(%#bau%=1);look(-50,-24);endif;
if(%#bau%=2);look(-39,-28);endif;
if(%#bau%=3);look(-23,-32);endif;
if(%#bau%=4);look(+1,-34);endif;
if(%#bau%=5);look(+23,-32);endif;
if(%#bau%=6);look(+39,-28);endif;
if(%#bau%=7);look(+50,-24);endif;
if(%#bau%=8);look(+61,-23);endif;
if(%#bau%=9);look(+74,-24);endif;
if(%#bau%=10);look(+91,-26);endif;
if(%#bau%=11);look(+104,-25);endif;
if(%#bau%=12);look(+120,-23);endif;
if(%#bau%=13);look(+130,-24);endif;
if(%#bau%=14);look(+141,-28);endif;
if(%#bau%=15);look(+158,-32);endif;
if(%#bau%=16);look(-179,-34);endif;
if(%#bau%=17);look(-159,-32);endif;
if(%#bau%=18);look(-143,-27);endif;
if(%#bau%=19);look(-131,-24);endif;
if(%#bau%=20);look(-120,-23);endif;
if(%#bau%=21);look(-106,-24);endif;
if(%#bau%=22);look(-89,-26);endif;
if(%#bau%=23);look(-75,-25);endif;
if(%#bau%=24);look(-61,-23);endif;
if(%#bau%=25);look(-50,-10);endif;
if(%#bau%=26);look(-39,-12);endif;
if(%#bau%=27);look(-23,-14);endif;
if(%#bau%=28);look(+1,-16);endif;
if(%#bau%=29);look(+23,-14);endif;
if(%#bau%=30);look(+39,-12);endif;
if(%#bau%=31);look(+50,-10);endif;
if(%#bau%=32);look(+61,-10);endif;
if(%#bau%=33);look(+74,-11);endif;
if(%#bau%=34);look(+91,-11);endif;
if(%#bau%=35);look(+104,-11);endif;
if(%#bau%=36);look(+120,-10);endif;
if(%#bau%=37);look(+130,-10);endif;
if(%#bau%=38);look(+141,-12);endif;
if(%#bau%=39);look(+158,-14);endif;
if(%#bau%=40);look(-179,-16);endif;
if(%#bau%=41);look(-159,-14);endif;
if(%#bau%=42);look(-143,-12);endif;
if(%#bau%=43);look(-131,-10);endif;
if(%#bau%=44);look(-120,-10);endif;
if(%#bau%=45);look(-106,-11);endif;
if(%#bau%=46);look(-89,-11);endif;
if(%#bau%=47);look(-75,-11);endif;
if(%#bau%=48);look(-61,-10);endif;
if(%#bau%=49);look(-50,+4);endif;
if(%#bau%=50);look(-39,+4);endif;
if(%#bau%=51);look(-23,+4);endif;
if(%#bau%=52);look(+23,+4);endif;
if(%#bau%=53);look(+39,+4);endif;
if(%#bau%=54);look(+50,+4);endif;
if(%#bau%=55);look(+61,+4);endif;
if(%#bau%=56);look(+74,+4);endif;
if(%#bau%=57);look(+91,+4);endif;
if(%#bau%=58);look(+104,+4);endif;
if(%#bau%=59);look(+120,+4);endif;
if(%#bau%=60);look(+130,+4);endif;
if(%#bau%=61);look(+141,+4);endif;
if(%#bau%=62);look(+158,+4);endif;
if(%#bau%=63);look(-179,+4);endif;
if(%#bau%=64);look(-159,+4);endif;
if(%#bau%=65);look(-143,+4);endif;
if(%#bau%=66);look(-131,+4);endif;
if(%#bau%=67);look(-120,+4);endif;
if(%#bau%=68);look(-106,+4);endif;
if(%#bau%=69);look(-89,+4);endif;
if(%#bau%=70);look(-75,+4);endif;
if(%#bau%=71);look(-61,+4);endif;
if(%#bau%=72);look(-50,+16);endif;
if(%#bau%=73);look(-39,+20);endif;
if(%#bau%=74);look(-23,+22);endif;
if(%#bau%=75);look(+23,+22);endif;
if(%#bau%=76);look(+39,+20);endif;
if(%#bau%=77);look(+50,+16);endif;
if(%#bau%=78);look(+61,+16);endif;
if(%#bau%=79);look(+74,+18);endif;
if(%#bau%=80);look(+91,+18);endif;
if(%#bau%=81);look(+104,+18);endif;
if(%#bau%=82);look(+120,+16);endif;
if(%#bau%=83);look(+130,+16);endif;
if(%#bau%=84);look(+141,+20);endif;
if(%#bau%=85);look(+158,+22);endif;
if(%#bau%=86);look(-179,+24);endif;
if(%#bau%=87);look(-159,+22);endif;
if(%#bau%=88);look(-143,+20);endif;
if(%#bau%=89);look(-131,+16);endif;
if(%#bau%=90);look(-120,+17);endif;
if(%#bau%=91);look(-106,+18);endif;
if(%#bau%=92);look(-89,+19);endif;
if(%#bau%=93);look(-75,+18);endif;
if(%#bau%=94);look(-61,+17);endif;
// DEPOSITANDO AS COISAS NOS BAUS

wait(3);
key(use);
wait(1);
for(#i,54,87);
slotclick(%#i%,l,true);
wait(30ms);
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);
inc(#bau);
endif;
if(%#bau%=94);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá pescar agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);

// VOLTANDO PARA A HOME PESCA

}$$/home pesca$${
wait(3)
endif;endif;

loop;loop;loop;
endif;

ifmatches(%&vip%,^[N|n|NAO|nao]);

log("&f Para se ter resultado na pesca devese usar varas com encantamento &a sorte do mar &63 &a e Sedução &63&a.");

do;
&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;

// PESCANDO E TROCANDO DE VARA

slot(%#rod%);
look(%&dir%);
look(,352);
keydown(sneak);
if(DURABILITY<10);
inc(#rod);
endif;
if(%#rod%=10);
log("&2Todas as varas estão no &4red &2repareas ou as troque.");
log("&4[Macro] &6Pesca desativada.");
unset(rogroote);
stop();
endif;
wait(200ms);
key(use);
wait(%&tempo%);
key(use);
wait(200ms);
keyup(sneak);
endif;

// OLHAR INVENTÁRIO

wait(1);
gui(inventory);
wait(1);
getslotitem(35,#id,#stack);
if(%#stack%=0);
gui();

else;

// IR PARA OS BAUS

echo(/home baupesca)
wait(7);
do;
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
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;

// OLHANDO PARA OS BAUS

look(%&dir%);
if(%#bau%=1);look(-50,-24);endif;
if(%#bau%=2);look(-39,-28);endif;
if(%#bau%=3);look(-23,-32);endif;
if(%#bau%=4);look(+1,-34);endif;
if(%#bau%=5);look(+23,-32);endif;
if(%#bau%=6);look(+39,-28);endif;
if(%#bau%=7);look(+50,-24);endif;
if(%#bau%=8);look(+61,-23);endif;
if(%#bau%=9);look(+74,-24);endif;
if(%#bau%=10);look(+91,-26);endif;
if(%#bau%=11);look(+104,-25);endif;
if(%#bau%=12);look(+120,-23);endif;
if(%#bau%=13);look(+130,-24);endif;
if(%#bau%=14);look(+141,-28);endif;
if(%#bau%=15);look(+158,-32);endif;
if(%#bau%=16);look(-179,-34);endif;
if(%#bau%=17);look(-159,-32);endif;
if(%#bau%=18);look(-143,-27);endif;
if(%#bau%=19);look(-131,-24);endif;
if(%#bau%=20);look(-120,-23);endif;
if(%#bau%=21);look(-106,-24);endif;
if(%#bau%=22);look(-89,-26);endif;
if(%#bau%=23);look(-75,-25);endif;
if(%#bau%=24);look(-61,-23);endif;
if(%#bau%=25);look(-50,-10);endif;
if(%#bau%=26);look(-39,-12);endif;
if(%#bau%=27);look(-23,-14);endif;
if(%#bau%=28);look(+1,-16);endif;
if(%#bau%=29);look(+23,-14);endif;
if(%#bau%=30);look(+39,-12);endif;
if(%#bau%=31);look(+50,-10);endif;
if(%#bau%=32);look(+61,-10);endif;
if(%#bau%=33);look(+74,-11);endif;
if(%#bau%=34);look(+91,-11);endif;
if(%#bau%=35);look(+104,-11);endif;
if(%#bau%=36);look(+120,-10);endif;
if(%#bau%=37);look(+130,-10);endif;
if(%#bau%=38);look(+141,-12);endif;
if(%#bau%=39);look(+158,-14);endif;
if(%#bau%=40);look(-179,-16);endif;
if(%#bau%=41);look(-159,-14);endif;
if(%#bau%=42);look(-143,-12);endif;
if(%#bau%=43);look(-131,-10);endif;
if(%#bau%=44);look(-120,-10);endif;
if(%#bau%=45);look(-106,-11);endif;
if(%#bau%=46);look(-89,-11);endif;
if(%#bau%=47);look(-75,-11);endif;
if(%#bau%=48);look(-61,-10);endif;
if(%#bau%=49);look(-50,+4);endif;
if(%#bau%=50);look(-39,+4);endif;
if(%#bau%=51);look(-23,+4);endif;
if(%#bau%=52);look(+23,+4);endif;
if(%#bau%=53);look(+39,+4);endif;
if(%#bau%=54);look(+50,+4);endif;
if(%#bau%=55);look(+61,+4);endif;
if(%#bau%=56);look(+74,+4);endif;
if(%#bau%=57);look(+91,+4);endif;
if(%#bau%=58);look(+104,+4);endif;
if(%#bau%=59);look(+120,+4);endif;
if(%#bau%=60);look(+130,+4);endif;
if(%#bau%=61);look(+141,+4);endif;
if(%#bau%=62);look(+158,+4);endif;
if(%#bau%=63);look(-179,+4);endif;
if(%#bau%=64);look(-159,+4);endif;
if(%#bau%=65);look(-143,+4);endif;
if(%#bau%=66);look(-131,+4);endif;
if(%#bau%=67);look(-120,+4);endif;
if(%#bau%=68);look(-106,+4);endif;
if(%#bau%=69);look(-89,+4);endif;
if(%#bau%=70);look(-75,+4);endif;
if(%#bau%=71);look(-61,+4);endif;
if(%#bau%=72);look(-50,+16);endif;
if(%#bau%=73);look(-39,+20);endif;
if(%#bau%=74);look(-23,+22);endif;
if(%#bau%=75);look(+23,+22);endif;
if(%#bau%=76);look(+39,+20);endif;
if(%#bau%=77);look(+50,+16);endif;
if(%#bau%=78);look(+61,+16);endif;
if(%#bau%=79);look(+74,+18);endif;
if(%#bau%=80);look(+91,+18);endif;
if(%#bau%=81);look(+104,+18);endif;
if(%#bau%=82);look(+120,+16);endif;
if(%#bau%=83);look(+130,+16);endif;
if(%#bau%=84);look(+141,+20);endif;
if(%#bau%=85);look(+158,+22);endif;
if(%#bau%=86);look(-179,+24);endif;
if(%#bau%=87);look(-159,+22);endif;
if(%#bau%=88);look(-143,+20);endif;
if(%#bau%=89);look(-131,+16);endif;
if(%#bau%=90);look(-120,+17);endif;
if(%#bau%=91);look(-106,+18);endif;
if(%#bau%=92);look(-89,+19);endif;
if(%#bau%=93);look(-75,+18);endif;
if(%#bau%=94);look(-61,+17);endif;
wait(1);

// DEPOSITANDO AS COISAS NOS BAUS

wait(5);
key(use);
wait(1);
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%=94);
unset(nf);
log("&4[Macro] &6Baús cheios! Apenas irá pescar agora.");
gui();
else;
gui();
endif;
until(%#stack%=0);

// VOLTANDO PARA O HOME PESCA

echo(/home pesca);
wait(8);
loop;loop;loop;

endif;
loop;

loop;

endif;
}$$

•[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 e ao Mix33

Clique para expandir...

Olá rogroote
Eu, DiamondNinja sempre uso seu macro de pesca e com a utilização dele, eu resolvi alguns bugs do codigo, e seria legal se vc arrumasse no seu tbm, poistalvez eu seja o unico pescador do server e sei que você não pesca(eu acho)
enfim:

Código:

// PESCAR look(%&dir%); look(,352); slot(7); wait(100ms); slot(8); keydown(sneak); wait(200ms); key(use); Wait(%&tempo%); key(use); Wait(200ms); keyup(sneak); slot(7); wait(100ms); slot(8); // REPARAR

esse não é bem um bug, mas tinhas vezes que eu chegava para ver o macro o ele jogava a vara, abria o inventario e puava a vara e fisgava o delay todo sem estar pescando
então, vc poderia também colocar na mensagem de ligar ou desliga o link desta pagina no forum, para quem for utilizar sempre e mantenha atualizado
obs: uma placa de pressao de ouro avisa quando o peiXe é fisgado

rogroote · 13 Outubro 2015

Red Diamond disse:

Olá rogroote
Eu, DiamondNinja sempre uso seu macro de pesca e com a utilização dele, eu resolvi alguns bugs do codigo, e seria legal se vc arrumasse no seu tbm, poistalvez eu seja o unico pescador do server e sei que você não pesca(eu acho)
enfim:

// PESCAR

look(%&dir%);
look(,352);
slot(7);
wait(100ms);
slot(8);
keydown(sneak);
wait(200ms);
key(use);
Wait(%&tempo%);
key(use);
Wait(200ms);
keyup(sneak);
slot(7);
wait(100ms);
slot(8);

// REPARAR

esse não é bem um bug, mas tinhas vezes que eu chegava para ver o macro o ele jogava a vara, abria o inventario e puava a vara e fisgava o delay todo sem estar pescando
então, vc poderia também colocar na mensagem de ligar ou desliga o link desta pagina no forum, para quem for utilizar sempre e mantenha atualizado
obs: uma placa de pressao de ouro avisa quando o peiXe é fisgado
Clique para expandir...

Valeu amigo vou verificar aqui

GabrielBonfimBR · 19 Abril 2016

TheG4m3r disse: ↑

Da até pra pescar na 1.7, mas a melhor é a da 1.5, falo msm
Clique para expandir...

JaksonFX · 21 Abril 2016

go go vou testar esse macrozo ;P

iFoX · 21 Abril 2016

Aleluia um 1.7.2

willz · 13 Janeiro 2017

Mas aonde será reparada a vara?

joaogroote · 19 Janeiro 2017

willz disse:

Mas aonde será reparada a vara?
Clique para expandir...

embaixo de onde vc fica só colocar um bloco de ferro, rogroote aqui hehe

Titanfalll · 16 Maio 2017

Só que no video ele nao mostrou fazendo a trap mas ta bom. Macro bem legal irei usar!

lagosta · 3 Junho 2017

Otima macro parabens

Ridravynho · 25 Junho 2017

Seria melhor mudar de ( vip e nao vip ) para deseja reparar ?

wLuan · 30 Junho 2017

essa macro ainda funciona ?

bolivianos · 1 Fevereiro 2018

top cara gostei eu tava querendo acha 1 pra eu fazer gostei moito e e facil de fazer e moito bom obg :money_mouth:

RyanDESIGN · 6 Fevereiro 2018

otima macro parabens

rogroote · 18 Fevereiro 2018

Muito obrigado...

Ryanpactw disse:

otima macro parabens
Clique para expandir...

David GPS · 18 Fevereiro 2018

Ótima macro! Parabéns ai!

ENTREGUE [Macro] Pesca Automatica 1.7.2 - 100% Funcional -

Shoutbox (0)

Peixoto Razoavel
VIP

rogroote Bom
VIP

rogroote Bom
VIP

diamondninja Razoavel
VIP

rogroote Bom
VIP

GabrielBonfimBR Neutro
VIP

JaksonFX Excelente
VIP

iFoX Bom

willz Neutro
VIP

joaogroote Neutro

Titanfalll Neutro
VIP

lagosta Bom
VIP

Ridravynho Neutro
VIP

wLuan Craftlandiano
VIP

bolivianos Neutro

RyanDESIGN Bom
VIP

rogroote Bom
VIP

David GPS Excelente

ENTREGUE [Macro] Pesca Automatica 1.7.2 - 100% Funcional -

Shoutbox (0)

Peixoto Razoavel VIP

rogroote Bom VIP

rogroote Bom VIP

diamondninja Razoavel VIP

rogroote Bom VIP

GabrielBonfimBR Neutro VIP

JaksonFX Excelente VIP

iFoX Bom

willz Neutro VIP

joaogroote Neutro

Titanfalll Neutro VIP

lagosta Bom VIP

Ridravynho Neutro VIP

wLuan Craftlandiano VIP

bolivianos Neutro

RyanDESIGN Bom VIP

rogroote Bom VIP

David GPS Excelente

Peixoto Razoavel
VIP

rogroote Bom
VIP

rogroote Bom
VIP

diamondninja Razoavel
VIP

rogroote Bom
VIP

GabrielBonfimBR Neutro
VIP

JaksonFX Excelente
VIP

willz Neutro
VIP

Titanfalll Neutro
VIP

lagosta Bom
VIP

Ridravynho Neutro
VIP

wLuan Craftlandiano
VIP

RyanDESIGN Bom
VIP

rogroote Bom
VIP