Code:

set cnicks $i

Code:

foreach cnick $cnicks {    putquick "KICK $chan $cnick :$clone_msg"}

Code:

putquick "KICK $chan $cnicks :$clone_msg"

Code:

bob joins (a@a.com)bob2 joins (a@a.com)Egg bans (a@a.com)Egg kicks bob2 

Code:

# Set the next line as the kick msg you want to sayset clone_msg "Clones"# Set the next line as the number of clones to scan forset clone_max 2# Set the next line as the channels you want to run inset clone_chans "#MyChan"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 host [lindex [split $uhost @] 1]  set count 0  foreach i [chanlist $chan] {   if {[string equal -nocase [lindex [split [getchanhost $i $chan] @] 1] $host]} {    incr count    lappend cnicks "$i"   }  }  if {$count >= $clone_max} {   putquick "MODE $chan +b *!*@$host"   foreach cnick $cnicks {    putquick "KICK $chan $cnick :$clone_msg"   }  } }}bind join - * join_clone