on $*:TEXT:/^(brb|bbs|bbl)/Si:#:{
  if ($chan == #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 4 $nick 2is now4 away 2Reason4 $readini(away.ini,n,reason,$nick) 2Left at4 $time(hh:nnTT)
}
on *:TEXT:*:#:{
  if ($chan == #bot) { HALT }
  if ($readini(away.ini,n,nicks,$nick)) {
    .msg $chan 4 $nick 2is now back from4 $readini(away.ini,n,reason,$nick)) 2Gone for4 $duration($calc($ctime - $readini(away.ini,n,time,$nick)))
    remini away.ini nicks $nick
    remini away.ini reason $nick
    remini away.ini time $nick
  }
}