This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

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