TCL Cone Kick

# Clone Kicker by KuNgFo0

# Kick Message
set clone_msg "Clones are prohibitted"

# Clones with same IP to kick
set clone_max 2

# Channels
set clone_chans "#test1 #test2"

bind join - * join_clone

putlog "Clone Kicker by KuNgFo0 loaded"

proc join_clone {nick uhost hand chan} {
 global clone_msg clone_max clone_chans botnick
 if {(([lsearch -exact [string tolower $clone_chans] [string tolower $chan]] != -1) || ($clone_chans == "*")) && (![matchattr $hand m|m $chan]) && (![matchattr $hand b]) && ($nick != $botnick)} {
  set clone_temp2 0
  foreach i [chanlist $chan] {
   set clone_temp [lindex [split [getchanhost $i $chan] @] 1]
   if {$clone_temp == [lindex [split $uhost @] 1]} {
    incr clone_temp2
   }
  }
  if {$clone_temp2 >= $clone_max} {
   putserv "MODE $chan +b [maskhost [getchanhost $nick $chan]]"
   putserv "KICK $chan $nick :$clone_msg"
  }
 }
}