Something

on $*:TEXT:/^(brb|bbs|bbl)/Si:#:{
  if ($chan == #bots) || ($chan == #nice-bot) { halt }
  writeini -n away.ini nicks $nick away
  $iif($2 != $null,writeini -n away.ini reason $nick $2-,writeini -n away.ini reason $nick N/A)
  writeini -n away.ini time $nick $ctime
  .msg $chan $c1($nick) $c2(is now) $c1($readini(away.ini,n,nicks,$nick)) $c2(Reason:) $c1($readini(away.ini,n,reason,$nick)) $c2(Left at) $c1($time(hh:nnTT))
}
on *:TEXT:*:#:{
  if ($readini(away.ini,n,nicks,$nick)) {
    .msg $chan $c1($nick) $c2(is now) $c1(back) $c2(from) $c1($readini(away.ini,n,reason,$nick)) $c2(Gone for) $c1($duration($calc($ctime - $readini(away.ini,n,time,$nick))))
    remini away.ini nicks $nick
    remini away.ini reason $nick
    remini away.ini time $nick
  }
}
alias c1 { return $+($chr(3),07,$1-,$chr(3)) }
alias c2 { return $+($chr(3),14,$1-,$chr(3)) }