Alguem ajuda pf

alguem podia arrumar esse macro pra min? queria q escavase + rapido e vendia na /warp vip de 64 em 64 pois ta vendendo de 576 e que quando reinicia volte ao macro automatico e tmb vende disco de 1 em 1
macro:
$${
if(escava);
unset(@esc);
keyup(jump);
keyup(back);
keyup(right);
keyup(left);
keyup(forward);
unset(escava);
LOG("&2Escavacao &4[OFF] XP adiquirido: %#quebrados%");
stop;
else;
set(@esc);
#per = 0;
set(escava);
LOG("&2Escavacao &a[ON]");
#quebrados = 0;
#bloco = 13;
#tempo = 0;
&dire = %DIRECTION%;
ifmatches(%&dire%,N);&dire=NORTH;endif;
ifmatches(%&dire%,S);&dire=SOUTH;endif;
ifmatches(%&dire%,E);&dire=EAST;endif;
ifmatches(%&dire%,W);&dire=WEST;endif;
prompt(#tempo,$$?,Quanto tempo antes de checar inventário?);
prompt(&pergunta,$$?,Voce tem 750 de escavaçao? Sim ou nao?);
prompt(&pergunta2,$$?,Voce tem pá com Toque Suave? Sim ou nao?);
IFBEGINSWITH(%&pergunta2%,sim);
IFENDSWITH(%&pergunta2%,sim);
unset(pederneira);
LOG("&aNao venderemos pederneira!");
endif;
endif;
IFBEGINSWITH(%&pergunta2%,nao);
IFENDSWITH(%&pergunta2%,nao);
set(pederneira);
LOG("&aVenderemos pederneira!");
endif;
endif;
IFBEGINSWITH(%&pergunta%,sim);
IFENDSWITH(%&pergunta%,sim);
set(sete);
LOG("&aVenderemos o bolo!");
endif;
endif;
IFBEGINSWITH(%&pergunta%,nao);
IFENDSWITH(%&pergunta%,nao);
unset(sete);
LOG("&aPularemos a parte do bolo!");
endif;
endif;
do;
do(%#tempo%);
pick(%#bloco%);
look(90,65);
key(use);
wait(1ms);
pick(%#bloco%);
look(180,65);
key(use);
wait(1ms);
pick(%#bloco%);
look(270,65);
key(use);
wait(1ms);
pick(%#bloco%);
look(360,65);
key(use);
wait(1ms);
pick(277);
look(90,65);
key(attack);
INC(#quebrados, 2);
wait(1ms);
pick(277);
look(180,65);
key(attack);
INC(#quebrados, 2);
wait(1ms);
pick(277);
look(270,65);
key(attack);
INC(#quebrados, 2);
wait(1ms);
pick(277);
look(360,65);
key(attack);
INC(#quebrados, 2);
wait(1ms);
if(%DURABILITY% < 45);
do(4);
look(90,90);
key(use);
loop;
endif;
if(%DURABILITY% < 14);
LOG("Parei porque se nao vai quebrar!");
unset(escava);
stop;
endif;
loop;
pick(364);
if(%ITEM%=364);
do(130);
key(use);
loop;
endif;
if(sete);
sprint();
wait(3);
//bolo
}$$/home bolo$${
wait(3);
do(5);
gui();
key(attack);
wait(250ms);
loop;
endif;
}$$
/warp vip
$${
do;
getid(%XPOS%,3,%ZPOS%,#id);
until(%#id%=19);
if(pederneira);
do;
look(SOUTH);look(+40,);
keydown(forward);
sprint();
until(%XPOS%=687);
keyup(forward);
wait(2);
look(320,20);
do(4);
key(attack);
wait(200ms);
loop;
wait(1);
}$$
/warp vip
$${
do;
getid(%XPOS%,3,%ZPOS%,#id);
until(%#id%=19);
endif;
sprint();
do;
sprint();
keydown(forward);
look(SOUTH);
until(%ZPOS%=666);
keyup(forward);
do;
sprint();
keydown(forward);
look(EAST);
until(%XPOS%=723);
keyup(forward);
wait(1);
do;
unsprint();
look(SOUTH);
keydown(forward);
keydown(jump);
until(%ZPOS%=672);
keyup(forward);
keyup(jump);
look(,40);
wait(1);
ifmatches(%HIT%,PLAYER);
do;
keydown(left);
until(%XPOS%=724);
keyup(left);
look(205,40);
wait(1);
ifmatches(%HIT%,PLAYER);
do;
look(SOUTH);
keydown(right);
until(%XPOS%=722);
keyup(right);
look(155,40);
endif;
endif;
wait(1);
do(6);
gui();
key(attack);
wait(500ms);
loop;
}$$
/warp vip
$${
do;
getid(%XPOS%,3,%ZPOS%,#id);
until(%#id%=19);
do;
sprint();
look(NORTH);
keydown(right);
until(%XPOS%=712);
keyup(right);
do;
sprint();
look(WEST);
keydown(right);
until(%ZPOS%=647);
keyup(right);
unsprint();
do(5);
look(,25);
gui();
key(attack);
wait(500ms);
loop;
}$$
/warp vip
$${
do;
getid(%XPOS%,3,%ZPOS%,#id);
until(%#id%=19);
do;
sprint();
look(WEST);
keydown(forward);
until(%XPOS%=684);
keyup(forward);
do;
sprint();
look(NORTH);
keydown(forward);
until(%ZPOS%=639);
keyup(forward);
do;
sprint();
look(NORTH);
keydown(left);
until(%XPOS%=681);
keyup(left);
do(5);
look(,15);
gui();
key(attack);
wait(500ms);
loop;
wait(5);
}$$
/home escava
$${
unsprint();
wait(1);
gui(inventory);getslotitem(36,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
gui(inventory);getslotitem(37,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
gui(inventory);getslotitem(38,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
gui(inventory);getslotitem(39,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
gui(inventory);getslotitem(40,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
gui(inventory);getslotitem(41,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
gui(inventory);getslotitem(42,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
gui(inventory);getslotitem(43,#cas,#quant);
if(%#cas%!=13);
for(#i,9,35);
getslotitem(%#i%,#acha);
if(%#acha%=13);
slotclick(%#i%,left,true);
wait(90ms);
endif;
next;
endif;
wait(500ms);
gui();
wait(1);
set(esca);
endif;
endif;
loop;
endif;
}$$

obrg desde ja se alguem poder ajuda manda na mp o macro modificado

 

n pois n tem macro q venda na warp vip com o novo sistema da placa

 

vc consegue faze isso?