alias afk {
  if (!$away) {
    var %reason $iif($1,$1-,No Reason)
    set %time $time
    away %reason
    amsg [- AWAY -] [-REASON %reason -] [-TIME LEFT: $time -]
  }
}

alias imback {
  if ($away) {
    amsg [- BACK -] [- TIME GONE: $duration($awaytime) -]
    away
    unset %time
  }
}

on $*:TEXT:/pe[ae]ch(worth|umz|z)?`?/Si:#: {
  if ($away) { notice $nick I'm not here, left at: %time $+ . Time gone: $duration($awaytime) }