La j'ai repris ton code au niveau de ton if je l'ai replacer..
Ensuite ce que moi je ferais plutôt :
tcl
namespaceeval ::xhelp{
# Salon ou ont décide que le code fonctionne.variable salons "#salon"
# Les binds.
bind pub - "!help"[namespace current]::help
# Les procédures.proc help { nick host hand chan arg }{variable salons
putserv "privmsg $salons :La réponse.."}}
# Nous pouvons même faire mieux.. Nous désirons sa sois active sur plusieurs salons.# Pour celà nous allons utilisé le système de sétudef ce qui nous donnerais ceci :namespaceeval ::xhelp{
# Nous mettons le nom du setudef.
setudef flag HH
# Les binds.
bind pub - "!help"[namespace current]::help
# Les procédures.proc help { nick host hand chan arg }{if{[channel get $chan HH]==0}{return;}
putserv "notice $nick :Voice la liste"}}
# Pour activer ce système la en PL te faudra tapez : .channel set #salon +HH
Voilà en espérant que je t'aurais était utile en te donnant ceci
Dans c'est cas la le mieux serait de passer en switch.. Enfin pour ma part sa me semble plus judicieux.
La je n'es pas le temps mais demain lorsque je serait de retour chez moi, Je pourrais montrer un bout de code du moin si cela n'a pas était fait.
Ou alors regarde sur des codes tel que jokes.tcl je crois il dispose d'un système de la sorte.