Todas as dicas para o Servidor Craftlandia.

quarta-feira, 21 de junho de 2017

Escavação para RECONNECT - 2017





MACRO DE ESCAVAÇÃO PARA RECONNECT:

$${
wait(10ms);
}$$
/home macroesc
$${
wait(1);
}$$

$${
if(cav);
unset(cav);
log( );
log("&6&l[VIP] &d&lCavaCavaAuto &4(Desligado) &f- &aAproximadamente &a%#exp% de EXP.");
     ACHIEVEMENTGET("CavaCavaAuto Desligado",diamond_shovel);
     playsound(mob.bat.death);
log( );

unset(@cav);
stop();

else;
set(cav);
log( );
log("&6&l[VIP] &d&lCavaCavaAuto &2(LIGADO)");
      ACHIEVEMENTGET("CavaCavaAuto Ligado",diamond_shovel);
      playsound(mob.bat.death);
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;

//....... Que bloco usara para cavar?
&bloco=soul_sand
//.......Que tipo de pa ira ser usada?
&pa=diamond_shovel
//.......Qual o material usado na reparacao da sua pa?
&rep=diamond
//.......Em qual durabilidade voce quer reparar sua pa?
#dur=100
//.......Qual delay para verificar o Inventario? Recomendado: 140 - 250
&del=240
//.......Qual delay para quebrar os blocos? 1 = rapido | acima de 1 = diminuir a velociade
#vel=1

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

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

set(cav2);
do;
do(%&del%);
pick(%&bloco%);
key(use);
wait(%#vel%ms);
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("&6&l[VIP] &d&lCava-Cava &4(OFF) &dNao pode 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, 1);
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;}$$
$${if(%#bau%=11);}$$
/home esc11
$${endif;}$$
$${if(%#bau%=12);}$$
/home esc12
$${endif;}$$
$${if(%#bau%=13);}$$
/home esc13
$${endif;}$$
$${if(%#bau%=14);}$$
/home esc14
$${endif;}$$
$${if(%#bau%=15);}$$
/home esc15
$${endif;}$$
$${if(%#bau%=16);}$$
/home esc16
$${endif;}$$
$${if(%#bau%=17);}$$
/home esc17
$${endif;}$$
$${if(%#bau%=18);}$$
/home esc18
$${endif;}$$
$${if(%#bau%=19);}$$
/home esc19
$${endif;}$$
$${if(%#bau%=20);}$$
/home esc20
$${endif;}$$
  
$${
wait(5);
key(use);
wait(1);
for(#slotn,54,89);
GETSLOTITEM(%#slotn%,&id,#stack);
if((%&id%=%&pa%) || (%&id%=%&bloco%) || (%&id%=%&rep%));
else;
slotclick(%#slotn%,l,true);wait(30ms);
endif;
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"Baus cheios! Voltando a escavar.");
gui();
else;
gui();
endif;
until(%#stack%=0);

}$$
/home macroesc
$${

wait(2);
endif;
endif;
gui(inventory);
wait(600ms);
for(#slot,9,35);
GETSLOTITEM(%#slot%,&id,#stack);
if((%&id%=%&pa%) || (%&id%=%&bloco%));
slotclick(%#slot%,l,true);wait(30ms);
endif;
next;
gui();

loop;
endif;
}$$




ONCHAT PARA O ESCAVAÇÃO:

$${
ifmatches(%CHATCLEAN%,"Bem vindo de volta.");
ACHIEVEMENTGET(Logando em 1sg- Aguarde,diamond_helmet);
wait(1);
       }$$
       /login SUASENHAAQUI
       $${
wait(2);
        ACHIEVEMENTGET(Vc esta Logado- %PLAYER%,diamond_sword);
playsound(mob.chicken.say);

wait(1ms);
endif;
}$$



$${
ifmatches(%CHATCLEAN%,"Bem vindo de volta.");

wait(3);
///=== tempo acima aguarda o autologin iniciar ==///

wait(4);
        ACHIEVEMENTGET(Reiniciando Macro... ,stone);
wait(2);
        unset(cav);
wait(2);
        unset(@cav);
wait(1);
//        exec(cavacavaauto.txt);
//        exec(herbalismo.txt);

wait(1ms);
endif;
}$$



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


Compartilhar Google+
←  Anterior Proxima  → Página inicial