ENTREGUE MACRO DE ESCAVAÇÃO ANTI-BAN

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.

1974Gustavo

Neutro
VIP
Entrou
Jun 15, 2015
Mensagens
992
Cubos
0
Ola vou mostrar um macro de escavação ANTI-BAN para vocês.
Obs: esse macro precisara de auto-reconect,porque ele é desconectado pelo servidor.

1- faça isso como a foto,o vídeo está explicando como faz.
https://www.youtube.com/watch?v=nT2ShdorRUQ

WRjIEuI.png

2- Aperte ESC e vá em opções.
1IngV6b.png
3- Vá em Controles...

EatsoqK.png
4- Vá em macro settings.

OfLesFK.png
5- escolha qualquer letra (SEM SER AS LETRAS QUE ESTÃO EM VERMELHO).

XrUUgVI.png
6- Agora escreva $$<escava.txt>

1bztCsr.png

7- Vá em Edit File... e coloque escava e aperte Create.
hSE97GD.png

8- Copie e cole o código do macro que estará escrito no numero 9.
jZvfOnh.png

9- codigo do macro
$${

if(cav);
unset(cav);
log( );
log("&d&l[MACRO] Cava-Cava &4(OFF) &f- &aAproximadamente &a%#exp% de EXP.");
log( );

unset(@cav);
stop();

else;
set(cav);
log( );
log("&d&l[MACRO] Cava-Cava &2(ON)");
log( );

set(@cav);

IFMATCHES(%DIRECTION%,N);
&near = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&near = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&near = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&near = EAST;
ENDIF;


#exp = 0;
#bau = 1;

PROMPT(&bloco,$$i, Que bloco usará para cavar?);
PROMPT(&pa,$$i, Que tipo de pá irá ser usada?);
PROMPT(#rep,$$i, Qual o material usado na reparação da sua pá?);
PROMPT(#dur,$$?, Em qual durabilidade você quer reparar sua pá?);
PROMPT(&del,$$?, Qual delay para verificar o Inventário? Recomendado: 140 - 250);


#dur=%#dur%;
#repq=0;

look(%&near%);
look(,55);

set(cav2);

do;
do(%&del%);
pick(%&bloco%);
key(use);
wait(2ms);
pick(%&pa%);

if(%DURABILITY%<%#dur%);
gui(inventory);
for(#i,9,45);
getslotitem(%#i%,#id,#stack1);
if(%#id%=%#rep%);
#repq=%#repq%+%#stack1%;
endif;
next;
wait(1);
gui();

if(%#repq%=0);

log( );
log("&d&l[MACRO] Cava-Cava &4(OFF) &dNão pôde reparar &f- &aAproximadamente &a%#exp% de EXP.");
log( );

unset(@cav);
unset(cav);
unset(cav2);
stop();

else(%#repq%>0%);
}$$
$${

#repq=0;
look(%&near%);
look(,90);
key(use);
wait(2);
#repq=0;

endif;endif;

endif;

look(%&near%);
look(,55);
key(attack);
inc(#exp, 2);
loop;


if(cav2);
gui(inventory);
wait(1);
getslotitem(35,#id,#stack);
if(%#stack%=0);
gui();
else;
do;
wait(1);

}$$


$${if(%#bau%=1);}$$
/home esc1
$${endif;}$$
$${if(%#bau%=2);}$$
/home esc2
$${endif;}$$
$${if(%#bau%=3);}$$
/home esc3
$${endif;}$$
$${if(%#bau%=4);}$$
/home esc4
$${endif;}$$
$${if(%#bau%=5);}$$
/home esc5
$${endif;}$$
$${if(%#bau%=6);}$$
/home esc6
$${endif;}$$
$${if(%#bau%=7);}$$
/home esc7
$${endif;}$$
$${if(%#bau%=8);}$$
/home esc8
$${endif;}$$
$${if(%#bau%=9);}$$
/home esc9
$${endif;}$$
$${if(%#bau%=10);}$$
/home esc10
$${endif;}$$



$${

wait(5);
key(use);
wait(1);
for(#i,54,80);
slotclick(%#i%,l,true);
wait(15ms);
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);inc(#bau);

endif;
if(%#bau%=11);
unset(cav2);
log(&d&l[MACRO] Cava-Cava &b"Baús cheios! Voltando a escavar.");
gui();
else;
gui();
endif;
until(%#stack%=0);

}$$

/home macroesc

$${
wait(2);
endif;
endif;
loop;
endif;
}$$
10- faça 10 baus duplos e de set home esc1,esc2,esc3,esc4,esc5,esc6,esc7,esc8,esc9, esc10.
OBS: TEM QUE SER NA FRENTE DO BAU
gLOd53Z.png
m5gDMMa.png
pLlmkZh.png


AJUDEI?DE SEU LIKE.VLW
 
Esqueci de comentar quando aparecer qual o delay para verificar o inventário coloque 200.isso que deixará o macro anti ban.
 
você só editou a palavra de quando liga o macro, acho que esse macro ai é de outra pessoa em.... podia pelo - colocar os creditos pra ele :P
 
Status
Não está aberto para novas respostas.

Users who are viewing this thread

Voltar
Topo