Mine

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