Problème de phrases dans un fichier
#1
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.
Mitha
Répondre Avertir
#2
Re, c'est pour dire que ça marche mais ça dit toutes les phrases en même temps dans le salon :s
Mitha
Répondre Avertir
#3
salut ,

As tu vu que l'on set un canal ?

Citation :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 " "

Citation :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
Répondre Avertir
#4
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.
Mitha
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté