Mine

bind pub - !fb red:fb
proc red:fb { nick uhost handle chan arg } {
if {![string match "*@eMule-Polish.MindForge.org" $uhost] } {
return 0
}

	set users [lindex [split $arg] 0]
	set long [split $users]
	set list [split $users]
	foreach thisguy [split $list] { lappend mysuperlist [lindex [split [getchanhost $thisguy $chan] "@"] 1] }
	list $mysuperlist
	list [split $mysuperlist " "]
	list [join $mysuperlist]
	if { [llength $long] > 12 } {
		for { set c 0} { $c<[llength $long] } { incr c 12 } {
			if { $c==0 } {
				putquick "MODE $chan +bbbbbbbbbbbb [lrange $mysuperlist $c [expr $c+11]]"
			} else {
				putquick "MODE $chan +bbbbbbbbbbbb [lrange $mysuperlist $c [expr $c+11]]"
			}
		}
	} else {
		putquick "MODE $chan +bbbbbbbbbbbb $mysuperlist"
	}



set done 0
while {$done <= [llength $long] } {
set getter [lindex $arg $done]
putquick "KICK $chan [lindex $arg $done] :Identified as floodbot. ($nick)"
incr done 1
}
}