quote me tcl - flood protection

[MasterJM]

Hi,
i use this quote script for 2 years now:

http://www.egghelp.org/cgi-bin/tcl_arch ... oad&id=280
quoteme Quote Scripts 1.3 - k-rist 280 Advanced quotes script.
http://www.egghelp.org/files/tcl/desc/280.desc

its a great and easy script, but there is one thing needed:
a flood protection!

is there is easy way to say "!quote triggers" only every xy sec?
(like some other script for example the !bash quote script?)

can some one help me ?

thx

[MasterJM]

nobody?

[GodOfSuicide]

MasterJM dont try to push your tread....

usually i dont respond to such stupid posts, but this time...

foreach chan [channels] {
set quoted($chan) 0
}
........
<first line of the quote proc>
if {$::quoted($chan) == 1} { return }
......
<below the putserv/puthelp>
set ::quoted($chan) 1
utimer xy [list set ::quoted($chan) 0]

should do the trick