// Evento MURCIELAGO
//

//IF COLLISION 1
//  IF PARAMA = 0
//    LET PARAMA = 1
//  ELSE
//    LET PARAMA = 0
//  IF CUSTOM   // Para que no se quede bloqueado
//    EXIT
//  ENDIF
//  ENDIF
//ENDIF



//IF COLLISION 1    // Baja al contacto con espada
//  LET PARAMA = 2
//ENDIF

IF COLLISION 0
  KILL
ENDIF

IF CUSTOM
  IF PARAMA = 0
    LET PARAMA = 1
  ELSE
    LET PARAMA = 0
  ENDIF
ENDIF

IF PARAMA = 0
  IF CANGOUP
    SPRITEUP
    ADD 8 TO X
    SPRITEINK 6
    SUBTRACT 8 TO X
    SPRITEINK 3   // Color violeta
  ELSE
    LET PARAMA = 1
  ENDIF
ELSE
  IF CANGODOWN
    SPRITEDOWN
    SUBTRACT 8 TO X
    SPRITEINK 6
    ADD 8 TO X
    SPRITEINK 3   // Color violeta
  ELSE
    LET PARAMA = 0
  ENDIF
ENDIF

//if b = 1  // Retardo en animacion
ANIMATE
//endif

//IF COLLISION 1
//  IF PARAMA = 1
//    LET PARAMA = 0
//  ENDIF
//ENDIF

[EOF]