;=========================
;      Away v1.0
;        By Ss
;=========================

Saway_on { set %away.time $ctime | set %away.mensaje $$?="Mensaje de away" | amsg Toy away, razon: %away.mensaje | timeraway 0 1800 away.timerīs }
;/* entramos en away y seteamos las variables pertinentes */

away.timerīs { amsg Toy away, razon %away.mensaje ( $+ $duration($calc($ctime - %away.time)) $+ ) }
;/* Al hacer un "timer alias" nos aseguramos la correcta evaluacion de los identificadores */

Saway_off { amsg He vuleto.... | timeraway off | unset %away.* }
;/* Salimos de away y apagamos los timerīs y unsetamos las varibles */



		_-_-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-
		_-            \\  ||  //                 _-
		_-             [- Ss -]                  _-
		_-            //  ||  \\                 _-
		_-     http://Sscript.infdj.com          _-
		-_-_-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_