ENTREGUE [Macro] Colhe, planta e vende !

Para quem não é a favor de postar este tipo de macro, sugiro ler este tópico: Introdução
Ou apenas abra o spoiler abaixo.

Spoiler

admin, em 24 Jun 2013 - 2:56 PM, disse:


Prezados,

Como foi definido em enquete que o uso de Macros deve ser permitido nos nossos servidores, decidimos então criar uma área exclusiva em nosso fórum para tratar o assunto e principalmente para levar a informação para os jogadores que ainda não conhecem e/ou não tem acesso aos Macros.

Esse fórum tem portanto o objetivo de tornar global a possibilidade de utilização de Macros e, portanto, eliminar as possíveis vantagens/apelações que o seu uso pode ocasionar - já que todos terão acesso e poderão utilizar -

Pedimos que os jogadores mais experientes no uso de Macros não sejam egoístas e compartilhem informações que contribuam para o andamento desse novo fórum. Toda ajuda será bem vinda, como tutoriais, macros e mesmo no tópico de programação.

Vamos ficar de olho na participação de todos os membros nesse fórum, e, os que mais se destacarem na forma de contribuição/participação serão convidados pela staff para gerenciarem essa área do fórum ou até mesmo entrarem para a nossa equipe como coordenadores. Portanto mais um motivo para todos contribuírem com esse novo fórum de macros.

Atenciosamente,
Equipe CraftLandia

SOBRE O MACRO
1. APENAS PARA VIP.
2. Não precisa informar o tamanho da plantação;
3. O macro pode ser iniciado em qualquer direção;
4. O macro vai começar a colher na direção que for iniciado;
5. Quando termina a colheita o macro inicia a plantação no sentido contrário;
6. Quando termina a plantação o macro abre o inventário e verifica a quantidade de Nether;
7. Se tiver mais de 27 packs o macro salva a home posicao e vai para warp vip e vende;
8. Depois de vender na warp vip, volta para a home posicao e segue para a fileira da direita e repete tudo;
9. Quando o macro terminar toda a colheita vai para a home inicio [que pode ser alterada direto no script]
Obs1.: Coloque sua ferramenta [fortune 3] para colheita no Slot 9 da hotbar!
Obs2.: Este macro foi testado apenas no Servidor Ares, pode não funcionar se o warp vip for diferente.

O MACRO

Spoiler

$${
if(z);
log("&4[Macro] Colheita GoGo Magnata [OFF]");
keyup(FORWARD);
unset(z);
stop();
else;
log("&2[Macro] Colheita GoGo Magnata [ON]");
set(z);
#cont=0;
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;
gui(INVENTORY);
for(#i,9,43);
getslotitem(%#i%,#id,#stack);
if((%#id%=372)&&(%#stack%=64));
inc(#cont);
wait(50ms);
endif;
next;
gui();
if(%#cont%<27);
#cont=0;
else;
#cont=0;
}$$/sethome posicao$${
wait(1);
}$$/warp vip$${
wait(3);
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
do;
wait(10ms);
until((%XPOS%=%#posx%+10)|(%XPOS%=%#posx%-10)|(%ZPOS%=%#posz%+10)|(%ZPOS%=%#posz%-10));
wait(100ms);
keyup(FORWARD);
look(-90,);
wait(100ms);
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
do;
wait(10ms);
until((%XPOS%=%#posx%+19)|(%XPOS%=%#posx%-19)|(%ZPOS%=%#posz%+19)|(%ZPOS%=%#posz%-19));
wait(150ms);
keyup(FORWARD);
look(+90,);
look(,75);
wait(100ms);
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
wait(200ms);
do;
keydown(JUMP);
wait(100ms);
keyup(JUMP);
while(%HITID%=35);
do;
wait(10ms);
until(%HITID%=68);
keyup(FORWARD);
do(6);
key(ATTACK);
wait(500ms);
loop;
}$$/home posicao$${
wait(3);
endif;
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(120ms);
keyup(FORWARD);
else;
}$$/home inicio$${
wait(8);
endif;
loop;
}$$

Posição inicial do macro:

Spoiler

Sobre a plantação:
1. Não deve ter corredores;
2. Não precisa ter baús;
3. Se tiver baús não precisa tirar, mas devem estar encima de soulsand.

Exemplo da plantação:

Spoiler

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='BeetleJuice'] | [member='DeathStroker'] | [member='Felipesferreira'] | [member='Furionz'] | [member='Giooovani'] | [member='iBieel'] | [member='jimmyfilips'] | [member='Kilbyre'] | [member='MetiCrefiti'] | [member='Phodalao'] | [member='ShaDoWBR190'] | [member='Web1000'] | [member='Yao Fei']