Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Vieux codage
#1
Question 
Bonjour,

Je mets ce post car je ne comprends pas le délire qui s'impose à moi...

Voici un codage qui fonctionnait jusqu'à la semaine dernière :

tcl
set chansource "#S1"
set chans "#s2"
 
bind pub - "!jeux" dop:jeux
proc dop:jeux {n ht hd ch a} {
 set text [lrange $a 0 end]
 if {$text == ""} {putspeed "notice $n :Syntaxe : !jeux < texte >"; return}
 if {$ch == $::chans} {
 foreach salon [channels] {
 putspeed "privmsg $salon :!$text"
 }
 } else {putspeed "notice $n :Erreur Salon"} 
}


Aujourd'hui, que se soit dans le #S1 ou #2 j'ai le message d'erreur qui s'affiche...

Entre temps, j'ai interverti les deux, chans et chansource et rien. J'ai eu une déconnexion d'eggdrop dans une nuit et depuis ce jour là cette commande ne fonctionne plus et c'est bien la seule... Avez-vous une idée ?
  Répondre
#2
Note de modération: déplacé dans la bonne section, ce n'est certainement pas ce que nous appelons un "bout de script"

Peut-être un souci de casse...
tcl
if {[string tolower $ch] eq [string tolower $::chans]} {


Et tu pourrais rendre ton erreur plus parlante:
tcl
} else {puthelp "notice $n :Erreur Salon - Commande sur $ch mais attendue sur $::chans"}


  Répondre


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)