Dialog de couleurs :|

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 226 fois - Téléchargée 31 fois

Contenu du snippet

Mon code sert à configurer ses couleurs.. le titre en dit assez

Source / Exemple :


dialog colors {
  title "Colors par Mrud"
  size -1 -1 142 164
  option dbu
  text "Fond du text:", 1, 6 16 35 8
  text "Couleur du text :", 2, 6 30 43 8
  combo 3, 50 15 52 50, size drop
  combo 4, 50 29 52 50, size drop
  box "Couleur banal (chan..)", 5, 2 2 138 46
  check "Gras", 6, 104 16 24 8
  check "Souligné", 7, 104 32 32 8
  button "ok", 8, 32 148 25 10
  button "no", 9, 84 148 25 10, cancel
  box "Options 1ere lettre (Privé..)", 10, 2 50 138 44
  check "Gras", 11, 105 78 22 10
  check "Souligné", 12, 73 78 30 10
  check "Majuscule", 13, 14 78 34 10
  combo 14, 33 63 52 50, size drop
  text "Couleur :", 15, 6 64 25 8
  combo 17, 86 63 52 50, size drop
  check "rand", 18, 49 78 22 10
  check "", 19, 132 6 7 8
  check "", 20, 132 54 7 8
  box "Restant du text (Privé..)", 21, 2 96 138 46
  check "Souligné", 22, 106 125 32 10
  check "Gras", 23, 106 109 24 10
  combo 24, 52 123 52 50, size drop
  combo 25, 52 109 52 50, size drop
  text "Fond du text:", 26, 8 110 35 8
  text "Couleur du text :", 27, 8 124 43 8
  check "Maj 1er L", 16, 104 24 34 8
}
on 1:dialog:colors:*:*: {
  if ($devent = init) {
    var %i 1, %cool blanc,noir,bleu-foncé,vert-foncé,rouge,marron,violet,orange,jaune,vert-clair,cyan,bleu-clair,bleu,rose,gris-foncé,gris-clair
    while (%i <= 16) { did -i colors 3,4,14,17,24,25 %i $calc(%i -1) - $gettok(%cool,%i,44) | inc %i } 
    if (!%mgs2) { did -b colors 1,2,3,4,6,7,16 } | if ($gettok(%mgs2,$matchtok(%mgs2,,1,46),46)) { did -c colors 19 } | if ($matchtok(%mgs2,,1,46)) { did -c colors 6 } | if ($matchtok(%mgs2,,1,46)) { did -c colors 7 } | if ($gettok(%mgs2,$findtok(%mgs2,1,1,46),46)) { did -c colors 16 } | did -c colors 4 $calc($remove($gettok($matchtok(%mgs2,,1,46),1,44),$left($gettok($matchtok(%mgs2,,1,46),1,44),1)) +1) | did -c colors 3 $calc($gettok($matchtok(%mgs2,,1,46),2,44) +1)
    if (%randomz1) || (%randomz2) { did -c colors 18 | did -c colors 17 $calc(%randomz2 +1) } | if (%caouleur1) { did -c colors 20 | did -c colors 14 $calc($remove($gettok(%caouleur1,1,44),$left($gettok(%caouleur1,1,44),1)) +1) | did -c colors 25 $calc($gettok(%caouleur1,2,44) +1) }
    if (%caouleur2) { did -c colors 24 $calc($remove($gettok(%caouleur2,1,44),$left($gettok(%caouleur2,1,44),1)) +1) } | if (!%caouleur1) && (!%caouleur2) && (!%randomz1) && (!%randomz2) { did -b colors 10,11,12,13,14,15,17,18,22,23,24,25,26,27 } | if (!%randomz1) && (!%randomz2) { did -b colors 17 }
    if ($gettok(%smgs,$findtok(%smgs,,1,46),46)) { did -c colors 23 } | if ($gettok(%smgs,$findtok(%smgs,,1,46),46)) { did -c colors 22 } | if ($gettok(%mgs,$findtok(%mgs,1,1,46),46)) { did -c colors 13 } | if ($gettok(%mgs,$findtok(%mgs,,1,46),46)) { did -c colors 11 } | if ($gettok(%mgs,$findtok(%mgs,,1,46),46)) { did -c colors 12 }
  }
  if ($devent = sclick) {
    if ($did = 20) && (!$did(20).state)  { did -b colors 10,11,12,13,14,15,17,18,22,23,24,25,26,27 }
    if ($did = 20) && ($did(20).state) { did -e colors 10,11,12,13,14,15,18,22,23,24,25,26,27 }
    if ($did = 19) && (!$did(19).state)  { did -b colors 1,2,3,4,6,7,16 }
    if ($did = 19) && ($did(19).state) { did -e colors 1,2,3,4,6,7,16 }
    if ($did = 18) && (!$did(18).state)  { did -b colors 17 } 
    if ($did = 18) && ($did(18).state) { did -e colors 17 }
    if ($did = 8) { 
      $iif(!$did(6).state || !$did(19).state,set %mgs2 $remtok(%mgs2,,1,46),set %mgs2 $addtok(%mgs2,,46)) | $iif(!$did(7).state || !$did(19).state,set %mgs2 $remtok(%mgs2,,1,46),set %mgs2 $addtok(%mgs2,,46)) | $iif(!$did(19).state,unset %mgs2,$iif(!%mgs2,set %mgs2 $addtok(%mgs2,$+(,$calc($did(4).sel -1),$chr(44),$calc($did(3).sel -1)),46),set %mgs2 $puttok(%mgs2,$+(,$calc($did(4).sel -1),$chr(44),$calc($did(3).sel -1)),$findtok(%mgs2,$matchtok(%mgs2,,1,46),1,46),46)))
      set %caouleur1  $+ $calc($did(14).sel -1) $+ , $+ $calc($did(25).sel -1) | set %caouleur2  $+ $calc($did(24).sel -1) $+ , $+ $calc($did(25).sel -1)
      if ($did(18).state) { set %randomz1 $calc($did(14).sel -1) | set %randomz2 $calc($did(17).sel -1) } | if (!$did(18).state) { unset %randomz1 %randomz2 } | $iif(!$did(16).state || !$did(19).state,set %mgs2 $remtok(%mgs2,1,1,46),set %mgs2 $addtok(%mgs2,1,46))
      $iif(!$did(22).state,set %smgs $remtok(%smgs,,1,46),set %smgs $addtok(%smgs,,46)) | $iif(!$did(23).state,set %smgs $remtok(%smgs,,1,46),set %smgs $addtok(%smgs,,46)) | $iif(!$did(13).state,set %mgs $remtok(%mgs,1,1,46),set %mgs $addtok(%mgs,1,46)) | $iif(!$did(11).state,set %mgs $remtok(%mgs,,1,46),set %mgs $addtok(%mgs,,46)) | $iif(!$did(12).state,set %mgs $remtok(%mgs,,1,46),set %mgs $addtok(%mgs,,46)) | if (!$did(20).state) { unset %caouleur1 %caouleur2 %randomz1 %randomz2 %mgs %smgs }
      dialog -x colors
    }
  }
}
on 1:input:*:{
  if (/ == $left($1,1)) { return }
  if ($left($active,2) = #!) { say $matchtok(%mgs2,,1,46) $+ $matchtok(%mgs2,,1,46) $+ $matchtok(%mgs2,,1,46) $+ $iif(!$gettok(%mgs2,$findtok(%mgs2,1,1,46),46),$left($1-,1),$upper($left($1-,1))) $+ $mid($1-,2) }
  if ($left($active,2) != #!) { say $gettok(%mgs,$findtok(%mgs,,1,46),46) $+ $gettok(%mgs,$findtok(%mgs,,1,46),46) $+  $+ $instok($iif(%randomz1 && %randomz2,$iif($rand(1,2) = 1,%randomz1,%randomz2),$gettok(%caouleur1,1,44)),$gettok(%caouleur2,2,44),2,44) $+ $iif(!$gettok(%mgs,$findtok(%mgs,1,1,46),46),$left($1-,1),$upper($left($1-,1))) $+ $gettok(%mgs,$findtok(%mgs,,1,46),46) $+ $gettok(%mgs,$findtok(%mgs,,1,46),46) $+ %caouleur2 $+ $gettok(%smgs,$findtok(%smgs,,1,46),46) $+ $gettok(%smgs,$findtok(%smgs,,1,46),46) $+ $mid($1-,2) }
}

Conclusion :


donc j'ai eu l'idée de coder ça a cause d'une source poser il y a pas longtemp sur le site :
http://www.ircfr.com/code.aspx?ID=27365 le 1er cmt de PaDa surtout qui ma fait un déclik Ôô Bref, j'en ai pas terminer avec ce code ^ ^

A voir également

Ajouter un commentaire Commentaires
Messages postés
152
Date d'inscription
lundi 28 février 2005
Statut
Membre
Dernière intervention
3 novembre 2006

si ca écrit deux fois, c'est certainement qu'il y a plusieurs input dans ton mirc, et pas obligatoirement des addons de couleur... ca peut etre un code pour changer l'apparence de ton pseudo voir de l'heure.....

Sinon l'addon je le trouve assez bien moi =) meme si il n'est pas aussi complet que certain...
Messages postés
12
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
21 mai 2005

clem54 c bobom t tro nul ya un ti bug a corigé ou bien si tu a deu add-on de color voir + c normal ke ça ecrive plusieur foi ca mi fesai avan
Messages postés
253
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
16 octobre 2005

oui chu dacord moi ca écrit 2 foix !!
Messages postés
13
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
18 juillet 2005

Pk ca écrit en double?
Messages postés
116
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
26 janvier 2008

loadation,

la solution la plus facile pour toi, tu foure ça dans tes remotes :

alias say { msg $active $1- | halt }
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.