alias away {
  if (%away == $null) {
    if (-n iswm $1-) {
      set %away $1-
      set %awaynick $me
      set %timeaway $ctime
      nick $me $+ |AWAY
    }
    else {
      set %away $1-
      set %awaynick $me
      set %timeaway $ctime
      nick $me $+ |AWAY
      .timer 1 3 amsg 10[away]: at:4 $1- $+ 10, Left at:4 $time $+ 10.
    }
    else echo -t 10I'm already away.
  }
}

alias back {
  if (%away != $null) {
    if (-n iswm $1-) {
      nick %awaynick
      .timer 1 5 unset %away
      .timer 1 5 unset %awaynick
      .timer 1 5 unset %timeaway
    }
    else {
      nick %awaynick
      .timer 1 5 unset %away
      .timer 1 5 unset %awaynick
      .timer 1 5 unset %timeaway
      .timer 1 3 amsg 10[back]: from:4 %away $+ 10, Time away:4 $duration($calc($ctime - %timeaway)) $+ 10.
    }
    else echo -t 10I'm not away.
  }
}