ENTREGUE [Macro] Colheita Hiper Feliz

Leonardo Humbert · 24 Dezembro 2013

Substituto disse:

Fiz este macro com o objetivo de eliminar os possíveis BUGs existentes no primeiro.

O MACRO
Para apenas 1 andar:

$${
if(z);
log("&4[Macro] Colheita Hiper Feliz [OFF]");
keyup(FORWARD);
unset(z);
stop();
else;
log("&2[Macro] Colheita Hiper Feliz [ON]");
set(z);
endif;
&d=%DIRECTION%;
ifmatches(%&d%,N);&d=NORTH;endif;
ifmatches(%&d%,S);&d=SOUTH;endif;
ifmatches(%&d%,E);&d=EAST;endif;
ifmatches(%&d%,W);&d=WEST;endif;
do;
slot(9);wait(100ms);
look(%&d%);wait(100ms);
look(,90);wait(100ms);
key(ATTACK);wait(100ms);
look(,65);wait(100ms);
do;
if((%HITID%=88)|(%HITID%=115));
keydown(FORWARD);
key(ATTACK);wait(100ms);
else;
keyup(FORWARD);
BREAK;
endif;
loop;
look(+180,);wait(100ms);
look(,90);wait(100ms);
pick(372);wait(100ms);
do(3);key(USE);loop;wait(100ms);
look(,65);wait(100ms);
do;
pick(372);
if((%HITID%=88)|(%HITID%=115));
keydown(FORWARD);
key(USE);
wait(100ms);
else;
keyup(FORWARD);
BREAK;
endif;
loop;
key(USE);
wait(1);
for(#i,54,88);
getslotitem(%#i%,#id,#stack);
if(%#id%=372);
slotclick(%#i%,l,true);
wait(50ms);
endif;
next;
gui();
look(-90,);wait(100ms);
if((%HITID%=88)|(%HITID%=115));
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
do;
wait(10ms);
until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
wait(150ms);
keyup(FORWARD);
else;
}$$/home inicio$${
wait(8);
endif;
loop;
}$$

Para 2 andares:

$${

if(z);
log("&4[Macro] Colheita Hiper Feliz [OFF]");
keyup(FORWARD);
unset(z);
stop();
else;
log("&2[Macro] Colheita Hiper Feliz [ON]");
set(z);set(andar);
endif;
&d=%DIRECTION%;
ifmatches(%&d%,N);&d=NORTH;endif;
ifmatches(%&d%,S);&d=SOUTH;endif;
ifmatches(%&d%,E);&d=EAST;endif;
ifmatches(%&d%,W);&d=WEST;endif;
do;
slot(9);wait(100ms);
look(%&d%);wait(100ms);
look(,90);wait(100ms);
key(ATTACK);wait(100ms);
look(,65);wait(100ms);
do;
if((%HITID%=88)|(%HITID%=115));
keydown(FORWARD);
key(ATTACK);wait(100ms);
else;
keyup(FORWARD);
BREAK;
endif;
loop;
look(+180,);wait(100ms);
look(,90);wait(100ms);
pick(372);wait(100ms);
do(3);key(USE);loop;wait(100ms);
look(,65);wait(100ms);
do;
pick(372);
if((%HITID%=88)|(%HITID%=115));
keydown(FORWARD);
key(USE);
wait(100ms);
else;
keyup(FORWARD);
BREAK;
endif;
loop;
key(USE);
wait(1);
for(#i,54,88);
getslotitem(%#i%,#id,#stack);
if(%#id%=372);
slotclick(%#i%,l,true);
wait(50ms);
endif;
next;
gui();
look(-90,);wait(100ms);
if((%HITID%=88)|(%HITID%=115));
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
do;
wait(10ms);
until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
wait(150ms);
keyup(FORWARD);
else;
if(andar);
}$$/home wart2$${
unset(andar);
else;
}$$/home wart1$${
set(andar);
endif;
wait(8);
endif;
loop;
}$$

Sobre o macro
1. Não precisa informar o tamanho da plantação;
2. O macro pode ser iniciado em qualquer direção;
3. O macro vai começar a colher na direção que for iniciado;
4. Quando termina a colheita o macro inicia a plantação no sentido contrário;
5. Quando termina a plantação o macro abre o bau e guarda todas as sementes de Nether;
6. Depois de esvaziar o inventário o macro segue para a fileira da direita e repete tudo;
7. Quando o macro terminar toda a colheita vai para a home inicio [que pode ser alterada direto no script]
8. Se você for vip altere a linha em vermelho para wait(1);
Obs.: Coloque sua ferramenta [fortune 3] para colheita no Slot 9 da hotbar!

Posição inicial do macro:

Sobre a plantação
1. Não deve ter corredores;
2. O lado que for iniciar o macro deve estar fechada com baús;
3 Os baús devem estar encima de soulsand.
Obs.: Para usar baús lada a lado, basta alternar entre baú simples e baú com armadilha
Veja aqui como fazer baú com armadilha

Exemplo da plantação:

Se você é novo com macros acesse este [Tutorial] Guia de macro para iniciantes

Agradecimento e crédito a todos os Script Makers que de alguma forma acrescentaram conhecimentos:

[member='iBieel'] | [member='DeathStroker'] | [member='Giooovani'] | [member='jimmyfilips'] | [member='Phodalao'] | [member='BeetleJuice'] | [member='Web1000'] | [member='ShaDoWBR190'] | [member='Kilbyre'] | [member='MetiCrefiti'] | [member='Yao Fei']
Clique para expandir...

Então meu macro pula uma linha de vez em quando oq devo fazer ?

Pancini · 30 Dezembro 2013

Muito bom, parabens

letroziz · 31 Dezembro 2013

Otimo macro parabens. ensinando nobs a ter money !!! GG

letroziz · 1 Janeiro 2014

Ainda tem erros pois as veses ele pula uma fileira pois ACHO que esta puxando pra direita um pouco u.u

#SOACHO

JazannN · 1 Janeiro 2014

Otimo macro Substituto , Estou usando ele ;D UP = GARANTIDUUH !

gabrielgarciamarini · 2 Janeiro 2014

Cara tem como fazer esse macro para mais andares como 3, 4 andares, pois minha plantação tem por enquanto 5 andares e com esse macro tenho que prestar atenção quando acaba o segundo andar para ir pro terceiro. Por esse motivo te pergunto se tem como adicionar mais andares no código. Aguardo respostas.

TntGamer12 · 2 Janeiro 2014

Vlw Cara muito bom

Slashhabbo · 3 Janeiro 2014

Teria como colocar umas 4 homes?

Nathck · 3 Janeiro 2014

Tem código para 4 andares ??

MrMysterious · 6 Janeiro 2014

Só tenho uma dúvida: pra esse macro funcionar, os fungos devem estar crescidos?

gemele · 6 Janeiro 2014

superstronger disse:

Só tenho uma dúvida: pra esse macro funcionar, os fungos devem estar crescidos?
Clique para expandir...

não, ele funciona sem cresce mesmo, mas dai não compensa

mobcraft09 · 8 Janeiro 2014

Mano no meu fica bugando, o macro nao colhe todas as fileiras ele fica pulando

lucasz166 · 10 Janeiro 2014

Tem para 3 andares? =]

samukatb · 12 Janeiro 2014

Alguém pode me ajudar? Quando ele termina de colher, ele da /home, só que ele continua quebrando ... tem como fazer ele colher, e depois de colher ele ir para /home casa e desligar o macro?

x6UrsinhoDaGabi · 14 Janeiro 2014

e para quem tem 3 andares??????

e39 · 14 Janeiro 2014

Muito bom

BoyZym · 27 Janeiro 2014

vei na moral, essa é a melhor macro que tem para colheita ! não precisa colocar naaada, nem comprimento..
NOTA 10

felipeeduardocolombelli · 1 Fevereiro 2014

ele buga no bau ?pq

BLack15x · 9 Fevereiro 2014

Cara, parabéns... ótimo macro, parabéns mesmo.

THIAGOAGA · 9 Fevereiro 2014

Esse macro aí é pra sai lucrando msm se dxa o dia tdo

ENTREGUE [Macro] Colheita Hiper Feliz

Shoutbox (0)

Leonardo Humbert Neutro

Pancini Neutro
VIP

letroziz Bom
VIP

letroziz Bom
VIP

JazannN Excelente
VIP

gabrielgarciamarini Excelente
VIP

TntGamer12 Neutro

Slashhabbo Neutro
VIP

Nathck Neutro
VIP

MrMysterious Neutro

gemele Neutro
VIP

mobcraft09 Bom
VIP

lucasz166 Neutro
VIP

samukatb Neutro

x6UrsinhoDaGabi Neutro

e39 Excelente
VIP

BoyZym Bom
VIP

felipeeduardocolombelli Neutro

BLack15x Neutro

THIAGOAGA Bom
VIP

ENTREGUE [Macro] Colheita Hiper Feliz

Shoutbox (0)

Leonardo Humbert Neutro

Pancini Neutro VIP

letroziz Bom VIP

letroziz Bom VIP

JazannN Excelente VIP

gabrielgarciamarini Excelente VIP

TntGamer12 Neutro

Slashhabbo Neutro VIP

Nathck Neutro VIP

MrMysterious Neutro

gemele Neutro VIP

mobcraft09 Bom VIP

lucasz166 Neutro VIP

samukatb Neutro

x6UrsinhoDaGabi Neutro

e39 Excelente VIP

BoyZym Bom VIP

felipeeduardocolombelli Neutro

BLack15x Neutro

THIAGOAGA Bom VIP

Pancini Neutro
VIP

letroziz Bom
VIP

letroziz Bom
VIP

JazannN Excelente
VIP

gabrielgarciamarini Excelente
VIP

Slashhabbo Neutro
VIP

Nathck Neutro
VIP

gemele Neutro
VIP

mobcraft09 Bom
VIP

lucasz166 Neutro
VIP

e39 Excelente
VIP

BoyZym Bom
VIP

THIAGOAGA Bom
VIP