on *:TEXT:brb*:#: {
  set %timeraway. [ $+ [ $nick ] ] $duration($time)
  msg $chan 7,1 $+ $nick will be right back, reason: $$2-
  set %awayreason. [ $+ [ $nick ] ] $$2-
}

on *:TEXT:Back:#: {
  var %awaymin. [ $+ [ $nick ] ] $duration($duration($time) - %timeraway. [ $+ [ $nick ] ])
  msg $chan 7,1 $+ $nick has returned from: %awayreason. [ $+ [ $nick ] ] 
  msg $chan 7,1You have been away for  %awaymin. [ $+ [ $nick ] ]
  unset %away. [ $+ [ $nick ] ]
}