Communauté Eggdrop
Commande valable sur un seul salon. - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Commande valable sur un seul salon. (/showthread.php?tid=1169)



Commande valable sur un seul salon. - Alucard`68 - 21/04/2012

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.


RE: Commande valable sur un seul salon. - djkenny - 21/04/2012

salut,
même probleme que > la <
regardes bien ton if


RE: Commande valable sur un seul salon. - Alucard`68 - 21/04/2012

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.


RE: Commande valable sur un seul salon. - djkenny - 22/04/2012

a ta place j'utiliserais "string equal" plutôt que "string compare"