ENTREGUE Colheita do besouro

KadooGN · 6 Março 2014

Belo Macro parabéns ! like

Kinectz · 6 Março 2014

Macro DAHORA , vou usar

ResBR · 6 Março 2014

BeetleJuice = suco de besouro?'-'

BeetleJuice · 6 Março 2014

yJailsonBR disse:

BeetleJuice = suco de besouro?'-'
Clique para expandir...

É, mas tem um personagem famoso com esse nome.

Vocês estão pegando mais no pé do nome do tópico e do meu nick lindo do que usando a macro OPAKSOPKSAOPKSAAS
Tanta gente já me pediu isso... Acho que a fase de colher e plantar fungos já se passou, malditos pescadores.

PDornelas · 6 Março 2014

Legal

LasTVip · 6 Março 2014

Só pode ser 24 baus? pq eu tenho uma plant 100x100 3 andares

Kardouzo · 6 Março 2014

aaaaaaaaaaaaaaaaa, não dá pra usar Fortune .-.

alsantos123 · 6 Março 2014

MACRO PERFEITO! To usando aqui, só teve um problema, AS VEZES quando eu paro ele, e inicio de novo, ele volta pra onde paro, mas fica parado.. as vezes ele volta e vai normal, as vezes não.. e também as vezes ele vai pra home dos baus, da um pulo, não abre o bau pra guardar e volta pra plant, marquei a sethome certinho .. Os bugs só acontecem as vezes, não é sempre.

MarcelloJR · 7 Março 2014

Boa macro.

BeetleJuice · 7 Março 2014

iHenriquesz disse:

aaaaaaaaaaaaaaaaa, não dá pra usar fortune
Clique para expandir...

Dá sim, mas é só com picareta.

alsantos123 disse:

MACRO PERFEITO! To usando aqui, só teve um problema, AS VEZES quando eu paro ele, e inicio de novo, ele volta pra onde paro, mas fica parado.. as vezes ele volta e vai normal, as vezes não.. e também as vezes ele vai pra home dos baus, da um pulo, não abre o bau pra guardar e volta pra plant, marquei a sethome certinho .. Os bugs só acontecem as vezes, não é sempre.
Clique para expandir...

Sobre ficar parado, depende de como você desligou a macro, mas arrumei agora pra prevenir que isso aconteça, mesmo assim.
Sobre o baú, pode ser lag. Mas também acabei de arrumar e fiz de um modo que previna isso de qualquer forma. Agora o baú tem que ser aberto.
Obg mesmo por avisar e elogiar o/

LasTVip disse:

Só pode ser 24 baus? pq eu tenho uma plant 100x100 3 andares
Clique para expandir...

Demora pra encher. Você pode fazer vários conjuntos de baús e dar /sethome fungobaus nos outros, quando um encher.

Vitor Ribeiro Guilhen · 7 Março 2014

Boa,vou testar agr msm

Thiago Pires · 7 Março 2014

Phodalao disse:

O macro bugou não tem nada no spoiler '-'
Clique para expandir...

fatalisss · 7 Março 2014

Não entendi, vou esperar pelo vídeo.

alsantos123 · 7 Março 2014

BeetleJuice disse:

Sobre ficar parado, depende de como você desligou a macro, mas arrumei agora pra prevenir que isso aconteça, mesmo assim.
Sobre o baú, pode ser lag. Mas também acabei de arrumar e fiz de um modo que previna isso de qualquer forma. Agora o baú tem que ser aberto.
Obg mesmo por avisar e elogiar o/
Clique para expandir...

Obg Edit: Ele vai pra home de bau, e não abre bau, ele fica la até eu abrir manualmente.. ai guarda sozinho e fecha e volta, problema: Não ta abrindo o bau!

danoss · 7 Março 2014

to meio confuso em questão das sethomes, setei a /home fungobaus só que eu não sei onde setar a /home fungosf1 e /home fungostemp

AzulBanana · 7 Março 2014

BeetleJuice disse:

[MACRO] Colheita do besouro (1.5.2)

Depois de muito tempo sem postar nada o/
Desculpem o nome do tópico, mas já usaram os normais e beetle significa besouro u.u

O que esta macro faz?
Colhe e planta 2 vezes mais rápido que as macros convencionais, muda de andares sozinho (se houver mais de um andar) e guarda em 24 baús duplos.
Permite parar e continuar e raramente deu algum bug aqui, mesmo com lag.

Vantagens:
- Sinceramente, acho que é o método mais rápido e eficiente possível.
- A plantação e cada andar podem ser de QUALQUER tamanho, você não precisa informar.
- Você pode PAUSAR a colheita segurando a tecla "P" e continuar de onde parou segurando "P" novamente.
- Você pode PARAR a macro e continuar de onde parou quando ligá-la novamente.
- Guardar em baús agrupados, o que facilita muito a venda depois.
- Ao abrir o chat ou o inventário, a macro espera você fechar para continuar.

