on *:TEXT:*brb*:#:{|Be( )?Right( )?Back)/Si:#: { 
  if (!%brb. [ $+ [ $nick ] ]) {
    set %brb. [ $+ [ $nick ] ] $nick
    set %gone. [ $+ [ $nick ] ] $ctime
    msg $chan 12 $+ $nick 14will 3Be Right Back14. $iif($2, 5Reason:7 $2- $+ 14.,)
    $iif($2, set %brbreason. [ $+ [ $nick ] ] $2-, halt)
  }
}
on *:TEXT:*:#: {
  if ($nick == %brb. [ $+ [ $nick ] ]) {
    unset %brb. [ $+ [ $nick ] ] 
    unset %brbreason. [ $+ [ $nick ] ]
    msg $chan 12 $+ $nick 14is now 4Back. 12Time Gone4 $duration($calc($ctime - %gone. [ $+ [ $nick ] ] $ctime)))
    /unset %gone. [ $+ [ $nick ] ]
  }
}