Someone

alias away {
  ame 13is away, reason:9 $2- .:. 7will be gone for $$1 minutes
  qme 13is away, reason:9 $2- .:. 7will be gone for $$1 minutes
  set %min $1
  set %reason $2-
  set %toaway $ctime
}
alias back {
  ame 13is back from 4.:.7 %reason .:. 9was gone for $duration($calc($ctime - %toaway)) $+ .
  qme 13is back from 4.:.7 %reason .:. 9was gone for $duration($calc($ctime - %toaway)) $+ .
  unset %min
  unset %reason
  unset %toaway
}
}