Unnamed

on $*:TEXT:/^(away|brb|afk|later|bbl|bbs)/Si:#: {
  if (!$2) {
    notice $nick 14Please use this syntax:7 away|brb|afk <reason>
  }
  else {
    set %away.reason [ $+ [ $nick ] ] $2-
    set %away.time [ $+ [ $nick ] ] $ctime
    set %away.away [ $+ [ $nick ] ] on
    msg $chan 7 $+ $nick 14is now 7away.14 Reason:7 %awayreason [ $+ [ $nick ] ] $+ . 14Left at:7 $time
  }
}

on *:TEXT:*:#: {
  if (%away.away [ $+ [ $nick ] ] == on) {
    msg $chan 7 $+ $nick 14is now back from:7 %awayreason [ $+ [ $nick ] ] $+ . 14Time away:7 $duration( $calc( $ctime - %awaytime [ $+ [ $nick ] ] ) ) $+ .
    unset %away.* [ $+ [ $nick ] ] 
  }
  else { halt }
}