rugbymen
|
on ^:load: {
echo -a 4,0 -------------------------------------------------------------------------------------
echo -a 4,0 -[ 1Addon 4]- : 1Coulor Text v3.0
echo -a 4,0 -[ 1But 4]- : 1Permet d'avoir des couleurs et des fantaisies dans ton texte
echo -a 4,0 -[ 1Created by 4]- : 1E-Mat
echo -a 4,0 -[ 1Le 4]- :1 19 Avril 2001
echo -a 4,0 -[ 1About 4]- : 1Addon du salon #millenium (http://www.salon-millenium.fr.st/)
echo -a 4,0 -------------------------------------------------------------------------------------
}
dialog couleurs {
title Couleurs v3.0 par E-Mat
size -1 -1 300 450
combo 1, 15 95 115 150,drop,vsbar,drop,size
combo 2, 170 95 115 150,drop,vsbar,drop,size
box "Coulor Text v3.0 par E-Mat",201, 5 5 290 45
text "Permet de choisir ta propre couleur d'écriture.",3, 10 25 280 40,center
box "Couleurs d'écriture Standard/Salons Officiels",4, 5 55 290 95
text "Ecriture :",5, 15 75 100 20
text "Fond :",6, 170 75 100 20
check "Souligné",7, 15 125 80 20
check "Gras",71, 105 125 50 20
check "Couleurs Inversées",8, 170 125 120 20
box "Effets (Salons et Dialogues privés uniquement",10, 5 150 290 240
radio "1ère Lettre de couleur différente",11, 10 165 170 20
text "1ère Lettre :",12, 15 185 100 20
combo 13, 15 205 115 150,drop,vsbar,drop,size
text "Reste Phrase :",14, 170 185 100 20
combo 15, 170 205 115 150,drop,vsbar,drop,size
radio "Texte sous la forme <> text <>",17, 10 240 200 20
radio "Texte sous la forme (.) text (.)",18, 10 260 200 20
radio "Texte sous la forme <<< text >>>",19, 10 280 200 20
radio "Texte sous la forme ¤¤¤ text ¤¤¤",20, 10 300 200 20
radio "Jesus-Marie-Joseph :-p",21,10 320 130 20
radio "Ma prope forme",22,10 340 110 20
button "Configurer ma propre forme",23,130 343 140 17
radio "Aucun effet",30, 10 360 100 20
button "A propos",99, 110 395 75 20
button "Ok",100, 75 425 50 20,ok
button "Annuler",101, 175 425 50 20,cancel
}
on 1:dialog:couleurs:sclick:1: { did -u couleurs 8 | if
($did(couleurs,1).text = Aucune) { did -cb couleurs 2 1 | did -ub
couleurs 7 } | else { did -e couleurs 2,7 } }
on 1:dialog:couleurs:sclick:2: { did -u couleurs 8 }
on 1:dialog:couleurs:sclick:8: { if ($did(couleurs,8).state == 1) { did
-ub couleurs 1,2 | did -e couleurs 7 } | else { did -e couleurs 1,2 |
did -c couleurs 1,2 1 | did -ub couleurs 7 } }
on 1:dialog:couleurs:sclick:11: { did -e couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:17: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:18: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:19: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:20: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:21: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:22: { did -b couleurs 13,15 | did -e
couleurs 23 | did -ub couleurs 7 | if ((%deco.g == $null) || (%deco.d
== $null)) { dialog -m forme forme } }
on 1:dialog:couleurs:sclick:23: { dialog -m forme forme }
on 1:dialog:couleurs:sclick:30: { did -b couleurs 13,15,23 | did -e couleurs 7 }
on 1:dialog:couleurs:sclick:99: { run C:\Windows\notepad.exe $mircdirColorLisezMoi.txt }
on 1:dialog:couleurs:sclick:100: {
if (($did(couleurs,1).text = Aucune) || ($did(couleurs,1).text = $null)) { set %c off }
if ($did(couleurs,1).text = 0 - Blanc) { set %c 0 }
if ($did(couleurs,1).text = 1 - Noir) { set %c 1 }
if ($did(couleurs,1).text = 2 - Bleu Marine) { set %c 2 }
if ($did(couleurs,1).text = 3 - Vert) { set %c 3 }
if ($did(couleurs,1).text = 4 - Rouge) { set %c 4 }
if ($did(couleurs,1).text = 5 - Marron) { set %c 5 }
if ($did(couleurs,1).text = 6 - Violet) { set %c 6 }
if ($did(couleurs,1).text = 7 - Orange) { set %c 7 }
if ($did(couleurs,1).text = 8 - Jaune) { set %c 8 }
if ($did(couleurs,1).text = 9 - Vert clair) { set %c 9 }
if ($did(couleurs,1).text = 10 - Bleu Ciel foncé) { set %c 10 }
if ($did(couleurs,1).text = 11 - Bleu Ciel) { set %c 11 }
if ($did(couleurs,1).text = 12 - Bleu) { set %c 12 }
if ($did(couleurs,1).text = 13 - Rose) { set %c 13 }
if ($did(couleurs,1).text = 14 - Gris) { set %c 14 }
if ($did(couleurs,1).text = 15 - Gris Clair) { set %c 15 }
if (($did(couleurs,2).text == Aucune ) || ($did(couleurs,2).text == $null)) { set %f 99 }
if ($did(couleurs,2).text == 0 - Blanc) { set %f 0 }
if ($did(couleurs,2).text == 1 - Noir) { set %f 1 }
if ($did(couleurs,2).text == 2 - Bleu Marine) { set %f 2 }
if ($did(couleurs,2).text == 3 - Vert) { set %f 3 }
if ($did(couleurs,2).text == 4 - Rouge) { set %f 4 }
if ($did(couleurs,2).text == 5 - Marron) { set %f 5 }
if ($did(couleurs,2).text == 6 - Violet) { set %f 6 }
if ($did(couleurs,2).text == 7 - Orange) { set %f 7 }
if ($did(couleurs,2).text == 8 - Jaune) { set %f 8 }
if ($did(couleurs,2).text == 9 - Vert clair) { set %f 9 }
if ($did(couleurs,2).text == 10 - Bleu Ciel foncé) { set %f 10 }
if ($did(couleurs,2).text == 11 - Bleu Ciel) { set %f 11 }
if ($did(couleurs,2).text == 12 - Bleu) { set %f 12 }
if ($did(couleurs,2).text == 13 - Rose) { set %f 13 }
if ($did(couleurs,2).text == 14 - Gris) { set %f 14 }
if ($did(couleurs,2).text == 15 - Gris Clair) { set %f 15 }
if ($did(couleurs,7).state == 1) { set %soul 1 } | else { unset %soul }
if ($did(couleurs,71).state == 1) { set %g } | else { unset %g }
if ($did(couleurs,8).state == 1) { set %reverse 1 } | else { unset %reverse }
if ($did(couleurs,13).text == 0 - Blanc) { set %prem 0 }
if ($did(couleurs,13).text == 1 - Noir) { set %prem 1 }
if ($did(couleurs,13).text == 2 - Bleu Marine) { set %prem 2 }
if ($did(couleurs,13).text == 3 - Vert) { set %prem 3 }
if ($did(couleurs,13).text == 4 - Rouge) { set %prem 4 }
if ($did(couleurs,13).text == 5 - Marron) { set %prem 5 }
if ($did(couleurs,13).text == 6 - Violet) { set %prem 6 }
if ($did(couleurs,13).text == 7 - Orange) { set %prem 7 }
if ($did(couleurs,13).text == 8 - Jaune) { set %prem 8 }
if ($did(couleurs,13).text == 9 - Vert clair) { set %prem 9 }
if ($did(couleurs,13).text == 10 - Bleu Ciel foncé) { set %prem 10 }
if ($did(couleurs,13).text == 11 - Bleu Ciel) { set %prem 11 }
if ($did(couleurs,13).text == 12 - Bleu) { set %prem 12 }
if ($did(couleurs,13).text == 13 - Rose) { set %prem 13 }
if ($did(couleurs,13).text == 14 - Gris) { set %prem 14 }
if ($did(couleurs,13).text == 15 - Gris Clair) { set %prem 15 }
if ($did(couleurs,15).text == 0 - Blanc) { set %rest 0 }
if ($did(couleurs,15).text == 1 - Noir) { set %rest 1 }
if ($did(couleurs,15).text == 2 - Bleu Marine) { set %rest 2 }
if ($did(couleurs,15).text == 3 - Vert) { set %rest 3 }
if ($did(couleurs,15).text == 4 - Rouge) { set %rest 4 }
if ($did(couleurs,15).text == 5 - Marron) { set %rest 5 }
if ($did(couleurs,15).text == 6 - Violet) { set %rest 6 }
if ($did(couleurs,15).text == 7 - Orange) { set %rest 7 }
if ($did(couleurs,15).text == 8 - Jaune) { set %rest 8 }
if ($did(couleurs,15).text == 9 - Vert clair) { set %rest 9 }
if ($did(couleurs,15).text == 10 - Bleu Ciel foncé) { set %rest 10 }
if ($did(couleurs,15).text == 11 - Bleu Ciel) { set %rest 11 }
if ($did(couleurs,15).text == 12 - Bleu) { set %rest 12 }
if ($did(couleurs,15).text == 13 - Rose) { set %rest 13 }
if ($did(couleurs,15).text == 14 - Gris) { set %rest 14 }
if ($did(couleurs,15).text == 15 - Gris Clair) { set %rest 15 }
if ($did(couleurs,11).state == 1) { set %effet on | unset %effet.* | set %effet.a on }
if ($did(couleurs,17).state == 1) { set %effet on | unset %effet.* | set %effet.b on }
if ($did(couleurs,18).state == 1) { set %effet on | unset %effet.* | set %effet.c on }
if ($did(couleurs,19).state == 1) { set %effet on | unset %effet.* | set %effet.d on }
if ($did(couleurs,20).state == 1) { set %effet on | unset %effet.* | set %effet.e on }
if ($did(couleurs,21).state == 1) { set %effet on | unset %effet.* | set %effet.f on }
if ($did(couleurs,22).state == 1) { set %effet on | unset %effet.* | set %effet.g on }
if ($did(couleurs,30).state == 1) { set %effet off | unset %effet.* }
}
on 1:dialog:couleurs:init:0: {
var %combo 1
did -a couleurs 1 Aucune
did -a couleurs 2 Aucune
goto affichage
:affichage
did -a couleurs %combo 0 - Blanc
did -a couleurs %combo 1 - Noir
did -a couleurs %combo 2 - Bleu Marine
did -a couleurs %combo 3 - Vert
did -a couleurs %combo 4 - Rouge
did -a couleurs %combo 5 - Marron
did -a couleurs %combo 6 - Violet
did -a couleurs %combo 7 - Orange
did -a couleurs %combo 8 - Jaune
did -a couleurs %combo 9 - Vert clair
did -a couleurs %combo 10 - Bleu Ciel foncé
did -a couleurs %combo 11 - Bleu Ciel
did -a couleurs %combo 12 - Bleu
did -a couleurs %combo 13 - Rose
did -a couleurs %combo 14 - Gris
did -a couleurs %combo 15 - Gris Clair
if (%combo = 1) { var %combo 2 | goto affichage }
elseif (%combo = 2) { var %combo 13 | goto affichage }
elseif (%combo = 13) { var %combo 15 | goto affichage }
elseif (%combo = 15) { goto suite }
:suite
if (%c == off) { did -c couleurs 1 1 | did -cb couleurs 2 1 | did -ub couleurs 7 }
if (%c == 0) { did -c couleurs 1 2 }
if (%c == 1) { did -c couleurs 1 3 }
if (%c == 2) { did -c couleurs 1 4 }
if (%c == 3) { did -c couleurs 1 5 }
if (%c == 4) { did -c couleurs 1 6 }
if (%c == 5) { did -c couleurs 1 7 }
if (%c == 6) { did -c couleurs 1 8 }
if (%c == 7) { did -c couleurs 1 9 }
if (%c == 8) { did -c couleurs 1 10 }
if (%c == 9) { did -c couleurs 1 11 }
if (%c == 10) { did -c couleurs 1 12 }
if (%c == 11) { did -c couleurs 1 13 }
if (%c == 12) { did -c couleurs 1 14 }
if (%c == 13) { did -c couleurs 1 15 }
if (%c == 14) { did -c couleurs 1 16 }
if (%c == 15) { did -c couleurs 1 17 }
if (%f == 99) { did -c couleurs 2 1 }
if (%f == 0) { did -c couleurs 2 2 }
if (%f == 1) { did -c couleurs 2 3 }
if (%f == 2) { did -c couleurs 2 4 }
if (%f == 3) { did -c couleurs 2 5 }
if (%f == 4) { did -c couleurs 2 6 }
if (%f == 5) { did -c couleurs 2 7 }
if (%f == 6) { did -c couleurs 2 8 }
if (%f == 7) { did -c couleurs 2 9 }
if (%f == 8) { did -c couleurs 2 10 }
if (%f == 9) { did -c couleurs 2 11 }
if (%f == 10) { did -c couleurs 2 12 }
if (%f == 11) { did -c couleurs 2 13 }
if (%f == 12) { did -c couleurs 2 14 }
if (%f == 13) { did -c couleurs 2 15 }
if (%f == 14) { did -c couleurs 2 16 }
if (%f == 15) { did -c couleurs 2 17 }
if (%soul == 1) { did -c couleurs 7 }
if (%reverse == 1) { did -c couleurs 8 | did -ub couleurs 1,2 }
if (%g == ) { did -c couleurs 71 }
if (%prem == 0) { did -c couleurs 13 1 }
if (%prem == 1) { did -c couleurs 13 2 }
if (%prem == 2) { did -c couleurs 13 3 }
if (%prem == 3) { did -c couleurs 13 4 }
if (%prem == 4) { did -c couleurs 13 5 }
if (%prem == 5) { did -c couleurs 13 6 }
if (%prem == 6) { did -c couleurs 13 7 }
if (%prem == 7) { did -c couleurs 13 8 }
if (%prem == 8) { did -c couleurs 13 9 }
if (%prem == 9) { did -c couleurs 13 10 }
if (%prem == 10) { did -c couleurs 13 11 }
if (%prem == 11) { did -c couleurs 13 12 }
if (%prem == 12) { did -c couleurs 13 13 }
if (%prem == 13) { did -c couleurs 13 14 }
if (%prem == 14) { did -c couleurs 13 15 }
if (%prem == 15) { did -c couleurs 13 16 }
if (%rest == 0) { did -c couleurs 15 1 }
if (%rest == 1) { did -c couleurs 15 2 }
if (%rest == 2) { did -c couleurs 15 3 }
if (%rest == 3) { did -c couleurs 15 4 }
if (%rest == 4) { did -c couleurs 15 5 }
if (%rest == 5) { did -c couleurs 15 6 }
if (%rest == 6) { did -c couleurs 15 7 }
if (%rest == 7) { did -c couleurs 15 8 }
if (%rest == 8) { did -c couleurs 15 9 }
if (%rest == 9) { did -c couleurs 15 10 }
if (%rest == 10) { did -c couleurs 15 11 }
if (%rest == 11) { did -c couleurs 15 12 }
if (%rest == 12) { did -c couleurs 15 13 }
if (%rest == 13) { did -c couleurs 15 14 }
if (%rest == 14) { did -c couleurs 15 15 }
if (%rest == 15) { did -c couleurs 15 16 }
if (%effet == off) { did -b couleurs 13,15,23 | did -c couleurs 30 }
if (%effet.a == on) { did -c couleurs 11 | did -b couleurs 23 }
if (%effet.b == on) { did -c couleurs 17 | did -b couleurs 13,15,23 }
if (%effet.c == on) { did -c couleurs 18 | did -b couleurs 13,15,23 }
if (%effet.d == on) { did -c couleurs 19 | did -b couleurs 13,15,23 }
if (%effet.e == on) { did -c couleurs 20 | did -b couleurs 13,15,23 }
if (%effet.f == on) { did -c couleurs 21 | did -b couleurs 13,15,23 }
if (%effet.g == on) { did -c couleurs 22 | did -b couleurs 13,15 }
}
on 1:input:*:{
if (/ == $left($1,1)) { goto stop }
if (! == $left($1,1)) { goto stop }
if (. == $left($1,1)) { goto stop }
if (x == $left($1,1)) { goto stop }
if ([ == $left($1,1)) { goto stop }
if (($asc($left($1,1)) >= 48) && ($asc($left($1,1)) <= 57)) { goto stop }
if ($server == $null) { echo -a *** Non connecté à un serveur }
if (($active == #soho) || ($active == #djeunz)) { goto officiel }
if ($left($active,2) != #!) {
if (%effet == on) { goto effets }
if ((%soul != 1) && (%reverse == 1)) { msg $active $+ $1- | halt }
if ((%soul == 1) && (%reverse != 1)) { msg $active $+ %c $+ , $+ %f $+ $1- | halt }
if ((%soul == 1) && (%reverse == 1)) { msg $active $+ $1- | halt }
else { goto standard }
}
else { goto officiel }
:effets
if (%effet.a == on) { var %a.t $upper($left($1-,1)) | var %s.t
$mid($1-,2) | msg $active %g $+ $+ %prem $+ %a.t $+ $+ %rest $+
%s.t | halt }
if (%effet.b == on) { msg $active %g $+ 11,10<12>2 $1- 12<11> | halt }
if (%effet.c == on) { msg $active %g $+ 15,0(•)14,0 $1- 15,0(•) | halt }
if (%effet.d == on) { msg $active %g $+ 1<14<15<1 $1- 15>14>1> | halt }
if (%effet.e == on) { msg $active %g $+ 10¤12¤2¤2 $1- 2¤12¤10¤ | halt }
if (%effet.f == on) { msg $active %g $+ 5•†•6 $1- 5•†• | halt }
if (%effet.g == on) { msg $active %g $+ %deco.g $1- %deco.d | halt }
:officiel
if ((%soul != 1) && (%reverse == 1)) { msg $active %g $+ $+ $1- | halt }
else { goto standard }
:standard
if (%c == off) { goto stop } | else { msg $active %g $+ $+ %c $+ , $+ %f $+ $1- | halt }
:stop
}
dialog forme {
size -1 -1 300 370
title "Ma propre déco"
box "Instructions",1, 5 10 290 270
text "Tu peux utiliser les touches CRTL+K simultanément pour choisir tes couleurs.",2, 10 30 285 30,center
text "Ex: 1,8 te donnera une écriture jaune sur un fond noir.",3, 7 55 285 15,center
text "5 une écriture marron sans couleur de fond.",4, 39 68 245 15
text "Pour choisir tes caractères, tu peux t'aider de la Table
de Caractères accessible à : Démarrer => Programmes =>
Accessoires => Outils Système.",5, 10 95 285 60,center
text "Veille à ce que les décos de droite et de gauche soient
bien sysmétriques au niveau des caractères et/ou des couleurs.",10, 10
140 280 45,center
text "Certains caractères spéciaux peuvent s'afficher en ” dans
cette fenêtre, mais ils s'afficheront normalement à l'écriture sur le
Chat.",11, 10 180 285 45,center
text "A la fin de la déco. de gauche, pense à mettre une
couleurs avec CRTL+K qui définira la couleur de ton texte et veille à
ce que celle ci corresponde à la couleur des déco.",12, 10 220 280
60,center
text "- Déco. Gauche :",6, 5 290 100 15
edit "",7, 90 287 200 20,autohs
text "- Déco. Droite :",8, 5 310 100 15
edit "",9, 90 307 200 20,autohs
button "Ok",15, 125 340 50 20,ok
}
on 1:dialog:forme:edit:7:/set %deco.g $did(7)
on 1:dialog:forme:edit:9:/set %deco.d $did(9)
on 1:dialog:forme:init:0: { did -a forme 7 %deco.g | did -a forme 9 %deco.d }
menu menubar {
-
¤ Color Text v3.0:/dialog -m couleurs couleurs
}
bon ben bonne chance =)
|