Unnamed

on *:QUIT: {
  if (!$away($nick)) {
    setbrb $nick Auto BRB: $1-
  }
}
on *:text:!away *:#: {
  if ($readini(brb.ini,-n,$2,away) !== 1) { notice $Nick $2 is not currently away | halt }
  else { notice $nick $c1($2 $+ 's) $c2(reason for being away) $c1($readini(brb.ini,-n,$2,reason) $+ $chr(44) $2) $c2(has been away for) $c1($duration($calc($ctime - $readini(brb.ini,-n,$2,time)))) }
}
on *:text:!aways:#: {
  notice $nick 12People currently away: $iif($aways == $null,No one,$v1)
}
on *:text:!brb*:#: {
  if ($readini(brb.ini,-n,$nick,away) == 1) { notice $Nick You are already away! | halt }
  setbrb $nick $iif($2-,$2-)
  msg $chan $c1($nick) $c2(is now away reason:) $c1($readini(brb.ini,-n,$nick,reason))
}
on *:text:*:#: {
  if ($readini(brb.ini,-n,$nick,away) !== 1) { halt }
  else {
    msg $chan $c1($nick) $c2(is now back from) $($c1($readini(brb.ini,-n,$nick,reason)),3) $c2(They were away for) $c1($duration($calc($ctime - $readini(brb.ini,-n,$nick,time))))
    set %aways $remove(%aways,$nick)    
    remini brb.ini $nick
    remini brb.ini trgruth $nick
  }
}
alias setbrb {
  writeini brb.ini $1 away 1
  writeini brb.ini $1 reason $iif($2-,$2-,No reason specified)
  writeini brb.ini $1 time $ctime
  writeini brb.ini trgruth $1 $1
}
alias -l c1 { return $+($chr(3),04,$1-) }
alias -l c2 { return $+($chr(3),02,$1-) }