Panneau de configuration pour changer d'écriture

Commenter

Contenu du snippet

Bonjour, c'est un petit panneau de configuration pour la couleur d'écriture d'un script mais complet à la fois. Pour le mettre dans votre script, faites un C/C dans vos remotes. (dans une nouvelle fenêtre de préférence)

Source / Exemple : 


;Pour l'ouvir allez ensuite dans votre menubar ;)
menu menubar {
Couleur d'écriture:/dialog -m couleurs couleurs
}
dialog couleurs {
  title "Changer de couleur d'écriture"
  size 1 -1 300 400 350 
  text "Choisis la couleur:" 2, 100 5 90 19
  text "Première lettre:" 3, 100 25 90 19
  button "Rouge" 4, 100 40 90 19 
  button "Bleu" 5, 100 60 90 19
  button "Vert" 6, 100 80 90 19
  button "Noire" 7, 100 100 90 19
  text "Texte:" 8, 100 180 90 19
  button "Noir" 9, 100 195 90 19
  button "Bleu" 10, 100 215 90 19
  button "Rouge" 11, 100 235 90 19 
  button "Vert" 12, 100 255 90 19
  button "OK" 13, 100 365 90 30, ok
  button "Gras" 14, 5 55 90 19
  button "Sans gras" 15, 5 75 90 19
  text "Gras/Sans gras:" 16, 5 25 90 30
  text "Gras text/Sans gras:" 17, 5 180 95 30
  button "Gras" 18, 5 210 90 19
  button "Sans gras" 19, 5 230 90 19 
  text "Souligné/Pas souligné:" 20, 210 25 90 28
  button "Souligné" 21, 195 55 90 19 
  button "Pas souligné" 22, 195 75 90 19
  text "Souligner le text/Pas [...] :" 23, 195 180 90 28
  button "Souligner" 24, 195 210 90 19
  button "Pas souligner" 25, 195 230 90 19
  button "Réinitialiser" 26, 5 365 90 30
  button "Tester" 27, 195 365 90 30
  button "Gris" 28, 100 120 90 19
  button "Orange" 29, 100 140 90 19
  button "Violet" 30, 100 160 90 19
  button "Gris" 31, 100 275 90 19
  button "Orange" 32, 100 295 90 19
  button "Violet" 33, 100 315 90 19
}
on *:dialog:couleurs:sclick:*:{
  if ($did == 1) { /dialog -m couleurs couleurs }
  if ($did == 4) { 
    set %premierelettre 4
  }
  if ($did == 5) { 
    set %premierelettre 12
  }
  if ($did == 6) { 
    set %premierelettre 3
  }
  if ($did == 7) { 
    set %premierelettre 1
  }
  if ($did == 9) { 
    set %text 1
  }
  if ($did == 10) { 
    set %text 12
  }
  if ($did == 11) { 
    set %text 4
  }
  if ($did == 12) { 
    set %text 3
  }
  if ($did == 14) { 
    set %graspl 
  }
  if ($did == 15) { 
    set %graspl
  }
  if ($did == 18) { 
    set %grastext 
  }
  if ($did == 19) { 
    set %grastext
  }
  if ($did == 21) {
    set %soulettre 
  }
  if ($did == 22) {
    set %soulettre
  }
  if ($did == 24) {
    set %soutext 
  }
  if ($did == 25) {
    set %soutext
  }
  if ($did == 26) {
    unset %soulettre
    unset %premierelettre
    unset %graspl
    unset %text
    unset %grastext
    unset %soutext
    echo -at Couleurs réinitialisées - Couleur par défaut 
  }
  if ($did == 27) {
    echo -at 4(Test de la couleur) %soulettre $+ %premierelettre $+ %graspl $+ N $+ %soulettre $+ %graspl $+ %text $+ %grastext $+ %soutext $+ at0_Script Color
  } 
  if ($did == 28) {
    set %premierelettre 14
  }
  if ($did == 29) {
    set %premierelettre 7
  }
  if ($did == 30) {
    set %premierelettre 6
  }
  if ($did == 31) {
    set %text 14
  }
  if ($did == 32) {
    set %text 7
  }
  if ($did == 33) {
    set %text 6
  }
}
on *:input:*: {
  if ($left($1-,1) != /) && ($left($1-,1) != !) && ($left($1-,1) != =) && ($left($1-,1) != &) && ($left($1-,1) != ^) && ($left($1-,1) != -) && ($left($1-,1) != +) && ($left($1-,1) != :) && ($left($1-,1) != ;) {
    say $+(%soulettre $+ %premierelettre $+ %graspl $+ $left($1-,1)) $+  $+ %soulettre $+ %graspl $+ %text $+ %grastext $+ %soutext $+ $mid($1-,2)) $+  | halt
  }
}

Conclusion :


Voila alors profitez en bien ! Garantis 100% testé =)

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.