menu * { 
  .Away 
  ..Away:set %goaway. $$?="Reason for away" | goaway 
  ..Back:/goback 
  .-
  ...Set/Unset Preset Aways
  ....Set Away One:set %preset.away.1 $$?="Preset Away Number One's Reason." | echo -a $timestamp 4,14Preset away number one was set.
  ....Set Away Two:set %preset.away.2 $$?="Preset Away Number Two's Reason." | echo -a $timestamp 4,14Preset away number two was set.
  ....Set Away Three:set %preset.away.3 $$?="Preset Away Number Three's Reason." | echo -a $timestamp 4,14Preset away number three was set.
  ....Set Away Four:set %preset.away.4 $$?="Preset Away Number Four's Reason." | echo -a $timestamp 4,14Preset away number four was set.
  ....Set Away Five:set %preset.away.5 $$?="Preset Away Number Five's Reason." | echo -a $timestamp 4,14Preset away number five was set.
  ....-
  ....$iif($var(%preset.away.*), Unset All Presets):unset %preset.away.* | echo -a $timestamp 4,14All preset reasons have been reset.
  ....-
  ...$iif($var(%preset.away.*), Unset Specific Presets)
  ....%preset.away.1:unset %preset.away.1 | echo -a $timestamp 4,14Preset reason one was deleted.
  ....%preset.away.2:unset %preset.away.2 | echo -a $timestamp 4,14Preset reason two was deleted.
  ....%preset.away.3:unset %preset.away.3 | echo -a $timestamp 4,14Preset reason three was deleted.
  ....%preset.away.4:unset %preset.away.4 | echo -a $timestamp 4,14Preset reason four was deleted.
  ....%preset.away.5:unset %preset.away.5 | echo -a $timestamp 4,14Preset 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 %imaway away
  set %goaway.time $time(hh $+ : $+ nn $+ TT)  
  set %goaway.ctime1 $ctime
  gmsg 4,14I am now going away. Reason15,14:4,14 %goaway. $+ . 4,14(Gone away at %goaway.time $adate $+ )
  gme is now away.
}
alias goback {
  away
  set %goaway.ctime2 $ctime
  set %goaway.duration $calc( %goaway.ctime2 - %goaway.ctime1 )
  gmsg 4,14I am now back from15,14:4,14 %goaway. $+ . 4,14I was gone for $duration(%goaway.duration ,2)
  unset %goaway.* | unset %imaway
}
alias gme {
  var %i = 1
  while (%i <= $scon(0)) {
    scon %i /ame $1- 
    inc %i
  }
} 
alias gmsg {
  var %i = 1
  while (%i <= $scon(0)) {
    scon %i /amsg 4[15Global4] $1- 
    inc %i
  }
} 
on *:UNLOAD:{
  if (%preset.away.*) {
    unset %preset.away.*
    echo -a 3/10!3\ Script unloaded, all pre-set away reasons deleted. 3/10!3\ 
  }
}
on *:INPUT:*:{   
  if (%imaway) { goback 
  }
}