Unnamed

on *:text:brb*:#:{
  if ($chan == #Bots) { halt }
  if (%away == $null) {
    else { 
      set %bbltm. [ $+ [ $nick ] ] $ctime
      set %bblnick. [ $+ [ $nick ] ] $nick
      msg $chan 4 $nick 14Is now away
    }
  }
}
on *:text:back:#:{
  if (%brb. [ $+ [ $nick ] ] != $null) {
    msg $chan 4 $nick 14Is now back.4 $nick 10was away for:4 $duration($calc($ctime - $eval($+(%,bbltm.,$nick),2))) $+ 10.
    unset %bblnick. [ $+ [ $nick ] ]
    unset %bbltm. [ $+ [ $nick ] ]
  }
}