$${
if(x);
log("&d[&a%PLAYER%&d] &aMelancia &4OFF");
unset(x);
stop;
else;
log("&d[&a%PLAYER%&d] &aMelancia &2ON");
set(x);

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

do;
gui(inventory);
wait(250ms);
getslotitem(35,#id,#stack);
if(%#stack%=0);
else;
    wait(1);

}$$
/warp vip
$${
wait(500ms);
do;
look(east);
keydown(forward);
until(%XPOS%==718);
keyup(forward)
do;
look(south);
keydown(forward);
until(%ZPOS%==667);
do;
keydown(jump);
until(%ZPOS%==670);
keyup(jump);
do;
until(%ZPOS%==673);
keyup(forward);
do;
look(east);
keydown(forward);
until(%XPOS%==719);
keyup(forward);
look(south);
look(,7);

do(2);
key(attack);
wait(500ms);
key(attack);
loop;
}$$/home melancia$${
wait(2);
gui(inventory);

endif;
loop;
loop;
endif;
}$$