msg.tcl , il fonctionne mais dans un seul chan

[DaV34]

Bon alors très franchement, à première vue, ton script ne m'a pas plus du tout, c'est pourquoi j'ai décider d'en coder un similaire, qui lui fonctionne (je viens de le faire à l'instant et de le tester. Si vous trouvez des bugs, merci de les repportez).

Voici la source :

tclcopier

#############################################################
#   ____        _     _ _      _ _              _       _   #
#  |  _ \ _   _| |__ | (_) ___(_) |_ ___       | |_ ___| |  #
#  | |_) | | | | '_ \| | |/ __| | __/ _ \      | __/ __| |  #
#  |  __/| |_| | |_) | | | (__| | ||  __/  _   | || (__| |  #
#  |_|    \__,_|_.__/|_|_|\___|_|\__\___| (_)   \__\___|_|  #									
#############################################################

#################
# Configuration #
#################

# -> Voulez vous ou non activer la publicité ? (1 = OUI | 0 = NON)
set pub_a 1

# -> Tout les combiens de minutes voulez vous que la publicité soit envoyé ?
set pub_d 2

# -> Liste des chans dans lesquels il faut faire de la pub (mettez * pour faire de la pub dans tout les salons)
set pub_c "#salon1 #salon2 #salon3 #salon4 #salon5 #salon6"

# -> Message à envoyer sur tout les salons
#> Un seul méssage sera tirer au sort et sera envoyer sur tout les salons
#> Vous pouvez mettre qu'un seul méssage et se sera dans tout les cas lui qui sera tirer au sort.
set pub_m {
	"Message .... 1"
	"Message .... 2"
	"Message .... 3"
	"Message .... 4"
}

###################
# Debut du script #
###################

# Vérifications
 
if {![info exist pub_c]} {
	set pub_c "*"
}
if {![info exist pub_d]} {
	set pub_d 1
}
if {![info exist pub_m]} {
	set pub_m "Vous devez définir un méssage qui sera envoyé toute les $pub_d minutes."
}

# Envoie de la publicité
proc pub_s {} {
 
	# On tire aléatoirement la phrase qui va être dite
	set msg_s [lindex $::pub_m [expr {int(rand() * [llength $::pub_m])}]]
 
	if {$::pub_c eq "*"} {
		foreach a [channels] {
			puthelp "PRIVMSG $a :$msg_s"
		}
	} else {
		foreach a $::pub_c {
			if {[string index $a 0] ne "#"} { continue }
			if {![botonchan $a]} { continue }
			puthelp "PRIVMSG $a :$msg_s"
		}
	}
 
	timer $::pub_d pub_s
 
}

# Initialisation
 
if {$pub_a} {
 
	pub_s
 
}
 
putlog "Publicite.tcl by DaV34"

Le script sera disponible demain en téléchargement sur ce site même.

Sur ceux, il est tard, donc je vous laisse, et à demain.