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

[Alucard`68]

j'ai pensé faire comme de cette façon

tclcopier

set cs "ChanServ"
set chanlog "#Services"
set vhostexempt {
 *Root@domain.tld
 *@TechAdmin.domain.tld
 *@NetAdmin.domain.tld
 *@Admin.domain.tld
 *@CoAdmin.domain.tld
 *@IRCop.domain.tld
 *@ChanMaster.domain.tld
 *@Faucheur.domain.tld
 *@Moderateur.domain.tld
 *@Moderatrice.domain.tld
 *@Operateur.domain.tld
 *@Operatrice.domain.tld
 *@Services.domain.tld
}
 
bind pub o !modo aidemodo
bind pub o !kr kickraison
 
proc kickraison { nick host hand channel text } {
 global cs chanlog vhostexempt
 set args [split $text]
 set victim [lindex $args 0]
 set reason [join [lrange $args 1 end]]
 foreach vhost $vhostexempt {
   if { $vhost == $vhostexempt } { return 0 }
   } else {
   putserv "PRIVMSG $cs kick $channel $victim $reason"
   putserv "PRIVMSG $chanlog :\0034$victim \00312a été kick de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
 }
}
 
proc kickflood { nick host hand channel arg } {
 global cs chanlog vhostexempt
 foreach vhost $vhostexempt {
   if { $vhost == $vhostexempt } { return 0 }
   } else { 
   putserv "PRIVMSG $cs kick $channel $arg \00312Le flood est interdit sur les salons officiels !"
   putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour flood."
 }
}

Mais non fonctionnel la commande fonctionne tjrs aucun message en PL mais je peu toujours l'utiliser contre les membres du staff...

Merci de bien vouloir m'aider :)

Bien à vous.

Bye.

Edit :
J'ai aussi tenté ainsi

tclcopier

set cs "ChanServ"
set chanlog "#Services"
set exempt {
  PetitCoeur
  Bob
}
 
proc kickraison { nick host hand channel text } {
  global cs chanlog exempt
  set args [split $text]
  set victim [lindex $args 0]
  set reason [join [lrange $args 1 end]]
  if { $victim == $exempt } {
    putserv "NOTICE $nick :\0032\0034ATTENTION \002\0036$victim \00312Est dans la liste des pseudos protégés \0037$nick \00312!!!"
    } else {
    putserv "PRIVMSG $cs kick $channel $victim $reason"
    putserv "PRIVMSG $chanlog :\0034$victim \00312a été kick de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
  }
}

Le problème reste toujours le même comment puis-je arriver à mes fins ?

Bye.

EDIT 2 :

j'ai aussi tenter comme cela

tclcopier

set cs "ChanServ"
set chanlog "#Services"
set modo(flagexempt) "mo"
 
bind pub o !kr kickraison
 
proc kickraison { nick host hand channel text } {
  global cs chanlog modo
  set args [split $text]
  set victim [lindex $args 0]
  set reason [join [lrange $args 1 end]]
  if {[matchattr $hand $modo(flagexempt) $channel]} { return 0 }
    putserv "PRIVMSG $cs kick $channel $victim $reason"
    putserv "PRIVMSG $chanlog :\0034$victim \00312a été kick de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
}

Mais la la commande ne fonctionne plus du tout... aussi bien pour les membres possedants les bons flag que les users lambda...
Je n'ai aucun message d'erreur en PL...

Je ne sais plus du tout comment faire...

Please help me :(

Bien à vous.

Bye.