Problème de phrases dans un fichier

[ReT]

Hello.

J'ai actuellement un soucis dans mon tcl..

TCL

set fichier1 "scripts/Phrases/blagues.txt"
 
set canal "#Mon-salon"
 
# Chargement du fichier dans $phrases
set fi1 [open $fichier1 "r"]
set phrases1 [split [read -nonewline $fi1] "\n"]
close $fi1
 
bind pub - !blague bl
proc bl { nick host hand channel arg } {
set vnick [lindex $arg 0]
   set laphrase [lindex $::phrases1 [rand [llength $::phrases1]]]
   putquick "PRIVMSG $::canal :$laphrase"
}

Et, quand je fais !blague dans le salon, rien ne s'affiche et j'ai même pas d'erreur en party line.

J'aimerais savoir d'ou vient l'erreur car je le trouve pas :s

Merci, cordialement.

[ReT]

Re, c'est pour dire que ça marche mais ça dit toutes les phrases en même temps dans le salon :s

[cestlemien]

salut ,

As tu vu que l'on set un canal ?

set canal #Mon-salon

c'est là ou tu mets le/les salons ou le script/commande est actif.
Si pour une raion particuliere, tu voulais que le script soit actif sur tous les salons ou ce trouve l'eggdrop ne mets rien dans les " "

set salon ""

Ah ça fonctionne .. mais donne toutes les phrases, ça change tout .. dsl (post a supprimer eventuellement,puisque je ne peux pas le faire moi même)
Cordialement

[ReT]

Salut ceslemien.

C'était un code qu'on m'avait passé ici.
J'ai réglé le problème, je me suis tout simplement trompé de salon.. :/ Et pour le petit bug que j'ai mis ci dessous c'est réglé.

Excusez moi d'avoir poster un message pour rien :|

Cordialement.