on $*:TEXT:/^[!@.^]brb/Si:#:{ set %ctime $ctime
  set %brb $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 $+ . 2 $+ $nick $+ 7 has been away for $duration($calc($ctime - %ctime)) | { /unset %brb } }