Unnamed

alias a.char { return $chr($asc(|)) }
alias a.notify { echo -a * $+(,away script notify:,) $1- }

alias away {
  if (%a.status) { a.notify you are already set as away | halt }
  elseif (!%a.status) {
    if ($left($$1,1) == $a.char) {
      set %a.status 1 | set %a.reason $$2- | set %a.time $ctime | !.away %a.reason $+($chr(40),left $fulldate,$chr(41))
      describe # is away $+($chr(39),,%a.reason,,$chr(39)) $+($chr(40),left $fulldate,$chr(41))
      nick $+($me,$$1)
    }
    elseif ($left($$1,1) != $a.char) {
      set %a.status 1 | set %a.reason $$1- | set %a.time $ctime | !.away %a.reason $+($chr(40),left $fulldate,$chr(41))
      describe # is away $+($chr(39),,%a.reason,,$chr(39)) $+($chr(40),left $fulldate,$chr(41))
    }
  }
}

alias back {
  if (!%a.status) { a.notify you are not currently away | halt }
  elseif (%a.status) {
    describe # is back $+($chr(39),,%a.reason,,$chr(39)) $+($chr(40),gone $duration($calc($ctime - %a.time)),$chr(41))
    nick $gettok($me,1,$asc($a.char))
    unset %a.status | unset %a.reason | unset %a.time | !.away

  }
}