ENTREGUE [MACRO] Escavação vip

Macro de escavação vip para 1.5

Oque tem nessa macro?
- Upa com terra e areia das almas
- Pega terra ou areia das almas no bau
- Guarda livros em 1 bau duplo
- Joga os drops na lava
- Guarda os dimas em 1 terceiro bau
- A macro em alguns momentos detecta quando ouve 1 bug e vai pro spawn e volta desbugando.

Como fazer a trap.
Não esqueça de faze-la olhando para o NORTE

1 - vai precisar de 2 baus com armadilha / 4 baus normais / 1 água / 1 bloco de ferro / 1 lava /
/ 4 placas / 1 monte de blocos qualquer.

2 - Cave 2 blocos no chão colocando 1 de ferro (aonde vc vai ficar) e 1 qualquer virado para o norte, também cave 2 blocos atras e coloque lava.

http://imgur.com/sOpLVqF

http://imgur.com/IdTX0ov

3 - faça 1 retângulo 5 x 6 e um 3 x 3 assim.

http://imgur.com/rXmDAJ3

4 - contorne com 1 bloco qualquer.

http://imgur.com/w9NQmu1

5 - coloque as 4 placas conforme as prints.

http://imgur.com/I8niEyJ

http://imgur.com/qKi8FNW

6 - coloque água atras do bloco de ouro(usado no meu caso).

http://imgur.com/gNQRLn4

7 - faça mais 1 contorno com 1 bloco qualquer só q tampa fazendo 1 teto.

http://imgur.com/m2Wnkdu

8 - coloque os baus dessa forma.

http://imgur.com/m2Wnkdu

http://imgur.com/H5nRnx2

A trap devera ficar assim quando acabar.

http://imgur.com/H5nRnx2

http://imgur.com/iMDrQvP


Aonde colocar as homes.
1 - todas em cima do bloco de ferro.

2 - coloque-as olhando para mesma direção aonde estão nas prints.

http://imgur.com/a/vRXO2


Após as sethomes vc devera encher o bau da esquerda com terra ou areia das almas pois sera la que a macro irá pegar terra ou areia das almas.

http://imgur.com/BSyG2s6

Agora devera organizar o inventario dessa forma.

http://imgur.com/0rS5am5

Como instalar a macro

1 coloque esse código no onchat.

Spoiler

$${if(@cav); ifmatches(%CHATCLEAN%,"Limpando itens do chao em 5s"); gui(inventory); wait(6); gui(); endif;endif;}$$

2 escolha 1 tecla e escreva $$<esc.txt> depois clique em edit file vá em create a new file escreva esc e clique em create depois cole o código da macro lá.

Spoiler

$${
if(esc);
log(&fesc off);
unset(esc);
unset(@cav);
setlabel(CAV, ,CAV);
stop();
else;
log(&fesc on);
set(esc);
do;
set(@cav);
setlabel(CAV,ESC,CAV);

do(400);
look(0,57);
pick(3);
pick(88);
key(use);
wait(10ms);
pick(277);

if(%DURABILITY% < 400);
wait(1);
}$$
/spawn
$${
wait(3);
}$$
/home macroesc
$${
wait(3);
look(0,90);
key(use);
wait(1);
endif;

key(attack);
wait(1ms);
loop;

do(1);
if(@cav);
unset(@cav);

gui(inventory);
wait(10ms);
getslotitem(35,#id,#stack);
wait(1);
if(%#stack%=0);
gui();
else;
wait(3);
}$$
/home esc
$${
wait(1);
key(use);
wait(1);
for(#slotn,54,89);
getslotitem(%#slotn%,#id,#stack);
if(%#id%=387);
slotclick(%#slotn%,l,true);
wait(10ms);
else;
endif;
next;
endif;
endif;
loop;

do(1);
unset(@cav);
gui(inventory);
wait(10ms);
getslotitem(35,#id,#stack);
wait(1);
if(%#stack%=0);
gui();
else;
}$$
/home esc2
$${
wait(1);
gui(inventory);
wait(1);
for(#slotn,9,44);
getslotitem(%#slotn%,#id,#stack);
if((%#id%=39) || (%#id%=40) || (%#id%=348) || (%#id%=2267) || (%#id%=354) || (%#id%=351));
slotclick(%#slotn%);
slotclick(-999);
wait(10ms);
endif;
next;

gui();


}$$
/home esc3
$${

wait(1);
key(use);
wait(3);
for(#slotn,0,44);
getslotitem(%#slotn%,#id,#stack);
if((%#id%=3) || (%#id%=88));
slotclick(%#slotn%,l,true);
wait(40ms);
endif;
next;
for(#slotn,45,80);
getslotitem(%#slotn%,#id,#stack);
if((%#id%=3) || (%#id%=88));
slotclick(%#slotn%,l,true);
wait(40ms);
endif;
next;
wait(1);
gui();





}$$
/home esc4
$${

wait(1);
key(use);
wait(3);
for(#slotn,55,89);
getslotitem(%#slotn%,#id,#stack);
if(%#id%=264);
slotclick(%#slotn%,l,true);
wait(20ms);
endif;
next;
gui();

endif;

loop;


do(1);
gui(inventory);
wait(10ms);
for(#slotn,37,45);
getslotitem(%#slotn%,#id,#stack);
if((%#id%=39) || (%#id%=40) || (%#id%=348) || (%#id%=2267) || (%#id%=354) || (%#id%=351));
slotclick(%#slotn%,l,true);
wait(20ms);
endif;
next;

wait(10ms);

wait(10ms);
for(#slotn,9,36);
getslotitem(%#slotn%,#id,#stack);
if((%#id%=3) || (%#id%=88));
slotclick(%#slotn%,l,true);
wait(20ms);
endif;
next;

wait(10ms);
for(#slotn,38,44);
getslotitem(%#slotn%,#id,#stack);
if((%#id%=3) || (%#id%=88));
else;
wait(50ms);
}$$
/spawn
$${
wait(2);
}$$
/home macroesc
$${
wait(3);
gui(inventory);
wait(2);
endif;
next;
gui();
loop;


loop;

endif;
}$$

Esse e meu 1 macro então se tiver algum bug peço que me diga para que eu possa resolver.

 

vlw