Commande réserver a certaine personne.

[Alucard`68]

Bonjour,

Alors voila je suis entrain de codé un tcl pour ajouter les différents axx du genre !addvoice pseudo

mon code fonctionne très bien. Mais se que j'aimerai c'est que 'est commande soit accessible a certain pseudo.

voila le code

tclcopier

bind pub - !addvoice pub:addvoice
bind pub - !delvoice pub:delvoice
 
proc pub:axxvoice { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "cs vop $chan add $pseudo"
    putserv "PRIVMSG #Services :\00312Ajout de\0034 $pseudo \00312au poste d'animateur sur le salon\0037 $chan"
    putserv "NOTICE $nick :\00312L'axx permanant de voice a bien été ajouté à\0034 $pseudo \00312sur le salon\0037 $chan"
  }
}
 
proc pub:delvoice { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "cs vop $chan del $pseudo"
    putserv "PRIVMSG #Services :\00312Supression de\0034 $pseudo \00312au poste d'animateur sur le salon\0037 $chan"
    putserv "NOTICE $nick :\00312L'axx permanant de voice a bien été suprimé à\0034 $pseudo \00312sur le salon\0037 $chan"
  }
}

j'avais penser faire comme ça

tclcopier

proc pub:axxvoice { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != "Alucard`68 jessica"} {
    putserv "cs vop $chan add $pseudo"
    putserv "PRIVMSG #Services :\00312Ajout de\0034 $pseudo \00312au poste d'animateur sur le salon\0037 $chan"
    putserv "NOTICE $nick :\00312L'axx permanant de voice a bien été ajouté à\0034 $pseudo \00312sur le salon\0037 $chan"
  }
}

mais cela ne fonctionne pas :s
voila le message d'erreur que j'ai en PL.

Code :

<Jessica`68> [18:25:55] Tcl error [pub:addvoice]: invalid command name "pub:addvoice"

Comment je pourrais faire. Je ne vois pas comment.

Merci d'avance pour votre aide future.

Cordialement.