$${
IF(espada);
LOG( &1&l[&f%PLAYER%&1&l] &Upar Swords &4&lOFF);
UNSET(espada);
STOP();
ELSE;
LOG( &1&l[&f%PLAYER%&1&l] &fUpar Swords &a&lON);
SET(espada);
IFMATCHES(%DIRECTION%,N);
&frente = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&frente = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&frente = EAST;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&frente = WEST;
ENDIF;
}$$
$${
DO;

PICK(279);
IF(%DURABILITY%<15);
LOOK(,90);
WAIT(100ms);
KEY(use);
WAIT(100ms);
ENDIF;
LOOK(%&frente%);
LOOK(,0);
KEY(attack);
WAIT(110ms);
LOOP;
}$$