Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
###################################################################################
# Envia mensagens no canal com o intervalo de tempo em minutos que voc� desejar.  #
###################################################################################

# Inetrvalo maximo (EM MINUTOS) entre as mensagens:
set mF(msgintervalo) 10

# Messagens para serem enviadas ao canal(is):
set msgs(MP3PASSION) {
  "0,1 #MP3PASSION  Download my list for more, by typing1 @Mp3xSalvador � New Files Added Daily."
  "0,2 #MP3PASSION  Download my list for more, by typing2 @Mp3xSalvador � New Files Added Daily."
  "0,3 #MP3PASSION  Download my list for more, by typing3 @Mp3xSalvador � New Files Added Daily."
  "0,4 #MP3PASSION  Download my list for more, by typing4 @Mp3xSalvador � New Files Added Daily."
  "0,5 #MP3PASSION  Download my list for more, by typing5 @Mp3xSalvador � New Files Added Daily."
  "0,6 #MP3PASSION  Download my list for more, by typing6 @Mp3xSalvador � New Files Added Daily."
  "0,7 #MP3PASSION  Download my list for more, by typing7 @Mp3xSalvador � New Files Added Daily."
  "1,8 #MP3PASSION  Download my list for more, by typing10 @Mp3xSalvador � New Files Added Daily."
  "1,9 #MP3PASSION  Download my list for more, by typing12 @Mp3xSalvador � New Files Added Daily."
  "0,10 #MP3PASSION  Download my list for more, by typing13 @Mp3xSalvador � New Files Added Daily."
  "1,11 #MP3PASSION  Download my list for more, by typing14 @Mp3xSalvador � New Files Added Daily."
  "0,12 #MP3PASSION  Download my list for more, by typing1 @Mp3xSalvador � New Files Added Daily."
  "0,13 #MP3PASSION  Download my list for more, by typing2 @Mp3xSalvador � New Files Added Daily."
  "0,14 #MP3PASSION  Download my list for more, by typing3 @Mp3xSalvador � New Files Added Daily."
  "1,15 #MP3PASSION  Download my list for more, by typing4 @Mp3xSalvador � New Files Added Daily."
}

# enviar mensagens para que canal?
set mF(canal) "#MP3PASSION"

################################### n�o edite nada abaixo dessa linha!! ########################
################################### n�o edite nada abaixo dessa linha!! ########################

proc sendmsg {} {
  global botnick mF msgs www
  timer $mF(msgintervalo) sendmsg

  if {![info exists www]} { set www [expr [llength $msgs(MP3PASSION)]-1] }

  if {$www <= -1} {
    set www [expr [llength $msgs(MP3PASSION)]-1] 
    set sendmsg1 "[lindex $msgs(MP3PASSION) $www]"
    set www [expr $www-1]
    } {
    set sendmsg1 "[lindex $msgs(MP3PASSION) $www]"
    set www [expr $www-1]
  }
  if {$sendmsg1 == ""} { 
    set www [expr [llength $msgs(MP3PASSION)]-1] 
    set www [expr $www-1]
    set sendmsg1 "[lindex $msgs(MP3PASSION) $www]"
  }
    putserv "PRIVMSG $mF(canal) :$sendmsg1"
}

if {![info exists loadsendmsg]} { sendmsg }
set loadsendmsg 1

set versao "1.0"
putlog "MENSAJES - v$versao - #MP3PASSION"
Explorando: ./tcl

Vista previa de: SendMsg.tcl
