/resetchanidle for deVilbaT v1.0

ON ^*:TEXT:*:#: {
  if ($hget(RESET_CHAN_IDLE,$chan)) { hdel RESET_CHAN_IDLE $chan | haltdef }
}

alias resetchanidle {
  ; /resetchanidle <#channel>

  var %t = $nick($1,0)

  if (!$1) || ($status !== connected) || ($me !ison $1) || (%t == 1) { return }

  :again

  var %nick = $nick($1,$rands(1,%t))

  if (%nick == $me) { goto again }

  hadd -m RESET_CHAN_IDLE $1 1

  .parseline -itqn : $+ $ial(%nick) PRIVMSG $1 :-RESETIDLE-
}