Voir tous le monde écrire en une couleur spécifier par vous !!!

[coders-irc_Bot]

J'ai fait un dialog, pour voir tous le monde écrire en une seule couleurs, parce que je déteste voir des couleur qui me "nique" les yeux, j'ai décidé de faire profiter de se dialog a tous le monde :) Comme options il y a les 16 couleurs principaux (ctrl+k) et aussi le surligner et le gras, plus tard a venir je vais mettre la premiere lettres en couleurs pour les fans de couleurs ^^. Bon pour en finir avec tous se blahblah, il a 2 manieres pour ouvrir le dialog, 1. tapez /textp // 2. tapez /dialog -m textp textp
alors profitez au maximun de ce dialog :))
Tous cas de bug ou de suggestion, veuillez me le dire dans les commentaires merci

alias textp { dialog -m textp textp }
dialog textp {
  title "Text Du PeoPle En Une Couleur"
  size -1 -1 116 50
  option dbu
  text "Choix De Couleur !", 2, 2 1 49 8
  check "Cocher pour activer", 3, 57 0 57 10
  button "OK", 4, 65 12 49 12, flat ok
  edit "", 1, 4 11 50 10, read
  list 6, 4 23 50 25, size
  button "Tester", 7, 65 24 49 12, flat
  check "Gras", 8, 57 40 24 10
  check "Souligner", 9, 83 40 31 10
}
on *:dialog:textp:*:*:{
  if ($devent == init) {
    themeecriture
    if (%themeecriturename) { did -ra textp 1 %themeecriturename }
    if ($group(#themeecriture)) { did -c textp 3 }
    if (%themeecrituregras) { did -c textp 8 }
    if (%themeecrituresoul) { did -c textp 9 }
  }
  elseif ($devent == sclick) {
    if $did == 3 { $iif($did(3).state,.enable,.disable) #themeecriture }
    if $did == 6 { 
      did -ra textp 1 $did(textp,6).seltext
      if $calc($did(6).sel - 1) < 10 { set %themeecriture  $+ $calc($did(6).sel - 1) }
      else { set %themeecriture  $+ $calc($did(6).sel - 1) }
    }
    if $did == 7 { echo -a $timestamp $+(%themeecrituresoul,%themeecriture,%themeecrituregras,$strip(08Ceci 11c'est 12pour 03vous 13montrer 06qui 07a 00qu'une 09couleur !!!)) }
    if $did == 8 { $iif($did(8).state,set,unset) %themeecrituregras  }
    if $did == 9 { $iif($did(9).state,set,unset) %themeecrituresoul  }
  }
}
#themeecriture off
on ^1:text:*:#:{ haltdef | echo # $timestamp < $+ $nick $+ > $+(%themeecrituregras,%themeecrituresoul,%themeecriture,$strip($1-)) }
#themeecriture end
alias -l themeecriture {
  did -a textp 6 Blanc | did -a textp 6 Noir 
  did -a textp 6 Bleue Marine | did -a textp 6 Vert 
  did -a textp 6 Rouge | did -a textp 6 Brun
  did -a textp 6 Violet | did -a textp 6 Orange 
  did -a textp 6 Jaune | did -a textp 6 Vert Fluo 
  did -a textp 6 Cyan Foncé | did -a textp 6 Cyan
  did -a textp 6 Bleu | did -a textp 6 Mauve
  did -a textp 6 Gris Foncé | did -a textp 6 Gris
}