ENTREGUE [Macro] Pesca NÃO-VIP +Varas +Baús

gabrielzim1234 · 19 Janeiro 2014

Phodalao disse:

Informações:
- O macro tem 28 baús.
- Eu sei que da pra botar + 24 mas eu tenho 1600 de pesca e em uma madrugada não consigo pegar + de 32 então deixei os 28 já que o macro é para os não vips.
- Tem dois macros, um para quem tem MENOS de 100 de reparação e outro pra quem tem MAIS de 100.
- Você precisa por esse macro no EDIT FILES

[hr]

Tutorial - Feito Pelo [member=FrangaLok]
[media]http://www.youtube.com/watch?v=Rh3KWoYbMBw[/media]

No macro pra quem tem MAIS de 100 de Reparação em vez de por um baú, vai colocar um BLOCO de FERRO no MEIO
Você Precisa ficar bem no meio do seu Bloco de Ferro ou Baú para que o macro de certo.
E se você não colocar a última placa olhando para o WEST o macro não vai funcionar.

Aquele baú do meio serve pra guardar as VARAS, nele você pode guardar 18 varas, seu inventário/bau deve estar igual o da print abaixo

[hr]

Macro - Para ver se você está no lugar certo pra pescar, ele vai olhar pra todos os baús, se olhar pra algum errado é porque você está no lugar errado, você tem que ficar mais ou menos aqui (Olhando sempre pro WEST):

$${
if(x);
log(&fMacro Desligado);
unset(x);
stop;
else;
log(&aMacro Ligado);
set(x);
wait(499ms);look(south);
wait(500ms);look(150,0);
wait(499ms);look(south);
wait(500ms);look(210,0);
wait(499ms);look(south);
wait(500ms);look(150,30);
wait(499ms);look(south);
wait(500ms);look(180,30);
wait(499ms);look(south);
wait(500ms);look(210,30);
wait(499ms);look(south);
wait(500ms);look(150,45);
wait(499ms);look(south);
wait(500ms);look(180,50);
wait(499ms);look(south);
wait(500ms);look(210,50);
wait(499ms);look(north);
wait(500ms);look(330,0);
wait(499ms);look(north);
wait(500ms);look(390,0);
wait(499ms);look(north);
wait(500ms);look(330,30);
wait(499ms);look(north);
wait(500ms);look(360,30);
wait(499ms);look(north);
wait(500ms);look(390,30);
wait(499ms);look(north);
wait(500ms);look(330,45);
wait(499ms);look(north);
wait(500ms);look(360,50);
wait(499ms);look(north);
wait(500ms);look(390,50);
wait(499ms);look(east);
wait(500ms);look(60,30);
wait(499ms);look(east);
wait(500ms);look(90,30);
wait(499ms);look(east);
wait(500ms);look(120,30);
wait(499ms);look(east);
wait(500ms);look(60,45);
wait(499ms);look(east);
wait(500ms);look(90,50);
wait(499ms);look(east);
wait(500ms);look(120,50);
wait(499ms);look(west);
wait(500ms);look(240,40);
wait(499ms);look(west);
wait(500ms);look(270,40);
wait(499ms);look(west);
wait(500ms);look(300,37);
wait(499ms);look(west);
wait(500ms);look(240,45);
wait(499ms);look(west);
wait(500ms);look(270,50);
wait(499ms);look(west);
wait(500ms);look(300,50);
}$$

Macro - Pra quem tem Mais de 100 de Reparação

