Unnamed

alias away {
  if ($1 != $null) {
    set %away.time $ctime
    set %away.reason $1-
    set %away.ETAT $$?="Estimated Away Time in Minutes. [Enter 0 if unsure]"
    set %away.ETA $calc(%away.ETAT * 60)
    away $1-
    var %chan.n = 1
    while ($chan(%chan.n) != $null) {
      if (%away.ETA == 0) || if (%away.ETA == $null) { describe $chan(%chan.n) is away, %away.reason $+ . }
      else { describe $chan(%chan.n) is away, %away.reason $+ . I will most likely be back in $duration(%away.ETA) $+ . }
      inc %chan.n
    }
    .timerat 0 1 /dec %away.ETA
  }
  else { .raw away | .timerat off }
}