Soucis de codage avec un kick

[KeeViiNou]

Bonjour,


J'ai un soucis avec ce codage

tclcopier

bind pub - "!kickf" dop:kickf
proc dop:kickf {n ht hd ch a} {
set cible [lindex $a 0]
    if {![string compare -nocase $cible ""]} {putpseed "NOTICE $n :\002\00304KO. \00312La syntaxe est \00303!invite \00307pseudo\003\002"; return}
	putspeed "PRIVMSG $::chans :L'utilisateur a bien été averti "
	putspeed "NOTICE $cible :Mon taux d'emmerde vient d'être élever au maximum. Je vais devoir vous quitter.. Adieu !"
	putquick "MODE $:chan +b $cible"
	putquick "KICK $:chan $cible Reste Cool !"
	}

Rien ne se passe niveau du kick et j'arrive pas à mettre

putspeed "NOTICE $cible :Mon taux d'emmerde vient d'être élever au maximum. Je vais devoir vous quitter.. Adieu !"

en visible sur le salon..

Merci