17/03/2012, 11:00
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:
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.
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.