Couleurs d'Écriture

4/5 (10 avis)

Snippet vu 7 280 fois - Téléchargée 27 fois

Contenu du snippet

Je crois que vous avez deja deviné a quoi sa sert ( à partir du titre )
Alt+R puis c/c dans la remote

Source / Exemple :


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
  }
}

Conclusion :


Je n'ai pas remarqué de bugs dans cette premiere source mais si vous en constatez avertissez moi.
J'attends vos commentaire pour améliorer mon code ;)

A voir également

Ajouter un commentaire Commentaires
XyLOng Messages postés 29 Date d'inscription samedi 12 janvier 2008 Statut Membre Dernière intervention 23 mars 2008
22 mars 2008 à 13:02
Dsl Mais c remote est Null Je fai la répetition de ma parole
comme un boulet
hisoka2501 Messages postés 264 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 7 juillet 2009
31 août 2006 à 15:09
oops me suis raté:

if ($findtok(%nom,$did(8),$asc(;))) %c = $+($chr(3),$gettok(%couleur,$v1,32))

voila :)
hisoka2501 Messages postés 264 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 7 juillet 2009
31 août 2006 à 15:08
pour ce coté le je sais pas du tout

sinon il me vien une idée pour racourcire touts tes if:

#
# if $did(couleurs,8) == -Noir- { set %coul.text 1 }
# if $did(couleurs,8) == -Bleu- { set %coul.text 2 }

tu peu faire un truc du genre:

var %nom -Noir-;Bleu;.... , %couleur 01 02

ensuite tu peu faire uen boucle qui partcourt %nom suivant le token ;
et tu met le compteur pour avoir la valeur corespondante dans %couleur
ou meme mieux:

if ($findtok(%nom,$did(8),$asc(;))) %c = $+($chr(3),%couleur)
et %c = la couleur que tu veu pour ce nom
tu n'est pas on plus obligé de metre $did(le dialog,id)
le dialog tu le remplis que si tu agis sur un autre dialog que le tien :)

aussis éssai de minimiser un maximum l'usage des |
ca ralentis le code et le rend moin lisible
quand aux {} ne les utilise que s'il y a plusieures instructions apres ton if
example:

if (truc > lol) machin

et
if (truc > lol {
machin1
machin2
}

voila jespere que ca poura te servir :)
Lylouemcrae Messages postés 1 Date d'inscription samedi 13 mai 2006 Statut Membre Dernière intervention 29 août 2006
29 août 2006 à 15:43
mon mirc refuse depuis quelques temps toutes nouvelles remotes, c'est enervant alors qu'avant j'y arrivais ! si quelqu'un sait pourquoi, merci de m'aider :(
cs_Grais Messages postés 33 Date d'inscription lundi 8 août 2005 Statut Membre Dernière intervention 13 décembre 2005
19 sept. 2005 à 16:03
merci je modifie ma source tt de suite
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Grais)