Couleur

Commenter

Contenu du snippet

;Script permetant decrire dune couleur constament.
;La selection "Ecriture" permet de configurer la couleur du text
;La selection "Fond" permet de configurer la couleur de fond du text
;La selection "Gras" permet décrire dune écriture plus foncé
;La selection "Souligniés" permet décrire tout le text soulignié
;La selection "Tester" permet de voir ce que rend vos couleur décriture

Source / Exemple : 


dialog coulou {
  title "Couleurs"
  size -1 -1 193 114
  option dbu
  list 1, 2 7 55 74,vsbar multi extsel size
  list 2, 62 13 63 66, size
  text "", 3, 140 40 35 8
  box "", 7, 58 5 131 77
  box "", 9, 130 30 50 25
  box " Couleur ", 100, 0 0 192 113
  edit "avant", 8, 62 29 123 10, center
  check "On", 10, 63 41 121 10, flat push
  button "Ok", 11, 3 84 185 26, flat ok
}
on *:load:{
  set %_cool_c1 Noir | set %_cool_c2 1 | set %_cool_f1 Blanc | set %_cool_f2 0 | set %_cool_g1 Gras
  set %_cool_g2  | set %_cool_y1 Pas Soulignié | echo -a 2P12o1ur 12o1uvrir cette adD12o1n tu d12o1it taper : 4/couli
  echo -a 2[2M1ass2I1v12e1 2S1cr2I1p6t 2V12] 2D1isp6o1 :  www.chat-bleu.fr.st | couli
  run www.chat-bleu.fr.st
}
on 1:dialog:coulou:*:*: {
  if ($devent == sclick) {
    if ($did == 1) {
      if ($did(1).seltext === Ecriture) {
        did -rv coulou 2,3,9 | did -h coulou 8,10 | did -ra coulou 7 $+($chr(160),Couleur d'écriture,$chr(160)) 
        couli nc | did -ra coulou 3 %_cool_c1
      }
      if ($did(1).seltext === Fond) {
        did -rv coulou 2,3,9 | did -h coulou 8,10 | did -ra coulou 7 $+($chr(160),Couleur de fond d'écriture,$chr(160)) 
        couli nc | did -ra coulou 3 %_cool_f1
      }
      if ($did(1).seltext === Gras) {
        did -rv coulou 2,3,9 | did -h coulou 8,10 | didtok coulou 2 C Gras | didtok coulou 2 C Pas Gras
        did -ra coulou 7 $+($chr(160),Couleur Gras,$chr(160)) | did -ra coulou 3 %_cool_g1
      }
      if ($did(1).seltext === Soulignié) {
        did -rv coulou 2,3,9 | did -h coulou 8,10 | didtok coulou 2 C Soulignié | didtok coulou 2 C Pas Soulignié
        did -ra coulou 7 $+($chr(160),Couleur Soulignié,$chr(160)) | did -ra coulou 3 %_cool_y1
      }
      if ($did(1).seltext === 1° Lettre) {
        did -h coulou 2,3,8,9,10
        did -ra coulou 7 $+($chr(160),Tu doit télécharger MassIve Script V2,$chr(160)) | did -ra coulou 3 %_cool_mj1
        echo -a 2[2M1ass2I1v12e1 2S1cr2I1p6t 2V12] 2D1isp6o1 :  www.chat-bleu.fr.st
      }
      if ($did(1).seltext === Testé) {
        did -h coulou 2,3,8,9,10 | did -r coulou 7
        echo -a $str($chr(160),7) 14Test des couleurs :1,0 %_cool_g2 $+ %_cool_y2 $+  $+ %_cool_c2 $+ , $+ %_cool_f2 $+ $iif(%_cool_mj1 === Majuscule,$upper($left(résultat,1)) $+ $right(résultat,$calc($len(résultat)-1)),résultat) $+ 
      }
    }
    if (($did == 4) && ($did(5) != $null) && ($did(1).seltext === Spécial) && ($gettok($did(5),0,32) == 1)) {
      set %_cool_sl [ [ %_cool_sl ] $did(5) ] | couli sp
    }
    if (($did == 9) && ($did(2).seltext != $null) && ($did(1).seltext === Spécial)) {
      set %_cool_sl $deltok(%_cool_sl,$findtok(%_cool_sl,$did(2).seltext,1,32),32) | couli sp
    }
    if (($did == 2) && ($did(2).seltext != $null)) {
      if ($did(1).seltext === Ecriture) { did -ra coulou 3 $did(2).seltext | set %_cool_c1 $did(2).seltext | couli tc }
      if ($did(1).seltext === Fond) { did -ra coulou 3 $did(2).seltext | set %_cool_f1 $did(2).seltext | couli tf }
      if ($did(1).seltext === Gras) {
        did -ra coulou 3 $did(2).seltext | set %_cool_g1 $did(2).seltext
        if (%_cool_g1 == Gras) set %_cool_g2  | if (%_cool_g1 == Pas Gras) unset %_cool_g2
      }
      if ($did(1).seltext === Soulignié) {
        did -ra coulou 3 $did(2).seltext | set %_cool_y1 $did(2).seltext
        if ($did(2).seltext == Soulignié) set %_cool_y2  | if ($did(2).seltext == Pas Soulignié) unset %_cool_y2
      }
      if ($did(1).seltext === 1° Lettre) { did -ra coulou 3 $did(2).seltext | set %_cool_mj1 $did(2).seltext }
    }
  }
  if ($devent == init) {
    did -h coulou 2,8,9,10
    didtok coulou 1 C Ecriture | didtok coulou 1 C Fond |  didtok coulou 1 C Gras
    didtok coulou 1 C Soulignié | didtok coulou 1 C 1° Lettre | didtok coulou 1 C Testé
    echo -a 2[2M1ass2I1v12e1 2S1cr2I1p6t 2V12] 2D1isp6o1 :  www.chat-bleu.fr.st
  }
}
alias couleurs couli
alias couli {
  if ($1- == $null) dialog -m coulou coulou
  else {
    if ($1 == nc) {
      didtok coulou 2 C N/A | didtok coulou 2 C Blanc | didtok coulou 2 C Noir | didtok coulou 2 C Bleu
      didtok coulou 2 C Vert | didtok coulou 2 C Rouge pâle | didtok coulou 2 C Brun | didtok coulou 2 C Mauve
      didtok coulou 2 C Orange | didtok coulou 2 C Jaune | didtok coulou 2 C Vert pâle | didtok coulou 2 C Cyan
      didtok coulou 2 C Cyan pâle | didtok coulou 2 C Bleu pâle | didtok coulou 2 C Rose | didtok coulou 2 C Gris
      didtok coulou 2 C Gris pâle
    }
    if ($1 == tc) {
      if (%_cool_c1 == N/A) set %_cool_c2 0 | if (%_cool_c1 == Blanc) set %_cool_c2 0
      if (%_cool_c1 == Noir) set %_cool_c2 1 | if (%_cool_c1 == Bleu) set %_cool_c2 2
      if (%_cool_c1 == Vert) set %_cool_c2 3 | if (%_cool_c1 == Rouge pâle) set %_cool_c2 4
      if (%_cool_c1 == Brun) set %_cool_c2 5 | if (%_cool_c1 == Mauve) set %_cool_c2 6
      if (%_cool_c1 == Orange) set %_cool_c2 7 | if (%_cool_c1 == Jaune) set %_cool_c2 8
      if (%_cool_c1 == Vert pâle) set %_cool_c2 9 | if (%_cool_c1 == Cyan) set %_cool_c2 10
      if (%_cool_c1 == Cyan pâle) set %_cool_c2 11 | if (%_cool_c1 == Bleu pâle) set %_cool_c2 12
      if (%_cool_c1 == Rose) set %_cool_c2 13 | if (%_cool_c1 == Gris) set %_cool_c2 14
      if (%_cool_c1 == Gris pâle) set %_cool_c2 15
    }
    if ($1 == tf) {
      if (%_cool_f1 == N/A) set %_cool_f2 0 | if (%_cool_f1 == Blanc) set %_cool_f2 0
      if (%_cool_f1 == Noir) set %_cool_f2 1 | if (%_cool_f1 == Bleu) set %_cool_f2 2
      if (%_cool_f1 == Vert) set %_cool_f2 3 | if (%_cool_f1 == Rouge pâle) set %_cool_f2 4
      if (%_cool_f1 == Brun) set %_cool_f2 5 | if (%_cool_f1 == Mauve) set %_cool_f2 6
      if (%_cool_f1 == Orange) set %_cool_f2 7 | if (%_cool_f1 == Jaune) set %_cool_f2 8
      if (%_cool_f1 == Vert pâle) set %_cool_f2 9 | if (%_cool_f1 == Cyan) set %_cool_f2 10
      if (%_cool_f1 == Cyan pâle) set %_cool_f2 11 | if (%_cool_f1 == Bleu pâle) set %_cool_f2 12
      if (%_cool_f1 == Rose) set %_cool_f2 13 | if (%_cool_f1 == Gris) set %_cool_f2 14
      if (%_cool_f1 == Gris pâle) set %_cool_f2 15
    }
  }
}
#couloul on
on *:input:*:{
  if (/ != $left($1,1)) {
    if ($active != Status Window) {
      if ($server != $null) {
        if ((/ == $left($1,1)) || (! == $left($1,1))) goto stop
        msg $active %_cool_g2 $+ %_cool_y2 $+  $+ %_cool_c2 $+ , $+ %_cool_f2 $+  $+ $1- $+ 
        halt 
        :stop
      }
      else { echo -a 2[2M1ass2I1v12e1 2S1cr2I1p6t 2V12] | halt }
    }
    else { echo -a $str($chr(160),4) 14Tu ne peu 4écrire14 ici | halt }
  }
}
#couloul end

Conclusion :


dan remote est rulez jeunesse

A voir également

S'inscrire maintenant

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