Untitled

alias away {
  ame is away - $2- - for $1 minutes
  qme is away - $2- - for $1 minutes
  set %min $1
  set %reason $2-
  set %toaway $ctime
}
alias back {
  ame is back - from %reason - gone for $duration($calc($ctime - %toaway)) $+ .
  qme is back - from %reason - gone for $duration($calc($ctime - %toaway)) $+ .
  unset %min
  unset %reason
  unset %toaway
}
on *:TEXT:*:#: {
  if (%away) {
    if (($me isin $1-) || ($anick isin $1-)) {
      .notice $nick I am currently away - %reason - and I will be back in %min minutes.
    }
  }
}