$${
if(esvazia);
unset(esvazia);
log(&9[Macro] &fVender &cblaze &6[VIP] &fdo &5Casal Win &cdesligado);
stop;
else;
log(&9[Macro] &fVender &cblaze &6[VIP] &fdo &5Casal Win &aligado);
#bau=1;
set(esvazia);
prompt(&chesti,$$?,"Qual a home desejada?");
prompt(#chests,$$?,"Quantos baus?");
INC(#chests);

do;
do;
gui(chat);wait(500ms);type(/home %&chesti%%#bau%);press(return);
wait(3);
key(use);
wait(2);
for(#i,0,53);
getslotitem(%#i%,&id,#stack);
ifmatches(%&id%,blaze_rod);
slotclick(%#i%,l,true);
wait(100ms);
endif;
next;
gui();

gui(inventory);getslotitem(9,#idi,#stacki);gui();

if(%#stacki%=0);
INC(#bau);

if(%#bau%=%#chests%);
stop;
endif;

endif;
wait(1);
until(%#stacki%!=0);

}$$
/warp vip
$${
wait(10);

do;
look(SOUTH);
keydown(forward);
getidrel(+0,+0,+1,&block);
until(%ZPOS%=657);
keyup(forward);
do;
look(WEST);
keydown(forward);
getidrel(+1,+1,+1,&block);
until(%XPOS%=685);
keyup(forward);
do;
look(NORTH);
getidrel(+1,+0,+0,&block);
keydown(forward);
until(%ZPOS%=640);
keyup(forward);
wait(1000ms);
do;
look(WEST);
getidrel(+1,+0,+0,&block);
keydown(forward);
until(%XPOS%=678);
keyup(right);
do;
look(NORTH);
keydown(forward);
getidrel(+0,+0,+1,&block);
until(%YPOS%=10);
keyup(forward);
do;
look(SOUTH);
keydown(forward);
until(%ZPOS%=641);
keyup(forward);
look(WEST);

do;
look(WEST);
keydown(forward);
until(%ZPOS%=641);
keyup(forward);
key(attack);
wait(500ms);


}$$/money$${
next;
loop;

endif;
}$$