Script para Eggdrop que envía un mensaje aleatorio a un canal determinado

cron.tcl

# Cron.tcl v2.1
# Tareas automatizadas
# Atlas, ene 14 - Twitter: @xatlas

set main_chan "#canal"
bind cron - {0 * * * *} cron:publi

proc cron:publi {minute hour day month weekday} {
  global main_chan
  puthelp "PRIVMSG $main_chan :\002Info:\002 [publi_msg]"
}

proc publi_msg {} {
  set cron_randmsg [list \
   "Si necesitas ayuda referente al chat visita http://www.chathispano.com/ayuda" \
   "Recuerda que esta sala no es de sexo ni tampoco es un tablon de anuncios. Revisa nuestras normas en nuestra web" \
   "Aqui va otro mensaje" \
  ]
  return [lindex $cron_randmsg [rand [llength $cron_randmsg]]]
}


putlog "Cargado script de tareas automatizadas (cron)"