// Evento BRUJA
//

IF PARAMA = 0
  IF CANGOLEFT
    SPRITELEFT
    LET IMAGE = 22
    IF Y <= 2   // Rebote lateral izquierdo
      LET PARAMA = 1
    ENDIF
  ELSE
    LET PARAMA = 1
  ENDIF
ELSE
  IF CANGORIGHT
    SPRITERIGHT
    LET IMAGE = 24
    IF Y > 238    // Rebote lateral derecho
      LET PARAMA = 0
    ENDIF
  ELSE
    LET PARAMA = 0
  ENDIF
ENDIF

IF DIRECTION = 0
  IF CANGOUP
    SPRITEUP
    IF X <= 15  // Rebote parte superior pantalla
      LET DIRECTION = 1
    ENDIF
  ELSE
    LET DIRECTION = 1
  ENDIF
ELSE
  IF CANGODOWN
    SPRITEDOWN
    IF X > 176  // Rebote parte inferior de pantalla
      LET DIRECTION = 0
    ENDIF
  ELSE
    LET DIRECTION = 0
  ENDIF
ENDIF

ANIMATE

IF COLLISION 0
KILL
ENDIF

[EOF]