ENTREGUE [Macro] Colhedor de cana

DET0NA · 18 Outubro 2015

Nugou disse:

Preciso não....
Realmente é normal no começo.
Bom jogo aí.

Enviado de meu XT1078 usando Tapatalk
Ele deve passar porque houve alterações na macro, pegue novamente a macro no post, e teste.
Se não funcionar me avisa e estarei vendo o possível erro.

Enviado de meu XT1078 usando Tapatalk
Clique para expandir...

ta;

ednezer · 18 Outubro 2015

Aqui da uns bugs, as vezes do nada ele pega e vira e começa a colher o outro lado e tal, sabe o que e?

Nugou · 18 Outubro 2015

Ednezer disse:

Aqui da uns bugs, as vezes do nada ele pega e vira e começa a colher o outro lado e tal, sabe o que e?
Clique para expandir...

e por lag no server mesmo, a macro calcula a direção aí quando da rollback, ela continua com direção que deveria ser da outra fileira

Enviado de meu XT1078 usando Tapatalk

ednezer · 18 Outubro 2015

Nugou disse:

e por lag no server mesmo, a macro calcula a direção aí quando da rollback, ela continua com direção que deveria ser da outra fileira

Enviado de meu XT1078 usando Tapatalk
Clique para expandir...

E tem como melhorar isso com alguma modificaçao ou coisa assim?

Valeu!

Nugou · 19 Outubro 2015

Ednezer disse:

E tem como melhorar isso com alguma modificaçao ou coisa assim?

Valeu!
Clique para expandir...

Eu to tendo fazer com que seja evitado isso, e só aguarda mesmo...

Enviado de meu XT1078 usando Tapatalk

jorge leal · 19 Outubro 2015

cencela disse:

Boa macro. Só tenho umas duvidas
1º essas homes cana1 cana2 etc são setadas por andar ou cada fileira de canas?
2º se são setadas por andar como é feita a borda da plantação?
fiz com a plantação com paredes e a macro chega na parede e não da continuidade a colheita
Clique para expandir...

aqui funcionou de boa mais qnto a problema da parede vc pode afasta ouseja diminuir sua plantaçao tipo 2 blocos a menos em relaçao a parede

assim aqui ele so nao acerta o 1 bau ai invez de 5 baus de altura coloquei 6 ai nao tive mais problemas
parabens nugou otima macro

Maiikon03 · 19 Outubro 2015

gostei da macro

Roodrigo · 19 Outubro 2015

Nugou mitoso meu professor

boatos q eu ajudei fase essa plant ae

zMathey · 19 Outubro 2015

man macro muito bom, mais o meu ta bugando quando vai guardar no bau ele fica tentando abrir e não consegue,ajuda pf.

Nugou · 19 Outubro 2015

Devasteytor disse:

Nugou mitoso meu professor [emoji14]

boatos q eu ajudei fase essa plant ae
Clique para expandir...

Huahuhua, ta certo.....

Enviado de meu XT1078 usando Tapatalk

DRmatheyy disse:

man macro muito bom, mais o meu ta bugando quando vai guardar no bau ele fica tentando abrir e não consegue,ajuda pf.
Clique para expandir...

Acontece comigo e acabei de esquecer de por o motivo no post. Isso é causado pelo plugin de home, então para resolver você precisa por um bloco qualquer no local da home, setar a home em cima deste bloco e depois quebra-lo, foi só assim que para com de acontecer comigo

Enviado de meu XT1078 usando Tapatalk

Foreverchukk · 19 Outubro 2015

Nugou disse:

Olá brasileiros.....

Um das principais economia do Propano é a cana, por isso criei esse macro. Ja tenho ele ja faz uns 5 dias so não postei pq tava querendo fazer coisas absurdas com ele, mas deixa pra la.
Inicialmente era pra ser uma macro que colhia todos os tipos de plantação mais o modmacro da 1.8 mudou uma configuração e isso não foi possivel. Então vai ser uma pra cana e outra pra demais, ou seja, a de colher fungo ja esta quase pronta.

