Someone

alias away {
  if (%status == back) {
    set %reason $$1-
    set %nick $me
    nick $me $+ Away
    ame is now 11away, reason:11 %reason $+ . Left at $time $+ .
    set %status away
    set %awaytime $ctime
  }
}
alias back {
  if (%status == away) {
    set %whom %awaytime
    nick %nick
    ame is now 11back from:11 %reason $+ . Total time gone:11 $duration($calc($ctime - %whom)) $+ .
    unset %reason
    unset %whom
    set %status back
  }
}