Code:

namespace eval clonescan {variable flg "1"        variable trigger "!"bind pub -|- "${trigger}clonescan" [namespace current]::clonescanproc clonescan {nick uhost hand chan text} {puthelp "NOTICE $nick :Starting clonescan for $chan..."set start [clock clicks]foreach user [chanlist $chan] {set host [lindex [split [getchanhost $user $chan] @] 1]lappend clones($host) $user}set total 0set count 0foreach host [array names clones] {set len [llength $clones($host)]if {$len > 1} {variable flgset nickList [join [join $clones($host)] ", "]if {$flg} {foreach cloneXz $nickList {putnow "kick $chan $cloneXz"}} else {puthelp "NOTICE $nick :\($host\) Nick list: $nickList - Clones: "}incr count $len}incr total $len}}}