|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
COULEUR
Information sur la source
Description
C'est un code de couleurs que jai entierement fais moi vla eclater vous bien
Source
- 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,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,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
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,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,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
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
|