alias away {
  set %maway on
  set %nnick $1
  set %awayr $2-
  set %awayt $ctime
  /nick TheDarkMistress| $+ %nnick
/amsg 4Global:12 I am now away 4Reason:12 %awayr }

alias back {
  /nick TheDarkMistress
  /amsg 4Global:12 I am now back 4From:12 %awayr 4Time Gone: $duration($calc($ctime - %awayt))
  set %maway off
  unset %nnick
  unset %awayr
unset %awayt }

on *:text:*Mistress*:#:{ if (%maway == on) {
    notice $nick 12I am away 4Reason:12 %awayr
} }