Need help with a tcl

Gothic-Angel · Post by **Gothic-Angel** » Sun Nov 03, 2002 3:42 pm

I need a tcl that kicks users for having the same nick/ident. There usually flooders. Can someone direct me, not sure was to what this would even be called.

darko`` · Post by **darko``** » Mon Nov 04, 2002 1:13 pm

bind join - * proc:checkit

proc checkit {nick uhost handle chan} {

set user [lindex [split uhost "@"] 0]
if {[string match -exact $nick $user]} {it matches... do what you want}
}

masskilla · Post by **masskilla** » Mon Nov 04, 2002 2:38 pm

Hi

Or you can download a clone scanner or some other protection script =)