COULEURS D'ÉCRITURE

alias couleurs { dialog -m couleurs couleurs }
dialog couleurs {
  title "«-Couleurs D'écriture-»"
  size -1 -1 248 176
  option dbu
  edit "", 1, 48 24 50 10
  edit "", 2, 152 24 50 10
  button "Gras", 3, 16 120 61 12, Flat
  button "Souligné", 4, 168 120 61 12, Flat
  button "Valider", 5, 98 152 53 12, ok cancel Flat
  text "...", 6, 25 144 41 16, center
  text "...", 7, 179 144 41 16, center
  button "Styles", 19, 98 40 53 20, Flat
  combo 8, 16 56 60 50, size drop
  combo 9, 168 56 60 50, size drop
  text "Style Gauche", 10, 40 14 65 8, center
  text "Style Droit", 11, 144 14 65 8, center
  text "Couleur de fond", 12, 165 45 65 8, center
  text "Couleur du text", 13, 13 45 65 8, center
  button "¤Desactiver¤", 14, 96 104 53 12, Flat
  text "...", 15, 104 72 41 16, center
}
on *:dialog:couleurs:*:*:{
  if ($devent == init) {
    didtok $dname 8 44 -Aucun-,-Noir-,-Bleu-,-Vert-,-Rouge-,-Marron-,-Mauve-,-Orange-,-Jaune-,-Vert Clair-,-Cyan-,-Bleu Clair-,-Rose-,-Gris-,-Gris Clair-
didtok $dname 9 44 -Aucun-,-Noir-,-Bleu-,-Vert-,-Rouge-,-Marron-,-Mauve-,-Orange-,-Jaune-,-Vert Clair-,-Cyan-,-Bleu Clair-,-Rose-,-Gris-,-Gris Clair-
  }
  if ($devent == sclick) {
    if ($did(couleurs,8) == -Aucun-) || ($did(couleurs,8) == $null) { set %coul.text 1 }
    if $did(couleurs,8) == -Noir- { set %coul.text 1 }
    if $did(couleurs,8) == -Bleu- { set %coul.text 2 }
    if $did(couleurs,8) == -Vert- { set %coul.text 3 }
    if $did(couleurs,8) == -Rouge- { set %coul.text 4 }
    if $did(couleurs,8) == -Marron- { set %coul.text 5 }
    if $did(couleurs,8) == -Mauve- { set %coul.text 6 }
    if $did(couleurs,8) == -Orange- { set %coul.text 7 }
    if $did(couleurs,8) == -Jaune- { set %coul.text 8 }
    if $did(couleurs,8) == -Vert Clair- { set %coul.text 9 }
    if $did(couleurs,8) == -Cyan- { set %coul.text 11 }
    if $did(couleurs,8) == -Bleu Clair- { set %coul.text 12 }
    if $did(couleurs,8) == -Rose- { set %coul.text 13 }
    if $did(couleurs,8) == -Gris- { set %coul.text 14 }
    if $did(couleurs,8) == -Gris Clair- { set %coul.text 15 }
    if $did(couleurs,9) == -Aucun- { unset %coul.fond }
    if $did(couleurs,9) == -Noir- { set %coul.fond ,1 }
    if $did(couleurs,9) == -Bleu- { set %coul.fond ,2 }
    if $did(couleurs,9) == -Vert- { set %coul.fond ,3 }
    if $did(couleurs,9) == -Rouge- { set %coul.fond ,4 }
    if $did(couleurs,9) == -Marron- { set %coul.fond ,5 }
    if $did(couleurs,9) == -Mauve- { set %coul.fond ,6 }
    if $did(couleurs,9) == -Orange- { set %coul.fond ,7 }
    if $did(couleurs,9) == -Jaune- { set %coul.fond ,8 }
    if $did(couleurs,9) == -Vert Clair- { set %coul.fond ,9 }
    if $did(couleurs,9) == -Cyan- { set %coul.fond ,11 }
    if $did(couleurs,9) == -Bleu Clair- { set %coul.fond ,12 }
    if $did(couleurs,9) == -Rose- { set %coul.fond ,13 }
    if $did(couleurs,9) == -Gris- { set %coul.fond ,14 }
    if $did(couleurs,9) == -Gris Clair- { set %coul.fond ,15 }
    if ($did == 3) { set %Gras   | if %Gras.click == 1 { %Gras.click = 0 | did -ra $dname 6 Désactivé | unset %Gras } | else { %Gras.click = 1 | did -ra $dname 6 Activé } }
    if ($did == 4) { set %Souligné  | if %Souligné.click == 1 { %Souligné.click = 0 | did -ra $dname 7 Désactivé | unset %Souligné } | else { %Souligné.click = 1 | did -ra $dname 7 Activé } }
    if ($did == 14) { unset %Gras | unset %Souligné | unset %coul.fond | unset %coul.text | unset %style.gauche | unset %style.droit }
    if ($did == 19) { set %style.gauche $did(1) | set %style.droit $did(2) | if %style.click == 1 { %style.click = 0 | did -ra $dname 15 Styles Désactivé | unset %style.gauche | unset %style.droit } | else { %style.click = 1 | did -ra $dname 15 Styles Activés } }
  }
}
on *:input:*: { 
  if ($left($1,1) != $chr(47)) && ($left($1,1) != $chr(33)) && ($left($1,1) != $chr(46)) { 
    .msg $active %Gras %Souligné %Coul.text $+ %coul.fond %style.gauche $1- %style.droit
    echo -at < $+ $iif($active ischan,$nick($active,$me).pnick,$me) $+ > %Gras %Souligné %Coul.text $+ %coul.fond %style.gauche $1- %style.droit
    halt
  }
}