Conclusion
dialog ecriture {
title "-[ Ecriture ]-"
size -1 -1 201 255
option pixels
combo 1, 66 31 120 75, size drop
text "Ecriture:", 2, 13 33 50 16
text "Fond:", 3, 13 59 50 16
combo 4, 66 57 120 61, size drop
check "", 5, 12 99 20 20
text "Gras", 6, 33 102 50 16
check "", 7, 90 99 20 20
text "Souligné", 8, 112 102 50 16
box "", 9, 4 17 193 70
text "Mode Normal:", 10, 4 4 193 16, center
box "", 11, 201 47 268 122
combo 12, 342 61 120 100, size drop
text "Ecriture premiere lettre:", 13, 208 62 130 16
combo 14, 342 87 120 100, size drop
text "Mode Avancé:", 15, 202 34 266 16, center
text "Fond premiere lettre:", 16, 208 89 130 16
text "Fond du reste du texte:", 17, 208 141 130 16
text "Ecriture du reste du texte:", 18, 208 114 130 16, center
combo 19, 342 113 120 100, size drop
combo 20, 342 139 120 100, size drop
box "", 21, 4 85 193 83
check "", 22, 12 120 19 20
text "Premiere lettre en gras", 23, 34 122 123 16
check "", 24, 12 140 19 20
text "Premiere lettre en Majuscule", 25, 34 142 141 16
check "", 26, 12 176 20 20
check "", 27, 103 176 20 20
box "", 28, 4 166 194 63
text "Mode avancé", 29, 123 178 69 16
text "Mode normal", 30, 32 178 65 16
check "", 31, 46 203 20 20
text "Mode decoration", 32, 67 204 94 16
box "", 33, 201 186 268 43
edit "", 34, 206 200 258 21, autohs center
text "Decoration du texte d'ecriture:", 35, 201 173 267 16, center
button "Fermer", 36, 5 232 192 20, ok
}
on *:dialog:ecriture:*:*:{
if $devent == init {
did -ai $dname 1,4,12,14,19,20 Aucune
did -ai $dname 1,4,12,14,19,20 Blanc
did -ai $dname 1,4,12,14,19,20 Noir
did -ai $dname 1,4,12,14,19,20 Bleu_foncé
did -ai $dname 1,4,12,14,19,20 Vert_foncé
did -ai $dname 1,4,12,14,19,20 Rouge
did -ai $dname 1,4,12,14,19,20 Marron
did -ai $dname 1,4,12,14,19,20 Violet
did -ai $dname 1,4,12,14,19,20 Orange
did -ai $dname 1,4,12,14,19,20 Jaune
did -ai $dname 1,4,12,14,19,20 Vert_clair
did -ai $dname 1,4,12,14,19,20 Vert_Pâle
did -ai $dname 1,4,12,14,19,20 Bleu_ciel
did -ai $dname 1,4,12,14,19,20 Bleu
did -ai $dname 1,4,12,14,19,20 Rose
did -ai $dname 1,4,12,14,19,20 Gris_foncé
did -ai $dname 1,4,12,14,19,20 Gris
did -c $dname 1 $calc($mid($left(%coul.normal,2),2) +2)
if $chr(44) isin %coul.normal { did -c $dname 4 $calc($mid($left(%coul.normal,4),4) +2) }
elseif %coul.normal == $null { did -c $dname 1,4 1 }
if %p.lettre.ecri == $null { did -c $dname 12 1 } | else { did -c $dname 12 $calc(%p.lettre.ecri +2) }
if %p.lettre.fond == $null { did -c $dname 14 1 } | else { did -c $dname 14 $calc(%p.lettre.fond +2) }
if %r.lettre.ecri == $null { did -c $dname 19 1 } | else { did -c $dname 19 $calc(%r.lettre.ecri +2) }
if %r.lettre.fond == $null { did -c $dname 20 1 } | else { did -c $dname 20 $calc(%r.lettre.fond +2) }
if %gras = { did -c $dname 5 }
if %souligne = { did -c $dname 7 }
if %p.lettre.gras = on { did -c $dname 22 }
if %p.lettre.maj = on { did -c $dname 24 }
if %mode.coul.normal = on { did -c $dname 26 }
if %mode.coul.avancee = on { did -c $dname 27 | dialog -s $dname -1 -1 472 255 }
if %mode.coul.deco = on { did -c $dname 31 | dialog -s $dname -1 -1 472 255 }
if %deco = $null { set %deco <texte> }
did -ai $dname 34 %deco
}
if $devent == close {
if $did(34) != %deco { set %deco $did(34) }
}
if $devent == sclick {
if $did == 26 {
if %mode.coul.normal = on {
set %mode.coul.normal off
}
else {
set %mode.coul.normal on
set %mode.coul.avancee off
set %mode.coul.deco off
dialog -s $dname -1 -1 201 255
did -u $dname 27,31
}
}
if $did == 27 {
if %mode.coul.avancee = on {
set %mode.coul.avancee off
set %mode.coul.deco off
dialog -s $dname -1 -1 201 255
}
else {
set %mode.coul.avancee on
set %mode.coul.normal off
set %mode.coul.deco off
dialog -s $dname -1 -1 472 255
did -u $dname 26,31
}
}
if $did == 31 {
if %mode.coul.deco = on {
set %mode.coul.avancee off
dialog -s $dname -1 -1 201 255
}
else {
set %mode.coul.avancee off
set %mode.coul.normal off
set %mode.coul.deco on
dialog -s $dname -1 -1 472 255
did -u $dname 27,26
}
}
if $did = 22 { if %p.lettre.gras = on { set %p.lettre.gras off } | else { set %p.lettre.gras on } }
if $did = 24 { if %p.lettre.maj = on { set %p.lettre.maj off } | else { set %p.lettre.maj on } }
if $did = 1 {
if $did(1) != Aucune && $did(4) != Aucune {
set %coul.normal $chr(3) $+ $replace($did(1),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15) $+ $chr(44) $+ $replace($did(4),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15)
}
elseif $did(1) != Aucune && $did(4) == Aucune {
set %coul.normal $chr(3) $+ $replace($did(1),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15)
set %coul.normal $remove(%coul.normal,$chr(44))
}
elseif $did(1) == Aucune && $did(4) != Aucune {
set %coul.normal $chr(3) $+ 1 $+ $chr(44) $+ $replace($did(4),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15)
}
elseif $did(1) == Aucune && $did(4) == Aucune {
set %coul.normal
}
}
if $did = 4 {
if $did(1) != Aucune && $did(4) != Aucune {
set %coul.normal $chr(3) $+ $replace($did(1),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15) $+ $chr(44) $+ $replace($did(4),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15)
}
elseif $did(1) != Aucune && $did(4) == Aucune {
set %coul.normal $chr(3) $+ $replace($did(1),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15)
set %coul.normal $remove(%coul.normal,$chr(44))
}
elseif $did(1) == Aucune && $did(4) != Aucune {
set %coul.normal $chr(3) $+ 1 $+ $chr(44) $+ $replace($did(4),Blanc,0,Noir,1,Bleu_foncé,2,Vert_ foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune,8 ,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,Ro se,13,Gris_foncé,14,Gris,15)
}
elseif $did(1) == Aucune && $did(4) == Aucune {
set %coul.normal
}
}
if $did == 12 {
if $did(12) == Aucune { unset %p.lettre.ecri }
else {
set %p.lettre.ecri $replace($did(12),Blanc,0,Noir,1,Bleu_foncé,2,Vert _foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune, 8,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,R ose,13,Gris_foncé,14,Gris,15)
}
}
if $did == 14 {
if $did(14) == Aucune { unset %p.lettre.fond }
else {
set %p.lettre.fond $replace($did(14),Blanc,0,Noir,1,Bleu_foncé,2,Vert _foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune, 8,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,R ose,13,Gris_foncé,14,Gris,15)
}
}
if $did == 19 {
if $did(19) == Aucune { unset %r.lettre.ecri }
else {
set %r.lettre.ecri $replace($did(19),Blanc,0,Noir,1,Bleu_foncé,2,Vert _foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune, 8,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,R ose,13,Gris_foncé,14,Gris,15)
}
}
if $did == 20 {
if $did(20) == Aucune { unset %r.lettre.fond }
else {
set %r.lettre.fond $replace($did(20),Blanc,0,Noir,1,Bleu_foncé,2,Vert _foncé,3,Rouge,4,Marron,5,Violet,6,Orange,7,Jaune, 8,Vert_clair,9,Vert_pâle,10,Bleu_ciel,11,Bleu,12,R ose,13,Gris_foncé,14,Gris,15)
}
}
if $did == 5 {
if %gras = { set %gras } | else { set %gras }
}
if $did == 7 {
if %souligne = { set %souligne } | else { set %souligne }
}
}
}
On *:input:*:{
unset %mot %mot2
if " $+ $active $+ " == "Status Window" && $chr(47) != $left($1,1) { //echo -s 14(7 $+ $time $+ 14) (2ECHO14) $1- | halt }
if $chr(47) = $left($1,1) { goto end }
set %mot $1-
if %mode.coul.normal = on {
set %mot %coul.normal $+ %gras $+ %souligne $+ %mot
}
elseif %mode.coul.deco = on {
set %mot $replace(%deco,<texte>,%mot)
}
elseif %mode.coul.avancee = on {
var %a %mot
if %p.lettre.maj == on {
var %a $upper($left(%a,1)) $+ $mid(%a,2)
}
if %p.lettre.ecri != $null && %p.lettre.fond != $null {
set %g.mot $chr(3) $+ %p.lettre.ecri $+ $chr(44) $+ %p.lettre.fond $+ $+ $left(%a,1)
}
elseif %p.lettre.ecri != $null && %p.lettre.fond == $null {
set %g.mot $chr(3) $+ %p.lettre.ecri $+ $+ $left(%a,1)
}
elseif %p.lettre.ecri == $null && %p.lettre.fond != $null {
set %g.mot $chr(3) $+ 1 $+ $chr(44) $+ %p.lettre.fond $+ $+ $left(%a,1)
}
elseif %p.lettre.ecri == $null && %p.lettre.fond == $null {
set %g.mot $left(%a,1)
}
if %r.lettre.ecri != $null && %r.lettre.fond != $null {
set %d.mot $+ %r.lettre.ecri $+ $chr(44) $+ %r.lettre.fond $+ $+ $mid(%a,2)
}
elseif %r.lettre.ecri != $null && %r.lettre.fond == $null {
set %d.mot $+ %r.lettre.ecri $+ $+ $mid(%a,2)
}
elseif %r.lettre.ecri == $null && %r.lettre.fond != $null {
set %d.mot 1 $+ $chr(44) $+ %r.lettre.fond $+ $+ $mid(%a,2)
}
elseif %r.lettre.ecri == $null && %r.lettre.fond == $null {
set %d.mot $+ $mid(%a,2)
}
if %p.lettre.gras = on {
set %mot %souligne $+ $+ %g.mot $+ $+ %d.mot
}
else {
set %mot %gras $+ %souligne $+ %g.mot $+ $+ %d.mot
}
}
:pouet
if $chr(35) isin $target {
if $me isop $chan {
echo $active « $+ $time $+ » «4@ $+ $me $+ » %mot
.msg $target %mot
halt
}
elseif $me isvo $chan {
echo $active « $+ $time $+ » «3+ $+ $me $+ » %mot
.msg $target %mot
halt
}
elseif $me ishop $chan {
echo $active « $+ $time $+ » «12% $+ $me $+ » %mot
.msg $target %mot
halt
}
else {
echo $chan « $+ $time $+ » « $+ $me $+ » %mot
.msg $target %mot
halt
}
}
else {
echo $active « $+ $time $+ » « $+ $me $+ » %mot
.msg $target %mot
halt
}
:end
}
menu menubar,channel,status {
-
systeme d'ecriture:dialog -m ecriture ecriture
-
}