Anonymous

ON $*:TEXT:/(Hola|Stu)/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 %.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)
    set %.1-. $+ $network $iif($1-,$1-,No Reason Given)
    amsg 4[14AMSG4]14 Going AFK 4~14 $iif($1-. [ $+ [ $network ] ],$1-,No Reason Given) 4~14 Left at4 $time(hh:nn) 14~4 $&
      %.pager. [ $+ [ $network ] ]
    .raw away $iif($1-,$1-,No Reason Given)
    halt
  }
  else {
    amsg 4[14AMSG4]14 Back from 4~14 %.1-. [ $+ [ $network ] ]  4~14 I was gone for4 $duration($calc($ctime - $($+(%,.ctime.,$network),2))) $+ $iif(%.pager. [ $+ [ $network ] ] == Pager On,14~4 $iif(%.message. [ $+ [ $network ] ] message != $null,%.message. [ $+ [ $network ] ] message,0) $+ $iif(%.message. [ $+ [ $network ] ] > 1,s) 14recieved)
    .raw away
    window -a @Away. $+ $Network
    .raw nick %.nick. [ $+ [ $network ] ]
    unset %.*. $+ $network
  }
}