$${
IF(bancot);
     LOG("&bOFF ");
     UNSET(bancot);
       STOP();
     ELSE;
     LOG("&4ON");
   SET(bancot);

 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(,-1);
  DO;
     KEY(attack);
      WAIT(150ms);
       UNTIL(%DURABILITY% < 30);
        LOOK(%&frente%);
        ECHO(/reparar);
         DO(3);
          KEY(use);
   LOOP;
       LOOP;
ENDIF;
}$$