Problème code tcl

[Alucard`68]

Bonjour, je suis entrain de codé mon propre fun donc j'ai fait ceux qui suis mais rien en fonctionne et je n'es pas de message d'erreur en PL

tclcopier

set anim_ver "1.0"
set anim_author "Alucard68"
 
bind pub - * pub:animation
proc pub:animation { nick host hand chan 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 :$nick offre une clope à [lrange $arg 1 end]" }
  }
}
 
putlog "\00312Anim Version $anim_ver By $anim_author loaded"

voila franchement je sais pas d'ou ça vient je comprend pas :s

Merci d'avance.

Cordialement.