on $*:TEXT:/^(!brb|!afk)/i:#:{
  set $+(%,brbtime,$nick) $ctime
  set %person [ $+ [ $nick ] ] $nick
  if ($2 == $null) {
    set %brb [ $+ [ $nick ] ] AFK
  }
  else {
    set %brb [ $+ [ $nick ] ] $2-
  }

  msg $chan $nick is now Away reason: %brb [ $+ [ $nick ] ] $+ left at: $time 1-5GMT
}
on *:TEXT:*!back:#: {
  if ($nick == %person [ $+ [ $nick ] ]) { msg $chan %person [ $+ [ $nick ] ] is now Back from: %brb [ $+ [ $nick ] ] and was GONE FOR $duration($calc($ctime - $(,$+(%,brbtime,$nick,))))
    unset %brb [ $+ [ $nick ] ]
    unset $+(%,brbtime,$nick) $ctime
    unset %person [ $+ [ $nick ] ]
  }
}