on $*:TEXT:/^(brb|bbl|away|gone|be right back)/Si:#:{
  if (%away == $null) {
    set %away. [ $+ [ $nick ] ] $2-
    set %awaytm. [ $+ [ $nick ] ] $ctime
    set %awaynick. [ $+ [ $nick ] ] $nick
    msg $chan 4 $nick 14is now away. $iif($2- == $null,,  14Reason:4 $2-)
  }
}
on *:text:*:#:{
  if (%away. [ $+ [ $nick ] ] != $null) {
    msg $chan 4 $nick 14back from:4 %away. [ $+ [ $nick ] ] $+ 14. Time away:4 $duration($calc($ctime - $eval($+(%,awaytm.,$nick),2))) $+ 14.
    unset %away. [ $+ [ $nick ] ]
    unset %awaynick. [ $+ [ $nick ] ]
    unset %awaytm. [ $+ [ $nick ] ]
  }
}