on $*:TEXT:/^(Brb|Bbl|Afk|Bbs)/Si:#:{  
  set %brb. $+ $address $+ . $+ $chan True
  set %awaytime. $+ $address $+ . $+ $chan $ctime
  set %awayreason. $+ $address $+ . $+ $chan $1-
}

on 1:TEXT:*:*:{
  if (%brb. [ $+ [ $address ] $+ ] . [ $+ [ $chan ] ] == True) { 
    msg $chan 4 $+ $nick 2Is back from:1 %awayreason. [ $+ [ $address ] $+ ] . [ $+ [ $chan ] ] 2(Time Away: $duration($calc($ctime - %awaytime. [ $+ [ $address ] $+ ] . [ $+ [ $chan ] ] )) $+ ) 
    unset %brb. $+ $address $+ . $+ $chan
    unset %awaytime. $+ $address $+ . $+ $chan
    unset %awayreason. $+ $address $+ . $+ $chan
  }
}