Ceci est un Systeme Color qui vous permet de décoré votre écriture par exemple méttre des décoration à droite et a gauche, méttre des couleurs a votre ecriture, écrire en gras souligné et une majuscule au début si vous le souhaitez.
Source / Exemple :
###########################
# Systeme Colo © Atlantis #
###########################
alias coul dialog -m couleurs couleurs
dialog couleurs {
title "Systeme Color"
size -1 -1 216 145
tab "Couleurs",20, 5 5 205 115
box "Couleurs", 1, 10 35 195 65, tab 20
combo 2, 60 50 140 80, drop tab 20
combo 3, 60 75 140 80, drop tab 20
text "Ecriture :", 23, 15 55 45 50, tab 20
text "Fond :", 24, 15 80 45 30, tab 20
tab "Options",21, 5 5 205 115
box "Options", 4, 10 30 195 80, tab 21
text "Gras :", 8, 15 50 50 15, tab 21
text "Souligné :", 9, 15 70 60 15, tab 21
text "Majs :", 10, 15 90 50 15, tab 21
radio "Activé", 25, 70 45 60 20, group, tab 21
radio "Désactivé", 26, 130 45 65 20, tab 21
radio "Activé", 27, 70 65 60 20, group, tab 21
radio "Désactivé", 28, 130 65 65 20, tab 21
radio "Activé", 29, 70 85 60 20, group, tab 21
radio "Désactivé", 30, 130 85 65 20, tab 21
tab "Déco",22, 5 5 205 115
box "Décorations", 14, 10 35 195 65, tab 22
text "Gauche :", 15, 15 55 45 50, tab 22
edit %decog, 16, 60 50 140 20, autohs tab 22
text "Droite : ", 17, 15 80 45 30, tab 22
edit %decod, 18, 60 75 140 20, autohs tab 22
button "Enregistrer", 19, 5 120 206 20, ok
}
On *:input:*:{
var %chiffres = 0 1 2 3 4 5 6 7 8 9
if ($left($1,1) isin /!-+) || ($left($1-,1) isnum) { goto stop }
if (%maj != on) {
msg $active %decog $+(%soul,%gras,%color,%color.fond,$1-,) %decod | halt
}
:fin
if ($left($1,1) isin /!-+) || ($left($1-,1) isnum) { goto stop }
if (%maj == on) {
var %textmaj = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))
msg $active %decog $+(%soul,%gras,%color,%color.fond,%textmaj,) %decod | halt
}
:stop
}
On *:dialog:couleurs:init:*:{
If (%gras == ) { did -c $dname 25 | did -u $dname 26 }
else { did -u $dname 25 | did -c $dname 26 }
If (%soul == ) { did -c $dname 27 | did -u $dname 28 }
else { did -u $dname 27 | did -c $dname 28 }
If (%maj == on) { did -c $dname 29 | did -u $dname 30 }
else { did -u $dname 29 | did -c $dname 30 }
did -i couleurs 2 1 Ecriture
did -i couleurs 2 2 Blanc
did -i couleurs 2 3 Noir
did -i couleurs 2 4 Bleu Clair
did -i couleurs 2 5 Bleu
did -i couleurs 2 6 Bleu Foncé
did -i couleurs 2 7 Cyan
did -i couleurs 2 8 Vert Clair
did -i couleurs 2 9 Vert Foncé
did -i couleurs 2 10 Rouge
did -i couleurs 2 11 Marron
did -i couleurs 2 12 Violet
did -i couleurs 2 13 Orange
did -i couleurs 2 14 Jaune
did -i couleurs 2 15 Rose
did -i couleurs 2 16 Gris Foncé
did -i couleurs 2 17 Gris Clair
did -i couleurs 2 18 Aucune
if (%offsetcolor == $null) { set %offsetcolor 1 }
did -c couleurs 2 %offsetcolor
did -i couleurs 3 1 Fond
did -i couleurs 3 2 Blanc
did -i couleurs 3 3 Noir
did -i couleurs 3 4 Bleu Clair
did -i couleurs 3 5 Bleu
did -i couleurs 3 6 Bleu Foncé
did -i couleurs 3 7 Cyan
did -i couleurs 3 8 Vert Clair
did -i couleurs 3 9 Vert Foncé
did -i couleurs 3 10 Rouge
did -i couleurs 3 11 Marron
did -i couleurs 3 12 Violet
did -i couleurs 3 13 Orange
did -i couleurs 3 14 Jaune
did -i couleurs 3 15 Rose
did -i couleurs 3 16 Gris Foncé
did -i couleurs 3 17 Gris Clair
did -i couleurs 3 18 Aucune
if (%offsetfcolor == $null) { set %offsetfcolor 1 }
did -c couleurs 3 %offsetfcolor
}
On *:dialog:couleurs:sclick:*:{
if ($did == 25) { set %gras $chr(2) }
if ($did == 26) { set %gras $null }
if ($did == 27) { set %soul $chr(31) }
if ($did == 28) { set %soul $null }
if ($did == 29) { set %maj on }
if ($did == 30) { set %maj off }
if ($did(2).seltext == Blanc) { set %color $chr(3) $+ 0 | set %offsetcolor 2 }
if ($did(2).seltext == Noir) { set %color $chr(3) $+ 1 | set %offsetcolor 3 }
if ($did(2).seltext == Bleu Clair) { set %color $chr(3) $+ 11 | set %offsetcolor 4 }
if ($did(2).seltext == Bleu) { set %color $chr(3) $+ 12 | set %offsetcolor 5 }
if ($did(2).seltext == Bleu Foncé) { set %color $chr(3) $+ 2 | set %offsetcolor 6 }
if ($did(2).seltext == Cyan) { set %color $chr(3) $+ 10 | set %offsetcolor 7 }
if ($did(2).seltext == Vert Clair) { set %color $chr(3) $+ 9 | set %offsetcolor 8 }
if ($did(2).seltext == Vert Foncé) { set %color $chr(3) $+ 3 | set %offsetcolor 9 }
if ($did(2).seltext == Rouge) { set %color $chr(3) $+ 4 | set %offsetcolor 10 }
if ($did(2).seltext == Marron) { set %color $chr(3) $+ 5 | set %offsetcolor 11 }
if ($did(2).seltext == Violet) { set %color $chr(3) $+ 6 | set %offsetcolor 12 }
if ($did(2).seltext == Orange) { set %color $chr(3) $+ 7 | set %offsetcolor 13 }
if ($did(2).seltext == Jaune) { set %color $chr(3) $+ 8 | set %offsetcolor 14 }
if ($did(2).seltext == Rose) { set %color $chr(3) $+ 13 | set %offsetcolor 15 }
if ($did(2).seltext == Gris Foncé) { set %color $chr(3) $+ 14 | set %offsetcolor 16 }
if ($did(2).seltext == Gris Clair) { set %color $chr(3) $+ 15 | set %offsetcolor 17 }
if ($did(2).seltext == Aucune) { set %color $chr(3) | set %offsetcolor 18 }
if ($did(2).seltext == Ecriture) { set %color $chr(3) | set %offsetcolor 1 }
if ($did(3).seltext == Blanc) { set %color.fond ,0 | set %offsetfcolor 2 }
if ($did(3).seltext == Noir) { set %color.fond ,1 | set %offsetfcolor 3 }
if ($did(3).seltext == Bleu Clair) { set %color.fond ,11 | set %offsetfcolor 4 }
if ($did(3).seltext == Bleu) { set %color.fond ,12 | set %offsetfcolor 5 }
if ($did(3).seltext == Bleu Foncé) { set %color.fond ,2 | set %offsetfcolor 6 }
if ($did(3).seltext == Cyan) { set %color.fond ,10 | set %offsetfcolor 7 }
if ($did(3).seltext == Vert Clair) { set %color.fond ,9 | set %offsetfcolor 8 }
if ($did(3).seltext == Vert Foncé) { set %color.fond ,3 | set %offsetfcolor 9 }
if ($did(3).seltext == Rouge) { set %color.fond ,4 | set %offsetfcolor 10 }
if ($did(3).seltext == Marron) { set %color.fond ,5 | set %offsetfcolor 11 }
if ($did(3).seltext == Violet) { set %color.fond ,6 | set %offsetfcolor 12 }
if ($did(3).seltext == Orange) { set %color.fond ,7 | set %offsetfcolor 13 }
if ($did(3).seltext == Jaune) { set %color.fond ,8 | set %offsetfcolor 14 }
if ($did(3).seltext == Rose) { set %color.fond ,13 | set %offsetfcolor 15 }
if ($did(3).seltext == Gris Foncé) { set %color.fond ,14 | set %offsetfcolor 16 }
if ($did(3).seltext == Gris Clair) { set %color.fond ,15 | set %offsetfcolor 17 }
if ($did(3).seltext == Aucune) { set %color.fond $null | set %offsetfcolor 18 }
if ($did(3).seltext == Fond) { set %color.fond $null | set %offsetfcolor 1 }
}
On *:dialog:couleurs:edit:*:{
if ($did == 16) { set %decog $did(couleurs,16) }
if ($did == 18) { set %decod $did(couleurs,18) }
}
Conclusion :
Pour démarrer le Systeme Color tapé /coul
Have Fun
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.