Glacier_Rat

on $*:TEXT:/^(Brb|bb[ls]|afk)/Si:#: {
  if ($istok(#irc #xbnc,$chan,32)) { halt }
  if ($nick != Glacier_Rat) || ($istok($mutedChannels,$chan,32)) || (%awayreason) { halt }
  set %awaytime $ctime
  set %awayreason $iif($2,$2-,Away)
  msg $chan 10[12»10 $+ $nick $+ 12«10] 14is now 10[12»10Away12«10] 14reason:10 %awayreason  14left at: 10[12»10 $+ $time $+ 12«10]
}


on *:TEXT:back:#: {
  if ($istok(#irc #irc #xbnc,$chan,32)) { halt }
  if ($nick != Glacier_Rat) || ($istok($mutedChannels,$chan,32)) || (!%awayreason) { halt }
  msg $chan 10[12»10 $+ $nick $+ 12«10] 14is now 10[12»10Back12«10] 14from:10 %awayreason [12»10GONE FOR12«10] $duration($calc($ctime - %awaytime))
  unset %away*
}
alias mutedChannels { return #bnc #babylon #irc #msl #xbnc #irchelp #msl.c }
on $*:TEXT:/(glacier|glace|bryant)/Si:#:{
  if ($istok($mutedChannels,$chan,32)) { halt }
  if (%awayreason) && (!%awayhl. [ $+ [ $nick ] ]) {
    notice $nick 14is 10[12»10Away12«10]14:10 %awayreason 14Gone for: 10[12»10 $+ $duration($calc($ctime - %awaytime)) 14ago12«10]
    inc %awayhl. $+ $nick
  }
}