Miscellany

on $*:text:/^\b(brb|bbl)\b/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:back:#:{
  if ($($+(%,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,back)
  } 
}