macro escavaçao

$${if(z);
log(&4[%PLAYER%]&aEscavando:&6OFF);
unset(z);
stop();
else;
log(&4[%PLAYER%]&aEscavando:&6ON);
set(z);
prompt(&b,$$i,Bloco que será escavado);
IFMATCHES(%DIRECTION%,N);
&near = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&near = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&near = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&near = EAST;
ENDIF;
do;
look(%&near%);
look(,55);
pick(%&b%);
wait(5ms);
key(use);
wait(5ms);
pick(256);
if(%DURABILITY%<40);
look(,90);
key(use);
endif;
do(7);
key(attack);
loop;
endif;
loop;
}$$