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.

[CrazyCat]

En utilisant pub, ça ne peut pas fonctionner.
Je te renvoie à la page des binds où il est clairement indiqué:

Utilisé pour une commande donnée sur un canal. Le premier mot devient la commande, ceux qui suivent deviennent les arguments text.

Autrement dit, le premier mot n'est pas passé dans le text car il est normalement celui qui est "maitrisé".

Il te faut donc utiliser pubm à la place, et là ça devrait fonctionner.

[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.