// Evento VELAS
//

IF COLLISION 0
  IF E = 1
    IF R > 0
      LET IMAGE = 15
      ASM 62
      ASM 2
      ASM 50
      ASM 98
      ASM 128
      SPRITEINK 6
      ADD 8 TO X
      SPRITEINK 2
      SUBTRACT 8 TO X
      ASM 62
      ASM 3
      ASM 50
      ASM 98
      ASM 128
      SUBTRACT 1 TO R
      LET LINE = 0
      LET COLUMN = T
      PUTBLOCK 30
      SUBTRACT 1 TO T
      SUBTRACT 1 TO D
      SUBTRACT 1 TO P
      beep 70   // Sonido cuando las encendemos
      beep 100
      delay 4
      beep 160
      LET TYPE = 9  // No existe el tipo, pero así lo dejamos en standby y no desaparece
    ENDIF
  ENDIF
ENDIF
IF E = 0
  IF D = 0
    ASM 62
    ASM 2
    ASM 50
    ASM 98
    ASM 128
    SPRITEINK 1
    ADD 8 TO X
    SPRITEINK 5
    SUBTRACT 8 TO X
    ASM 62
    ASM 3
    ASM 50
    ASM 98
    ASM 128
  ENDIF
ENDIF

[EOF]