alias away {
  set %awayon on
  set %awayreason $1-
  set %time $ctime
  /amsg 6|| 2Now Away 6||3 $1- 6||11 Left: $asctime($ctime,HH:nn:ss)
}

alias back {
  /amsg 6|| 2Now Back 6||3 %awayreason 6|| 11Gone: $duration($calc($ctime - %time),1)
  set %awayon off
  unset %awayreason
  unset %time
}
on *:TEXT:*:*: {
  if (*alex* iswm $1-) && (%awayon == on) {
    notice $nick 6|| 2I am Currently Away 06|| 3 %awayreason 06|| 11Gone for $duration($calc($ctime - %time),1)
  }
}