/sethomes:

- Obrigatórias:
/home fungof1 - Andar 1 (ou andar único)
/home fungobaus - Baús
/home fungotemp (Essa vocês não precisam marcar, mas precisam ter espaço nas setomes para ela, porque a macro marca sozinha)
- Opcionais:
/home fungof2 - Andar 2
/home fungof3 - Andar 3
/home fungof4 - Andar 4
/home fungof5 - Andar 5
/home fungof6 - Andar 6

Macro:
Basta colar em uma tecla qualquer em "Macro bindings", como qualquer outra macro:

$${
if(@neth3);
keyup(forward);
unset(@neth3);
}$$
/sethome fungotemp
$${
#snposx1=%XPOS%; #snposx2=%ZPOS%;
log("&d» &6Plantação Automática &c[OFF]");
stop();
else;
set(@neth3);
#delay=8;#h=; #v=; &x=+;
log("&d» &6Plantação Automática &a[ON]");
PROMPT(&return,$$?,"Continuar de onde estava quando desligou? (S ou N)");
ifmatches(%&return%,^[S|s]);
set(return);
log("&d» &6Continuando a partir de onde foi desligado!");
else;
unset(return);
PROMPT(#fxv,$$?,"Quantos andares são? (O máximo são 6 andares!)"); if(%#fxv%=0);unset(@neth3);stop();endif;
#hfl=1;
if(%#fxv%>1);
&tm=;
if(%#fxv%=2);&tm=1 ou 2?;endif;if(%#fxv%=3);&tm=1, 2 ou 3?;endif;if(%#fxv%=4);&tm=1, 2, 3 ou 4?;endif;if(%#fxv%=5);&tm=1, 2, 3, 4 ou 5?;endif;if(%#fxv%=6);&tm=1, 2, 3, 4, 5 ou 6?;endif;
if(%#fxv%>6);
log("&d» &cOps! &6Número de andares maior que o possível &3(6)&6!");
log("&d» &6Plantação Automática &c[OFF]");
unset(@neth3);
stop();
endif;
PROMPT(#flror,$$?,"Começar por qual andar? %&tm%"); if(%#flror%=0);unset(@neth3);stop();endif;
else;
#flror=1;
endif;
if(%#flror%>%#fxv%);
log(&d» &cOps! &6Andar escolhido para começar é maior que o número de andares que você escolheu! Preste mais atenção nas perguntas &3:/);
log("&d» &6Plantação Automática &c[OFF]");
unset(@neth3);
stop();
endif;
log("&d» &6As sethomes devem ser no estilo: &3/home fungof1 /home fungof2&6 ...");
log("&d» &6A sethome dos baús deve ser &3/home fungobaus &6...");
log("&d» &6Se quiser parar só por um tempo, segure a &3tecla P&6 até parar!");
set(first);
endif;

do;
for(#hfl,%#flror%,%#fxv%);
wait(1);
if(return);
#hfltemp=%#hfl%;#hfl=8000;
}$$
/home fungotemp
$${
do;until((%XPOS%=%#snposx1%)&&(%ZPOS%=%#snposx2%));wait(1);
unset(return);
else;
}$$
$${if(%#hfl%=1);}$$/home fungof1$${endif;}$$
$${if(%#hfl%=2);}$$/home fungof2$${endif;}$$
$${if(%#hfl%=3);}$$/home fungof3$${endif;}$$
$${if(%#hfl%=4);}$$/home fungof4$${endif;}$$
$${if(%#hfl%=5);}$$/home fungof5$${endif;}$$
$${if(%#hfl%=6);}$$/home fungof6$${endif;}$$
$${
if(first);wait(8);else;wait(1);endif;
set(first);
endif;

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;

look(%&dir%);
look(,+89);
key(attack);
unset(nextfloor);

do;
#stack=0;
keyup(forward);
gui(inventory);
wait(450ms);
getslot(372,#fghot);
getslotitem(35,#id,#stack);
if(%#fghot%<36);
slotclick(%#fghot%,l,true);
endif;
wait(450ms);
gui();

if(%#stack%>0);
#nposx1=%XPOS%; #nposx2=%ZPOS%;
}$$
/sethome fungotemp
$${}$$
/home fungobaus
$${
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;
look(%&dir%);
look(-23,+0);
look(+0,0);
look(+0,-40);
look(%&x%%#h%,%&x%%#v%);wait(200ms);
wait(1);
do;key(use);wait(1);ifmatches(%GUI%,GUICHEST);break;endif;loop;
for(#i,54,88);
getslotitem(%#i%,#ide,#stacke);
if(%#ide%=372);
slotclick(%#i%,l,true);
endif;
wait(30ms);
next;
wait(250ms);
getslotitem(53,#id,#stack);
wait(250ms);
if(%#stack%!=0);
#h=%#h%+45;
endif;
if(%#h%=270);
#v=%#v%+20;
#h=;
gui();
wait(500ms);
else;
gui();
endif;
until(%#stack%=0);
}$$
/home fungotemp
$${
wait(%#delay%);
keydown(jump);wait(100ms);keyup(jump);wait(1);
else;
gui();
endif;

do;
&dir=%DIRECTION%;
ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;

ifmatches(%GUI%,chat|inventory);
keyup(forward);
log(&d» &6Chat ou inventório detectado. &3Macro pausado!);
do;
ifmatches(%GUI%,CHAT|INVENTORY);
else;
#g=0;
endif;
until(%#g%=0);
#g=1;
log(&d» &6Chat ou inventório fechado. &3Continuando!);
endif

if(KEY_P);
keyup(forward);
wait(200ms);
#nposx1=%XPOS%;#nposx2=%ZPOS%;
}$$
/sethome fungotemp
$${
log(&d» &6Plantação automática &3interrompida&6!);
log(&d» &6Para continuar, segure a &3tecla P &6por %#delay% segundos!);
do;
if(KEY_P);
wait(3);
if(KEY_P);
wait(200ms);
if(KEY_P);
set(resume);
endif;
endif;
endif;
until(resume);
unset(resume);
}$$
/home fungotemp
$${
log("&d» &6Plantação automática &3retomada&6!");
log("&d» &6Não mexa o mouse, oki? &3");
do;until((%XPOS%=%#nposx1%)&&(%ZPOS%=%#nposx2%));
wait(2);
endif;

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

look(%&dir%);
look(,+89);
#nposx1=%XPOS%; #nposx2=%ZPOS%;
do;
keydown(forward);
pick(372);
key(use);
getidrel(%&x%,+0,%&z%,#blockd);
getidrel(%&x%,+1,%&z%,#blocku);
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%)|(%#blockd%!=88)|(%#blocku%!=115)&&(%#blocku%!=0));
pick(278);
key(attack);
until((%#blockd%!=88)|(%#blocku%!=115)&&(%#blocku%!=0));

key(use);
keyup(forward);

if(first);
getidrel(%&x1%,+0,%&z1%,#block1);getidrel(%&x2%,+0,%&z2%,#block2);
getidrel(%&x1%,+1,%&z1%,#block3);getidrel(%&x2%,+1,%&z2%,#block4);
if((%#block1%=88)|(%#block3%=88));&sn=-;endif;
if((%#block2%=88)|(%#block4%=88));&sn=+;endif;
&dirc=%DIRECTION%;
ifmatches(%&sn%,[\+]);&sn1=+;&sn2=-;endif;
ifmatches(%&sn%,[\-]);&sn1=-;&sn2=+;endif;
unset(first);
endif;

&dir=%DIRECTION%;
ifmatches(%&dirc%,N);ifmatches(%&dir%,N);&sn=%&sn1%;endif;ifmatches(%&dir%,S);&sn=%&sn2%;endif;endif;
ifmatches(%&dirc%,S);ifmatches(%&dir%,N);&sn=%&sn2%;endif;ifmatches(%&dir%,S);&sn=%&sn1%;endif;endif;
ifmatches(%&dirc%,W);ifmatches(%&dir%,W);&sn=%&sn1%;endif;ifmatches(%&dir%,E);&sn=%&sn2%;endif;endif;
ifmatches(%&dirc%,E);ifmatches(%&dir%,W);&sn=%&sn2%;endif;ifmatches(%&dir%,E);&sn=%&sn1%;endif;endif;

look(%&sn%90,);
wait(100ms);

&dir=%DIRECTION%;
ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;

getidrel(%&x%,+0,%&z%,#block1);
getidrel(%&x%,+1,%&z%,#block3);

if((%#block3%!=0)&&(%#block3%!=115));
if((%#block1%!=88));
set(nextfloor);
endif;
endif;
if((%#block1%!=88));
set(nextfloor);
endif;

if(nextfloor);
else;
#nposx1 = %XPOS%; #nposx2 = %ZPOS%;
do;
keydown(forward);
pick(372);
key(use);
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
keyup(forward);
key(attack);
look(%&sn%90,);
endif;
until(nextfloor);
keyup(FORWARD);
next;
#flror=1;
loop;
endif;
}$$

Vídeo [Tutorial/Explicação]

Esperando vídeo do JimmyFilips :3

O que fazer (Temporário até o vídeo)
Depois de pegar a macro, basta marcar a /home fungof1 no começo do primeiro andar (ou do único andar) e marcar a /home fungobaus bem no meio do conjunto de baús, como dá pra ver na imagem logo abaixo.

Imagens:
Conjunto de baús:

Dicas:
- É mais fácil a macro trabalhar em regiões retangulares ou quadradas, até pode funcionar se não for, mas não é garantido.
- É verificado se o inventário está lotado ao fim de cada fileira, ou seja, plantações MUITO maiores que 100x100 não são indicadas.
- Encheu os baús? Dê /sethome fungobaus em um novo conjunto, se quiser acumular o/

Testei a macro durante meses antes de resolver postar, então tentem usar direitinho antes de apontarem erros o/
Agradecimentos ao faahyoshi, jimmyfilips e xpkill por terem testado a macro várias e várias vezes pra mim *-*
Clique para expandir...

por favor poderia postar uma print pra qual rumo dou /sethome fungobaus?

ApenasRafaa · 7 Março 2014

Aqui não funfou

BeetleJuice · 7 Março 2014

danoss disse:

to meio confuso em questão das sethomes, setei a /home fungobaus só que eu não sei onde setar a /home fungosf1 e /home fungostemp
Clique para expandir...

/home fungof1 é no começo da plantação, contanto que ele esteja olhando pra algum lado que tenha fungo.
/home fungostemp você não precisa marcar, é só a home que ele usa pra voltar quando vai guardar fungos ou quando você escolhe continuar de onde parou.

AzulBanana disse:

por favor poderia postar uma print pra qual rumo dou /sethome fungobaus?
Clique para expandir...

/home fungobaus é como no print, basta fazer aquele conjunto de baús, ficar no meio e marcar a home no centro, olhando para os baús da esquerda.
Não faz diferença se é leste, oeste, e por aí vai...

Xisvan disse:

Aqui não funfou
Clique para expandir...

O que, exatamente? 'o'

alsantos123 disse:

Obg Edit: Ele vai pra home de bau, e não abre bau, ele fica la até eu abrir manualmente.. ai guarda sozinho e fecha e volta, problema: Não ta abrindo o bau!
Clique para expandir...

Acabei de testar e foi, sim. Fez tudo certinho aqui. Certeza que copiou certo?
Mudei a macro recentemente a fim de evitar isso, apesar de que nunca tenha acontecido aqui. Tenta de novo o/

alsantos123 · 7 Março 2014

BeetleJuice disse:

Acabei de testar e foi, sim. Fez tudo certinho aqui. Certeza que copiou certo?
Mudei a macro recentemente a fim de evitar isso, apesar de que nunca tenha acontecido aqui. Tenta de novo o/
Clique para expandir...

Ok, pera.

Caio33 · 7 Março 2014

Boa cara :3

ENTREGUE Colheita do besouro

Shoutbox (0)

KadooGN Razoavel
VIP

Kinectz Craftlandiano
VIP

ResBR Craftlandiano
VIP

BeetleJuice Craftlandiano
VIP

PDornelas Neutro

LasTVip Neutro

Kardouzo Craftlandiano
VIP

alsantos123 Craftlandiano
VIP

MarcelloJR Razoavel

BeetleJuice Craftlandiano
VIP

Vitor Ribeiro Guilhen Neutro

Thiago Pires Excelente
VIP

fatalisss Bom

alsantos123 Craftlandiano
VIP

danoss Bom

AzulBanana Bom
VIP

ApenasRafaa Razoavel
VIP

BeetleJuice Craftlandiano
VIP

alsantos123 Craftlandiano
VIP

Caio33 Excelente
VIP

ENTREGUE Colheita do besouro

Shoutbox (0)

KadooGN Razoavel VIP

Kinectz Craftlandiano VIP

ResBR Craftlandiano VIP

BeetleJuice Craftlandiano VIP

PDornelas Neutro

LasTVip Neutro

Kardouzo Craftlandiano VIP

alsantos123 Craftlandiano VIP

MarcelloJR Razoavel

BeetleJuice Craftlandiano VIP

Vitor Ribeiro Guilhen Neutro

Thiago Pires Excelente VIP

fatalisss Bom

alsantos123 Craftlandiano VIP

danoss Bom

AzulBanana Bom VIP

ApenasRafaa Razoavel VIP

BeetleJuice Craftlandiano VIP

alsantos123 Craftlandiano VIP

Caio33 Excelente VIP

KadooGN Razoavel
VIP

Kinectz Craftlandiano
VIP

ResBR Craftlandiano
VIP

BeetleJuice Craftlandiano
VIP

Kardouzo Craftlandiano
VIP

alsantos123 Craftlandiano
VIP

BeetleJuice Craftlandiano
VIP

Thiago Pires Excelente
VIP

alsantos123 Craftlandiano
VIP

AzulBanana Bom
VIP

ApenasRafaa Razoavel
VIP

BeetleJuice Craftlandiano
VIP

alsantos123 Craftlandiano
VIP

Caio33 Excelente
VIP