;: Auto-Away

alias aaway {
  away Auto-Away after 10 minutes
  set %und $ctime
}
alias back {
  away
  unset %und
}
on *:TEXT:*:*: {
  if ($nick($chan,$me).idle > $calc(%time * 60)) && ($away = $false) {
    aaway
  }
  if ($me isin $1-) && ($away = $true) {
    notice $nick I regret to inform you, $nick $+ , but i am currently away. I have been gone for $duration($calc($ctime - %und)) $+ .
    if (!$window(@Away)) window @Away {
      echo 7 -t @Away  $+ $nick $+  in  $+ $chan $+  said: $1-
    }
  }
}
on *:START: {
  timer 1 5 awaysetup
}
alias awaysetup {
  set %time $?="Enter how many minutes you wish to be idle before Auto-Away is enabled"
}