n $*:TEXT:/^(brb|bbl|bbs|afk)/i:#:{
  if (%gonemsg [ $+ [ $chan ] ] == On) {
    set $+(%,brbtime,$nick) $ctime
    set %person [ $+ [ $nick ] ] $nick
    set %brb [ $+ [ $nick ] ] $iif($2,$2-,No Reason)
    msg $chan 1••• (14AWAY1):14 %person [ $+ [ $nick ] ] 1is now14 $upper(away) 1- Reason:14 $upper($1) %brb [ $+ [ $nick ] ] 1- Left at:14 $time(hh:nn TT)
  }
}
on *:TEXT:*:#: {
  if (%gonemsg [ $+ [ $chan ] ] == On) {
    if ($nick == %person [ $+ [ $nick ] ]) {  msg $chan 1••• (14BACK1):14 %person [ $+ [ $nick ] ] 1is now14 $upper(Back) 1from:14 %brb [ $+ [ $nick ] ]  1- Gone for:14 $duration($calc($ctime - $(,$+(%,brbtime,$nick,))))
      unset %brb [ $+ [ $nick ] ]
      unset $+(%,brbtime,$nick) $ctime
      unset %person [ $+ [ $nick ] ]
    }
  }
}
on *:ACTION:*:#: {
  if (%gonemsg [ $+ [ $chan ] ] == On) {
    if ($nick == %person [ $+ [ $nick ] ]){  msg $chan 1••• (14BACK1):14 %person [ $+ [ $nick ] ] 1is now14 $upper(Back) 1from:14 %brb [ $+ [ $nick ] ]  1- Gone for:14 $duration($calc($ctime - $(,$+(%,brbtime,$nick,))))
    unset %brb [ $+ [ $nick ] ]
    unset $+(%,brbtime,$nick) $ctime
    unset %person [ $+ [ $nick ] ]
  }
}
on *:TEXT:/^[!@.]away on/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    notice $nick Away message will now appear on $chan
    set %gonemsg $+ $chan On
  }
}

on *:TEXT:/^[!@.]away off/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    notice $nick Away message will not appear on $chan
    set %gonemsg $+ $chan Off
  }
}