Communauté Eggdrop
commande et personne qui écrive en couleur - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : commande et personne qui écrive en couleur (/showthread.php?tid=1157)



commande et personne qui écrive en couleur - Alucard`68 - 17/03/2012

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.


RE: commande et personne qui écrive en couleur - CrazyCat - 18/03/2012

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