$${
if(x);
log(&e[l] &2&lMacro&f: &eMacro Desligado!);
unset(x);
stop();
else;
log(&e[l] &2&lMacro&f: &eMacro Ligado!);
set(x);
set(bau);
#bau=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;
log( );
log(&4&lMANTENHA O INVENTARIO ABERTO);
log( );
gui(inventory);

do;
gui(inventory);
pick(346);

if(%DURABILITY%<10);
look(%&dir%);
look(,90);
wait(5ms);
key(use);wait(1ms);
key(use);
endif;

do(70);
look(%&dir%);
look(,-90);
key(use);
loop;
if(bau);
getslotitem(35,#id,#stack);
wait(20ms);
if(%#stack%=0);
else;
do;
//SUL

if(%#bau%=1);
wait(100ms);look(south);
wait(100ms);look(150,0);
endif;
if(%#bau%=2);
wait(100ms);look(south);
wait(100ms);look(210,0);
endif;
if(%#bau%=3);
wait(100ms);look(south);
wait(100ms);look(150,30);
endif;
if(%#bau%=4);
wait(100ms);look(south);
wait(100ms);look(180,30);
endif;
if(%#bau%=5);
wait(100ms);look(south);
wait(100ms);look(210,30);
endif;
if(%#bau%=6);
wait(100ms);look(south);
wait(100ms);look(150,45);
endif;
if(%#bau%=7);
wait(100ms);look(south);
wait(100ms);look(180,50);
endif;
if(%#bau%=8);
wait(100ms);look(south);
wait(100ms);look(210,50);
endif;

//NORTE

if(%#bau%=9);
wait(100ms);look(north);
wait(100ms);look(330,0);
endif;
if(%#bau%=10);
wait(100ms);look(north);
wait(100ms);look(390,0);
endif;

if(%#bau%=11);
wait(100ms);look(north);
wait(100ms);look(330,30);
endif;

if(%#bau%=12);
wait(100ms);look(north);
wait(100ms);look(360,30);
endif;

if(%#bau%=13);
wait(100ms);look(north);
wait(100ms);look(390,30);
endif;

if(%#bau%=14);
wait(100ms);look(north);
wait(100ms);look(330,45);
endif;

if(%#bau%=15);
wait(100ms);look(north);
wait(100ms);look(360,50);
endif;

if(%#bau%=16);
wait(100ms);look(north);
wait(100ms);look(390,50);
endif;

//EAST

if(%#bau%=17);
wait(100ms);look(east);
wait(100ms);look(60,30);
endif;

if(%#bau%=18);
wait(100ms);look(east);
wait(100ms);look(90,30);
endif;

if(%#bau%=19);
wait(100ms);look(east);
wait(100ms);look(120,30);
endif;

if(%#bau%=20);
wait(100ms);look(east);
wait(100ms);look(60,45);
endif;

if(%#bau%=21);
wait(100ms);look(east);
wait(100ms);look(90,50);
endif;

if(%#bau%=22);
wait(100ms);look(east);
wait(100ms);look(120,50);
endif;

//WEST

if(%#bau%=23);
wait(100ms);look(west);
wait(100ms);look(240,40);
endif;

if(%#bau%=24);
wait(100ms);look(west);
wait(100ms);look(270,40);
endif;

if(%#bau%=25);
wait(100ms);look(west);
wait(100ms);look(300,37);
endif;

if(%#bau%=26);
wait(100ms);look(west);
wait(100ms);look(240,45);
endif;

if(%#bau%=27);
wait(100ms);look(west);
wait(100ms);look(270,50);
endif;

if(%#bau%=28);
wait(100ms);look(west);
wait(100ms);look(300,50);
endif;

wait(1);
key(use);
wait(1);
for(#phodalao,54,80);
wait(35ms);
slotclick(%#phodalao%,l,true);
next;
wait(300ms);
getslotitem(53,#id,#stack);
wait(55ms);
if(%#stack%!=0);
inc(#bau);
endif;
gui();
if(%#bau%=30);
unset(bau);log("&e[l] &2&lMacro: &eParece que todos os baús foram cheios");
gui();
else;
gui();
endif;
until(%#stack%=0);
gui(inventory);
endif;endif;endif;
loop;
}$$

Macro - Pra quem tem Menos de 100 de Reparação

$${
if(x);
log(&e[l] &2&lMacro&f: &eMacro Desligado!);
unset(x);
stop();
else;
log(&e[l] &2&lMacro&f: &eMacro Ligado!);
set(x);
set(bau);
#bau=1;
#slot=1;
#a=0;
#b=8;
&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;
log( );
log(&4&lMANTENHA O INVENTARIO ABERTO);
log( );
gui(inventory);

do;
gui(inventory);
slot(%#slot%);

if(%DURABILITY%<10);
wait(5ms);
inc(#slot);
endif;

if(%#slot%>9);
look(%&dir%);
look(,90);
wait(1);
key(use);
wait(1);
for(#c,54,62);
wait(55ms);
slotclick(%#c%,l,true);
next;
wait(2);
for(#i,%#a%,%#b%);
wait(50ms);
slotclick(%#i%,l,true);
next;
wait(1ms);
inc(#a,9);
inc(#b,9);
wait(1ms);gui();
#slot=%#slot%-9
endif;
do(70);
look(%&dir%);
look(,-90);
key(use);
loop;
if(bau);
getslotitem(35,#id,#stack);
wait(20ms);
if(%#stack%=0);
else;
do;
//SUL

if(%#bau%=1);
wait(100ms);look(south);
wait(100ms);look(150,0);
endif;
if(%#bau%=2);
wait(100ms);look(south);
wait(100ms);look(210,0);
endif;
if(%#bau%=3);
wait(100ms);look(south);
wait(100ms);look(150,30);
endif;
if(%#bau%=4);
wait(100ms);look(south);
wait(100ms);look(180,30);
endif;
if(%#bau%=5);
wait(100ms);look(south);
wait(100ms);look(210,30);
endif;
if(%#bau%=6);
wait(100ms);look(south);
wait(100ms);look(150,45);
endif;
if(%#bau%=7);
wait(100ms);look(south);
wait(100ms);look(180,50);
endif;
if(%#bau%=8);
wait(100ms);look(south);
wait(100ms);look(210,50);
endif;

//NORTE

if(%#bau%=9);
wait(100ms);look(north);
wait(100ms);look(330,0);
endif;
if(%#bau%=10);
wait(100ms);look(north);
wait(100ms);look(390,0);
endif;

if(%#bau%=11);
wait(100ms);look(north);
wait(100ms);look(330,30);
endif;

if(%#bau%=12);
wait(100ms);look(north);
wait(100ms);look(360,30);
endif;

if(%#bau%=13);
wait(100ms);look(north);
wait(100ms);look(390,30);
endif;

if(%#bau%=14);
wait(100ms);look(north);
wait(100ms);look(330,45);
endif;

if(%#bau%=15);
wait(100ms);look(north);
wait(100ms);look(360,50);
endif;

if(%#bau%=16);
wait(100ms);look(north);
wait(100ms);look(390,50);
endif;

//EAST

if(%#bau%=17);
wait(100ms);look(east);
wait(100ms);look(60,30);
endif;

if(%#bau%=18);
wait(100ms);look(east);
wait(100ms);look(90,30);
endif;

if(%#bau%=19);
wait(100ms);look(east);
wait(100ms);look(120,30);
endif;

if(%#bau%=20);
wait(100ms);look(east);
wait(100ms);look(60,45);
endif;

if(%#bau%=21);
wait(100ms);look(east);
wait(100ms);look(90,50);
endif;

if(%#bau%=22);
wait(100ms);look(east);
wait(100ms);look(120,50);
endif;

//WEST

if(%#bau%=23);
wait(100ms);look(west);
wait(100ms);look(240,40);
endif;

if(%#bau%=24);
wait(100ms);look(west);
wait(100ms);look(270,40);
endif;

if(%#bau%=25);
wait(100ms);look(west);
wait(100ms);look(300,37);
endif;

if(%#bau%=26);
wait(100ms);look(west);
wait(100ms);look(240,45);
endif;

if(%#bau%=27);
wait(100ms);look(west);
wait(100ms);look(270,50);
endif;

if(%#bau%=28);
wait(100ms);look(west);
wait(100ms);look(300,50);
endif;

wait(1);
key(use);
wait(1);
for(#phodalao,54,80);
wait(35ms);
slotclick(%#phodalao%,l,true);
next;
wait(300ms);
getslotitem(53,#id,#stack);
wait(55ms);
if(%#stack%!=0);
inc(#bau);
endif;
gui();
if(%#bau%=30);
unset(bau);log("&e[l] &2&lMacro: &eParece que todos os baús foram cheios");
gui();
else;
gui();
endif;
until(%#stack%=0);
gui(inventory);
endif;endif;endif;
loop;
}$$

Clique para expandir...

vc pode arruma pra mi pra ele guardar em /home bau

phlippden · 19 Janeiro 2014

boa macro anda me ajudando bastante

Kylefraser · 19 Janeiro 2014

Perfeito :3

Phodalao · 19 Janeiro 2014

gabrielzim1234 disse:

vc pode arruma pra mi pra ele guardar em /home bau
Clique para expandir...

Esse ai não precisa de nenhuma home..
O que guarda em home bau é esse http://forum.craftlandia.com.br/ipb/index.php?/topic/228672-macro-macro-de-pesca-com-homes/

OwenWinner · 19 Janeiro 2014

sdds de pescar, to upando reparação pra ficar no ranking de construção kkkk

The Mask · 19 Janeiro 2014

epico o////// acho ke vou usar heuehheueh
@heueuh o cara ta usando a minha texture pack hueheueh so ke editada, reconheci pelo menu e as outras coisas ke eu editei, so alguns blocos e diferente hehe

erick_ · 19 Janeiro 2014

kd seu VIP ?

phlippden · 20 Janeiro 2014

meu amigo estou com um problema
a macro só acessa o primeiro báu....
o que eu fasso ?

Phodalao · 21 Janeiro 2014

phlippden disse:

meu amigo estou com um problema
a macro só acessa o primeiro báu....
o que eu fasso ?
Clique para expandir...

Você precisa apertar F3 + P, isso vai deixar seu minecraft em segundo plano...
E Também precisa por no edit files

Lopicirne Beast · 23 Fevereiro 2014

troll do spoiler show kkk

thierryjordy · 23 Fevereiro 2014

bom macro

PikaDasGalaxias · 1 Março 2014

Phodalao, qnto d altura d agua eu ponho??

xPKill · 3 Março 2014

Só dá #phodalao s2 no chat hauehuaeuae...

fraga · 8 Março 2014

Revivendo, muita gente não viu.

Eduarte · 17 Março 2014

Bom macro vou testar

IceBR3kWiN · 17 Março 2014

FragaBAN disse:

Macro mais épico de todos \o/

#First
Clique para expandir...

Biel237BR · 22 Março 2014

Phodalao disse:

Ótimo Macro, UP
Clique para expandir...

Zacura · 22 Março 2014

Muito bom mano, vou usar!

2000CLE · 22 Março 2014

Meu amigo ta perguntando se funciona só para n/vips....?♣

andrezinho100 · 22 Março 2014

Prefiro do Phodalao mais irei testar.

ENTREGUE [Macro] Pesca NÃO-VIP +Varas +Baús

Shoutbox (0)

gabrielzim1234 Neutro

phlippden Neutro

Kylefraser Excelente
Banido

Phodalao Lendário
VIP

OwenWinner Hardcore
VIP

The Mask Excelente
VIP

erick_ Craftlandiano
VIP

phlippden Neutro

Phodalao Lendário
VIP

Lopicirne Beast Neutro

thierryjordy Craftlandiano
VIP

PikaDasGalaxias Neutro
VIP

xPKill Bom
VIP

fraga Hardcore
VIP

Eduarte Craftlandiano
VIP

IceBR3kWiN Craftlandiano
VIP

Biel237BR Neutro

Zacura Excelente
VIP

2000CLE Excelente
Banido

andrezinho100 Neutro

ENTREGUE [Macro] Pesca NÃO-VIP +Varas +Baús

Shoutbox (0)

gabrielzim1234 Neutro

phlippden Neutro

Kylefraser Excelente Banido

Phodalao Lendário VIP

OwenWinner Hardcore VIP

The Mask Excelente VIP

erick_ Craftlandiano VIP

phlippden Neutro

Phodalao Lendário VIP

Lopicirne Beast Neutro

thierryjordy Craftlandiano VIP

PikaDasGalaxias Neutro VIP

xPKill Bom VIP

fraga Hardcore VIP

Eduarte Craftlandiano VIP

IceBR3kWiN Craftlandiano VIP

Biel237BR Neutro

Zacura Excelente VIP

2000CLE Excelente Banido

andrezinho100 Neutro

Kylefraser Excelente
Banido

Phodalao Lendário
VIP

OwenWinner Hardcore
VIP

The Mask Excelente
VIP

erick_ Craftlandiano
VIP

Phodalao Lendário
VIP

thierryjordy Craftlandiano
VIP

PikaDasGalaxias Neutro
VIP

xPKill Bom
VIP

fraga Hardcore
VIP

Eduarte Craftlandiano
VIP

IceBR3kWiN Craftlandiano
VIP

Zacura Excelente
VIP

2000CLE Excelente
Banido