Como alguns mundo e region são instaveis, pode bugar a macro principalmente quando ela esta fazendo a mudança de fileira, são os minirollback que da é faz com que bug, fora isso tudo normal.
Qualquer coisa fora do normal, me avise e estarei corrigido.

ChangeLog:
18/10/2015--

Criação do post

O que a macro faz?
Ela colher as canas de qualquer tipo de plant, não precisa especifica tamanho nem nada.
Tem a opção de vender na warp loja ou de guarda em baus infinito.
Ela tem a opção de continuar de onde paro, assim possibilitando não voltar toda a plant quando desligar.
Ele reconhece quando sai da plant, ou seja, quando o propano puxa para o spawn ou warp loja.
Tem sistema de pausa, assim pode para-la quando for fazer algo.

Como usar?
atenção: deixe uma home separada, ela ira setar automaticamente para voltar de onde paro.(/home canatemp)
Set as homes cana1, cana2, cana3 ate a cana6 (/home cana1) no começo das plant, ou seja, nas pontas olhando para o caminho que ela deve colher em cada andar de sua plant.
Observe a imagem:

Se quiser vender direto apos encher todo o inventario, set a home vendercana (/home vendercana) na frente da placa de comprar cana da warp loja.

Se quiser guardar apos encher o inventario, set a home canabau (/home canabau) na frente do baus como esta na imagem abaixo. Observer a imagem:

Imagem da trap de cana:

Macro:
1.7 e 1.8--

