; Clone kick/ban/scanner
; by ch1zra
; ch1zra@gmail.com
; http://ch1zra.com/mirc/
; #Scripters @ irc.krstarica.com
; Copyright © 2006 Up The Irons ! inc. Scripting team 


alias kcl {
  if ($me !isop #) { 
    echo -a You cannot kick clones here. You need @ for that
    return
  }
  if ($hget(clones2)) hfree clones2
  hmake clones2 100
  var %x = $nick($1,0)
  while (%x) {
    if ($ialchan($address($nick($1,%x),2),$1,0) > 1) && (!$hget(clones2,$address($nick($1,%x),2))) {
      var %xx = $ialchan($address($nick($1,%x),2),$1,0), %s = %xx
      unset %n
      while (%xx) {
        var %n = %n $ialchan($address($nick($1,%x),2),$1,%xx).nick
        dec %xx
      }
      echo -a 4 $1 %s >> $address($nick($1,%x),2) $+ : %n
      mode # +b $address($nick($1,%x),2)
      var %clon.num $calc($numtok(%n,32) - 1)
      while (%clon.num) {
        kick # $gettok(%n,%clon.num,32) Clone detected : $address($nick($1,%x),2)
        dec %clon.num
      }
      hadd clones2 $address($nick($1,%x),2) %n
    }
    dec %x
  }
  hfree clones2
}

menu channel {
  Kick Clones:kcl #
}