=============== PUT EVERYTHING BELOW IN REMOTES, TO ACTIVATE IT TYPE /AWAY <MESSAGE>, and type YES in the prompt screen. TO COME BACK TO NORMAL TYPE /AWAY. ==================


ON $*:TEXT:/(Matt|Kingtom)/Si:#:{
  if (%.Away. [ $+ [ $network ] ] != $null) {
    if (%.pager. [ $+ [ $network ] ] == Pager On) {
      inc %.message. $+ $network
      echo -t @Away. $+ $network Nick: $nick Chan: $chan Time: $time(hh:nn) Message: $qt($1-)
    }
    notice $nick I am away %.1-. [ $+ [ $network ] ] - I have been gone for $duration($calc($ctime - $($+(%,.ctime.,$network),2))) - %.pager. [ $+ [ $network ] ]
  }
}
Alias Away {
  if (%.away. [ $+ [ $network ] ] == $null) {
    window -e @Away. $+ $network
    clear @Away. $+ $network
    set %.away. $+ $network Hi
    set %.ctime. $+ $network $ctime
    set %.nick. $+ $network $me
    set %.message. $+ $network 0
    set %.pager. $+ $network $iif($$?="Pager On?" == Yes,Pager On,Pager Off)
    .raw nick Matt`AFK
    set %.1-. $+ $network $iif($1-,$1-,No Reason Given)
    amsg [Global] Going AFK - $iif($1-. [ $+ [ $network ] ],$1-,No Reason Given) - Left at $time(hh:nn) - $&
      %.pager. [ $+ [ $network ] ]
    .raw away $iif($1-,$1-,No Reason Given)
    halt
  }
  else {
    amsg [Global] Back from %.1-. - [ $+ [ $network ] ]  I was gone for $duration($calc($ctime - $($+(%,.ctime.,$network),2))) $+ $iif(%.pager. [ $+ [ $network ] ] == Pager On, $iif(%.message. [ $+ [ $network ] ] message != $null,%.message. [ $+ [ $network ] ] message,0) $+ $iif(%.message. [ $+ [ $network ] ] > 1,s) recived)
    .raw away
    window -a @Away. $+ $Network
    .raw nick %.nick. [ $+ [ $network ] ]
    unset %.*. $+ $network
  }
}