ENTREGUE [Macro]Escavação NÃO VIP 1.5.2

Anderson13fs · 12 Junho 2015

Black EzZ disse:

bem que voce poderia fazer para reparar pas e pegar terras em 3 baus porke a terra acaba mt rpd...
Clique para expandir...

Para perder menos blocos ou nenhum, sugiro dar uma olhada e testada em minha trap de escavação http://forum.craftlandia.com.br/ipb/index.php?/topic/518810-trap-de-escava%C3%A7%C3%A3o-que-nao-buga-nenhum-bloco/

charigamee · 12 Junho 2015

Otimo macro <2

xlyz · 13 Junho 2015

FarofeiroXD disse:

consegui fazer tudo vei, começei a upar (com pá de dima sem enchant), o meu carinha as vezes nao quebra os blocos ou se não quebra ele vai pra frente ou senão poe muito bloco e começa a lotar lá e deu.
Clique para expandir...

Cara, não recomendo, nem me responsabilizo por erros quando se esta usando pá sem encantamento, pois essa macro foi feita para ser rápida, e problemas com pás sem encantamento são muito comuns (desculpa aquelas pessoas que jogam naquele server ser xp).
Mas como assim vai pra frente kkk? Se esta andando pra frente você não pegou minha macro.

BAZOOKA · 13 Junho 2015

xlyz disse:
Escavação (Não VIP)

1.Descrição:
Editei a macro do [member=rogroote] (Macro aqui) para funcionar com Auto-reconnect, e fiz algumas melhorias no código em geral, pois continha alguns bugs. Parte dos créditos pra ele '-'
*Ela guarda itens;
*Troca a pá quando está no red;
*Quando todas as pás da hotbar ficam no red irá para a trap de baús guardar as pás no red e pegar novas pás em outro baú;
*Repõe os blocos da hotbar com os blocos do inventário;
*Quando não tem mais blocos no inventário para repor pega mais em um baú da trap [NOVO];
*Tenta logar caso bugue as macros do onchat [NOVO];

Obs: Adiantando, GUARDA livros.

2.Homes e trap de baús:
Usa 2 homes, a primeira é a home "escavar" na qual você vai upar .
Imagem:

Pra quem não quer perder blocos por bug ou qualquer outra coisa aqui está o tópico de como fazer uma trap muito boa: Clique (criado/sugerido por [member=Anderson13fs]).

Essa é outra trap sugerida, para evitar perda de blocos (sugerido por [member=richard 1]):

E a segunda é a home "trapbaus", onde serão armazenados os itens. São 4 faces, 2 (uma de frente para outra) tem 4 linhas com 5 colunas, e as outras 2 são de 4 linhas e 7 colunas, marque a home no bloco do meio, preferencialmente olhando para o espaço (esse que é como uma porta).
Obrigatoriamente você deve construir a trap com essa "porta" virado para o lado NORTE
Imagem:

Imagens para ajudar na construção da trap:

Importante:
A macro irá usar 3 baús da trap para guardar as pás que estão no red do inventário, pegar pás novas e pegar mais blocos quando acabarem os do inventário. Então vou colocar print mas também vou deixar um macro para vocês verificarem se a trap esta feita corretamente:

Baú de pás gastas (ao iniciar a macro deixe ele vazio):

Baú que irá pegar as pás novas (Quanto mais pás você deixar nele maior será o tempo que você poderá upar):

Quando o baú de pás no red estiver cheio e a macro não conseguir guardar mais pás, ou quando acabarem as pás do baú que ela pega a macro irá desligar.

Baú que você deve deixar mais blocos que você esta escavando, deixe no mínimo 3 slots vazios, para a macro tirar os itens que estão no lugar dos blocos usados do inventário:

Macro para verificar se você fez a trap corretamente:

