// Evento Main Loop 1
//

IF A = 1
  IF SCREEN = 25  // Parar tiempo en la pantalla final
    LET H = 140
  ELSE
    SUBTRACT 1 TO H
  ENDIF
ENDIF

// Muerte si nos quedamos sin tiempo
IF H <= 0
  KILL
ENDIF


//ASM 205
//ASM 236
//ASM 143
// Retardo para lanzar el hueso
IF S <= 160   // A
  ADD 1 TO S
 ELSE
  LET S = 0
ENDIF
//ASM 205
//ASM 236
//ASM 143

IF R > 0
  LET D = 1
ENDIF

// Mostrar el valor de S en pantalla
//LET LINE = 3
//LET COLUMN = 3
//DISPLAY S

//  Retardos de tiempo para sprites
IF A = 10
  LET A = 0
ELSE
  ADD 1 TO A
ENDIF
IF B = 3
  LET B = 0
ELSE
  ADD 1 TO B
ENDIF
// -------------------

//IF H <= 50    // Con tiempo a 50 zombies "corren"
//  LET S = 15
//ENDIF


// Tiempo --------------------------------------
//ASM 205
//ASM 236
//ASM 143
COLOUR 5
IF H > 99
  LET LINE = 0
  LET COLUMN = 19
  DISPLAY H
ENDIF
IF H <= 99
  IF H <= 50
    COLOUR 2
  ENDIF 
  LET LINE = 0
  LET COLUMN = 19
  MESSAGE 14
  LET LINE = 0
  LET COLUMN = 20
  DISPLAY H
ENDIF
IF H <= 9
  LET LINE = 0
  LET COLUMN = 20
  MESSAGE 14
  LET LINE = 0
  LET COLUMN = 21
  DISPLAY H
ENDIF

//ASM 205
//ASM 236
//ASM 143
//Tiempo ----------------------------------------


// Analiza si encendemos todas las velas por nivel ------
IF P = 0
  ADD 1 TO N
  LET E = 0
  LET D = 0
  LET LINE = 10
  LET COLUMN = 8
  COLOUR 71
  MESSAGE 13
  LET LINE = 9
  LET COLUMN = 7
  MESSAGE 15
  LET LINE = 11
  LET COLUMN = 7
  MESSAGE 15
  DELAY 80
  FADE
  NEXTLEVEL
  IF N = 1
  	LET P = 1
  ENDIF
  IF N = 2
    LET P = 2
  ENDIF
  IF N = 3
    LET P = 3
  ENDIF
  IF N = 4
    LET P = 2
  ENDIF
  IF N = 5
    LET P = 2
  ENDIF
  IF N = 6
    LET P = 2
  ENDIF
  IF N = 7
    LET P = 2
  ENDIF
  IF N = 8
    LET P = 4
  ENDIF
  IF N = 9
    LET P = 2
  ENDIF
  IF N = 10
    LET P = 2
  ENDIF
  IF N = 11
    LET P = 2
  ENDIF
  IF N = 12
    LET P = 2
  ENDIF
  IF N = 13
    LET P = 1
  ENDIF
  IF N = 14
    LET P = 3
  ENDIF
  IF N = 15
    LET P = 2
  ENDIF
  IF N = 16
    LET P = 2
  ENDIF
  IF N = 17
    LET P = 2
  ENDIF
  IF N = 18
    LET P = 4
  ENDIF
  IF N = 19
    LET P = 2
  ENDIF
  IF N = 20
    LET P = 2
  ENDIF
  IF N = 21
    LET P = 2
  ENDIF
  IF N = 22
    LET P = 2
  ENDIF
  IF N = 23
    LET P = 3
  ENDIF
  IF N = 24
    LET P = 1
  ENDIF
ENDIF
[EOF]