menu * {
.Away
..$iif(!$var(%goaway.), Away):set %goaway. $$?="Reason for away" | goaway
..$iif($var(%goaway.), Back):/goback
.-
...Set/Unset Preset Aways
....$iif(!$var(%preset.away.1), Set Away One):set %preset.away.1 $$?="Preset Away Number One's Reason." | echo -a $timestamp 3,15Preset away number one was set.
....$iif(!$var(%preset.away.2), Set Away Two):set %preset.away.2 $$?="Preset Away Number Two's Reason." | echo -a $timestamp 3,15Preset away number two was set.
....$iif(!$var(%preset.away.3), Set Away Three):set %preset.away.3 $$?="Preset Away Number Three's Reason." | echo -a $timestamp 3,15Preset away number three was set.
....$iif(!$var(%preset.away.4), Set Away Four):set %preset.away.4 $$?="Preset Away Number Four's Reason." | echo -a $timestamp 3,15Preset away number four was set.
....$iif(!$var(%preset.away.5), Set Away Five):set %preset.away.5 $$?="Preset Away Number Five's Reason." | echo -a $timestamp 3,15Preset away number five was set.
....-
....$iif($var(%preset.away.*), Unset All Presets):unset %preset.away.* | echo -a $timestamp 3,15All preset reasons have been reset.
....-
...$iif($var(%preset.away.*), Unset Specific Presets)
....%preset.away.1:unset %preset.away.1 | echo -a $timestamp 3,15Preset reason one was deleted.
....%preset.away.2:unset %preset.away.2 | echo -a $timestamp 3,15Preset reason two was deleted.
....%preset.away.3:unset %preset.away.3 | echo -a $timestamp 3,15Preset reason three was deleted.
....%preset.away.4:unset %preset.away.4 | echo -a $timestamp 3,15Preset reason four was deleted.
....%preset.away.5:unset %preset.away.5 | echo -a $timestamp 3,15Preset reason five was deleted.
.-
...$iif($var(%preset.away.*), Preset Aways)
....%preset.away.1:set %goaway. %preset.away.1 | goaway
....%preset.away.2:set %goaway. %preset.away.2 | goaway
....%preset.away.3:set %goaway. %preset.away.3 | goaway
....%preset.away.4:set %goaway. %preset.away.4 | goaway
....%preset.away.5:set %goaway. %preset.away.5 | goaway
}
alias goaway {
away %goaway.
set %goaway.time $time(hh:nnTT)
set %goaway.ctime1 $ctime
gmsg 3,15I am now away. Reason14,15:3,15 %goaway. $+ . (Gone away at %goaway.time $adate $+ )
}
alias goback {
away
set %goaway.ctime2 $ctime
set %goaway.duration $calc( %goaway.ctime2 - %goaway.ctime1 )
gmsg 3,15I am now back from14,15:3,15 %goaway. $+ . I was gone for $duration(%goaway.duration ,2)
unset %goaway.* | unset %imaway
}
alias gmsg {
var %i = 1
while (%i <= $scon(0)) {
scon %i /amsg 4[15Global4] $1-
inc %i
}
}