alias gone {
  if ($right($me,4) != `afk) { tnick $me $+ `afk }
  ame has gone afk Reason: $$1-
  away $1-
}
alias here {
  if ($away) {
    if ($right($me,4) == `afk) { tnick $left($me,-4) }
    ame is back after: $duration($awaytime) Reason: $awaymsg
    away
  }
}
on *:TEXT:*:#:{
  if (($me isin $1-) || ($mnick isin $1-)) && ($away) && (!%floodnot) { 
    inc -u9 %floodnot
    describe # is currently away Reason: $awaymsg Time: $duration($awaytime)
  }
}