on *:TEXT:*brb*:#:{
  if (%gone. [ $+ [ $nick ] ] == $null) {
    if ($2 == $null) {
      /set %gone. [ $+ [ $nick ] ] $ctime
      /set %reason [ $+ [ $nick ] ] N/A
      /msg $chan 11 << 12 $nick 11>>10 is now away. Reason:12 %reason [ $+ [ $nick ] ] 
    }
    else {
      /set %gone. [ $+ [ $nick ] ] $ctime
      /set %reason [ $+ [ $nick ] ] $2-
      /msg $chan 11 << 12 $nick 11>>10 is now away. Reason:12 %reason [ $+ [ $nick ] ]
    }
  }
}

on *:TEXT:*back*:#:{
  if (%gone. [ $+ [ $nick ] ] != $null) {
    /msg $chan 11 << 12 $nick 11>> 10has returned from:12 %reason [ $+ [ $nick ] ] 10. Time Gone12 $duration($calc($ctime - %gone. [ $+ [ $nick ] ] $ctime)))
    /unset %gone. [ $+ [ $nick ] ]
  }
} 
}