Help in tcl script

[Jag]

hi,

i want to build a script that if someone write 6 times "?" in a sentence the eggdrop will kick him.

this command is the same as:

Code: Select all

$count

in mirc-scripting

or the if command in mirc-scripting:

Code: Select all

if ($count($1-,?) > 6)

Thanks for the help

[caesar]

Code: Select all

set count [regexp -all {[?]} $text]

replace text with what you got in your proc..

[Jag]

so, the command supposed to be:

Code: Select all

set count [regexp -all {[?]} $text]
if {$count == "6"} { ....

?

[caesar]

yes, or:

Code: Select all

if {[regexp -all {[?]} $text] > 6} { do something.. }

notice the > that indicates bigger than x.. you should use it in case someone uses more than x..

[Jag]

OK, 10x a lot!

[caesar]

your welcome.