AccueilCodesTutorielsForumsEmploiLivresConnexion

  • IRC CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 09 10:12:16
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COULEURS D'ÉCRITURE


Information sur la source

Catégorie :AddOns Classé sous : couleur, ecriture, input Niveau : Débutant Date de création : 13/09/2005 Date de mise à jour : 19/09/2005 17:03:34 Vu : 4 400
Auteur : Grais Site perso
Ecrire un message privé
Note :
3,67 / 10 - par 3 personnes
3,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

Description

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

Source

  • 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
  • }
  • } 
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 ;)
 

Historique

13 septembre 2005 14:53:43 :
J'avais fait une petite erreur : did -a $dname 8 -Grais Clair- à la place de : did -a $dname 8 -Gris Clair- ( j'écris trop souvent mon pseudo l'habitude )
19 septembre 2005 17:03:34 :
commentaire de talking

Commentaires et avis

signaler à un administrateur
Commentaire de talking le 13/09/2005 20:06:50

Salut. Bon j'ai vaguement regardé le code et tu peux alléger ça.

A commencer :
did -a $dname 8 -Aucun-
    did -a $dname 8 -Noir-
    did -a $dname 8 -Bleu-
    did -a $dname 8 -Vert-
    did -a $dname 8 -Rouge-
    did -a $dname 8 -Marron-

tu peux faire :
didtok $dname 8 44 -Noir-,-Bleu-,-Vert-,-Rouge-,-Marron-,.....
si tu veux plus d'informations : /help /didtok

Ensuite en ce qui concerne :

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 }
j'ai deux choses à dire la dessus :

1) ($did(couleurs,8) == $null) -> se remplace par (!$did(couleurs,8))
2) pour alléger ton code tu peux utiliser ce qu'on appelle les tokens :
exemple
set %coul -Aucun-,-Noir-,-Bleu-,-vert,-....
et ensuite tu fais
set %coul.text $findtok(%coul,$did(8),1,44)
c'est une solution parmi tant d'autre.
Sinon ce n'est pas mal pour une première source je trouve

Bonne continuation à toi

signaler à un administrateur
Commentaire de Grais le 14/09/2005 11:47:55

Merci beaucoup pour ton commentaire Talking m'aidera beaucoup dans ma progression ;-)

signaler à un administrateur
Commentaire de Grais le 17/09/2005 09:43:26

Mais je n'ai pas tres bien compris quelque chose l'exemple avec les tokens =/

signaler à un administrateur
Commentaire de hisoka2501 le 17/09/2005 18:29:15

   if ($devent == init) {
var %i 0 , %colors -Aucun-;-Noir-; -Bleu-;-Vert-;-Rouge-;-Marron-;-Mauve-;-Orange-;-Jaune-;-Vert Clair-;-Cyan-;-Bleu Clair-;-Rose-;-Gris-;-Gris Clair-;
while ($true) {
  inc %i
  var %tmp = $gettok(%colors,%i,59)
  if (%tmp) {
  did -a $dname 8 %tmp
  did -a $dname 9 %tmp
  }
  else { break }
  }
}

me semble beaucoup plus propre :$

puis pensse au elseif

if (truc) {}
elseif (machin) {}
elseif () {}
else { }

voila voila

signaler à un administrateur
Commentaire de hisoka2501 le 17/09/2005 19:49:21

ah didtok par contre je conaissai pas; cool g apris un truc :p

signaler à un administrateur
Commentaire de Grais le 19/09/2005 16:03:25

merci je modifie ma source tt de suite

signaler à un administrateur
Commentaire de Lylouemcrae le 29/08/2006 15:43:08

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 :(

signaler à un administrateur
Commentaire de hisoka2501 le 31/08/2006 15:08:38

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 :)

signaler à un administrateur
Commentaire de hisoka2501 le 31/08/2006 15:09:51

oops me suis raté:

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

voila :)

signaler à un administrateur
Commentaire de XyLOng le 22/03/2008 13:02:07 1/10

Dsl Mais c remote est Null Je fai la répetition de ma parole
comme un boulet

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Input [ par sat91 ] Slt tlm, joré besoin dune otre aide svp ! Enfait jvoudré changé laparence des message ki safiche a lecran, surtou les pseudo et lheure ; je mexplike : Couleur de texte + input [ par Kangta ] Bonjour donc je vous explique mon probleme ! voila l'input que je veux : &nbsp; On *:input:*:{if ($me isop $chan) { echo 12 $chan 2( $+ 4@12 $+ Couleur d'ecriture [ par diament_fox ] Bonjour , voila j'ai un leger probleme avec la remotte de couleur d'ecriture ci -&gt; http://www.ircfr.com/codes/ADDON-COULEUR-SALON-PRIVEE-AMSG-AME_3 couleur d'ecriture [ par InFerNaLeX ] on *:INPUT:*:{ if (($pos($1,!) = 1) || ($pos($1,/) = 1)) { /say 1,0 $1- } else { /say 6,0 $1- }}bonjour j'ai mis ca pour ecrire en mauve et retiré Xchat-> ecriture en couleur auto. [ par voxxx ] Bonjour, Je voulais savoir si il existe un plug in ou un moyen pour ecrire en couleur automatiquement sous Xchat. Parce que le clik droit et ctrl-K e Les couleurs [ par ThEagle1 ] Salut &#224; tousje m'amuse un peu avec mon script en ce momentet je veux metre des couleurs genrze dans une commande comme &#231;aOn *:TEXT:*!aide*:# cherche addon couleur [ par kiriii ] Bonjour&nbsp;j'ai regard&#233; et test&#233; plusieurs addons de couleur mais j'ai pas trouv&#233; je cherche un addon de couleur d'ecriture ou l'on p couleur de fond pour dialog simple [ par adimono ] Salut,je cherche le moyen de mettre une couleur de fond sur un dialog et eventuellement un background...j'ai deja essayé de regarder comment c'etait f Script couleur : répétition lors de message !?? [ par folo ] Salut à vous tous !Voilà je suis sur INVISION et il s'avère que j'ai installé un bel addon de couleur comme vous ne les aimez pas ... je sais (ça c'es input [ par Tupac_shakur ] Voila une petite question que je me pose :on *:input:*:{&nbsp; if ($1 == !voice &amp;&amp; $me isop $chan) { voice $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 }&n


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,170 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.