ENTREGUE Colheita do besouro

Bem-vindo!

Ao se registrar conosco, você poderá discutir, compartilhar e enviar mensagens privadas com outros membros da nossa comunidade.

Inscreva-se agora!
Status
Não está aberto para novas respostas.
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.
 
tpicoquerenasceu.jpg


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.
 
iHenriquesz disse:
aaaaaaaaaaaaaaaaa, não dá pra usar fortune
Clique para expandir...
Dá sim, mas é só com picareta.

alsantos123 disse:
tpicoquerenasceu.jpg


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.
 
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 :D 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!
 
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
 
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:
F5IGOHQ.gif


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?
 
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 :D 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/
 
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.
 
Status
Não está aberto para novas respostas.

Users who are viewing this thread

Total: 1 (membros: 0, visitantes: 1)

Estatísticas online

Membros online
1
Visitantes online
5
Total de visitantes
6
Os totais podem incluir visitantes ocultos.

Em alta

Novos membros

Stay Connected

Voltar
Topo