What to add to this public command?

Help for those learning Tcl or writing their own scripts.
Post Reply
User avatar
piggy
Voice
Posts: 14
Joined: Sun Aug 21, 2005 11:51 am
Location: London

What to add to this public command?

Post by piggy »

Hey guys

With the following i would like to know what i can add to it in order to make it that a user is restricted to use the public command once in 5 minutes

Code: Select all

set chanstats {
"url to stats"

}
bind pub - !stats pub:s
proc pub:s {nick uhost hand chan text} {
global chanstats
set statsnick [lindex [split $text " "] 0]
if {$text != "" && [onchan $statsnick $chan]} {
foreach line $chanstats { putquick "NOTICE $statsnick :$line" }
return 0
}
foreach line $chanstats {putquick "PRIVMSG $chan :$line" }
}
Any help much appreciated

Thanks
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

Code: Select all

if {![info exists ::ts] || [unixtime] - $::ts > 300} {set ::ts [unixtime]} {return} 
connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use

Code: Select all

 tag when posting logs, code
Post Reply