Anonymous

;===Idle Checker===;

alias check.idle {
  var %chan = $1
  if ( %i.limit [ $+ [ $1 ] ] == 0 ) {
    .echo 4 -a Idle Check is not set for this #channel
    return
  }
  var %nick = $nick(%chan,0,a,oh)
  while (%nick) {
    if ( $nick(%chan,%nick,a,oh).idle != $me ) {
      if ( $nick(%chan,%nick,a,oh).idle > %i.limit ) {
        .kick %chan $nick(%chan,%nick,a,oh) Idle Time Limit is : %i.limit 
      }
    }
    dec %nick
  }
}

menu channel {
  -
  Idle Limiter
  .Set :set %i.limit [ $+ [ $chan ] ] $$?="Idle limit? (60 = 1 minute) "
  .Reset :unset %i.limit [ $+ [ $chan ] ]
  .Check:check.idle $chan
  -
}