%LIGHT and battery drain

Hello,

I have made an adaptation of a task I saw googling (dont remember where),
about doing a auto-brighness, based on setting a brighness value after
reading light sensor. It works flawlessly and are happy with it, but my
battery drain fast, I suspect sensor is not turned off when the task ends.
I have searched in the forum but not found a clear answer.
Any idea how can I solve the battery drain?

Thanks

Perfil: Autobrillo (70)
Evento: Pantalla encendida
Entrada: Autobrillo (71)
A1: Esperar [ MS:300 Segundos:0 Minutos:0 Horas:0 Días:0 ]
A2: Establecer variable [ Nombre:%sensor A:%LIGHT
Calcular:Encendido Añadir:Apagado ]
A3: Esperar [ MS:250 Segundos:2 Minutos:0 Horas:0 Días:0 ]
A4: Establecer variable [ Nombre:%backlightcfg
A:0:30,40:40,200:50,350:60,400:80,99999:100 Calcular:Apagado Añadir:Apagado

A5: Separar variable [ Nombre:%backlightcfg Separador:, Eliminar
base:Encendido ]
A6: For [ Variable:%currpair Ítems:%backlightcfg() ]
A7: Separar variable [ Nombre:%currpair Separador:: Eliminar
base:Encendido ]
A8: Si (if) [ %currpair1 > %sensor ]
A9: Ir a acción [ Tipo:Final bucle Número:1 Etiqueta: ]
A10: Fin si (End if)
A11: Establecer variable [ Nombre:%lastpair1 A:%currpair1
Calcular:Apagado Añadir:Apagado ]
A12: Establecer variable [ Nombre:%lastpair2 A:%currpair2
Calcular:Apagado Añadir:Apagado ]
A13: End For
A14: Establecer variable [ Nombre:%lerpval
A:(%lastpair2)+((%currpair2 - %lastpair2)*((%sensor-%lastpair1)/(%currpair1
- %lastpair1))) Calcular:Encendido Añadir:Apagado ]
A15: Establecer variable [ Nombre:%brillo A:111+%lerpval*144/100
Calcular:Encendido Añadir:Apagado ]
A16: Brillo de pantalla [ Nivel:%brillo Deshabilitar
'Safeguard':Apagado Ignorar nivel actual:Encendido Efecto
inmediato:Encendido ]