// Evento ZOMBIE
//

IF COLLISION 0
  KILL
  EXIT
ENDIF
IF COLLISION 1
beep 20
beep 40
delay 4
beep 50
beep 60
  SPRITEINK 6
  LET IMAGE = 9
  LET TYPE = 8
ENDIF
SPRITEINK 6
IF A = 6  // <= S Para cambio de velocidad
  IF PARAMA = 0
    IF CANGOLEFT
      SPRITELEFT
      LET IMAGE = 8
      SUBTRACT 16 FROM Y
      IF CANGODOWN
        LET PARAMA = 1
      ENDIF
      ADD 16 TO Y
    ELSE
      LET PARAMA = 1
    ENDIF
  ELSE
    IF CANGORIGHT
      SPRITERIGHT
      LET IMAGE = 7
      ADD 16 TO Y
      IF CANGODOWN
        LET PARAMA = 0
      ENDIF
      SUBTRACT 16 FROM Y
    ELSE
      LET PARAMA = 0
    ENDIF
  ENDIF
  ANIMATE
ENDIF
SPRITEINK 4

[EOF]