Problème code tcl

[Alucard`68]

Bonjour, merci CrazyCat cela fonctionne parfaitement. Même quand les user écrivent en couleur le bot répond parfait.
Je met le code si jamais cela intéresse une personne.

tclcopier

bind pubm - * pubm:animation
proc pubm:animation { nick uhost handle channel arg } {
  set arg [stripcodes bcruag $arg]
  set commande [lindex $arg 0]
  switch -- $commande {
    "!kiss" { puthelp "PRIVMSG $chan :$nick fait un gros bisous à [lrange $arg 1 end]" }
    "!clope" { puthelp "PRIVMSG $chan :\0037$nick \00312offre une cigarette \002(\037)¯¯¯¯)¯¯¯¯¯¯¯¯¯¯¯\037)~~~\002\00312 à \0034 [lrange $arg 1 end] \00312(c'est pas bien de fumer)" }
  }
}

Merci encore.

Cordialement.