egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-07-14T15:08:36-04:00 https://forum.eggheads.org/app.php/feed/topic/12135 2006-07-14T15:08:36-04:00 2006-07-14T15:08:36-04:00 https://forum.eggheads.org/viewtopic.php?p=64645#p64645 <![CDATA[...]]> 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 :(

Statistics: Posted by NTHosts — Fri Jul 14, 2006 3:08 pm

]]> 2006-07-14T11:56:04-04:00 2006-07-14T11:56:04-04:00 https://forum.eggheads.org/viewtopic.php?p=64643#p64643 <![CDATA[Some Help About mp3 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
}

Statistics: Posted by Arkadietz — Fri Jul 14, 2006 11:56 am

]]>