on $*:TEXT:/\bbrb\b/Si:#:{
  if (%gone. [ $+ [ $nick ] ] == $null) {
    set %gone. [ $+ [ $nick ] ] $ctime
    set %reason [ $+ [ $nick ] ] $iif($2- == $null,N/A,$1-)
    msg $chan 11 << 12 $nick 11>>10 is now away. Reason:12 %reason [ $+ [ $nick ] ] 
  }
}
on $*:TEXT:/\bback\b/Si:#:{
  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 ] ]
  }
}