ENTREGUE [Macro 1.7]Torre de cacto com /mc (para vips)

Eae gente postei aki já uma macro para construir torre de cacto na versao 1.7 que n utiliza o /mc agr estou postando um que usa esse comando
link para a versao sem /mc:

Spoiler

http://forum.craftlandia.com.br/ipb/index.php?/topic/331139-construindo-torre-de-cacto-para-vers%C3%A3o-17/

O Cod

Spoiler

$${
if(cacto);
unset(cacto);
keyup(sneak);
keyup(forward);
keyup(left);
keyup(right);
keyup(back);
keyup(jump);
LOG("&8%PLAYER% &bCacto &4[Off]");
stop;
else;
#feitos=0;
set(cacto);
LOG("&8%PLAYER% &bCacto &a[On]");
prompt(#andares,$$?,Quantos andares?);
do(%#andares%);
pick(dirt);
look(,90);
keydown(jump);
wait(200ms);
key(use);
keyup(jump);
wait(200ms);
pick(dirt);
look(90,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);

pick(dirt);
look(270,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);

#posx=%XPOS%;
#posz=%ZPOS%;
do;
look(180,80);
keydown(right);
until(%XPOS%=%#posx%-1);
keyup(right);

pick(dirt);
look(180,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);

pick(dirt);
look(360,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);

#posx=%XPOS%;
#posz=%ZPOS%;
do;
look(0,80);
keydown(forward);
until(%ZPOS%=%#posz%-1);
keyup(forward);
wait(100ms);
//areia
look(0,90);
pick(sand);
look(,90);
keydown(jump);
wait(200ms);
key(use);
keyup(jump);
wait(200ms);
pick(sand);
look(360,65);
wait(200ms);
key(use);
wait(200ms);
pick(sand);
look(180,65);
wait(200ms);
key(use);
wait(200ms);
pick(sand);
look(90,65);
wait(200ms);
key(use);
wait(200ms);
pick(sand);
look(270,65);
wait(200ms);
key(use);

wait(200ms);
pick(cactus);
look(360,65);
wait(200ms);
key(use);
wait(200ms);
pick(cactus);
look(180,65);
wait(200ms);
key(use);
wait(200ms);
pick(cactus);
look(90,65);
wait(200ms);
key(use);
wait(200ms);
pick(cactus);
look(270,65);
wait(200ms);
key(use);
wait(200ms);
look(270,35);
pick(dirt);
wait(20ms);
key(use);
wait(1500ms);
#posy=%YPOS%;
#posx=%XPOS%;
do;
keydown(jump);wait(10ms);keyup(jump);wait(100ms);keydown(jump);
until(%HITID%!="dirt");
keyup(jump);
do;
keydown(jump);
until(%YPOS%=%#posy%+2);
keyup(jump);
do;
keydown(forward);
until(%XPOS%=%#posx%-1);
keyup(forward);
keydown(sneak);
wait(300ms);
keyup(sneak);
pick(glowstone);
look(270,80);
wait(10ms);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(15ms);
key(use);
wait(400ms);
pick(277);
//
look(270,65);
wait(1t);
//
do;
look(270,65);
key(attack);
until(%HITID%!="dirt");
wait(500ms);
gui(inventory);
pick(dirt);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=dirt);
slotclick(%#i%,l,true);
wait(75ms);
endif;
next;
endif;
pick(sand);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=sand);
slotclick(%#i%,l,true);
wait(75ms);
endif;
next;
endif;
pick(cactus);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=cactus);
slotclick(%#i%,l,true);
wait(75ms);
endif;
next;
endif;
pick(glowstone);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=glowstone);
slotclick(%#i%,l,true);
wait(75ms);
endif;
next;
endif;

gui();
LOG(&aAndar concluido.);
INC(#feitos);
LOG(&9Andares: &f%#feitos%/%#andares%);
loop;
endif;
}$$

Para colocar a msm coisa d sempre escolhe uma letra cria um arquivo etc.
Como o inventario tem que ficar:

Spoiler

Não precisa ficar exatamente assim, contanto que tenha 1 pack de cada coisa (terra,cacto,glostone,areia) na barra o resto n importa a ordem.

Atenção estou sem vip entao n tive como testar nos servers 1.7 se der algum problema avisa aki que eu arrumo

13/6 Obs: a parte da macro onde ela devia completar os packs q tem poko na barra n esta funcionando tentarei arrumar agr tah certo