on *:TEXT:brb*:#:{
  if (%gone. [ $+ [ $nick ] ] == $null) {
    set %away. [ $+ [ $nick ] ] $ctime
    set %reason [ $+ [ $nick ] ] $2-
    msg $chan $nick is now away Reason: %reason [ $+ [ $nick ] ]
  }
}
on *:TEXT:*:#:{
  if (%away. [ $+ [ $nick ] ] != $null) {
    msg $chan Welcome back $nick gone for: $duration($calc($ctime - %away. [ $+ [ $nick ] ] $ctime)) Reason : %reason [ $+ [ $nick ] ]
    unset %away. [ $+ [ $nick ] ]
    unset %reason [ $+ [ $nick ] ]
  }
}