on $*:TEXT:/^[!@.^]brb/Si:#:{ set %ctime [ $+ [ $nick ] ] $ctime
  set %brb [ $+ [ $nick ] ] $2-
  set %brbnick [ $+ [ $nick ] ] $nick
msg $chan 2 $+ $nick 7 is now away. Reason: 2 $+ $2-  }
on *:text:*:#:{ if ($nick == %brbnick [ $+ [ $nick ] ]) msg $chan 2 $+ $nick 7 is back from 2 $+ %brb [ $+ [ $nick ] ] $+ . 2 $+ $nick $+ 7 has been away for $duration($calc($ctime - %ctime [ $+ [ $nick ] ])) | { unset %brb [ $+ [ $nick ] ] %brbnick [ $+ [ $nick ] ] } }