// Evento ESQUELETO
//

IF COLLISION 0
  KILL
  EXIT
ENDIF

SPRITEINK 7

//  Imagen del esqueleto segun posicion en pantalla
IF Y > 120
  IF COLLISION 1
    beep 20
    beep 40
    delay 4
    beep 50
    beep 60
    SPRITEINK 6
    LET IMAGE = 9
    LET TYPE = 8
  ELSE
    LET IMAGE = 19
    IF A = 6  // Retardo
      ANIMATE
    ENDIF
  ENDIF
ELSE
  IF COLLISION 1
    beep 20
    beep 40
    delay 4
    beep 50
    beep 60
    SPRITEINK 6
    LET IMAGE = 9
    LET TYPE = 8
  ELSE
    LET IMAGE = 16
      IF A = 6  // Retardo
        ANIMATE
      ENDIF
  ENDIF
ENDIF

//ASM 205
//ASM 236
//ASM 143
//  Creacion del sprite HUESO segun direccion
IF S = 150
        ANIMATE
        SPAWN 5 18
        beep 20
        beep 30
        beep 40
        delay 2
        IF Y > 120
          ANIMATE
          SPAWNED
          LET DIRECTION 1
        ELSE
            ANIMATE
            SPAWNED
            LET DIRECTION 0
        ENDIF
        ORIGINAL
ENDIF
//  Imagen disparando izq o der
IF S > 150
        ANIMATE
        IF Y > 120
          LET IMAGE = 20
          ANIMATE
        ELSE
            LET IMAGE = 17
            ANIMATE
        ENDIF
ENDIF
//ASM 205
//ASM 236
//ASM 143

[EOF]