anuncios.tcl

# Set your channel
# su canal donde estara activa la tcl, puede usar muchos canales ejemplo #micanal1 #micanal2
set send_chans "#Xpresion-Latina"

# Set Timer one line after X mins
# tiempo de lanzamiento por lineas es por minutos defina por defecto esta cada 2 minutos
set send_time "15"

# Set Your Messages. You can insert more messages caz is every X min an random message from the list..
# coloque abajo los mensajes que lanzara el bot en tu canal
set send_msg {
"�� *���|Unete a nuestras redes Sociales. |�*�� Facebook --> https://www.facebook.com/XpresionLatinAR <--  Twitter �!�[ https://www.twitter.com/XpresionLatinAR]� Skype:  �! @XpresionLatinAR"
"Normas: No Flood (lineas,repeticiones) No Spam (webs, Canales, publicidad) No Datos (Email, telefonos, redes sociales) No Insultos  (Usuarios/Moderadores) No Sexo (Ofrecimientos de sexo)"
"ANUNCIO: �Te gustaria ser DJ de Xpresion-Latina? Pues.. �No Esperes Mas! Escribe/Digita/Tipea: /msg Onda-Mass !SerDJ"
"�!�[���( Transmitiendo: [ Musica Continua ] * Sintonizanos Desde: [  www.malvadooo.xyz/  ] )���]�!�"
}

#########################################
#!!!!!!DO NOT EDIT AFTER THIS LINE!!!!!!#
#########################################

if {![string match "*time_send*" [timers]]} {
 timer $send_time time_send
}

# set a global variable to track the next line to say #
if {![info exists send_next]} {  set send_next 0  }

proc time_send {} {
 global send_msg send_chans send_time send_next

 # save the msg line to say now #
 set nextline [lindex $send_msg $send_next]

 # and advance the global var to the next msg line number #
 incr send_next
 if {$send_next >= [llength $send_msg]} {  set send_next 0  }

 if {$send_chans == "*"} {
  set send_temp [channels]
 } else {
  set send_temp $send_chans
 }
 foreach chan $send_temp {

  puthelp "PRIVMSG $chan :$nextline"

 }

 # move the timer set and return to outside of the foreach loop #
 timer $send_time time_send
 return 1

}