[TCL] Motus (version actuelle : 3.355)

[MenzAgitat]

Tu dois chercher la procédure proc motus::color qui se trouve à la fin du script (c'est elle qui définit les mots clés associés aux couleurs), et plus particulièrement les 4 lignes suivantes car ce sont elles qui t'intéressent :

tclcopier

"letterexists" { if { $motus::monochrome != 1 } { return "\00304" } { return "\002" } }
"letterplaced" { if { $motus::monochrome != 1 } { return "\00303" } { return "\037\002" } }
"letterexistsend" { if { $motus::monochrome != 1 } { return "\003" } { return "\002" } }
"letterplacedend" { if { $motus::monochrome != 1 } { return "\003" } { return "\002\037" } }

- letterexists représente la couleur utilisée pour une lettre existante mais mal placée.
- letterexistsend représente la balise de fermeture à placer après letterexists pour repasser en couleur par défaut.
- letterplaced représente la couleur utilisée pour une lettre bien placée.
- letterplacedend représente la balise de fermeture à placer après letterplaced pour repasser en couleur par défaut.


Concrètement, pour faire ce que tu veux, tu dois modifier ces 4 lignes comme ceci :

tclcopier

"letterexists" { if { $motus::monochrome != 1 } { return "\00300,03" } { return "\002" } }
"letterplaced" { if { $motus::monochrome != 1 } { return "\00300,04" } { return "\037\002" } }
"letterexistsend" { if { $motus::monochrome != 1 } { return "\003" } { return "\002" } }
"letterplacedend" { if { $motus::monochrome != 1 } { return "\003" } { return "\002\037" } }