egghelp.org community

[Arkadietz]

Hello, i want a working tcl who play a song every 10 mins for example where i can choose the minutes and the songs in the tcl

P.S And must be Work at every channel

For example:
[18:53:52] * Creative plays Francesco Farfa - Changing Shapes (Chus and Cebellos Remix)

I have one tcl but have a bug at time sometimes go in crazy and the timer doesn't work

This is code i will be happy if someone fix it !

# Time
set speaks_time 10
## Channel
set speaks_chans "*"


set speaks_msg {
"4Toasters - Real World (Real Beats)"
"bla bla"
}



if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}
proc time_speaks {} {
global speaks_msg speaks_chans speaks_time
if {$speaks_chans == "*"} {
set speaks_temp [channels]
} else {
set speaks_temp $speaks_chans
}
foreach chan $speaks_temp {
set speaks_rmsg [lindex $speaks_msg [rand [llength $speaks_msg]]]
puthelp "PRIVMSG $chan :\001plays $speaks_rmsg\001"
}
}
if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}
_________________
On a unix system everything is a file ; if something is not a file , it is a proccess.

[NTHosts]

So this tcl dont actually play mp3s.. ?
Heh, wouldn't we all love a script that could do that

I think what you want here is just a normal advertise script that says "whatever" to "#whatever" in "sumtimescale"

im sure if you search the tcl archive there's lots

And btw, remember to use the code tags when pasteing code and make sure its properly indented, I had major problems readin that
_________________
www.NT-Hosts.Net - More than just a host