// Evento PLAYER
//

DETECTOBJ
IF OBJ <= 5    // Corazon +1 vida
  GET OBJ
  IF LIVES = 4
    EXIT
  ENDIF
  ADD 1 TO LIVES
  ADD 1 TO L
        beep 80   // Sonido
        beep 120
        delay 4
        beep 130
        beep 140
        beep 150
  LET LINE = 0
  LET COLUMN = L
  PUTBLOCK 6
ENDIF

IF SCREEN = 25
  ANIMATE
  LET LINE = 3 // 10
  LET COLUMN = 9
  COLOUR 71
  MESSAGE 20
  LET COLUMN = 3
  MESSAGE 21
  LET COLUMN = 3
  MESSAGE 22
  LET COLUMN = 1
  MESSAGE 23
  LET COLUMN = 3
  MESSAGE 24
  IF B = 1
    IF KEY 4    // Pulsando disparo salimos de pantalla final
      NEXTLEVEL
    ENDIF
  ENDIF
    EXIT
ENDIF

IF DEADLY
  KILL
ENDIF

IF J = 0
  IF KEY 4
    IF Q = 0
      LET Q = 1
      LET I = 0
      LET G = 15    // Duración espadazo!
      ANIMATE
      LET K = X
      LET O = Y
      IF F = 1
        LET IMAGE = 10
        IF Y <= 228
          ADD 16 TO O
          LET TYPE 1
          ANIMATE
          LET TYPE 0
        ELSE
          LET K = 200
        ENDIF
      ENDIF
      IF F = 0
        LET IMAGE = 12
        IF Y > 14
          SUBTRACT 16 TO O
          LET TYPE 1
          ANIMATE
          LET TYPE 0
        ELSE
          LET K = 200
        ENDIF
      ENDIF
    ENDIF
  ELSE
    LET Q = 0
  ENDIF
ENDIF
IF X > 185
  LET X = 16
ENDIF
IF I = 1
  IF F = 0
    LET IMAGE = 6
    IF B > 1
      ANIMATE
    ENDIF
  ELSE
    LET IMAGE = 5
    IF B > 1
      ANIMATE
    ENDIF
  ENDIF
ENDIF
IF G = 0
  IF KEY 3
    LET I = 0
    LET J = 1
    IF F = 0
      LET IMAGE = 4
      ANIMATE
      JUMP
    ENDIF
    IF F = 1
      LET IMAGE = 3
      ANIMATE
      JUMP
    ENDIF
  ENDIF
ENDIF
IF CANGODOWN
  LET I = 0
  LET J = 1
  IF F = 0
    LET IMAGE = 4 //4
    FALL
    ANIMATE
  ENDIF
  IF F = 1
    LET IMAGE = 3 //3
    FALL
    ANIMATE
  ENDIF
ELSE
  LET I = 1
  LET J = 0
ENDIF
IF G = 0
  IF KEY 0
    LET I = 0
    LET F = 1
    IF Y > 238
      LET Y = 4
    ELSE
      IF CANGORIGHT
        IF J = 0
          LET IMAGE = 0
          IF B > 1
            ANIMATE
          ENDIF
          SPRITERIGHT
        ELSE
          SPRITERIGHT
        ENDIF
      ENDIF
    ENDIF
  ELSE
    LET I = 1
  ENDIF
ENDIF
IF G = 0
  IF KEY 1
    LET I = 0
    LET F = 0
    IF Y <= 2
      LET Y = 238
    ELSE
      IF CANGOLEFT
        IF J = 0
          LET IMAGE = 1
          IF B > 1
            ANIMATE
          ENDIF
          SPRITELEFT
        ELSE
          SPRITELEFT
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
IF X <= 15
  LET X = 155
ENDIF
IF G > 0
  SUBTRACT 1 FROM G
  IF F = 0
    LET IMAGE = 12
  ELSE
    LET IMAGE = 10
  ENDIF
  ANIMATE
ENDIF
[EOF]