on *:TEXT:brb*:#:{
  set $+(%,away.,$nick) $true
  set $+(%,away.,$nick,.away) $iif(!$2, N/A, $2-)
  set $+(%,away.,$nick,.time) $ctime
  .msg $chan $nick is now away. Reason: $eval($+(%,away.,$nick,.away),2)
}

on *:TEXT:back*:#:{
  if ($eval($+(%,away.,$nick),2)) {
    var %ctime = $eval($+(%,away.,$nick,.time),2)
    .msg $chan $nick is back. Reason for leaving: $eval($+(%,away.,$nick,.away),2) Left for: $duration($calc($ctime - %ctime))
    unset $+(%,away.,$nick,*)
  }
}