on *:TEXT:brb*:#:{
  if (!$2) {
    notice $nick You must specify a reason for being away
  }
  else {   
    set %away.reason. [ $+ [ $nick ] ] $2-
    set %away.time. [ $+ [ $nick ] ] $ctime
    amsg $nick is now away. Reason: $2-
  }
}
on *:TEXT:*:#: { 
  if (!%away.reason. [ $+ [ $nick ] ]) { halt }
  else {
    amsg $nick is now back from %away.reason. [ $+ [ $nick ] ] $+ . Time gone: $duration($calc($ctime - %away.time. [ $+ [ $nick ] ] ))
    unset %away.*. [ $+ [ $nick ] ]
  }
}