Someone

on $*:TEXT:/^[!.@]?(away|brb) */si:#: {
  set %awaytime [ $+ [ $nick ] ] $fulldate
  /msg $chan $nick is now away: Reason: $2-
  /set %reason [ $+ [ $nick ] ] $2-
if (!$2) set %reason [ $+ [ $nick ] ] -No reason Specified-
}
on $*:TEXT:/^[!@.]$(back|ok) *:#: {
  if ( %reason [ $+ [ $nick ] ] ) {
    /msg $chan $nick is now back
    /msg $chan Reason: %reason [ $+ [ $nick ] ]
    /msg $chan Time gone: $duration ( $calc (( $ctime - $ctime ( %awaytime ))))
    /unset %reason [ $+ [ $nick ] ]
    /unset %awaytime [ $+ [ $nick ] ]
  }
}