alias away {
  if ($1 == $null) { amsg I am now away. Time Left: $time }
  if ($1 != $null) { amsg I am now away. Reason: $1- $+ . Time Left: $time }
  set %awaymsg $1-
  set %awaytime $time
  set %awaynick $nick
  nick $nick $+ `Away
}

alias back {
  amsg I am now back from: %awaymsg $+ . Time spent away: $duration($calc($time - %awaytime))
  nick %awaynick
  unset %awaymsg
  unset %awaytime
  usnet %awaynick
}