commande et personne qui écrive en couleur

[Alucard`68]

Bonjour,

alors voila mon problème est le suivant, quand les user de mon salon tape !sky Jess en noir ça fonctionne parfaitement bien par contre si ils utilisent de la couleur là c'est le drame aucune commande ne répond.

donc en fouinant sur le net je suis tombé la dessus je l'es inséré a mon code mais toujours rien ça ne fonctionne pas ...

Voila le tcl:

TCL

proc mirc_strip {{args ""}} {
   set switches ""
   if {$switches == ""} { set switches all }
   set arg [lindex $args 0]
   set all [expr {([lsearch -exact $switches all] >= 0) ? 1 : 0}]
   set list [list \002 "" \017 "" \026 "" \037 ""]
   regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $arg "" arg
   #set arg [replace -- $arg [join $list]]
   set arg [string map {\002 "" \017 "" \026 "" \037 ""} $arg]   
   return $arg
}

Quelqu'un aurait-il une idée? Ou même la solution magique pour que les commandes tapé en couleur fonctionne. Moi je ne sais pas comment faire.

Merci d'avance pour votre future aide.

Cordialement.

[CrazyCat]

Si c'est pour ton "fun.tcl", la petite correction apportée sur ce post devrait suffire.