ENTREGUE macro

alguem modifica essa macro para pessoas n vips pfv

$${
if(cav1);

log( );
log("&6&l[MACRO] &d&lCava-Cava 2.0&4&l (OFF)");
log( );
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();

else;

log( );
log("&6&l[MACRO] &d&lCava-Cava 2.0&2&l (ON)");
log( );
ACHIEVEMENTGET("by MrBlueees",351:4);
set(cav1);
set(cav2);

endif;

#bau=1;

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

if(%#bloco%=nothing);set(nperg);&cont=n;endif;
if(%#pa%=nothing);set(nperg);&cont=n;endif;
if(%#dur%=nothing);set(nperg);&cont=n;endif;
if(%#del%=nothing);set(nperg);&cont=n;endif;
if(%#hit%=nothing);set(nperg);&cont=n;endif;

if(nperg);
else;
PROMPT(&cont,$$?,"Deseja continuar com a última configuraçao? (s/n)");
endif;

IFBEGINSWITH(%&cont%,n);
IFENDSWITH(%&cont%,n);

PROMPT(#bloco,$$i,Que bloco usará para cavar?);

PROMPT(#pa,$$i,Que tipo de pá irá ser usada?);

if(%#pa%=277);#rep=264;endif;
if(%#pa%=256);#rep=265;endif;
if(%#pa%=284);#rep=266;endif;
if(%#pa%=269);#rep=125;endif;
if(%#pa%=273);#rep=4;endif;

PROMPT(#dur,$$?,Em qual durabilidade você quer reparar sua pá?);
#dur=%#dur%;
PROMPT(#del,$$?,Qual delay para verificar o inventário? Recomendado: 300 - 400);

PROMPT(#hit,$$?,"Quantos hits para quebrar o bloco? Exemplos: 1 = pá eficiência 5 || 10 ou mais = pá de pedra");

if(%#bloco%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#pa%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#dur%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#del%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;
if(%#hit%=nothing);log("&cResposta inválida, configure novamente.");
unset(mrb);
unset(cav1);
unset(cav2);
unset(@cav);
unset(nperg);
stop();
endif;

ENDIF;
ENDIF;


set(mrb);
set(@cav);
if(mrb);
look(%&near%);
look(,30);

do;

do(%#del%);

pick(%#bloco%);
key(use);
wait(1ms);
pick(%#pa%);

if(%DURABILITY%<%#dur%);

look(%&near%);
look(,90);
key(use);
wait(2);

endif;

look(%&near%);
look(,30);
do(%#hit%);
key(attack);
loop;

loop;


if(cav2);

gui(inventory);
wait(10ms);
getslotitem(35,#id,#stack);

if(%#stack%=0);
gui();
else;
wait(1);
do;
//=================BAUS=================//
}$$

$${if(%#bau%=1);}$$
/home bau1
$${endif;}$$

$${if(%#bau%=2);}$$
/home bau2
$${endif;}$$

$${if(%#bau%=3);}$$
/home bau3
$${endif;}$$

$${if(%#bau%=4);}$$
/home bau4
$${endif;}$$

$${if(%#bau%=5);}$$
/home bau5
$${endif;}$$

$${if(%#bau%=6);}$$
/home bau6
$${endif;}$$

$${if(%#bau%=7);}$$
/home bau7
$${endif;}$$

$${if(%#bau%=8);}$$
/home bau8
$${endif;}$$

$${if(%#bau%=9);}$$
/home bau9
$${endif;}$$

$${if(%#bau%=10);}$$
/home bau10
$${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);

else;

endif;

if(%#bau%=11);

unset(cav2);
log("&cBaús cheios! Voltando a escavar somente.");
gui();

else;

gui();

endif;

until(%#stack%=0);

endif;

}$$/home escava$${
wait(4);

gui(inventory);
wait(600ms);


for(#slot,9,35);

GETSLOTITEM(%#slot%,#id,#stack);

if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));

slotclick(%#slot%,l,true);wait(30ms);
else;
endif;
next;

gui();

endif;
loop;
endif;

}$$

 

'-'