Something

## Aici setezi canalele poti pune "*" pentru toate canalele sau #canal #canal1 ca sa dea numai pe canalele astea

set speaks_chans "*"
# aici setezi minutele la care sa dea brocast
set speaks_time 240



## ----------------------------------------------------------------
## --- Don't change anything below here if you don't know how ! ---
## ----------------------------------------------------------------

######################################################################
##--------------------------------------------------------------------
##--- F O R     ---             BROADCAST        ---    CHANNEL   ----
##--------------------------------------------------------------------
######################################################################         
### SPEAK ###
set spoken.v "Auto talk"
# Set the next lines as the random speaks msgs you want to say
set speaks_msg {
{"\0034\INFO\\ - \0033Daca doriti un eggdrop cu UpTime bun si multe tcl-uri folositoare join\0034 #G&G"}
}

if {![string match "*time_speaks*" [timers]]} {
if { [channel get $chan silent] } { return 0 }
 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]]]
  foreach msgline $speaks_rmsg {
   puthelp "PRIVMSG $chan :[subst $msgline]"
  }
 }
 if {![string match "*time_speaks*" [timers]]} {
  timer $speaks_time time_speaks
 }
}