$${
if(flag);
unset(flag);
log("&4[Macro]&everifica baús escavação: &4Desativada");
stop();
else;
set(flag);
log("&4[Macro]&everifica baús escavação: &aAtivada");
#bau = 1;
do;
PROMPT(#bau,$$?, Qual baú quer começar verificando?(1 até 91));
until((#bau > 0) && (#bau < 92));
do;
look(NORTH);
log("&4[Macro]&eBaú: %#bau%");
if(%#bau%=1);look(-50,-24);endif;
if(%#bau%=2);look(-39,-28);endif;
if(%#bau%=3);look(-23,-32);endif;
if(%#bau%=4);look(+1,-34);endif;
if(%#bau%=5);look(+23,-32);endif;
if(%#bau%=6);look(+39,-28);endif;
if(%#bau%=7);look(+50,-24);endif;
if(%#bau%=8);look(+61,-23);endif;
if(%#bau%=9);look(+74,-24);endif;
if(%#bau%=10);look(+91,-26);endif;
if(%#bau%=11);look(+104,-25);endif;
if(%#bau%=12);look(+120,-23);endif;
if(%#bau%=13);look(+130,-24);endif;
if(%#bau%=14);look(+141,-28);endif;
if(%#bau%=15);look(+158,-32);endif;
if(%#bau%=16);look(-179,-34);endif;
if(%#bau%=17);look(-159,-32);endif;
if(%#bau%=18);look(-143,-27);endif;
if(%#bau%=19);look(-131,-24);endif;
if(%#bau%=20);look(-120,-23);endif;
if(%#bau%=21);look(-106,-24);endif;
if(%#bau%=22);look(-89,-26);endif;
if(%#bau%=23);look(-75,-25);endif;
if(%#bau%=24);look(-61,-23);endif;
if(%#bau%=25);look(-50,-10);endif;
if(%#bau%=26);look(-39,-12);endif;
if(%#bau%=27);look(-23,-14);endif;
if(%#bau%=28);look(+1,-16);endif;
if(%#bau%=29);look(+23,-14);endif;
if(%#bau%=30);look(+39,-12);endif;
if(%#bau%=31);look(+50,-10);endif;
if(%#bau%=32);look(+61,-10);endif;
if(%#bau%=33);look(+74,-11);endif;
if(%#bau%=34);look(+91,-11);endif;
if(%#bau%=35);look(+104,-11);endif;
if(%#bau%=36);look(+120,-10);endif;
if(%#bau%=37);look(+130,-10);endif;
if(%#bau%=38);look(+141,-12);endif;
if(%#bau%=39);look(+158,-14);endif;
if(%#bau%=40);look(-179,-16);endif;
if(%#bau%=41);look(-159,-14);endif;
if(%#bau%=42);look(-143,-12);endif;
if(%#bau%=43);look(-131,-10);endif;
if(%#bau%=44);look(-120,-10);endif;
if(%#bau%=45);look(-106,-11);endif;
if(%#bau%=46);look(-89,-11);endif;
if(%#bau%=47);look(-75,-11);endif;
if(%#bau%=48);look(-61,-10);endif;
if(%#bau%=49);look(-50,+4);endif;
if(%#bau%=50);look(-39,+4);endif;
if(%#bau%=51);look(-23,+4);endif;
if(%#bau%=52);look(+23,+4);endif;
if(%#bau%=53);look(+39,+4);endif;
if(%#bau%=54);look(+50,+4);endif;
if(%#bau%=55);look(+61,+4);endif;
if(%#bau%=56);look(+74,+4);endif;
if(%#bau%=57);look(+91,+4);endif;
if(%#bau%=58);look(+104,+4);endif;
if(%#bau%=59);look(+120,+4);endif;
if(%#bau%=60);look(+130,+4);endif;
if(%#bau%=61);look(+141,+4);endif;
if(%#bau%=62);look(+158,+4);endif;
if(%#bau%=63);look(-179,+4);endif;
if(%#bau%=64);look(-159,+4);endif;
if(%#bau%=65);look(-143,+4);endif;
if(%#bau%=66);look(-131,+4);endif;
if(%#bau%=67);look(-120,+4);endif;
if(%#bau%=68);look(-106,+4);endif;
if(%#bau%=69);look(-89,+4);endif;
if(%#bau%=70);look(-75,+4);endif;
if(%#bau%=71);look(-61,+4);endif;
if(%#bau%=72);look(-50,+16);endif;
if(%#bau%=73);look(-39,+20);endif;
if(%#bau%=74);look(-23,+22);endif;
if(%#bau%=75);look(+23,+22);endif;
if(%#bau%=76);look(+39,+20);endif;
if(%#bau%=77);look(+50,+16);endif;
if(%#bau%=78);look(+61,+16);endif;
if(%#bau%=79);look(+74,+18);endif;
if(%#bau%=80);look(+91,+18);endif;
if(%#bau%=81);look(+104,+18);endif;
if(%#bau%=82);look(+120,+16);endif;
if(%#bau%=83);look(+130,+16);endif;
if(%#bau%=84);look(+141,+20);endif;
if(%#bau%=85);look(+158,+22);endif;
if(%#bau%=86);look(-179,+24);endif;
if(%#bau%=87);look(-159,+22);endif;
if(%#bau%=88);look(-143,+20);endif;
if(%#bau%=89);look(-131,+16);endif;
if(%#bau%=90);look(-120,+17);endif;
if(%#bau%=91);look(-106,+18);endif;
wait(800ms);
inc(#bau);
if(%#bau% > 91);
break;
endif;
loop;
endif;
log("&4[Macro]&6Baú onde devem ficar o &fMATERIAL/BLOCO &6usado para escavar:");
look(WEST);
look(270,17);
wait(2);
log("&4[Macro]&6Baú onde devem ficar pás no &4RED:");
look(WEST);
look(282,14);
wait(2);
log("&4[Macro]&6Baú onde devem ficar pás &aREPARADAS/NOVAS:");
look(WEST);
look(299,15);
wait(2);
unset(flag);
log("&4[Macro]&everifica baús escavação: &4Desativada");
endif;
}$$

3.Login:
Não sei se é com todos que ocorre um problema no onchat ao executar a macro, acho que buga as macros do onchat, mas não entendo o motivo pois ela não tem nada que interfere no onchat então, não tem como corrigir no momento, mas coloquei um sistema para logar, que só vai funcionar se você cair (ou o servidor reiniciar) quando esta escavando na home escavar. Mas não é obrigatório usar, ele está dentro da macro e você precisa encontrar e colocar sua senha onde esta escrito /login SUASENHA caso queira. Obrigado ao [member=richard 1] por me ajudar com isso.
Está escrito assim dentro do código (você precisa mudar lá, não é pra pegar esse código aqui):
//##################INSIRA SUA SENHA ABAIXO CASO QUEIRA:################

}$$/login SUASENHA$${

//##################INSIRA SUA SENHA ACIMA CASO QUEIRA##################

4.Inventário:
Seu inventário deve estar organizado dessa maneira:

5.Perguntas da macro:

4.1:

Se você já executou a macro alguma vez e quer usar as mesmas respostas, digite 1. Se ainda não usou, ou não quer usar as mesmas configurações, pressione 2, fazendo isso a macro irá abrir o questionário.

4.2:
Primeira pergunta:

Escolha o bloco que usará ou digite o ID do bloco, se você escolher um item que não de para escavar, ou não de xp de escavação, a macro irá repetir a pergunta até você escolher o bloco correto.

4.3:

Essa pergunta se refere a quantos blocos você quer que escave antes de repor os blocos e verificar se o inventário esta cheio.

4.4:

Se você estiver usando pá eficiência 7 , 5 ou 4 pode digitar 0 (zero), mas se for uma pá eficiência 3 você terá que escolher um delay maior como 1 ou 2, e quanto menor a eficiência da pá você terá de ajustar o delay de acordo com ela.

4.5:

Por fim, escolha qual baú a macro deve iniciar o armazenamento dos itens, entre 1 e 91 (é 91 mesmo porque o baú 92 será usado para deixar blocos que você esta escavando).

6.Agradecimento:
Obrigado ao [member=luiz bussatto], [member=zAries], pedrucar e [member=richard 1], por me ajudarem a testar a macro (então se der algo errado culpem eles. -q).

7.Código:
Código:
$${
IF(xlyz);
    log("&4&l[Macro Escavaçao] &4&lDesativada.");
    Unset(xlyz);
    stop;
    else;
    log("&4&l[Macro Escavaçao] &e(by xlyz) &a&lAtivada.");
    set(xlyz);

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

    set(nf);
    
    PROMPT(#config,$$?, Quer usar a última configuraçao da macro?(1-Sim / 2-Não));
    if(%#config% = 2);
		log("&4[Macro]&9Você escolheu &4NAO &9usar a última configuraçao. Iniciando questionário..");
        do;
            PROMPT(#bloco,$$i, Qual bloco usará para escavar?);
        until((#bloco = 2)||(#bloco = 3)||(#bloco = 12)||(#bloco = 13)||(#bloco = 82)||(#bloco = 88)||(#bloco = 110));
		do;
			PROMPT(#quantidade,$$?, Qual quantidade de blocos que irá quebrar antes de verificar o inventário?Sugestão(500));
        until((#quantidade > 30));
		if(%#quantidade% > 799);
			log("&4[Macro]&cCuidado! Esse valor é alto, podem ocorrer problemas só utilize se tem certeza do que esta fazendo!");
		endif;
		do;
			PROMPT(#quebrar,$$?, Qual delay para quebrar os blocos?(0 sem delay para pás com mais eficiência/Aumente se o bloco nao quebrar!));
        until((#quebrar < 20) && (#quebrar >= 0));
		do;
			PROMPT(#bau,$$?, Em qual baú devo iniciar o armazenamento?(1 à 91));
        until((#bau > 0)&&(#bau <= 91));
	else;
		log("&4[Macro]&9Você escolheu &2usar &9a última configuraçao.");
		log("&4[Macro]&9Configuraçoes:");
		log("&4[Macro]&9Bau: &6%#bau%&e\&9Delay: &6%#quebrar%&e\&9Quantidade de blocos antes de verificar inventário: &6%#quantidade%&e\&9Id do bloco: &6%#bloco%");
    endif;
	
	#slot = 4;
	#red = 0;
	unset(repos_pas);
	unset(bau_pas_full);
	unset(sem_pas);
	unset(pas_red);
	unset(sem_material);
	
    do();
		if(repos_pas);
			#slot = 4;
			#red = 0;
			unset(repos_pas);
		endif;
		
        // Quebrando blocos
        do(%#quantidade%);
            look(%&dir%);
            look(,59);
            pick(%#bloco%);
            key(use);
            wait(1ms);
            slot(%#slot%);

            if((DURABILITY < 100)&&(DURABILITY > 0));
                inc(#slot);
            else;
                if(DURABILITY <= 0);
                    log("&4[Macro]&6Sem pá nesse slot, aguardando &915 &6segundos para carregar se você esta reconectando...");
                    wait(5);
					log("&4[Macro]&910 &6segundos para continuar se você esta reconectando...");
					log("&4[Macro]&2&lVou tentar logar, caso esteja reconectando...");
//##################INSIRA SUA SENHA ABAIXO CASO QUEIRA:################

					}$$/login SUASENHA$${
					
//##################INSIRA SUA SENHA ACIMA CASO QUEIRA##################
					wait(5);
                    log("&4[Macro]&9 5 &6segundos para continuar...");
                    wait(5);
                    log("&4[Macro]&9Continuando");
                    if((DURABILITY < 100) &&(DURABILITY > 0));
                        if(%#slot% < 9);
                            inc(#slot);
                        else;
                            log("&4[Macro]&9Reiniciando verificaçao de pás");
                            #slot = 4;
                            inc(#red);
                        endif;
                    endif;
                    if(DURABILITY <= 0);
                        inc(#slot);
                    endif;
                endif;
            endif;
            if((%#slot% >= 10) && (%#red% < 3));
                log("&4[Macro]&9Reiniciando verificaçao de pás");         
                #slot = 4;
                inc(#red);
            else;
                if((%#slot% >= 10) && (%#red% > 2));
                    log("&4[Macro]&fReiniciei a verificaçao %#red% vezes, e todas as ferramentas estao no &4red&f, se possível as pás serao trocadas...");
					set(pas_red);
					break;
                endif;
            endif;
            
            look(%&dir%);
            look(,59);
			if(%#quebrar% != 0);
				do(%#quebrar%);
					key(attack);
				loop;
			else;
				key(attack);
			endif;
        loop;
		
		if((pas_red)&&(!bau_pas_full)&&(!sem_pas));
			set(repos_pas);
			
			//Trocando pás
			log("&4[Macro]&9Trocando pás no &4red&9...");
			}$$/home trapbaus$${
			wait(8);
			
			//Guardar pás no red
			look(WEST);
			wait(800ms);
			look(282,14);
			do; 
				ifmatches(%GUI%,GUICHEST);
				break;
				endif;
				look(282,14);
				wait(2);
				key(use);
				wait(4);
			loop;			
			log("&4[Macro]&9Guardando pás no &4red.");
			for(#i,84,89);
				slotclick(%#i%,l,true);
				wait(30ms);
			next;
			
			//verifica se bau de pás red esta cheio
			getslotitem(53,#id,#stack);
			wait(500ms);
			if(%#stack%!=0);
				set(bau_pas_full);
				log("&4[Macro]&f&lO baú de pás red está cheio!!! A próxima vez que as pás ficarem red nao irá trocar.");
			endif;
			gui();
			
			//Pegar pás novas
			look(299,15);
			wait(800ms);
			
			//Verificando slots vazios
			#slot_vazio = 0;
			for(#i,4,9);
				getslotitem(%#i%,#id);
				if(%#id%=0);
					inc(#slot_vazio);
				endif;
			next;
			
			do; 
				ifmatches(%GUI%,GUICHEST);
					break;
				endif;
				look(299,15);
				wait(2);
				key(use);
				wait(4);
			loop;		
			wait(500ms);
			log("&4[Macro]&9Pegando &2novas &9pás.");
			
			//Pegando pás
			#i = 0;
			#cont = 0;
			do;
				getslotitem(%#i%,#id);
				if(%#id%!=0);
					slotclick(%#i%,l,true);
					inc(#cont);
					wait(100ms);
				endif;
				inc(#i);

				if((%#cont% < %#slot_vazio%) && (%#i% >= 54));
					log("&4[Macro]&f&lNao tem pás suficientes para encher a hotbar!!! A próxima vez que as pás ficarem red nao irá trocar.");
					set(sem_pas);
					break;
				endif;
				if((%#cont% >= %#slot_vazio%) || (%#i% >= 54));
					break;			
				endif;
			loop;
			gui();
			log("&4[Macro]&9Voltando ao local de escavaçao...");
			}$$/home escavar$${
			unset(pas_red);
			wait(8);
		elseif((pas_red)&&(bau_pas_full)||(sem_pas));
				log("&4&l[Macro AVISO]&cInfelismente, nao será possível trocar as pás!!!");
				if(bau_pas_full);			
					log("&4&l[Macro Escavaçao] &4Desativada&c, pois o bau de pás no red está cheio!!!");
				else;
					log("&4&l[Macro Escavaçao] &4Desativada&c, pois nao tem pás suficientes para repor no baú!!!");			 
				endif;
			unset(xlyz);
			unset(bau_pas_full);
			unset(sem_pas);
			stop();
		
		else;
		
			// Abrindo inventário		
			gui(inventory);
			pick(%#bloco%);
			if(%STACKSIZE%<64);
				log("&4[Macro]&9Repondo blocos.");
				for(#i,9,35);
					getslotitem(%#i%,#id);
					if(%#id%=%#bloco%);
						slotclick(%#i%,l,true);
						wait(5ms);
					endif;
				next;
			endif;
			
			//Verifica se acabaram blocos do inventario
			gui(inventory);
			pick(%#bloco%)
			if(%STACKSIZE% < 40);
				log("&4[Macro]&9Aguardando blocos voltarem pro inventário.");
				wait(4);
			endif;
			if((%STACKSIZE%<20) && (!sem_material));
				log("&4[Macro]&9Nao tem blocos para repor, indo pegar mais!");
				}$$/home trapbaus$${
				wait(7);
				do;
					look(WEST);
					wait(800ms);
					look(270,17);
					wait(2);
					key(use);
					wait(4);
					ifmatches(%GUI%,GUICHEST);
						wait(2);
						break;
					endif;
				loop;
				
				//Tirando outros itens dos slots onde fica o material usado.
				for(#i,81,83);
					slotclick(%#i%,l,true);
					wait(30ms);
				next;
				
				//Pegando material do bau.
				#i = 0;
				#cont = 0;
				do;
					getslotitem(%#i%,#id);
					if(%#id% = %#bloco%);
						slotclick(%#i%,l,true);
						inc(#cont);
						wait(100ms);
					endif;
					inc(#i);

					if((%#i% >= 54) && (%#cont% < 10));
						log("&4[Macro]&f&lNao tem material suficiente para escavar no baú! A próxima vez que acabar, a macro desligará!");
						set(sem_material);
						break;
					endif;
					if((%#cont% >= 10) || (%#i% >= 54));
						break;			
					endif;
				loop;
				log("&4[Macro]&9Voltando ao local de escavaçao...");
				}$$/home escavar$${
				wait(7);
			elseif((%STACKSIZE% < 20) && (sem_material));
				log("&4&l[Macro]&4 Desativada&c, pois acabou o material de escavaçao no baú!!!");
				unset(sem_material);
				unset(xlyz);
				stop();
			endif;
			
			if(nf);
				gui(inventory);
				wait(1);
				GETSLOTITEM(25,#id,#stack);
				IF(%#stack%=0);
					gui();
				elseif;

					// Indo para os baus.
					}$$/home trapbaus$${
					wait(7);
					keydown(jump);wait(100ms);keyup(jump);wait(1);
					//Guardando ítens nos baus.
					do;
						//Olhando e Tentando abrir baus.
						do; 
							ifmatches(%GUI%,GUICHEST);
								break;
							endif;
							look(NORTH);
							if(%#bau%=1);look(-50,-24);endif;
							if(%#bau%=2);look(-39,-28);endif;
							if(%#bau%=3);look(-23,-32);endif;
							if(%#bau%=4);look(+1,-34);endif;
							if(%#bau%=5);look(+23,-32);endif;
							if(%#bau%=6);look(+39,-28);endif;
							if(%#bau%=7);look(+50,-24);endif;
							if(%#bau%=8);look(+61,-23);endif;
							if(%#bau%=9);look(+74,-24);endif;
							if(%#bau%=10);look(+91,-26);endif;
							if(%#bau%=11);look(+104,-25);endif;
							if(%#bau%=12);look(+120,-23);endif;
							if(%#bau%=13);look(+130,-24);endif;
							if(%#bau%=14);look(+141,-28);endif;
							if(%#bau%=15);look(+158,-32);endif;
							if(%#bau%=16);look(-179,-34);endif;
							if(%#bau%=17);look(-159,-32);endif;
							if(%#bau%=18);look(-143,-27);endif;
							if(%#bau%=19);look(-131,-24);endif;
							if(%#bau%=20);look(-120,-23);endif;
							if(%#bau%=21);look(-106,-24);endif;
							if(%#bau%=22);look(-89,-26);endif;
							if(%#bau%=23);look(-75,-25);endif;
							if(%#bau%=24);look(-61,-23);endif;
							if(%#bau%=25);look(-50,-10);endif;
							if(%#bau%=26);look(-39,-12);endif;
							if(%#bau%=27);look(-23,-14);endif;
							if(%#bau%=28);look(+1,-16);endif;
							if(%#bau%=29);look(+23,-14);endif;
							if(%#bau%=30);look(+39,-12);endif;
							if(%#bau%=31);look(+50,-10);endif;
							if(%#bau%=32);look(+61,-10);endif;
							if(%#bau%=33);look(+74,-11);endif;
							if(%#bau%=34);look(+91,-11);endif;
							if(%#bau%=35);look(+104,-11);endif;
							if(%#bau%=36);look(+120,-10);endif;
							if(%#bau%=37);look(+130,-10);endif;
							if(%#bau%=38);look(+141,-12);endif;
							if(%#bau%=39);look(+158,-14);endif;
							if(%#bau%=40);look(-179,-16);endif;
							if(%#bau%=41);look(-159,-14);endif;
							if(%#bau%=42);look(-143,-12);endif;
							if(%#bau%=43);look(-131,-10);endif;
							if(%#bau%=44);look(-120,-10);endif;
							if(%#bau%=45);look(-106,-11);endif;
							if(%#bau%=46);look(-89,-11);endif;
							if(%#bau%=47);look(-75,-11);endif;
							if(%#bau%=48);look(-61,-10);endif;
							if(%#bau%=49);look(-50,+4);endif;
							if(%#bau%=50);look(-39,+4);endif;
							if(%#bau%=51);look(-23,+4);endif;
							if(%#bau%=52);look(+23,+4);endif;
							if(%#bau%=53);look(+39,+4);endif;
							if(%#bau%=54);look(+50,+4);endif;
							if(%#bau%=55);look(+61,+4);endif;
							if(%#bau%=56);look(+74,+4);endif;
							if(%#bau%=57);look(+91,+4);endif;
							if(%#bau%=58);look(+104,+4);endif;
							if(%#bau%=59);look(+120,+4);endif;
							if(%#bau%=60);look(+130,+4);endif;
							if(%#bau%=61);look(+141,+4);endif;
							if(%#bau%=62);look(+158,+4);endif;
							if(%#bau%=63);look(-179,+4);endif;
							if(%#bau%=64);look(-159,+4);endif;
							if(%#bau%=65);look(-143,+4);endif;
							if(%#bau%=66);look(-131,+4);endif;
							if(%#bau%=67);look(-120,+4);endif;
							if(%#bau%=68);look(-106,+4);endif;
							if(%#bau%=69);look(-89,+4);endif;
							if(%#bau%=70);look(-75,+4);endif;
							if(%#bau%=71);look(-61,+4);endif;
							if(%#bau%=72);look(-50,+16);endif;
							if(%#bau%=73);look(-39,+20);endif;
							if(%#bau%=74);look(-23,+22);endif;
							if(%#bau%=75);look(+23,+22);endif;
							if(%#bau%=76);look(+39,+20);endif;
							if(%#bau%=77);look(+50,+16);endif;
							if(%#bau%=78);look(+61,+16);endif;
							if(%#bau%=79);look(+74,+18);endif;
							if(%#bau%=80);look(+91,+18);endif;
							if(%#bau%=81);look(+104,+18);endif;
							if(%#bau%=82);look(+120,+16);endif;
							if(%#bau%=83);look(+130,+16);endif;
							if(%#bau%=84);look(+141,+20);endif;
							if(%#bau%=85);look(+158,+22);endif;
							if(%#bau%=86);look(-179,+24);endif;
							if(%#bau%=87);look(-159,+22);endif;
							if(%#bau%=88);look(-143,+20);endif;
							if(%#bau%=89);look(-131,+16);endif;
							if(%#bau%=90);look(-120,+17);endif;
							if(%#bau%=91);look(-106,+18);endif;
							wait(2);						
							key(use);
							wait(4);//Delay para repetir o loop de tentar abrir baú.
						loop;
						for(#i,54,71);
							slotclick(%#i%,l,true);
							wait(30ms);
						next;
						wait(500ms);
						getslotitem(53,#id,#stack);
						wait(500ms);
						if(%#stack%!=0);
							if(%#bau%<91);
								inc(#bau);
								gui();
							else;
								unset(nf);
								log("&4[Macro] &9Baús cheios! Agora &4nao &9serao guardados mais itens!!!");
								gui();
								break;
							endif;
						endif;
					until(%#stack%=0);
					}$$/home escavar$${
					wait(10);
				endif;
			else;
				gui();
			endif;
		endif;
	loop;
endif;
}$$
Sugiro que usem o macro de economia de blocos do [member=Phodalao], testei quando usei a macro e não ocorreu nenhum bug, porém essa possibilidade não está descartada:
Tópico do macro (Clique aqui), mas vou colocar a macro aqui para facilitar:
Código:
$${IFMATCHES(%CHAT%,"Limpando itens do chao em 5s");gui(inventory);wait(6000ms);gui();endif;}$$
Coloque em ONCHAT (e NÃO em uma tecla).
8.Atualizações:
*19/05/2015 - Tópico criado;
*20/05/2015 - Graças ao [member=Anderson13fs] percebi que o delay poderia ser menor, agora a macro está mais eficiente;
*23/05/2015 - Agora após a macro perceber que todos as pás do inventário estão no red, irá para a home trapbaus e pegará novas pás. Sugerido por [member=gabrielzym];
*30/05/2015 - Agradeço novamente ao [member=Anderson13fs] que fez mais uma sugestão boa para melhorar a macro: Agora ela irá pegar mais blocos em um baú quando não tiver mais no inventário.

______________________________________________________________________

Qualquer bug ou sugestão deixem nos comentários vlw
Clique para expandir...
Nossa, vlw, finalmente poderei upar Escavação

FarofeiroXD · 13 Junho 2015

xlyz disse:

Cara, não recomendo, nem me responsabilizo por erros quando se esta usando pá sem encantamento, pois essa macro foi feita para ser rápida, e problemas com pás sem encantamento são muito comuns (desculpa aquelas pessoas que jogam naquele server ser xp).
Mas como assim vai pra frente kkk? Se esta andando pra frente você não pegou minha macro.
Clique para expandir...

é que não tenho pás suficientes com encantamento, terei que pescar mais...
Anda pra frente uai, o lugar onde ele ficaria quebrando os blocos, ele vai pro lugar onde fica os blocos e junta bloco no lugar dele...

xlyz · 13 Junho 2015

FarofeiroXD disse:

é que não tenho pás suficientes com encantamento, terei que pescar mais...
Anda pra frente uai, o lugar onde ele ficaria quebrando os blocos, ele vai pro lugar onde fica os blocos e junta bloco no lugar dele...
Clique para expandir...

AA entendi nesse caso você terá que aumentar o delay depois que teleporta no código. Pra resolve de ir pra frente...

FarofeiroXD · 13 Junho 2015

xlyz disse:

AA entendi nesse caso você terá que aumentar o delay depois que teleporta no código. Pra resolve de ir pra frente...
Clique para expandir...

ok, tentarei... obrigado

Vitor Oliveira · 16 Junho 2015

man,eu fui ban por usaar esse macro dps de uns 3 dias de uso,la quando eu tentar logar apareceu (banido por hack ou macro bugado) vc poderia editar ele?

Flotos1 · 16 Junho 2015

iLero disse:

Boa mano , parabéns!
Clique para expandir...

boa

Anderson13fs · 16 Junho 2015

Vitor Oliveira disse:

man,eu fui ban por usaar esse macro dps de uns 3 dias de uso,la quando eu tentar logar apareceu (banido por hack ou macro bugado) vc poderia editar ele?
Clique para expandir...

Nao tem nd a ver com o macro, eh q a cl esta louca msm

TheKifferGamer · 16 Junho 2015

galera na primeira imagem a macro esta errada pois os baus estão de lado

Anderson13fs · 16 Junho 2015

richard lima veras disse:

galera na primeira imagem a macro esta errada pois os baus estão de lado
Clique para expandir...

Verdade, mas se olhar as outras imagens da pra entender mais que perfeitamente

xlyz · 16 Junho 2015

Vitor Oliveira disse:

man,eu fui ban por usaar esse macro dps de uns 3 dias de uso,la quando eu tentar logar apareceu (banido por hack ou macro bugado) vc poderia editar ele?
Clique para expandir...

I man, não sei porque a craftlandia coloco isso, e não sei o motivo que esse novo sistema usa para banir, então por enquanto não tem como arrumar, o meu ainda não baniu
________________________
kkskskskkkkk na verdade os baús não estão errados na primeira imagem, se perceber o chão os blocos de ferro são os mesmos, não tem 2. É que deixei o FOV alterado, dai distorceu.

itzcheeeck · 16 Junho 2015

Da ban ? ultimo que usei tomei ban por 9 horas

Shadoooow · 16 Junho 2015

Horrível fui ban por causa dessa poha -.-

xlyz · 16 Junho 2015

Shadoooow disse:

Horrível fui ban por causa dessa poha -.-
Clique para expandir...

Vc acha que eu tenho culpa disso? vem fala mrd aqui, eu não fiz de propósito para dar ban, a craftlandia que mudou o sistema, então não vem fala o que você não sabe, não to obrigando nngem a usr vlw?

Anderson13fs · 16 Junho 2015

Coloquem uma coisa na cabeça de vcs, nao eh o macro que dá ban, e sim varias pessoas upando ao msm tempo, imaginem 150 pessoas escavando e upando herbalismo ao msm tempo... A CL só ta impedindo (de uma péssima forma). Mas não tem nd a ver com o macro, ate pq tem gnt q vai fazer pot ou no pvp ou minerando e leva ban por isso. Vão pesquisar antes de falar merda sem saber.

(Tudo que falei nao foi confirmado, sao apenas algumas/varias fontes que estao comentando ser isso)

Enviado de meu GT-I8552B usando Tapatalk

TheKifferGamer · 16 Junho 2015

Anderson13fs disse:

Verdade, mas se olhar as outras imagens da pra entender mais que perfeitamente
Clique para expandir...

vlw : )

nio · 17 Junho 2015

cara ontem eu levei ban usando esse macro apareceu la "macro bugado ou hack'' !

zDrBread · 17 Junho 2015

Vai me ajuda nos serve que n tenho vip vlw.

ENTREGUE [Macro]Escavação NÃO VIP 1.5.2

Shoutbox (0)

Anderson13fs Bom

charigamee Bom
VIP

xlyz Excelente
VIP

BAZOOKA Hardcore
VIP

FarofeiroXD Excelente
VIP

xlyz Excelente
VIP

FarofeiroXD Excelente
VIP

Vitor Oliveira Neutro
VIP

Flotos1 Excelente
Banido

Anderson13fs Bom

TheKifferGamer Neutro

Anderson13fs Bom

xlyz Excelente
VIP

itzcheeeck Craftlandiano
VIP

Shadoooow Neutro

xlyz Excelente
VIP

Anderson13fs Bom

TheKifferGamer Neutro

nio Neutro

zDrBread Craftlandiano
VIP

ENTREGUE [Macro]Escavação NÃO VIP 1.5.2

Shoutbox (0)

Anderson13fs Bom

charigamee Bom VIP

xlyz Excelente VIP

BAZOOKA Hardcore VIP

FarofeiroXD Excelente VIP

xlyz Excelente VIP

FarofeiroXD Excelente VIP

Vitor Oliveira Neutro VIP

Flotos1 Excelente Banido

Anderson13fs Bom

TheKifferGamer Neutro

Anderson13fs Bom

xlyz Excelente VIP

itzcheeeck Craftlandiano VIP

Shadoooow Neutro

xlyz Excelente VIP

Anderson13fs Bom

TheKifferGamer Neutro

nio Neutro

zDrBread Craftlandiano VIP

charigamee Bom
VIP

xlyz Excelente
VIP

BAZOOKA Hardcore
VIP

FarofeiroXD Excelente
VIP

xlyz Excelente
VIP

FarofeiroXD Excelente
VIP

Vitor Oliveira Neutro
VIP

Flotos1 Excelente
Banido

xlyz Excelente
VIP

itzcheeeck Craftlandiano
VIP

xlyz Excelente
VIP

zDrBread Craftlandiano
VIP