Code: Select all
foreach user [chanlist $chan] {
if {[isop $user $chan]} {
incr op
} elseif {[isvoice $user $chan]} {
incr voice
} else { incr normal }
}
Code: Select all
bind notc -|- * handle_lamer_notice
proc handle_lamer_notice {nick uhost hand text chan} {
if { [validchan $chan] } { handle_lamer $nick $uhost $hand $chan "$text" }
return 0
}
was a nice idead from me... but did relault to this:egghead wrote:Code: Select all
validchan $chan
Code: Select all
[19:10] Tcl error [handle_lamer_notice]: illegal channel: @#dn
Code: Select all
if { $shortflooders($uhost:$chan) == [lindex $shortflood 0] } {