alias away {
  if (%away == $null) {
    if (-n iswm $1-) {
      set %away dont
      set %awaynick $me
      set %timeaway $ctime
      .nick $me $+ |AWAY
      unset %noted.*
      .timer 1 4 ns id %pwd
      away 10[4 $+ $1- $+ 10]
    }
    else {
      set %away $1-
      set %awaynick $me
      set %timeaway $ctime
      unset %noted.*
      .timer 1 3 nick $me $+ |AWAY
      amsg 10[4away10]4: 10[4 $+ $1- $+ 10] $chr(124) $+ $chr(124) Left: 10[4 $+ $c2($time(hh:nn:ss:TT)) $+ 10]
      .timer 1 4 ns id %pwd
      away 10[4 $+ $1- $+ 10]
    }
    else echo -t 10I'm already away.
  }
}

alias back {
  if (%away != $null) {
    if (%away == dont) || ($2 == -n) {
      .nick %awaynick
      .timer 1 5 unset %away
      .timer 1 5 unset %awaynick
      .timer 1 5 unset %timeaway
      .timer 1 1 ns identify %pwd
      unset %noted.*
      away
    }
    else {
      .nick %awaynick
      .timer 1 5 unset %away
      .timer 1 5 unset %awaynick
      .timer 1 5 unset %timeaway
      unset %noted.*
      .timer 1 3 amsg 10[4back10]4: 10[4 $+ %away $+ 10] $chr(124) $+ $chr(124) Gone: [4 $+ $c2($duration($calc($ctime - %timeaway))) $+ 10]
      .timer 1 1 ns identify %pwd
      away
    }
    else echo -t 10I'm not away.
  }
}