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

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