Code: Select all
if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }
if {[utimerexists go] == ""} { utimer $timer go }
set queue {}
set frequency 120 ;# seconds
proc getqueue {} {
if {$::queue != {}} {
puthelp [lindex $::queue 0]
set ::queue [lreplace $::queue 0 0]
}
utimer $::frequency getqueue
}
proc putqueue {str} {
lappend ::queue $str
}
getqueue
proc go {} {
global text timer
foreach chan [channels] {
putqueue "PRIVMSG $chan :[lindex $text [rand [llength $text]]]"
}
if {[utimerexists go] == ""} { utimer $timer go }
}
putlog "Precision Effect advertising script"
Code: Select all
putqueue "PRIVMSG $chan :[lindex $text [rand [llength $text]]]"