[Résolu] rajout d'une exception sur une commande de kick

[Alucard`68]

Bonjour à tous,

Alors voila j'ai créer il y a quelque temps un petit script de modération pour un ami aujourd'hui je voudrais rajouter une exception sur celui-ci.
Je m'explique : de la façon que j'ai codé ses commandes il se trouve que les modérateurs peuvent kick un Chan Master par exemple. Se que je voudrais c'est qu'en fonction du vhost la commande ne fonctionne pas

J'ai tenter de faire ainsi

tclcopier

proc kickraison { nick host hand channel text } {
 global vhostmodo2 kickraison
 set args [split $text]
 set victim [lindex $args 0]
 set reason [join [lrange $args 1 end]]
 foreach vhost $vhostmodo2 {
   if { $vhost == $vhostmodo } { return 0 }
   if [string match -nocase $vhost $host] {
     putserv "PRIVMSG $::cs kick $channel $victim $reason"
     putserv "PRIVMSG $::log :\0034$victim \00312à été kick de \0034$channel \00312par \0034$nick \00312pour la raison\0037 $reason."
     }
  }
}

Non fonctionnel et j'ai se message en PL

Code :

[14:51:57] Tcl error [kickraison]: can't read "vhostmodo": no such variable

Et aussi de cette manière

tclcopier

proc kickraison { nick host hand channel text } {
 global vhostmodo2 kickraison vhostmodo
 set args [split $text]
 set victim [lindex $args 0]
 set reason [join [lrange $args 1 end]]
 foreach vhost $vhostmodo2 $vhostmodo {
   if { $vhost == $vhostmodo } { return 0 }
   if [string match -nocase $vhost $host] {
     putserv "PRIVMSG $::cs kick $channel $victim $reason"
     putserv "PRIVMSG $::log :\0034$victim \00312à été kick de \0034$channel \00312par \0034$nick \00312pour la raison\0037 $reason."
     }
  }
}

cette façon est non fonctionnel aussi et j'ai se message en PL

Code :

[14:55:39] Tcl error [kickraison]: wrong # args: should be "foreach varList list ?varList list ...? command"

J'avoue que je ne sais pas comment mi prendre pour arriver à mes fins
J'ai bien-sur bien définie le bloc "set vhostmodo" avec les vhost dont les commandes ne doivent pas fonctionné.
Merci d'avance pour votre aide.

Bien à vous.

Bye.