$${
//Macro Colhedor de cana para 1.8
//Desenvolvido por Nugou
if(cc);
log(&6[Macro]&b Colhedor de cana &4[Off]);
unset(cc);
keyup(sneak);
keyup(forward);
keyup(left);
keyup(right);
if(pos);
#xtemp=%XPOS%;#ytemp=%YPOS%;#ztemp=%ZPOS%;
}$$/sethome canatemp$${
set(reload);
log(&6[Macro]&b Posição salva!);
elseif(reload);
log(&6[Macro]&b Posição não reconhecida);
log(&6[Macro]&b Posição não será salva!);
log(&6[Macro]&b Sua home foi atualizada para antiga posição);
endif;
stop;
else;
set(cc);
if(reload);
unset(reset);set(&cor[1],&6&l»);set(&cor[2],&0);unset(p1);set(repos);
do;
clearchat;
log(&b====&6Continuar de onde paro?&b====);
log( &61 &b- %&cor[1]%Sim &f--- %&cor[2]%Não );
log( &60 &b- &fContinuar);
if(KEY_1);wait(1t);if(!p1);set(&cor[1],&6&l»);set(&cor[2],&0);unset(reset);set(repos);set(p1);set(reload);else;set(&cor[1],&0);set(&cor[2],&6&l»);unset(p1);unset(reload);set(reset);unset(repos);endif;endif;
if(KEY_0);break;endif;
loop;
endif;
if(reset);
wait(500ms);
set(&cor[1],&6&l»);set(&cor[2],&0);unset(p1);set(vender);
do;
clearchat;
log(&b====&6Vender na warp loja&b====);
log( &61 &b- %&cor[1]%Sim &f--- %&cor[2]%Não );
log( &60 &b- &fContinuar);
if(KEY_1);wait(1t);if(!p1);set(&cor[1],&6&l»);set(&cor[2],&0);set(vender);set(p1);else;set(&cor[1],&0);set(&cor[2],&6&l»);unset(p1);unset(vender);endif;endif;
if(KEY_0);break;endif;
loop;
prompt(#andar,$$?,Quantos andares?(ate 6));
if(%#andar%=0);
log(&6[Macro]&b A quantidade de andar é igual a zero !!!);
log(&6[Macro]&b Finalizando macro ....);
unset(cc);
set(reload);
unset(pos);
stop;
endif;
if(%#anda%>6);
log(&6[Macro]&b A quantidade de andar é maior que 6 !!!);
log(&6[Macro]&b Finalizando macro ....);
unset(cc);
set(reload);
unset(pos);
stop;
endif;
if(%#andar%>1);
prompt(#nt,$$?,Deseja começar por qual andar?);
else;
#nt=1;
endif;
if(%#nt%>%#andar%);
log(&6[Macro]&b O andar selecionado é maior que a quantidade de andar !!!);
log(&6[Macro]&b Finalizando macro ....);
unset(cc);
set(reload);
unset(pos);
stop;
endif;
if(%#nt%=0);
log(&6[Macro]&b O andar selecionado é igual a zero !!!);
log(&6[Macro]&b Finalizando macro ....);
unset(cc);
set(reload);
unset(pos);
stop;
endif;
#rod=1;
endif;
set(pos);
#fil=1;
#bau=0;
#temp=0;
&det="air|stone_slab|wooden_slab|sandstone_slab|cobblestone_slab|brick_slab|stone_brick_slab|nether_brick_slab|quartz_slab";
&terrain="grass|sand|soul_sand|dirt|farmland";
}$$/g Colhendo com a macro do #nugou$${
log(&6[Macro]&b Colhedor de cana &2[On]);
do;
do;
#x=%XPOS%;#z=%ZPOS%;wait(100ms);
if(repos);
do;
}$$/home canatemp$${
wait(10);
until((%XPOS%=%#xtemp%)&&(%YPOS%=%#ytemp%)&&(%ZPOS%=%#ztemp%));
unset(repos);
else;
if(%#nt%=1);}$$/home cana1$${endif;
if(%#nt%=2);}$$/home cana2$${endif;
if(%#nt%=3);}$$/home cana3$${endif;
if(%#nt%=4);}$$/home cana4$${endif;
if(%#nt%=5);}$$/home cana5$${endif;
if(%#nt%=6);}$$/home cana6$${endif;
do(2);log(&6[Macro]&b Teleportando....);wait(5);until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
endif;
wait(2);
if(!reload);
ifmatches(%DIRECTION%,N);&dir=NORTH;#frente_z[1]=-1;#frente_x[1]=0;#frente_z[2]=1;#frente_x[2]=0;endif;
ifmatches(%DIRECTION%,S);&dir=SOUTH;#frente_z[1]=1;#frente_x[1]=0;#frente_z[2]=-1;#frente_x[2]=0;endif;
ifmatches(%DIRECTION%,W);&dir=WEST;#frente_z[1]=0;#frente_x[1]=-1;#frente_z[2]=0;#frente_x[2]=1;endif;
ifmatches(%DIRECTION%,E);&dir=EAST;#frente_z[1]=0;#frente_x[1]=1;#frente_z[2]=0;#frente_x[2]=-1;endif;
look(%&dir%);
//condição primaria
//norte
ifmatches(%&dir%,NORTH);
getidrel(+1,0,0,&bl1);//direita
getidrel(-1,0,0,&bl2);//esquerda
ifmatches(%&bl1%,%&det%);
&ld[1]=left;
&ld[2]=right;
endif;
ifmatches(%&bl2%,%&det%);
&ld[1]=right;
&ld[2]=left;
endif;
&lok[1]=NORTH;
&lok[2]=SOUTH;
endif;
//sul
ifmatches(%&dir%,SOUTH);
getidrel(-1,0,0,&bl1);//direita
getidrel(+1,0,0,&bl2);//esquerda
ifmatches(%&bl1%,%&det%);
&ld[1]=left;
&ld[2]=right;
endif;
ifmatches(%&bl2%,%&det%);
&ld[1]=right;
&ld[2]=left;
endif;
&lok[1]=SOUTH;
&lok[2]=NORTH;
endif;
//leste
ifmatches(%&dir%,WEST);
getidrel(0,0,-1,&bl1);//direita
getidrel(0,0,+1,&bl2);//esquerda
ifmatches(%&bl1%,%&det%);
&ld[1]=left;
&ld[2]=right;
endif;
ifmatches(%&bl2%,%&det%);
&ld[1]=right;
&ld[2]=left;
endif;
&lok[1]=WEST;
&lok[2]=EAST;
endif;
//oeste
ifmatches(%&dir%,EAST);
getidrel(0,0,+1,&bl1);//direita
getidrel(0,0,-1,&bl2);//esquerda
ifmatches(%&bl1%,%&det%);
&ld[1]=left;
&ld[2]=right;
endif;
ifmatches(%&bl2%,%&det%);
&ld[1]=right;
&ld[2]=left;
endif;
&lok[1]=EAST;
&lok[2]=WEST;
endif;
endif;
///////////////////////////////////////////////
///////////////////////////////////////////////
do;
do;
getidrel(0,-1,0,&piso);
ifmatches(%&piso%,%&terrain%);
else;
do;
keyup(forward);
log(&6[Macro]&b Teleportando....);
}$$/home canatemp$${
wait(10);
until((%XPOS%=%#xtemp%)&&(%YPOS%=%#ytemp%)&&(%ZPOS%=%#ztemp%));
endif;
look(%&lok[%#rod%]%);
ifmatches(%GUI%,CHAT|INVENTORY);
keyup(forward);
log(&6[Macro]&b Chat ou inventario aberto !!!&6 Feche-o para continuar);
do;until(%GUI%="NONE");
endif;
keydown(forward);
getidrel(0,0,0,&blc);if((%&blc%!="reeds"));look(,90);wait(50ms);key(use);wait(10ms);else;if(%HITID%="reeds");key(attack);endif;endif;
if(KEY_P);
keyup(forward);
wait(1);
if(KEY_P);
unset(pos);set(reload);
keyup(forward);
#xtemp=%XPOS%;#ytemp=%YPOS%;#ztemp=%ZPOS%;
}$$/sethome canatemp$${
log(&6[Macro]&b Macro Pausado ....);
log(&6[Macro]&b Aperte &6P &bnovamente para voltar a macro....);
wait(2);
do;
if(KEY_P);
wait(1);
if(KEY_P);
if((%XPOS%=%#xtemp%)|(%YPOS%=%#ytemp%)|(%ZPOS%=%#ztemp%));
log(&6[Macro]&b Voltando a funcionar !!!);
else;
do;
log(&6[Macro]&b Teleportando....);
}$$/home canatemp$${
wait(5);
until((%XPOS%=%#xtemp%)&&(%YPOS%=%#ytemp%)&&(%ZPOS%=%#ztemp%));
endif;
wait(1);
set(pos);unset(reload);
break;
endif;
endif;
loop;
endif;
endif;
getidrel(%#frente_x[%#rod%]%,0,%#frente_z[%#rod%]%,&block);
while(%&block%="reeds");
keyup(forward);
look(+180,);
do;
#x=%XPOS%;#z=%ZPOS%;
do;
inc(#temp);
if(%#temp%=50);
break;
endif;
keydown(%&ld[%#rod%]%);
keydown(sneak);
look(,90);
ifmatches(%HITID%,%&terrain%);key(use);endif;
pick(%&item%);
until((%XPOS%=%#x%+1)|(%XPOS%=%#x%-1)|(%ZPOS%=%#z%+1)|(%ZPOS%=%#z%-1));
getidrel(0,-1,0,&block);
if(%#temp%=50);
break;
else;
#temp=0;
endif;
until((%&block%="dirt")|(%&block%="grass")|(%&block%="sand"));
wait(100ms);
keyup(%&ld[%#rod%]%);
keyup(sneak);
}$$/sethome canatemp$${
do;gui(inventory);wait(1);until(%GUI%="GUIINVENTORY");
#vazio=0;
for(#i,9,44);
getslotitem(%#i%,&id);
ifmatches(%&id%,"air");
inc(#vazio);
endif;
next;
if(%#vazio%<4);
do;gui();until(%GUI%="NONE");
#x=%XPOS%;#z=%ZPOS%;
#xtemp=%XPOS%;#ytemp=%YPOS%;#ztemp=%ZPOS%;
if(vender);
}$$/sethome canatemp$${wait(50ms);
log(&6[Macro]&b %#vazio% slot disponivel -- Indo vender);
do;log(&6[Macro]&b Teleportando....);
}$$/home vendercana$${
wait(10);
until((%XPOS%!=%#x%)&&(%ZPOS%!=%#z%));
wait(3);
do;
if(%HITID%="wall_sign");
key(attack);
wait(1);
break;
endif;
loop;
else;
log(&6[Macro]&b %#vazio% slot disponivel -- Indo guarda);
do;
log(&6[Macro]&b Teleportando....);
}$$/home canabau$${
wait(10);
until((%XPOS%!=%#x%)&&(%ZPOS%!=%#z%));
unset(pos);set(reload);
do(3);keydown(jump);wait(5t);loop;
keyup(jump);
wait(1);
#x = %XPOS%;
#z = %ZPOS%;
wait(1);
do;
#exit = 0;
do;
ifmatches(%DIRECTION%,N);getidrel(0,%#bau%,-2,&vbau);&dir_bau=North;#pos = %XPOS%;#posf = %#x% + (%#fil% - 1);endif;
ifmatches(%DIRECTION%,S);getidrel(0,%#bau%,2,&vbau);&dir_bau=South;#pos = %XPOS%;#posf = %#x% - (%#fil% - 1);endif;
ifmatches(%DIRECTION%,W);getidrel(-2,%#bau%,0,&vbau);&dir_bau=West;#pos = %ZPOS%;#posf = %#z% - (%#fil% - 1);endif;
ifmatches(%DIRECTION%,E);getidrel(2,%#bau%,0,&vbau);&dir_bau=East;#pos = %ZPOS%;#posf = %#z% + (%#fil% - 1);endif;
look(%&dir_bau%);
if(%#bau% = 0);look(,-62);endif;
if(%#bau% = 1);look(,-50);endif;
if(%#bau% = 2);look(,-25);endif;
if(%#bau% = 3);look(,0);endif;
if(%#bau% = 4);look(,35);endif;
if(%#pos% != %#posf%);keydown(right);keydown(sneak);endif;
until(%#pos% = %#posf%);
wait(100ms);
keyup(right);
keyup(sneak);
if((%&vbau%="chest")|(%&vbau%="trapped_chest"));
do;key(use);wait(1);until(%GUI% = "GUICHEST");
wait(1);
#sbv = 0;
for(#i,0,53);
getslotitem(%#i%,&id);
if(%&id% = "air");
#sbv = 1;
break;
endif;
next;
if(%#sbv% = 1);
for(#i,54,89);
getslotitem(%#i%,&id);
ifmatches(%&id%,%&item%);
slotclick(%#i%,l,true);
wait(150ms);
endif;
next;
#exit = 0;
for(#i,0,53);
getslotitem(%#i%,&id);
if(%&id% = "air");
#exit = 1;
break;
endif;
next;
if(%#exit% = 0);
inc(#bau);
gui();
if(%#bau% = 5);
#bau = 0;
inc(#fil);
endif;
endif;
gui();
else;
inc(#bau);
if(%#bau% = 5);
#bau = 0;
inc(#fil);
endif;
gui();
endif;
else;
log(&6[Macro] &bAcabo os baus!!!);
log(&6[Macro]&b Colhedor de cana &4[Off]);
unset(cc);
stop;
endif;
until(%#exit% = 1);
do;
log(&6[Macro]&b Teleportando....);
}$$/home canatemp$${
wait(10);
until((%#xtemp%=%XPOS%)&&(%#ytemp%=%YPOS%)&&(%#ztemp%=%ZPOS%));
wait(1);
set(pos);unset(reload);
endif;
else;
do;gui();wait(1);until(%GUI%="NONE");
log(&6[Macro]&b %#vazio% slot disponivel -- continuando a colheita);
endif;
if(%#rod%=1);#rod=2;else;#rod=1;endif;
until(%#temp%=50);
inc(#nt);
until(%#nt%>%#andar%);
unset(reload);
log(&6[Macro]&b Fim do ultimo andar !!!);
log(&6[Macro]&b Voltando ao primeiro andar !!!);
#nt=1;
loop;
endif;
}$$

Clique para expandir...

Bom Macro!! Parabéns!

jorge leal · 19 Outubro 2015

so faltou a parte de vender na warp vip kkk desde ontem colhendo terreno 60 por 200 so 28 baus kkkk mais vale a pena

jorge leal · 19 Outubro 2015

Ednezer disse:

Aqui da uns bugs, as vezes do nada ele pega e vira e começa a colher o outro lado e tal, sabe o que e?
Clique para expandir...

acontecia comigo mais e q na hora q ele vira no local nao tem cana no chao se a plantaçao tiver falhas desse tipo 1 buraco {sem cana plantada}ele vira

XablauXablante · 19 Outubro 2015

krl man,que macro foda,parabéns

Nugou · 19 Outubro 2015

jorge leal disse:

acontecia comigo mais e q na hora q ele vira no local nao tem cana no chao se a plantaçao tiver falhas desse tipo 1 buraco {sem cana plantada}ele vira
Clique para expandir...

Opa tai uma coisa que eu preciso corrigir, nem tinha reparado nisso.
Já vo corrigir imediatamente.
Vlw aí kkkk

Enviado de meu XT1078 usando Tapatalk

Erasus · 19 Outubro 2015

Macro foda mano parabéns pela iniciativa

Enviado do meu iPhone usando Tapatalk

Nugou · 19 Outubro 2015

jorge leal disse:

so faltou a parte de vender na warp vip kkk desde ontem colhendo terreno 60 por 200 so 28 baus kkkk mais vale a pena
Clique para expandir...

So não fiz pq to sem VIP, assim que eu pegar um eu coloco isso na macro.

yButter · 19 Outubro 2015

da hora

Nugou · 19 Outubro 2015

Ednezer disse:

E tem como melhorar isso com alguma modificaçao ou coisa assim?

Valeu!
Clique para expandir...

Ja fiz a modificação tentar evitar isso, tente novamente

killeR Noob · 19 Outubro 2015

Precisa dar /sethome em todas a fileiras ?
Eu fui testar e ele foi uma fileira apenas e parou
E a plant está igual essa que foi mostrada

ENTREGUE [Macro] Colhedor de cana

Shoutbox (0)

DET0NA Hardcore
VIP

ednezer Hardcore
VIP

Nugou Excelente
VIP

ednezer Hardcore
VIP

Nugou Excelente
VIP

jorge leal Neutro
VIP

Maiikon03 Neutro

Roodrigo Craftlandiano
VIP

zMathey Neutro
VIP

Nugou Excelente
VIP

Foreverchukk Craftlandiano
VIP

jorge leal Neutro
VIP

jorge leal Neutro
VIP

XablauXablante Excelente
VIP

Nugou Excelente
VIP

Erasus Excelente
VIP

Nugou Excelente
VIP

yButter Neutro
VIP

Nugou Excelente
VIP

killeR Noob Razoavel
VIP

ENTREGUE [Macro] Colhedor de cana

Shoutbox (0)

DET0NA Hardcore VIP

ednezer Hardcore VIP

Nugou Excelente VIP

ednezer Hardcore VIP

Nugou Excelente VIP

jorge leal Neutro VIP

Maiikon03 Neutro

Roodrigo Craftlandiano VIP

zMathey Neutro VIP

Nugou Excelente VIP

Foreverchukk Craftlandiano VIP

jorge leal Neutro VIP

jorge leal Neutro VIP

XablauXablante Excelente VIP

Nugou Excelente VIP

Erasus Excelente VIP

Nugou Excelente VIP

yButter Neutro VIP

Nugou Excelente VIP

killeR Noob Razoavel VIP

DET0NA Hardcore
VIP

ednezer Hardcore
VIP

Nugou Excelente
VIP

ednezer Hardcore
VIP

Nugou Excelente
VIP

jorge leal Neutro
VIP

Roodrigo Craftlandiano
VIP

zMathey Neutro
VIP

Nugou Excelente
VIP

Foreverchukk Craftlandiano
VIP

jorge leal Neutro
VIP

jorge leal Neutro
VIP

XablauXablante Excelente
VIP

Nugou Excelente
VIP

Erasus Excelente
VIP

Nugou Excelente
VIP

yButter Neutro
VIP

Nugou Excelente
VIP

killeR Noob Razoavel
VIP