Expliquation tcl ;)

[CrazyCat]

Donc, il faut que tu utilises un Bind sur "MSG", ce qui donne:

tclcopier

bind msg - "setadmin" tournoi:setadmin
 
set tournoi(password) "tonpass"
set tournoi(admin) ""
proc tournoi:setadmin {nick uhost handle text} {
   set args [split $text]
   if {[lindex $args 1] != $::tournoi(password)} {
      putserv "PRIVMSG $nick :Erreur dans le mot de passe"
      return 0
   }
   set ::tournoi(admin) [lindex $args 2]
   putserv "PRIVMSG $nick :L'administrateur est maintenant [lindex $args 2]"
}

A toi ensuite de gérer le reste, sachant qu'au lieu de %admin, c'est $::tournoi(admin) que tu utiliseras.