on $*:TEXT:/^[!@.](BRB|Be( )?Right( )?Back)/Si:#: { 
  if (!%brb. [ $+ [ $nick ] ]) {
    set %brb. [ $+ [ $nick ] ] $nick
    msg $chan 12 $+ $nick 14will 3Be Right Back14. $iif($2, 5Reason:7 $2- $+ 14., halt)
    $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 Back from $iif(%brbreason. [ $+ [ $nick ] ],7 %brbreason. [ $+ [ $nick ] ] $+ , 7wherever) $+ .
  }
}