problème sur un principe de tcl [résolu]

[systak]

bonjour tout le monde donc voilà le morceau de code qui va suivre est juste un petit exercice pour moi pour comprendre bien proprement comment fonctionne une exception dans un bind donc voilà le bind que je test de faire

principe une liste de nick admin a ne pas pouvoir kick ou meme de host
problème aucune réaction

Code :

set nadmin "Orion,systak,test"


bind pub - !xkick kick

proc kick {nick uhost hand chan arg} {
    global nadmin hadmin
    set n0 [lindex $arg 1]
    set c0 [lindex $arg 2]
        foreach nadmin $nadmin {
        if {[string match -nocase $nadmin]}  {
  putquick "kick $c0 $n0 kicked"
  }
}
}

je précise oui je débute vraiment sur ce sujet xD
merci de votre aide