C'est un code de couleurs que jai entierement fais moi vla eclater vous bien
Source / Exemple :
alias boxcoul { dialog -mr boxcoul boxcoul }
Dialog boxcoul {
Title "Addict - Couleur et mise en forme"
Size 150 150 600 300
Button "Activer",1,280 265 110 30 ,ok
button "Annuler",20,165 265 110 30,cancel
button "Tester",26,10 265 110 30
combo 2,20 60 120 120,drop,sort,size,hsbar
combo 25,20 130 120 60,drop,size
box "Gestion des couleurs",3,10 10 380 250
box "Choix de la couleur",4,15 40 135 150
box "Styles",5,15 195 370 60
box "Rehabilitation",6,155 40 230 45
box "Choix de special",13,155 85 230 105
box "",15,395 10 200 140
box "Mes couleurs" ,17,395 150 200 145
check "Gras",7,25 220 80 15
check "Souligné",8,165 220 80 15
check "Reverse",9,310 220 60 15
check "pojaf",111,700 800 122 323
check "ojfjfe",112,750 850 122 323
check "zsjodpaz",113,75456 54135 4546 254
check "ojfjfe",114,750 850 122 323
check "zsjodpaz",115,75456 54135 4546 254
check "zsjodpaz",150,75456 54135 4546 254
check "Remettre en normal",10,165 58 150 20
check "Semi-Bold",11,165 155 100 20
check "Zarbi",12,165 105 100 20
check "Majuscules",500,165 130 100 20
button "Majuscules",18,430 175 120 30
button "Couleurs spéciales",19,430 235 120 30
}
on *:dialog:boxcoul:init:0:{
did -c boxcoul %casecochereverse
set %activecombos 1
did -i boxcoul 25 %activecombos Activer
inc %activecombos
did -i boxcoul 25 %activecombos Desactiver
set %combos 1
did -i boxcoul 2 %combos Noir
inc %combos
did -i boxcoul 2 %combos Bleu Foncé
inc %combos
did -i boxcoul 2 %combos Vert foncé
inc %combos
did -i boxcoul 2 %combos Rouge
inc %combos
did -i boxcoul 2 %combos Marron
inc %combos
did -i boxcoul 2 %combos Violet
inc %combos
did -i boxcoul 2 %combos Orange
inc %combos
did -i boxcoul 2 %combos Jaune
inc %combos
did -i boxcoul 2 %combos Vert Fluo
inc %combos
did -i boxcoul 2 %combos Bleu Gris
inc %combos
did -i boxcoul 2 %combos Bleu clair
inc %combos
did -i boxcoul 2 %combos Bleu
inc %combos
did -i boxcoul 2 %combos Rose
inc %combos
did -i boxcoul 2 %combos Gris Foncé
inc %combos
did -i boxcoul 2 %combos Gris Clair
did -c boxcoul 2 %avoircombos
did -c boxcoul 25 %avoiractivecombos
did -c boxcoul %casecochegras
did -c boxcoul %casecochesouligne
did -c boxcoul %casecochesemibold
did -c boxcoul %casecochezarbi
did -c boxcoul %casecochemaj
}
on *:dialog:boxcoul:sclick:26:{
if ( %style == zarbi ) {
/set %essaiecho Voici ta couleur......lol {
%essaiecho = $replace(%essaiecho,a,@) }
%essaiecho = $replace(%essaiecho,c,©)
%essaiecho = $replace(%essaiecho,r,®)
%essaiecho = $replace(%essaiecho,l,£)
%essaiecho = $replace(%essaiecho,s,$)
%essaiecho = $replace(%essaiecho,u,µ)
%essaiecho = $replace(%essaiecho,i,¦ )
%essaiecho = $replace(%essaiecho,A,Å )
%essaiecho = $replace(%essaiecho,ae,æ )
%essaiecho = $replace(%essaiecho,y,ÿ )
%essaiecho = $replace(%essaiecho,o,ö )
%essaiecho = $replace(%essaiecho,E, )
%essaiecho = $replace(%essaiecho,x,× )
%essaiecho = $replace(%essaiecho,f, )
%essaiecho = $replace(%essaiecho,n,ñ )
/echo -a 10[2 Test 10] $+ %couleur $+ %gras $+ %souligne $+ %reverse $+ %essaiecho
halt
}
elseif ( %style == majuscule ) { echo -a 10[2 Test 10] $+ %majuscule $+ %souligne $+ %reverse $+ %gras $+ V $+ $+ %reste.texte $+ oici ta couleur.........lol }
elseif ( %style == semibold ) { echo -a 10[2 Test 10] $+ %couleur Voici ta couleur.....lol }
else { echo -a 10[2 Test 10] $+ %couleur $+ %gras $+ %souligne $+ %reverse $+ Voici ta couleur....... lol }
}
on *:dialog:boxcoul:sclick:2:{ set %couleur $did(boxcoul,2).sel | set %avoircombos $did(boxcoul,2).sel }
on *:dialog:boxcoul:sclick:25:{
set %avoiractivecombos $did(boxcoul,25).sel
if ( $did(boxcoul,25).sel == 1 ) { set %etatcouleur Activer }
elseif ( $did(boxcoul,25).sel == 2 ) { set %etatcouleur Desactiver | set %gras | set %souligne | set %reverse }
}
on *:dialog:boxcoul:sclick:11:{
if ( $did(boxcoul,11).state == 1 ) { set %style semibold | set %casecochesemibold 11 | did -c boxcoul 11 | did -u boxcoul 12 | set %casecochezarbi 115 | did -u boxcoul 500 | set %casecochemaj 150 }
if ( $did(boxcoul,11).state == 0 ) { set %style normal | set %casecochesemibold 114 }
}
on *:dialog:boxcoul:sclick:12:{
if ( $did(boxcoul,12).state == 1 ) { set %style zarbi | set %casecochezarbi 12 | did -c boxcoul 12 | did -u boxcoul 11 | set %casecochesemibold 114 | did -u boxcoul 500 | set %casecochemaj 150 }
if ( $did(boxcoul,12).state == 0 ) { set %style normal | set %casecochezarbi 115 }
}
on *:dialog:boxcoul:sclick:500:{
if ( $did(boxcoul,500).state == 1 ) { set %style majuscule | set %casecochemaj 500 | did -c boxcoul 500 | did -u boxcoul 11 | did -u boxcoul 12 | set %casecochesemibold 114 | set %casecochezarbi 115 }
if ( $did(boxcoul,500).state == 0 ) { set %style normal | set %casecochemaj 150 }
}
on *:dialog:boxcoul:sclick:7:{
if ( $did(boxcoul,7).state == 1 ) { set %casecochegras 7 | set %gras }
if ( $did(boxcoul,7).state == 0 ) { set %casecochegras 111 | set %gras }
}
on *:dialog:boxcoul:sclick:8:{
if ( $did(boxcoul,8).state == 1 ) { set %casecochesouligne 8 | set %souligne }
if ( $did(boxcoul,8).state == 0 ) { set %casecochesouligne 112 | set %souligne }
}
on *:dialog:boxcoul:sclick:9:{
if ( $did(boxcoul,9).state == 1 ) { set %casecochereverse 9 | set %reverse }
if ( $did(boxcoul,9).state == 0 ) { set %casecochereverse 113 | set %reverse }
}
on *:dialog:boxcoul:sclick:10:{ set %style simple | set %avoircombos 1 | set %couleur 1 | did -c boxcoul 10 | did -u boxcoul 11 | did -u boxcoul 12 | set %casecochegras 111 | set %casecochesouligne 112 | set %casecochereverse 113 | set %casecochezarbi 115 | set %casecochesemibold 114 | did -u boxcoul 7 | did -u boxcoul 8 | did -u boxcoul 9 | set %gras | set %souligne | set %reverse | did -u boxcoul 500 | set %casecochemaj 150 }
alias majuscules { dialog -mdr majuscules majuscules }
Dialog Majuscules {
title "PitBobomb - Couleur de Majuscules"
size 150 150 360 300
Button "Activer",1,245 260 110 30,ok
text "Ici, la majuscule aura une couleur différente du reste du texte.",2,15 15 300 15
text "Choisissez à gauche la couleur de la Majuscule ",3,15 30 370 15
text "Et à droite celle du reste du texte:",4,15 45 370 15
combo 5,15 100 120 120,drop,hsbar,size
combo 6,230 100 120 120,drop,hsbar,size
button "Annuler",7,125 260 110 30,cancel
button "Tester",8,5 260 110 30
}
on *:dialog:majuscules:sclick:8:{ echo -a 10[2 Test 10] $+ %majuscule $+ %souligne $+ %reverse $+ %gras $+ V $+ $+ %reste.texte $+ oici ta couleur.........lol }
on *:dialog:majuscules:init:0:{
set %majusculecombos 1
did -i majuscules 5 %majusculecombos Noir
inc %majusculecombos
did -i majuscules 5 %majusculecombos Bleu Foncé
inc %majusculecombos
did -i majuscules 5 %majusculecombos Vert foncé
inc %majusculecombos
did -i majuscules 5 %majusculecombos Rouge
inc %majusculecombos
did -i majuscules 5 %majusculecombos Marron
inc %majusculecombos
did -i majuscules 5 %majusculecombos Violet
inc %majusculecombos
did -i majuscules 5 %majusculecombos Orange
inc %majusculecombos
did -i majuscules 5 %majusculecombos Jaune
inc %majusculecombos
did -i majuscules 5 %majusculecombos Vert Fluo
inc %majusculecombos
did -i majuscules 5 %majusculecombos Bleu Gris
inc %majusculecombos
did -i majuscules 5 %majusculecombos Bleu clair
inc %majusculecombos
did -i majuscules 5 %majusculecombos Bleu
inc %majusculecombos
did -i majuscules 5 %majusculecombos Rose
inc %majusculecombos
did -i majuscules 5 %majusculecombos Gris Foncé
inc %majusculecombos
did -i majuscules 5 %majusculecombos Gris Clair
set %restecombos 1
did -i majuscules 6 %restecombos Noir
inc %restecombos
did -i majuscules 6 %restecombos Bleu Foncé
inc %restecombos
did -i majuscules 6 %restecombos Vert foncé
inc %restecombos
did -i majuscules 6 %restecombos Rouge
inc %restecombos
did -i majuscules 6 %restecombos Marron
inc %restecombos
did -i majuscules 6 %restecombos Violet
inc %restecombos
did -i majuscules 6 %restecombos Orange
inc %restecombos
did -i majuscules 6 %restecombos Jaune
inc %restecombos
did -i majuscules 6 %restecombos Vert Fluo
inc %restecombos
did -i majuscules 6 %restecombos Bleu Gris
inc %restecombos
did -i majuscules 6 %restecombos Bleu clair
inc %restecombos
did -i majuscules 6 %restecombos Bleu
inc %restecombos
did -i majuscules 6 %restecombos Rose
inc %restecombos
did -i majuscules 6 %restecombos Gris Foncé
inc %restecombos
did -i majuscules 6 %restecombos Gris Clair
did -c majuscules 5 %avoirmajusculecombos
did -c majuscules 6 %avoirtextecombos
}
on *:dialog:majuscules:sclick:5:{ set %style majuscule | set %majuscule $did(majuscules,5).sel | set %avoirmajusculecombos $did(majuscules,5).sel }
on *:dialog:majuscules:sclick:6:{ set %style majuscule | set %reste.texte $did(majuscules,6).sel | set %avoirtextecombos $did(majuscules,6).sel }
alias special { dialog -mdr special special }
Dialog Special {
title "PitBomb - Gestion des couleurs speciales"
size 150 150 360 300
Button "Activer",1,245 260 110 30,ok
button "Annuler",18,130 260 110 30,cancel
button "Tester",19,15 260 110 30
edit "",2,20 40 90 22
text "Avant la phrase:",3,20 25 90 15
text "La phrase:",4,115 25 90 15
combo 5,115 40 90 120,size,drop,hsbar
text "Apres la phrase:",6,210 25 90 15
edit "",7,210 40 90 22
box "Votre couleur perso",8,10 10 340 60
box "Mes couleurs",9,10 75 340 175
check "Trois petits chichous",10,20 95 120 20
check "Carré",11,20 120 120 20
check "Attention",12,20 145 120 20
check "Roses",13,20 170 120 20
check "Violet-Orange",14,20 195 120 20
check "Rouge-Bleu",15,20 220 120 20
check "Activer votre couleur",16,200 95 120 20
check "Aucune couleur",17,200 120 120 20
}
on *:dialog:special:edit:2:{ set %persoavantf $did(special,2).text }
on *:dialog:special:edit:7:{ set %persoapresf $did(special,7).text }
on *:dialog:special:sclick:17:{ set %style normal | did -u special 10 | did -u special 11 | did -u special 12 | did -u special 13 | did -u special 14 | did -u special 15 | did -u special 16 | set %checkspecial 17 | did -m special 2 | did -m special 7 }
on *:dialog:special:sclick:16:{ set %style couleurperso | did -u special 10 | did -u special 11 | did -u special 12 | did -u special 13 | did -u special 14 | did -u special 15 | did -u special 17 | set %checkspecial 16 | did -n special 2 | did -n special 7 }
on *:dialog:special:sclick:10:{ set %style chichou | did -u special 17 | did -u special 11 | did -u special 12 | did -u special 13 | did -u special 14 | did -u special 15 | did -u special 16 | set %checkspecial 10 | did -m special 2 | did -m special 7 }
on *:dialog:special:sclick:11:{ set %style carre | did -u special 10 | did -u special 17 | did -u special 12 | did -u special 13 | did -u special 14 | did -u special 15 | did -u special 16 | set %checkspecial 11 | did -m special 2 | did -m special 7 }
on *:dialog:special:sclick:12:{ set %style attention | did -u special 10 | did -u special 11 | did -u special 17 | did -u special 13 | did -u special 14 | did -u special 15 | did -u special 16 | set %checkspecial 12 | did -m special 2 | did -m special 7 }
on *:dialog:special:sclick:13:{ set %style roses | did -u special 10 | did -u special 11 | did -u special 12 | did -u special 17 | did -u special 14 | did -u special 15 | did -u special 16 | set %checkspecial 13 | did -m special 2 | did -m special 7 }
on *:dialog:special:sclick:14:{ set %style violet-orange | did -u special 10 | did -u special 11 | did -u special 12 | did -u special 13 | did -u special 17 | did -u special 15 | did -u special 16 | set %checkspecial 14 | did -m special 2 | did -m special 7 }
on *:dialog:special:sclick:15:{ set %style rouge-bleu | did -u special 10 | did -u special 11 | did -u special 12 | did -u special 13 | did -u special 14 | did -u special 17 | did -u special 16 | set %checkspecial 15 | did -m special 2 | did -m special 7 }
on *:dialog:special:sclick:5:{ set %couleurx $did(special,5).sel | set %avoirspecial $did(special,5).sel }
on *:dialog:special:init:0:{
set %combos 1
did -i special 5 %combos Noire
inc %combos
did -i special 5 %combos Bleue Foncé
inc %combos
did -i special 5 %combos Verte foncé
inc %combos
did -i special 5 %combos Rouge
inc %combos
did -i special 5 %combos Marron
inc %combos
did -i special 5 %combos Violette
inc %combos
did -i special 5 %combos Orange
inc %combos
did -i special 5 %combos Jaune
inc %combos
did -i special 5 %combos Verte Fluo
inc %combos
did -i special 5 %combos Bleue Gris
inc %combos
did -i special 5 %combos Bleue clair
inc %combos
did -i special 5 %combos Bleue
inc %combos
did -i special 5 %combos Rose
inc %combos
did -i special 5 %combos Grise Foncé
inc %combos
did -i special 5 %combos Grise Clair
did -c special 5 %avoirspecial
did -c special %checkspecial
did -a special 2 %persoavantf
did -a special 7 %persoapresf
if ( %checkspecial != 16 ) { did -m special 2 | did -m special 7 }
}
on *:dialog:special:sclick:19:{
if ( %style == couleurperso ) { echo -a 10[2 Test 10] %persoavantf $+ %couleurx $+ Voici votre couleur.......pas malle non?? %persoapresf }
else {
if ( %style == carre ) { echo -a 10[2 Test 10] %gras $+ 4 $+ ¤ 3Voici une de mes couleurs! T'en dis quoi? 4 $+ ¤ }
elseif ( %style == attention ) { echo -a 10[2 Test 10] 4/!\ 12Voici une de mes couleurs! T'en dis quoi? 4 $+ /!\ }
elseif ( %style == roses ) { echo -a 10[2 Test 10] %gras $+ 4@3-}-- 12Voici une de mes couleurs! T'en dis quoi? 3--{-4@ }
elseif ( %style == chichou ) { echo -a 10[2 Test 10] %gras $+ 3~4~5~12 Voici une de mes couleurs! T'en dis quoi? 5~4~3~ }
elseif ( %style == rouge-bleu ) { echo -a 10[2 Test 10] %gras $+ 4*** 12Voici une de mes couleurs! T'en dis quoi? 4*** }
elseif ( %style == violet-orange ) { echo -a 10[2 Test 10] %gras $+ 7([{ 6Voici une de mes couleurs! t'en dis quoi? 7}]) }
elseif ( %style == normal ) { echo -a 10[2 Test 10] Voila.......c'est en noir simple! loool }
}
}
on 1:input:*:{
if ( %etatcouleur == Desactiver ) {
if ( $left($1,1) == / ) goto stop
say $1-
halt
:stop
}
else {
if ( %style == normal ) {
if ( $left($1,1) == / ) goto stop
say $1-
halt
:stop
}
elseif ( %style == chichou ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
/set %x %color1 $+ $upper($left($$1,1)) $+ $+ %color2 $+ $right($$1-,$calc($len($$1-) - 1)) | say 3 $+ %gras $+ ~4~5~12 %x 5~4~3~
halt
:stop
}
elseif ( %style == attention ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
set %x %color1 $+ $upper($left($$1,1)) $+ $+ %color2 $+ $right($$1-,$calc($len($$1-) - 1)) | say 4/!\ 12 %x 4/!\
halt
:stop
}
elseif ( %style == violet-orange ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
/set %x %color1 $+ $upper($left($$1,1)) $+ $+ %color2 $+ $right($$1-,$calc($len($$1-) - 1)) | say 7 $+ %gras $+ ([{ 6 %x 7}])
halt
:stop
}
elseif ( %style == carre ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
/set %x %color1 $+ $upper($left($$1,1)) $+ $+ %color2 $+ $right($$1-,$calc($len($$1-) - 1)) | say 4 $+ %gras $+ ¤3 %x 4¤
halt
:stop
}
elseif ( %style == rouge-bleu ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
/set %x %color1 $+ $upper($left($$1,1)) $+ $+ %color2 $+ $right($$1-,$calc($len($$1-) - 1)) | say 4 $+ %gras $+ ***12 %x 4***
halt
:stop
}
elseif ( %style == roses ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
/set %x %color1 $+ $upper($left($$1,1)) $+ $+ %color2 $+ $right($$1-,$calc($len($$1-) - 1)) | say 4 $+ %gras $+ @3-}--12 %x 3--{-4@
halt
:stop
}
elseif ( %style == simple ) {
if ( $left($1,1) == / ) goto stop
/say $+ %couleur $+ %gras $+ %souligne $+ %reverse $+ $1-
halt
:stop
}
elseif ( %style == majuscule ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
say $chr(3) $+ %majuscule $+ %gras $+ $upper($left($1-,1)) $+ $chr(3) $+ %reste.texte $+ $right($1-,-1)
halt
:stop
}
elseif ( %style == couleurperso ) {
If ( $left($1, 1) == $chr(36)) { goto stop }
if ( $left($1, 1) == ! ) { goto stop }
if ( $left($1, 1) == / ) { goto stop }
/set %x %color1 $+ $upper($left($$1,1)) $+ $+ %color2 $+ $right($$1-,$calc($len($$1-) - 1)) | say 3 $+ %gras $+ %persoavantf $+ $+ %couleurx %x %persoapresf
halt
:stop
}
elseif ( %style = fond ) {
if ( $left($1,1) == / ) goto stop
/say %fond1 $+ , $+ %fond2 $+ %reverse $+ %gras $+ %souligne $+ $1-
halt
:stop
}
elseif ( %style == semibold ) {
if ( $left($1-,1) == / ) { goto fin }
unset %semibold.*
set %semibold.i 0
set %semibold.text $replace($strip($1-),$chr(32),$chr(160))
:inc
inc %semibold.i 1
set %semibold.textf %semibold.textf $+ $mid(%semibold.text,%semibold.i,1) $+
if $mid(%semibold.text,%semibold.i,1) == $null { goto print }
goto inc
:print
say $+ %couleur $+ %color.bold $+ $replace(%semibold.textf,$chr(160),$chr(32))
halt
:stop
}
elseif ( %style == zarbi ) {
if $left($1-,1) == / { goto fin }
/set %texte $1- {
%texte = $replace(%texte,a,@) }
%texte = $replace(%texte,c,©)
%texte = $replace(%texte,r,®)
%texte = $replace(%texte,l,£)
%texte = $replace(%texte,s,$)
%texte = $replace(%texte,u,µ)
%texte = $replace(%texte,i,¦ )
%texte = $replace(%texte,A,Å )
%texte = $replace(%texte,ae,æ )
%texte = $replace(%texte,y,ÿ )
%texte = $replace(%texte,o,ö )
%texte = $replace(%texte,E, )
%texte = $replace(%texte,x,× )
%texte = $replace(%texte,f, )
%texte = $replace(%texte,n,ñ )
/say $+ %couleur $+ %gras $+ %texte
halt
:fin
}
}
}
on *:dialog:boxcoul:sclick:*:{
if ( $did == 18 ) { majuscules }
if ( $did == 19 ) { special }
if ( $did == 10 ) { set %style normal }
}
on 1:load:{
set %casecochesemibold 114
set %casecochezarbi 115
set %activecombos 2
set %etatcouleur Activer
set %avoiractivecombos 1
set %casecochegras 111
set %caseochesemibold 114
set %essaiecho Vö¦©¦ t@ ©öµ£µ®......£ö£
set %majusculecombos 15
set %restecombos 15
set %avoirmajusculecombos 6
set %avoirtextecombos 10
set %persoavantf Choisissez
set %persoapresf Choisissez
set %couleurx 1
set %checkspecial 17
set %semibold.i 6
set %semibold.text c bon
set %semibold.textf c bon
set %avoirspecial 1
set %casecochemaj 500
set %gras ""
set %souligne ""
set %reverse ""
set %casecochereverse 113
set %casecochesouligne 112
set %combos 15
set %avoircombos 1
set %style normal
echo -a 10[ 2Merci 10] 2Salut $me et merci de loader ma remote. Tapes /boxcoul pour l'utiliser! KoDeRz
}
By KoDeRz
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.