MassKick

    bind pub - ?masskick kick_allX5
   
    proc kick_allX5 {nick host handle chan text} {
   
      if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr [nick2hand $nick] o|o $chan]} { putserv "NOTICE $nick you dont have access to use this command" ; return o}
   
    putnow "mode $chan +im"
                    utimer 10 [list putnow "mode $chan +im"]
   
   
      set reasonX55 [join [lrange [split $text ] 0 end]]
      if {$reasonX55 eq ""} { set reasonX55 Requested }
   
    foreach user [chanlist $chan] {
    if {![isop $user $chan] && ![ishalfop $user $chan] && ![isvoice $user $chan] && ![matchattr [nick2hand $user] fnmo|fnmo $chan]} {
    lappend kickList $user
    }
    }
   
    if {[info exists kickList]} {
      set max 4
      set count [llength $kickList]
      if {$count > 0} {
          while {$count > 0} {
            if {$count > $max} {
                set users [join [lrange $kickList 0 [expr {$max - 1}]] ","]
                set kickList [lrange $kickList $max end]
                incr count -$max
                } else {
                  set users [join $kickList ","]
                  set count 0
                }
                putnow "KICK $chan $users $reasonX55"
            }
          }
      } 
    }