[eggdrop] TCL Timer

[darknose]

Hi

ich habe mal ne frage und zwar habe ne Timer gemacht doch wen ich will das der in mehr chans schreiben soll macht er es net kann mir vielleicht einer dabei helfen?


set channels "#chan #chan2"
set time 5
if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }
if {[lsearch -glob [utimers] "* spammengo *"] == -1} { utimer $timer spammengo }
proc spammengo {} {
global channel time text timer
foreach chan $channel {
set count 0
set file [open scripts/werbetexte.txt r]
while {![eof $file]} {
set content [gets $file]
set spammen($count) $content
incr count
}
set random [rand $count]
putquick "privmsg $chan :$spammen($random)"
close $file
}
if {[lsearch -glob [utimers] "* spammengo *"] == -1} { utimer $timer spammengo }
}

[ind00r]

Hi

ich habe mal ne frage und zwar habe ne Timer gemacht doch wen ich will das der in mehr chans schreiben soll macht er es net kann mir vielleicht einer dabei helfen?


set channels "#chan #chan2"
set time 5
if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }
if {[lsearch -glob [utimers] "* spammengo *"] == -1} { utimer $timer spammengo }
proc spammengo {} {
global channel time text timer
foreach chan $channel {
set count 0
set file [open scripts/werbetexte.txt r]
while {![eof $file]} {
set content [gets $file]
set spammen($count) $content
incr count
}
set random [rand $count]
putquick "privmsg $chan :$spammen($random)"
close $file
}
if {[lsearch -glob [utimers] "* spammengo *"] == -1} { utimer $timer spammengo }
}





foreach chan $channel {

soll sich doch auf die festgelegten channels beziehen oder?
warum heisst das dann


set channels "#chan #chan2"

[darknose]

mh stimmt das habe ich voll übersehen $channels eintragen dann sollte es gehen?

[ind00r]

weiss icht nicht, probier es aus, und wenn es nicht geht sage was dann für ein Fehler kommt und wenns geht wäre es auch fein wenn du das hier kund tust.