Add on couleur

Contenu du snippet

un add on pour écrire en couleur

Source / Exemple :


menu * {
  - 
  couleur d'écriture:/dialog -m couleur couleur
}

dialog couleur {
  size -1 -1 300 150
  option dbu
  title "couleur d'écriture pour revolution_script"
  button "ok",1, 280 140 20 10, ok
  box "Texte",2, 5 2 135 110
  button "blanc",3, 10 10 40 10
  button "noir",4, 52 10 40 10
  button "bleu foncé",5, 94 10 40 10
  button "vert foncé",6, 10 25 40 10
  button "rouge",7, 52 25 40 10 
  button "marron",8, 94 25 40 10
  button "violet",9, 10 40 40 10
  button "orange",10, 52 40 40 10
  button "jaune",11, 94 40 40 10
  button "vert",12, 10 55 40 10
  button "cyan",13, 52 55 40 10
  button "bleu clair",14, 94 55 40 10
  button "bleu marine",15, 10 70 40 10
  button "rose",16, 52 70 40 10
  button "gris foncé",17, 94 70 40 10
  button "gris clair",18, 10 85 40 10
  box "fond",19, 150 2 135 110
  button "blanc",20, 155 10 40 10
  button "noir",21, 197 10 40 10
  button "bleu foncé",22, 239 10 40 10
  button "vert foncé",23, 155 25 40 10
  button "rouge",24, 197 25 40 10
  button "marron",25, 239 25 40 10
  button "violet",26, 155 40 40 10
  button "orange",27, 197 40 40 10
  button "jaune",28, 239 40 40 10
  button "vert",29, 155 55 40 10
  button "cyan",30, 197 55 40 10
  button "bleu clair",31, 239 55 40 10
  button "bleu marine",32, 155 70 40 10
  button "rose",33, 197 70 40 10
  button "gris foncé",34, 239 70 40 10
  button "gris clair",35, 155 85 40 10
  check "ON/OFF",36, 10 115 60 10
  edit %couleur_avnt,37, 85 130 50 10, autohs
  text "symboles d'écriture avant",38, 5 130 80 10
  text "symboles d'écriture aprés",39, 150 130 80 10
  edit %couleur_aprs,40, 220 130 50 10, autohs
}

ON *:DIALOG:couleur:sclick:3: { /set %couleur_ec 0 }
ON *:DIALOG:couleur:sclick:4: { /set %couleur_ec 1 }
ON *:DIALOG:couleur:sclick:5: { /set %couleur_ec 2 }
ON *:DIALOG:couleur:sclick:6: { /set %couleur_ec 3 }
ON *:DIALOG:couleur:sclick:7: { /set %couleur_ec 4 }
ON *:DIALOG:couleur:sclick:8: { /set %couleur_ec 5 }
ON *:DIALOG:couleur:sclick:9: { /set %couleur_ec 6 }
ON *:DIALOG:couleur:sclick:10: { /set %couleur_ec 7 }
ON *:DIALOG:couleur:sclick:11: { /set %couleur_ec 8 }
ON *:DIALOG:couleur:sclick:12: { /set %couleur_ec 9 }
ON *:DIALOG:couleur:sclick:13: { /set %couleur_ec 10 }
ON *:DIALOG:couleur:sclick:14: { /set %couleur_ec 11 }
ON *:DIALOG:couleur:sclick:15: { /set %couleur_ec 12 }
ON *:DIALOG:couleur:sclick:16: { /set %couleur_ec 13 }
ON *:DIALOG:couleur:sclick:17: { /set %couleur_ec 14 }
ON *:DIALOG:couleur:sclick:18: { /set %couleur_ec 15 }

ON *:DIALOG:couleur:sclick:20: { /set %couleur_ec_fnd ,0 }
ON *:DIALOG:couleur:sclick:21: { /set %couleur_ec_fnd ,1 }
ON *:DIALOG:couleur:sclick:22: { /set %couleur_ec_fnd ,2 }
ON *:DIALOG:couleur:sclick:23: { /set %couleur_ec_fnd ,3 }
ON *:DIALOG:couleur:sclick:24: { /set %couleur_ec_fnd ,4 }
ON *:DIALOG:couleur:sclick:25: { /set %couleur_ec_fnd ,5 }
ON *:DIALOG:couleur:sclick:26: { /set %couleur_ec_fnd ,6 }
ON *:DIALOG:couleur:sclick:27: { /set %couleur_ec_fnd ,7 }
ON *:DIALOG:couleur:sclick:28: { /set %couleur_ec_fnd ,8 }
ON *:DIALOG:couleur:sclick:29: { /set %couleur_ec_fnd ,9 }
ON *:DIALOG:couleur:sclick:30: { /set %couleur_ec_fnd ,10 }
ON *:DIALOG:couleur:sclick:31: { /set %couleur_ec_fnd ,11 }
ON *:DIALOG:couleur:sclick:32: { /set %couleur_ec_fnd ,12 }
ON *:DIALOG:couleur:sclick:33: { /set %couleur_ec_fnd ,13 }
ON *:DIALOG:couleur:sclick:34: { /set %couleur_ec_fnd ,14 }
ON *:DIALOG:couleur:sclick:35: { /set %couleur_ec_fnd ,15 }
ON *:DIALOG:couleur:sclick:36:{
  if ($did(36).state == 0) { set %couleur.etat OFF }
  if ($did(36).state == 1) { set %couleur.etat ON }
}
ON *:DIALOG:couleur:edit:37: { /set %couleur_avnt $did(couleur,37) }
ON *:DIALOG:couleur:edit:40: { /set %couleur_aprs $did(couleur,40) }
ON *:DIALOG:couleur:init:0:{ if (%couleur.etat == ON) { did -c $dname 36 } }

ON *:INPUT:*: {
  if $left($1-,1) != ! {
    if $left($1-,1) != / {
      if (%couleur.etat == off  ) { goto fin }
      /msg $active   %couleur_ec $+ %couleur_ec_fnd   %couleur_avnt    $1-  %couleur_aprs  
      halt def
      :fin 
    }
  }
}

A voir également

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.