how to stop :******* flooding?

[Tex]

hello..
well..doe's anyone have some .tcl to stop the :*************** and :@@@@@@@@@@@ and heloo !!!!!!!!!!!!!!!!!!!!!!!!!!!!! flooding on channel?
so that max 20 ! , @ and * would be allowed in one line on channel..

in mirc looks like that..

on 1:TEXT:*:#testek: {
/if ($count($1-,$chr(33)) > 20) {
/kick #testek $nick max 20 !-s allowed!!!
/mode #testek +b $address($nick,3)
}
/if ($count($1-,$chr(42)) > 20) {
/kick #testek $nick max 20 *-s allowed!!!
/mode #testek +b $address($nick,3)
}
/if ($count($1-,$chr(64)) > 20) {
/kick #testek $nick max 25 @-s allowed!!!
/mode #testek +b $address($nick,3)
}
}

plaese..and sry fo my bad english..

[demond]

Code: Select all

set r "max 20 !,@,or * allowed"
bind pubm - * check
proc check {n u h c t} {
  set len [string length $t]
  set x 0; set y 0; set z 0
  for {set i 0} {$i < $len} {incr i} {
    if {[string index $t $i] == "!"} {incr x
    } elseif {[string index $t $i] == "@"} {incr y
    } elseif {[string index $t $i] == "*"} {incr z}
  }
  if {$x > 20 || $y || 20 || $z > 20} {
    newchanban $c [maskhost $n!$u] foo $::r
    putserv "kick $c $n :$::r"
  }
}

[user]

...or use "regexp -all" to do the counting

Code: Select all

if {[string len $a]<21} {
	# too short..no point checking any further
	return 0
} elseif {[regexp -all ! $a]>20} {

} elseif {[regexp -all \\* $a]>20} {

} elseif {[regexp -all @ $a]>20} {

}