on $*:text:/^(brb|bbl|g2g)$/Si:#:{ 
  if ($chan == #bot || $chan == #bots) { 
    halt 
  } 
  elseif (!$($+(%,brb.,$nick,.,$chan),2)) { 
    set $+(%,brb.,$nick,.,$chan) on 
    set $+(%,brb.,$nick,.,$chan,.reason) $iif($2,$2-,no reason given) 
    set $+(%,brb.,$nick,.,$chan,.time) $asctime(mmmm dd yyyy hh:nn:ss tt zzz) 
    set $+(%,brb.,$nick,.,$chan,.ctime) $ctime 
    msg $chan $+(4,$nick) 14is now away:7 $($+(%,brb.,$nick,.,$chan,.reason),2) 
  }      
} 
on *:text:*:#:{ 
  if ($chan == #bot || $chan == #bots) { 
    halt 
  } 
  elseif ($($+(%,brb.,$nick,.,$chan),2)) { 
    msg $chan $+(4,$nick) 14is back from:7 $($+(%,brb.,$nick,.,$chan,.reason),2) $+ . 2Left $($+(%,brb.,$nick,.,$chan,.time),2) ~ 10was gone for:4 $duration($calc($ctime - $($+(%,brb.,$nick,.,$chan,.ctime),2))) $+ 10. 
    unset $+(%,brb.,$nick,.,$chan,*) 
  } 
}