texte corrigé en couleur

Bonjour,
Je voudrais savoir si il est possible d'utiliser un addon de correction de texte en même temps qu'un addon couleur?
Voila mes on input:

- pour les couleurs d'écriture:

On 1:input:*:{ if ($active == Status Window) { echo *** Vous n'êtes pas dans un salon | halt } if (/ == $left($1,1)) { goto ind } if (! == $left($1,1)) { goto ind } if (. == $left($1,1)) { goto ind } if c isin $gettok($chan($chan).mode,1,32) { say $1- | halt } if %simplecouleur == on { msg $active %gras $+ %soul $+  $+ %simplecri $+ , $+ %simplefon $+  $+  $+ $1- | haltdef } if %stylecouleur == on { var %a.t $upper($left($1-,1)) | var %s.t $mid($1-,2) | msg $active  $+ %stylecri1 $+ , $+ %stylefon1 $+ %gras $+ %soul $+ %a.t $+  $+ %stylecri2 $+ , $+ %stylefon2 $+  $+  $+ %s.t | halt } if %persocouleur == on { msg $active %deco.gauche $1- %deco.droite | halt } if %grasaltern == on { unset %semibold.* set %semibold.i 0 set %semibold.text $replace($strip($1-),$chr(32),$chr(160)) :inv inc %semibold.i 1 set %semibold.textf %semibold.textf $+ $mid(%semibold.text,%semibold.i,1) $+  if $mid(%semibold.text,%semibold.i,1) == $null { goto print } goto inv :print say %soul $+  $+ %simplecri $+ , $+ %simplefon $+ $replace(%semibold.textf,$chr(160),$chr(32)) halt } if %majaltern == on { if ((/ !isin $1-)) { set %a 1 set %b $len($1-) %text = $replace($strip($1-,burc),$chr(32),$chr(1)) while (%a <= %b) { if (2 // $len($left(%text,%a))) { %textupp = %textupp $+ $mid(%text,%a,1) inc %a 1 } else { %textupp = %textupp $+ $upper($mid(%text,%a,1)) inc %a 1 } } say %gras $+ %soul $+  $+ %simplecri $+ , $+ %simplefon $+ $replace(%textupp,$chr(1),$chr(32)) unset %textupp unset %a unset %b unset %text haltdef halt } } if %coulaltern == on { unset %coulaltern.* set %coulaltern.i 0 set %coulaltern.text $replace($strip($1-),$chr(32),$chr(160)) :int inc %coulaltern.i 1 set %coulaltern.textf %coulaltern.textf $+ $mid(%coulaltern.text,%coulaltern.i,1) $+  $+ $rand(1,15) if $mid(%coulaltern.text,%coulaltern.i,1) == $null { goto printer } goto int :printer say %gras $+ %soul $+ $replace(%coulaltern.textf,$chr(160),$chr(32)) halt } if %deco01 == on { msg $active %gras $+ %soul $+ 12,2[2,12[12,2[2,12[12,2[2,12[12,2[8 $1- 12,2]2,12]12,2]2,12]12,2]2,12]12,2] | halt } if %deco02 == on { msg $active %gras $+ %soul $+ 8,1«0©8»12 $1- 8,1«0©8» | halt } if %deco03 == on { msg $active %gras $+ %soul $+ 0,0/15,0/14,15/15,14/1,14/14,1/1,0 $1- 14,1\1,14\15,14\14,15\15,0\0,0\ | halt } :ind }

-pour la correction de texte:

on *:input:*:{ if $left($1-,1) == $chr(47) { // $+ $1- | goto end } set %correct.final $1- var %x = 1, %y = $ini(scripts\correct.ini,correct,0) while (%x <= %y) { var %u = $matchtok(%correct.final, $ini(scripts\correct.ini,correct,%x), 0, 32), %uu = 1 while (%uu <= %u) { set %correct.final $reptok(%correct.final,$ini(scripts\correct.ini,correct,%x),$readini(scripts\correct.ini,correct,$ini(scripts\correct.ini,correct,%x)),1,32) inc %uu } ;set %correct.final $replace(%correct.final,$ini(scripts\correct.ini,correct,%x),$readini(scripts\correct.ini,correct,$ini(scripts\correct.ini,correct,%x))) inc %x } say %correct.final halt :end }

Voila, je ne sais pas où faire ça. J'ai essayé beaucoup de chose mais sans résultat.

Camanche

j'aurai bien aimé qu'on te reponde :/ si tu as trouvé poste le. stp.
8) faut signé ô/ô bah bref c'est fait quoi =)