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


Commande valable sur un seul salon.
#1
Bonjour, j'ai codé un script d'aide pour mon serveur. mais voila j'aimerai que cette commande ne fonctionne que sur le salon aide.
Voila le code:

tcl
bind pubm - * pub:aide
proc pub:aide { nick uhost handle chan arg } {
  set arg [stripcodes bcruag $arg]
  set commande [lindex $arg 0]
  if {$chan == "#Aide"}
  switch -- $commande {
    "!aide" { putquick "NOTICE $nick :\0031Voici les commandes d'aide du tchat."
              putquick "NOTICE $nick :\0034!pseudo \00312Pour enreristrer votre pseudo."
	      putquick "NOTICE $nick :\0034!salon \00312Pour Enregistrer votre salon."
              putquick "NOTICE $nick :\0034!statut \00312Pour l'aide sur les différents statuts de votre salon."
              putquick "NOTICE $nick :\0034!xop \00312Pour l'aide sur le mode XOP."
	      putquick "NOTICE $nick :\0031Fin des commandes d'aide du tchat." }
  }
}

et le message d'erreur en PL:

Code:
Tcl error [pub:aide]: wrong # args: no script following "$chan == "#Aide"" argument
Mon if serai pas bon mais comment faire ?

Merci d'avance.

Cordialement.
#2
salut,
même probleme que > la <
regardes bien ton if
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#3
Merci djkenny pour ton aide Smile


tcl
bind pubm - * pub:aide
proc pub:aide { nick uhost handle chan arg } {
  set arg [stripcodes bcruag $arg]
  set commande [lindex $arg 0]
  if ![string  compare -nocase $chan "#Aide"] {
  switch -- $commande {
    "!aide" { putquick "NOTICE $nick :\0031Voici les commandes d'aide du tchat."
             putquick "NOTICE $nick :\0034!pseudo \00312Pour enreristrer votre pseudo."
	     putquick "NOTICE $nick :\0034!salon \00312Pour Enregistrer votre salon."
             putquick "NOTICE $nick :\0034!statut \00312Pour l'aide sur les différents statuts de votre salon."
             putquick "NOTICE $nick :\0034!xop \00312Pour l'aide sur le mode XOP."
	     putquick "NOTICE $nick :\0031Fin des commandes d'aide du tchat." }
      }
    }
}

Je sais que sa na rien a voir avec le poste que tu m'as montré mais j'avais trouvé la solution avant de voir le message.
Mais merci a toi en tout cas.
Si vous avez des suggestions je suis preneur.

Encore merci.

Cordialement.
#4
a ta place j'utiliserais "string equal" plutôt que "string compare"
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  commande sur salon qui agit en PL loulou7593 8 4,688 09/07/2010, 22:18
Last Post: CrazyCat
  msg.tcl , il fonctionne mais dans un seul chan kanotix 5 5,538 06/06/2008, 14:20
Last Post: N3bIlIm

Forum Jump:


Users browsing this thread: 1 Guest(s)