$${
if(forum);
unset(forum);
log("&dPescador &6&4Off");
stop();
else;
log("&dPescador &6&aOn");
set(forum);
IFMATCHES(%DIRECTION%,N);&frente = NORTH;ENDIF;
IFMATCHES(%DIRECTION%,S);&frente = SOUTH;ENDIF;
IFMATCHES(%DIRECTION%,W);&frente = WEST;ENDIF;
IFMATCHES(%DIRECTION%,E);&frente = EAST;ENDIF;
do;
look(%&frente%);
look(,-90);
do;
key(use);
wait(1ms);
until(%DURABILITY% < 7);
look(%&frente%);
look(,+90);
do(3);
key(use);
loop;
loop;
endif;
}$$