on $*:TEXT:/^[!@.]be?r(ight)?b(ack)?/Si:#:{
  writeini brb.ini $chan $wildsite $ctime $iif($2,$2-,No Reason)
  msg $chan $nick will be right back for $iif($2,$2-,No Reason)
}
on $*:TEXT:/^[!@.]back/Si:#:{
  if ($readini(brb.ini,-n,$chan,$wildsite)) {
    msg $chan $nick is now back from $gettok($ifmatch,2-,32) and was gone for $duration($calc( $ctime - $gettok($ifmatch,1,32) ))
    remini brb.ini $chan $wildsite
  }
}