Couleur d'écriture
Contenu du snippet
C'est un addons de couleur tous simple il suffit juste de taper /dialog -m couleurs couleurs pour l'ouvrir.
je rapelle que pour l'ouvrir taper sa /dialog -m couleurs couleurs
Source / Exemple :
alias couleurs { dialog -m couleurs couleurs }
dialog couleurs {
title "COULEUR D'éCRITURE"
size -1 -1 300 560
combo 1, 15 45 115 150,drop,vsbar,drop,size
combo 2, 170 45 115 150,drop,vsbar,drop,size
box "Couleurs d'écriture Standard/Salons Officiels",4, 5 5 290 95
text "Ecriture :",5, 15 25 100 20
text "Fond :",6, 170 25 100 20
check "Souligné",7, 15 75 80 20
check "Gras",71, 105 75 50 20
check "Couleurs Inversées",8, 170 75 120 20
box "Effets (Salons et Dialogues privés uniquement)",10, 5 100 290 420
radio "1ère Lettre de couleur différente",11, 10 120 175 20
text "1ère Lettre(ecriture) :",12, 15 145 110 20
combo 13, 15 165 115 150,drop,vsbar,drop,size
text "Reste Phrase(ecriture) :",14, 170 145 200 20
combo 15, 170 165 115 150,drop,vsbar,drop,size
text "1ère lettre(fond):" ,200,15 200 100 20
combo 213, 15 220 115 150,drop,vsbar,drop,size
text "Reste Phrase(fond) :",214, 170 200 200 20
combo 215, 170 220 115 150,drop,vsbar,drop,size
check "Première lettre Soulignée",201,15 245 140 20
check "Première lettre en gras ",202,15 265 140 20
check "reste de la frase Soulignée",203,160 245 150 20
check "reste de la frase en gras ",204,160 265 140 20
box "" 2045,0 287 301 1
radio "ecriture romantique",19, 10 295 140 20
radio "ecriture morbide",80, 10 315 140 20
radio "frame en vague",25, 10 335 140 20
radio "Ailes d'ange",18, 10 355 140 20
radio " frame confeties",24, 10 375 140 20
radio "frame fleche",26, 10 395 140 20
radio "frame en bulles",20, 10 415 140 20
radio "frame chinoise",21, 10 435 140 20
radio "frame bleuté",17, 10 455 140 20
radio "Ma prope forme",22,10 475 110 20
radio "ecriture le marsupilami",1001, 150 295 200 20
radio "cameleon color",1002, 150 315 200 20
button "Configurer ma propre forme",23,130 475 140 17
radio "Aucun effet",30, 10 495 100 20
button "EnRegiStreR",100, 5 522 90 35
button "FERMER",101, 200 522 90 35,cancel
}
on 1:dialog:couleurs:sclick:30: { set %effet off | unset %effet.b }
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:80: { 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:24: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:25: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:103: { dialog -x couleurs couleurs | géné }
on 1:dialog:couleurs:sclick:26: { did -b couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:1001: { did -e couleurs 13,15,23 | did -ub couleurs 7 }
on 1:dialog:couleurs:sclick:1002: { 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:100: {
/.timer 1 1 /clear -s
if (($did(couleurs,1).text = Aucune) || ($did(couleurs,1).text = $null)) { set %ccc off }
if ($did(couleurs,1).text = 0 - Blanc) { set %ccc 0 }
if ($did(couleurs,1).text = 1 - Noir) { set %ccc 1 }
if ($did(couleurs,1).text = 2 - Bleu Marine) { set %ccc 2 }
if ($did(couleurs,1).text = 3 - Vert) { set %ccc 3 }
if ($did(couleurs,1).text = 4 - Rouge) { set %ccc 4 }
if ($did(couleurs,1).text = 5 - Marron) { set %ccc 5 }
if ($did(couleurs,1).text = 6 - Violet) { set %ccc 6 }
if ($did(couleurs,1).text = 7 - Orange) { set %ccc 7 }
if ($did(couleurs,1).text = 8 - Jaune) { set %ccc 8 }
if ($did(couleurs,1).text = 9 - Vert clair) { set %ccc 9 }
if ($did(couleurs,1).text = 10 - Bleu Ciel foncé) { set %ccc 10 }
if ($did(couleurs,1).text = 11 - Bleu Ciel) { set %ccc 11 }
if ($did(couleurs,1).text = 12 - Bleu) { set %ccc 12 }
if ($did(couleurs,1).text = 13 - Rose) { set %ccc 13 }
if ($did(couleurs,1).text = 14 - Gris) { set %ccc 14 }
if ($did(couleurs,1).text = 15 - Gris Clair) { set %ccc 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,201).state == 1) { set %soulpl | set %soulpl1 1 } | else { unset %soulpl | unset %soulpl1 }
if ($did(couleurs,202).state == 1) { set %gpl } | else { unset %gpl }
if ($did(couleurs,203).state == 1) { set %soulrest | set %soulrest1 1 } | else { unset %soulrest | unset %soulrest1 }
if ($did(couleurs,204).state == 1) { set %grest } | else { unset %grest }
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,213).text == 0 - Blanc) { set %premf 0 }
if ($did(couleurs,213).text == 1 - Noir) { set %premf 1 }
if ($did(couleurs,213).text == 2 - Bleu Marine) { set %premf 2 }
if ($did(couleurs,213).text == 3 - Vert) { set %premf 3 }
if ($did(couleurs,213).text == 4 - Rouge) { set %premf 4 }
if ($did(couleurs,213).text == 5 - Marron) { set %premf 5 }
if ($did(couleurs,213).text == 6 - Violet) { set %premf 6 }
if ($did(couleurs,213).text == 7 - Orange) { set %premf 7 }
if ($did(couleurs,213).text == 8 - Jaune) { set %premf 8 }
if ($did(couleurs,213).text == 9 - Vert clair) { set %premf 9 }
if ($did(couleurs,213).text == 10 - Bleu Ciel foncé) { set %premf 10 }
if ($did(couleurs,213).text == 11 - Bleu Ciel) { set %premf 11 }
if ($did(couleurs,213).text == 12 - Bleu) { set %premf 12 }
if ($did(couleurs,213).text == 13 - Rose) { set %premf 13 }
if ($did(couleurs,213).text == 14 - Gris) { set %premf 14 }
if ($did(couleurs,213).text == 15 - Gris Clair) { set %premf 15 }
if ($did(couleurs,215).text == 0 - Blanc) { set %restf 0 }
if ($did(couleurs,215).text == 1 - Noir) { set %restf 1 }
if ($did(couleurs,215).text == 2 - Bleu Marine) { set %restf 2 }
if ($did(couleurs,215).text == 3 - Vert) { set %restf 3 }
if ($did(couleurs,215).text == 4 - Rouge) { set %restf 4 }
if ($did(couleurs,215).text == 5 - Marron) { set %restf 5 }
if ($did(couleurs,215).text == 6 - Violet) { set %restf 6 }
if ($did(couleurs,215).text == 7 - Orange) { set %restf 7 }
if ($did(couleurs,215).text == 8 - Jaune) { set %restf 8 }
if ($did(couleurs,215).text == 9 - Vert clair) { set %restf 9 }
if ($did(couleurs,215).text == 10 - Bleu Ciel foncé) { set %restf 10 }
if ($did(couleurs,215).text == 11 - Bleu Ciel) { set %restf 11 }
if ($did(couleurs,215).text == 12 - Bleu) { set %restf 12 }
if ($did(couleurs,215).text == 13 - Rose) { set %restf 13 }
if ($did(couleurs,215).text == 14 - Gris) { set %restf 14 }
if ($did(couleurs,215).text == 15 - Gris Clair) { set %restf 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,80).state == 1) { set %effet on | unset %effet.* | set %effet.k 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,24).state == 1) { set %effet on | unset %effet.* | set %effet.j on }
if ($did(couleurs,25).state == 1) { set %effet on | unset %effet.* | set %effet.h on }
if ($did(couleurs,26).state == 1) { set %effet on | unset %effet.* | set %effet.i on }
if ($did(couleurs,1001).state == 1) { set %effet on | unset %effet.* | set %effet.r on }
if ($did(couleurs,1002).state == 1) { set %effet on | unset %effet.* | set %effet.s on }
if ($did(couleurs,1003).state == 1) { set %effet on | unset %effet.* | set %effet.t on }
if ($did(couleurs,1004).state == 1) { set %effet on | unset %effet.* | set %effet.u on }
if ($did(couleurs,1005).state == 1) { set %effet on | unset %effet.* | set %effet.v on }
if ($did(couleurs,1006).state == 1) { set %effet on | unset %effet.* | set %effet.w on }
if ($did(couleurs,1007).state == 1) { set %effet on | unset %effet.* | set %effet.x on }
if ($did(couleurs,1008).state == 1) { set %effet on | unset %effet.* | set %effet.y on }
if ($did(couleurs,1009).state == 1) { set %effet on | unset %effet.* | set %effet.z on }
if ($did(couleurs,30).state == 1) { set %effet off | unset %effet.* | set %effet.0 on }
}
on 1:dialog:couleurs:init:0: {
/.timer 1 1 /clear -s
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) { var %combo 213 | goto affichage }
elseif (%combo = 213) { var %combo 215 | goto affichage }
elseif (%combo = 215) { goto suite }
:suite
if (%ccc == off) { did -c couleurs 1 1 | did -cb couleurs 2 1 | did -ub couleurs 7 }
if (%ccc == 0) { did -c couleurs 1 2 }
if (%ccc == 1) { did -c couleurs 1 3 }
if (%ccc == 2) { did -c couleurs 1 4 }
if (%ccc == 3) { did -c couleurs 1 5 }
if (%ccc == 4) { did -c couleurs 1 6 }
if (%ccc == 5) { did -c couleurs 1 7 }
if (%ccc == 6) { did -c couleurs 1 8 }
if (%ccc == 7) { did -c couleurs 1 9 }
if (%ccc == 8) { did -c couleurs 1 10 }
if (%ccc == 9) { did -c couleurs 1 11 }
if (%ccc == 10) { did -c couleurs 1 12 }
if (%ccc == 11) { did -c couleurs 1 13 }
if (%ccc == 12) { did -c couleurs 1 14 }
if (%ccc == 13) { did -c couleurs 1 15 }
if (%ccc == 14) { did -c couleurs 1 16 }
if (%ccc == 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 (%g == ) { did -c couleurs 71 }
if (%reverse == 1) { did -c couleurs 8 | did -ub couleurs 1,2 }
if (%soulpl1 == 1) { did -c couleurs 201 }
if (%gpl == ) { did -c couleurs 202 }
if (%soulrest1 == 1) { did -c couleurs 203 }
if (%grest == ) { did -c couleurs 204 }
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 (%premf == 0) { did -c couleurs 213 1 }
if (%premf == 1) { did -c couleurs 213 2 }
if (%premf == 2) { did -c couleurs 213 3 }
if (%premf == 3) { did -c couleurs 213 4 }
if (%premf == 4) { did -c couleurs 213 5 }
if (%premf == 5) { did -c couleurs 213 6 }
if (%premf == 6) { did -c couleurs 213 7 }
if (%premf == 7) { did -c couleurs 213 8 }
if (%premf == 8) { did -c couleurs 213 9 }
if (%premf == 9) { did -c couleurs 213 10 }
if (%premf == 10) { did -c couleurs 213 11 }
if (%premf == 11) { did -c couleurs 213 12 }
if (%premf == 12) { did -c couleurs 213 13 }
if (%premf == 13) { did -c couleurs 213 14 }
if (%premf == 14) { did -c couleurs 213 15 }
if (%premf == 15) { did -c couleurs 213 16 }
if (%restf == 0) { did -c couleurs 215 1 }
if (%restf == 1) { did -c couleurs 215 2 }
if (%restf == 2) { did -c couleurs 215 3 }
if (%restf == 3) { did -c couleurs 215 4 }
if (%restf == 4) { did -c couleurs 215 5 }
if (%restf == 5) { did -c couleurs 215 6 }
if (%restf == 6) { did -c couleurs 215 7 }
if (%restf == 7) { did -c couleurs 215 8 }
if (%restf == 8) { did -c couleurs 215 9 }
if (%restf == 9) { did -c couleurs 215 10 }
if (%restf == 10) { did -c couleurs 215 11 }
if (%restf == 11) { did -c couleurs 215 12 }
if (%restf == 12) { did -c couleurs 215 13 }
if (%restf == 13) { did -c couleurs 215 14 }
if (%restf == 14) { did -c couleurs 215 15 }
if (%restf == 15) { did -c couleurs 215 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 }
if (%effet.h == on) { did -c couleurs 25 | did -b couleurs 13,15,23 }
if (%effet.i == on) { did -c couleurs 26 | did -b couleurs 13,15,23 }
if (%effet.j == on) { did -c couleurs 24 | did -b couleurs 13,15,23 }
if (%effet.k == on) { did -c couleurs 80 | did -b couleurs 13,15,23 }
if (%effet.r == on) { did -c couleurs 1001 | did -b couleurs 13,15,23 }
if (%effet.s == on) { did -c couleurs 1002 | did -b couleurs 13,15,23 }
}
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 (c isin $chan($chan).mode) { goto stop }
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 $+ %ccc $+ , $+ %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 %gpl $+ %soulpl $+ $+ %prem $+ , $+ %premf $+ %a.t $+ $+ %rest $+ , $+ %restf $+ %gpl $+ %soulpl $+ %soulrest $+ %grest $+ %s.t | halt }
if (%effet.b == on) {
if ( %supercoul == 0) { msg $active 11,12 <4<8 `13` 11 $1- 13`8`4 >11> | set %supercoul 1 | halt }
{ msg $active 4,12 <11<13 `8` 4 $1- 8`13`11 >4> | set %supercoul 0 | halt }
}
if (%effet.c == on) {
if ( %supercoul == 0) { msg $active 15,1¯`°²ºæ=«.,_ 0|14[ _ 13 $1- 14_ ]0| 15 _,.»=溲°`¯ | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 11,1¯`°²ºæ=«.,_ 0|6[ _ 13 $1- 6_ ]0| 11 _,.»=溲°`¯ | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 8,1¯`°²ºæ=«.,_ 7|4[ _ 13 $1- 4_ ]7| 8 _,.»=溲°`¯ | set %supercoul 3 | halt }
if ( %supercoul == 3) { msg $active 4,1¯`°²ºæ=«.,_ 9|11[ _ 13 $1- 11_ ]9| 4 _,.»=溲°`¯ | set %supercoul 4 | halt }
if ( %supercoul == 4) { msg $active 9,1¯`°²ºæ=«.,_ 11|10[ _ 13 $1- 10_ ]11| 4 _,.»=溲°`¯ | set %supercoul 5 | halt }
{ msg $active 7,1¯`°²ºæ=«.,_ 9|8[ _ 13 $1- 8_ ]9| 7 _,.»=溲°`¯ | set %supercoul 0 | halt }
}
if (%effet.d == on) {
if ( %supercoul == 0) { msg $active 4,1@3}-9`3--9;3-1_ 8 $1- 1_ 3-9;3--9'3-{4@ | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 4,1@3}-9`3--9;3-1_ 11 $1- 1_ 3-9;3--9'3-{4@ | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 4,1@3}-9`3--9;3-1_ 13 $1- 1_ 3-9;3--9'3-{4@ | set %supercoul 3 | halt }
if ( %supercoul == 3) { msg $active 4,1@3}-9`3--9;3-1_ 15 $1- 1_ 3-9;3--9'3-{4@ | set %supercoul 4 | halt }
if ( %supercoul == 4) { msg $active 4,1@3}-9`3--9;3-1_ 9 $1- 1_ 3-9;3--9'3-{4@ | set %supercoul 5 | halt }
if ( %supercoul == 5) { msg $active 4,1@3}-9`3--9;3-1_ 0 $1- 1_ 3-9;3--9'3-{4@ | set %supercoul 6 | halt }
{ msg $active 4,1@3}-9`3--9;3-1_ 7 $1- 1_ 3-9;3--9'3-{4@ | set %supercoul 0 | halt }
}
if (%effet.e == on) {
if ( %supercoul == 0) { msg $active 11,1°13 o7 O 13] 7[10 $1- 7]13 [ 7 O13 o 11 ° | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 7,1°11 o13 O 11] 13[10 $1- 13]11 [ 13 O11 o 7 ° | set %supercoul 2 | halt }
{ msg $active 13,1°7 o11 O 7] 11[10 $1- 11]7 [ 11 O7 o 13 ° | set %supercoul 0 | halt }
}
if (%effet.f == on) {
if ( %supercoul == 0) { msg $active 11,13?13 ???12 $1- 13??? 11? | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 11,13? ?13??12 $1- 13??11? ? | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 11,13?13 ?11?13?12 $1- 13?11?13? 11? | set %supercoul 3 | halt }
if ( %supercoul == 3) { msg $active 11,13?13 ??11?12 $1- 11?13?? 11? | set %supercoul 4 | halt }
if ( %supercoul == 4) { msg $active 11,13?13 ?11?13?12 $1- 13?11?13? 11? | set %supercoul 5 | halt }
{ msg $active 11,13? ?13??12 $1- 13??11? ? | set %supercoul 0 | halt }
}
if (%effet.g == on) { msg $active %deco.g $1- %deco.d | halt }
if (%effet.h == on) {
if ( %supercoul == 0) { msg $active 8,12(¯`'·.138(¯`'·.13 *12_ 11 $1- 12_13* 8.·'¯)138.·'¯) | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 13,12(¯`'·.1113(¯`'·.11 *12_ 8 $1- 12_11* 13.·'¯)1113.·'¯) | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 11,12(¯`'·.811(¯`'·.8 *12_ 13 $1- 12_8* 11.·'¯)811.·'¯) | set %supercoul 3 | halt }
if ( %supercoul == 3) { msg $active 13,12(¯`'·.813(¯`'·.8 *12_ 11 $1- 12_8* 13.·'¯)813.·'¯) | set %supercoul 4 | halt }
if ( %supercoul == 4) { msg $active 11,12(¯`'·.1311(¯`'·.13 *12_ 8 $1- 12_13* 11.·'¯)1311.·'¯) | set %supercoul 5 | halt }
{ msg $active 8,12(¯`'·.118(¯`'·.11 *12_ 13 $1- 12_11* 8.·'¯)118.·'¯) | set %supercoul 0 | halt }
}
if (%effet.i == on) {
if ( %supercoul == 0) { msg $active 13,1|~~~~>1,1_8"1_11 $1- 1_8"1_13||| | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 13,1|~>1,1_8"1_11 $1- 1_8"1_13||| | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 13,1|~~>1,1_8"1_11 $1- 1_8"1_13||| | set %supercoul 3 | halt }
{ msg $active 13,1|~~~>1,1_8"1_11 $1- 1_8"1_13||| | set %supercoul 1 | halt }
}
if (%effet.j == on) {
if ( %supercoul == 0) { msg $active 7,2ø89°7`9°87ø8,798,9ø915 $1- 9,28,7ø78°7`9°98ø8,977,8ø8 | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 8,2ø78°7`9°89ø8,978,7ø815 $1- 7,28,9ø98°9`7°98ø7,899,7ø8 | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 9,2ø87°8`7°98ø9,897,8ø715 $1- 9,27,7ø89°8`7°88ø9,877,8ø9 | set %supercoul 3 | halt }
if ( %supercoul == 3) { msg $active 7,2ø98°7`8°79ø8,988,7ø815 $1- 7,28,9ø98°9`7°77ø7,899,8ø7 | set %supercoul 4 | halt }
{ msg $active 9,2ø79°8`7°87ø9,898,8ø915 $1- 8,27,8ø78°9`7°98ø9,778,7ø9 | set %supercoul 0 | halt }
}
if (%effet.k == on) {
if ( %supercoul == 0) { msg $active 2,15 ? 12 $1- 2 ? | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 11,12 ? 13 $1- 11 ? | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 0,1? 15 $1- 0 ? | set %supercoul 3 | halt }
if ( %supercoul == 3) { msg $active 8,4 ? 4,8 $1- 8,4 ? | set %supercoul 4 | halt }
if ( %supercoul == 4) { msg $active 3,2 ? 9 $1- 3 ? | set %supercoul 5 | halt }
if ( %supercoul == 5) { msg $active 7,6 ? 11,13 $1- 7,6 ? | set %supercoul 6 | halt }
if ( %supercoul == 6) { msg $active 4,1 ? 15 $1- 4 ? | set %supercoul 7 | halt }
if ( %supercoul == 7) { msg $active 6,15?15_13 $1- 15_6? | set %supercoul 8 | halt }
{ msg $active 4,0 ? 0,4 $1- 4,0 ? | set %supercoul 0 | halt }
}
if (%effet.r == on) {
if ( %supercoul == 0) { msg $active 1,8[H0uBa]8,1 $1- 1,8[H0uBa ] | set %supercoul 1 | halt }
{ msg $active 8,1[H0uBa]1,8 $1- 8,1[H0uBa ] | set %supercoul 0 | halt }
}
if (%effet.s == on) {
if ( %supercoul == 0) { msg $active 11,12 $+ $1- | set %supercoul 1 | halt }
if ( %supercoul == 1) { msg $active 8,1 $+ $1- | set %supercoul 2 | halt }
if ( %supercoul == 2) { msg $active 11,4 $+ $1- | set %supercoul 3 | halt }
if ( %supercoul == 3) { msg $active 3,8 $+ $1- | set %supercoul 4 | halt }
if ( %supercoul == 4) { msg $active 15,1 $+ $1- | set %supercoul 5 | halt }
if ( %supercoul == 5) { msg $active 10,15 $+ $1- | set %supercoul 6 | halt }
if ( %supercoul == 6) { msg $active 7,1 $+ $1- | set %supercoul 7 | halt }
if ( %supercoul == 7) { msg $active 13,1 $+ $1- | set %supercoul 8 | halt }
if ( %supercoul == 8) { msg $active 15,2 $+ $1- | set %supercoul 9 | halt }
if ( %supercoul == 9) { msg $active 11,6 $+ $1- | set %supercoul 10 | halt }
if ( %supercoul == 10) { msg $active 0,7 $+ $1- | set %supercoul 11 | halt }
if ( %supercoul == 11) { msg $active 13,8 $+ $1- | set %supercoul 12 | halt }
if ( %supercoul == 12) { msg $active 1,9 $+ $1- | set %supercoul 13 | halt }
if ( %supercoul == 13) { msg $active 11,13 $+ $1- | set %supercoul 14 | halt }
if ( %supercoul == 14) { msg $active 4,2 $+ $1- | set %supercoul 15 | halt }
if ( %supercoul == 15) { msg $active 1,10 $+ $1- | set %supercoul 16 | halt }
if ( %supercoul == 16) { msg $active 7,15 $+ $1- | set %supercoul 17 | halt }
if ( %supercoul == 17) { msg $active 2,7 $+ $1- | set %supercoul 18 | halt }
if ( %supercoul == 18) { msg $active 1,8 $+ $1- | set %supercoul 19 | halt }
if ( %supercoul == 19) { msg $active 0,2 $+ $1- | set %supercoul 20 | halt }
if ( %supercoul == 20) { msg $active 4,11 $+ $1- | set %supercoul 21 | halt }
if ( %supercoul == 21) { msg $active 11,1 $+ $1- | set %supercoul 22 | halt }
if ( %supercoul == 22) { msg $active 8,3 $+ $1- | set %supercoul 0 | halt }
}
:officiel
if ((%soul != 1) && (%reverse == 1)) { msg $active %g $+ $+ $1- | halt }
else { goto standard }
:standard
if (%ccc == off) { goto stop } | else { msg $active %g $+ $+ %ccc $+ , $+ %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 }
dialog statentre {
title "Demarrage des stats"
size -1 -1 200 50
button " LanceR Les stats de Mon SaLon",1,10 5 180 40
}
on 1:dialog:statentre:sclick:1: { set %nickentre $nick(%bot.salon,0) | set %N1 %nickentre | unset %nickentre | dialog -x statentre statentre }
Dialog Mp3 {
title "LECTEUR MP3"
size -1 -1 376 325
tab "Liste des MP3", 1, 2 2 370 298
list 2, 10 30 360 225, tab 1 size vsbar , hsbar , multi , sort
button "Lecture", 3, 10 262 90 25,tab 1
button "Arret", 6, 110 262 90 25,tab 1
button "Pause", 4, 210 262 90 25,tab 1
tab "Config",17
button "+", 12, 205 247 20 20, tab 17
button "-", 13, 145 224 20 20, tab 17
box "", 10, 141 214 88 56, tab 17
edit "", 11, 167 234 36 21, disable tab 17 read autohs center
box "Volume", 18, 126 199 118 86, tab 17
button "Rafraichir le répertoire", 7, 126 168 110 25, tab 17
text "Repertoire actuel de tes mp3:",8, 20 133 250 30,tab 17
button "Changer", 15, 280 168 80 25,tab 17
box "Répertoire:", 14, 5 118 365 80,tab 17
box "Couleurs", 19, 5 27 365 80,tab 17
combo 20, 15 76 80 180, result tab 17 drop
text "Couleur du texte",21, 15 42 250 14,tab 17
combo 22, 110 76 80 180, result tab 17 drop
text "Couleur des [ ]",23, 110 42 250 14,tab 17
button "Fermer", 16, 3 299 370 25, ok
}
On *:Dialog:Mp3:Init:0: {
Mp3List
Did -ra Mp3 8 Répertoire actuel de tes mp3: %Mp3.Dir
Did -ra Mp3 11 $Int($Calc( $Vol(Wave) / 1300 ))
did -a Mp3 20,22 Blanc
did -a Mp3 20,22 Noir
did -a Mp3 20,22 Bleu Foncé
did -a Mp3 20,22 Vert Foncé
did -a Mp3 20,22 Rouge
did -a Mp3 20,22 Marron
did -a Mp3 20,22 Violet
did -a Mp3 20,22 Orange
did -a Mp3 20,22 Jaune
did -a Mp3 20,22 Vert Clair
did -a Mp3 20,22 Vert Anglais
did -a Mp3 20,22 Cyan
did -a Mp3 20,22 Bleu Clair
did -a Mp3 20,22 Rose
did -a Mp3 20,22 Gris Foncé
did -a Mp3 20,22 Gris Clair
if (%Mp3.color == 0 ) { did -c Mp3 20 1 }
if (%Mp3.color == 1 ) { did -c Mp3 20 2 }
if (%Mp3.color == 2 ) { did -c Mp3 20 3 }
if (%Mp3.color == 3 ) { did -c Mp3 20 4 }
if (%Mp3.color == 4 ) { did -c Mp3 20 5 }
if (%Mp3.color == 5 ) { did -c Mp3 20 6 }
if (%Mp3.color == 6 ) { did -c Mp3 20 7 }
if (%Mp3.color == 7 ) { did -c Mp3 20 8 }
if (%Mp3.color == 8 ) { did -c Mp3 20 9 }
if (%Mp3.color == 9 ) { did -c Mp3 20 10 }
if (%Mp3.color == 10 ) { did -c Mp3 20 11 }
if (%Mp3.color == 11 ) { did -c Mp3 20 12 }
if (%Mp3.color == 12 ) { did -c Mp3 20 13 }
if (%Mp3.color == 13 ) { did -c Mp3 20 14 }
if (%Mp3.color == 14 ) { did -c Mp3 20 15 }
if (%Mp3.color2 == 0 ) { did -c Mp3 22 1 }
if (%Mp3.color2 == 1 ) { did -c Mp3 22 2 }
if (%Mp3.color2 == 2 ) { did -c Mp3 22 3 }
if (%Mp3.color2 == 3 ) { did -c Mp3 22 4 }
if (%Mp3.color2 == 4 ) { did -c Mp3 22 5 }
if (%Mp3.color2 == 5 ) { did -c Mp3 22 6 }
if (%Mp3.color2 == 6 ) { did -c Mp3 22 7 }
if (%Mp3.color2 == 7 ) { did -c Mp3 22 8 }
if (%Mp3.color2 == 8 ) { did -c Mp3 22 9 }
if (%Mp3.color2 == 9 ) { did -c Mp3 22 10 }
if (%Mp3.color2 == 10 ) { did -c Mp3 22 11 }
if (%Mp3.color2 == 11 ) { did -c Mp3 22 12 }
if (%Mp3.color2 == 12 ) { did -c Mp3 22 13 }
if (%Mp3.color2 == 13 ) { did -c Mp3 22 14 }
if (%Mp3.color2 == 14 ) { did -c Mp3 22 15 }
}
On *:Dialog:Mp3:Dclick:2: {
If $Did(Mp3,2).Seltext == $Null {
Set %Mp3.Erreur Vous N'avez Pas Choisi De Mp3 Dans La Liste
Dialog -dm Mp3.Erreur Mp3.Erreur
Halt
}
ElseIf $Server == $Null {
Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
Set %Mp3.Say $Did(Mp3,2).Seltext
Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
Echo 0[12Lecteur MP30] 12Tu fait jouer: $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+ $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+ $+ %Mp3.color2 ]
Splay %Mp3.Play
}
Else {
Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
Set %Mp3.Say $Did(Mp3,2).Seltext
Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
describe $active 12écoute $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+ $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+ $+ %Mp3.color2 ]
Splay %Mp3.Play
}
}
On *:Dialog:Mp3:Sclick:3: {
If $Did(Mp3,2).Seltext == $Null {
Set %Mp3.Erreur Tu n'as pas choisi de Mp3 dans la liste
Dialog -dm Mp3.Erreur Mp3.Erreur
Halt
}
ElseIf $Server == $Null {
Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
Set %Mp3.Say $Did(Mp3,2).Seltext
Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
Echo 0[12Lecteur MP30] 12Tu fait jouer: $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+ $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+ $+ %Mp3.color2 ]
Splay %Mp3.Play
}
Else {
Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
Set %Mp3.Say $Did(Mp3,2).Seltext
Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
describe $active 12écoute $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+ $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+ $+ %Mp3.color2 ]
Splay %Mp3.Play
}
}
On *:Dialog:Mp3:Sclick:4: {
Splay Pause
}
On *:Dialog:Mp3:Sclick:6: {
Splay Stop
}
On *:Dialog:Mp3:Sclick:7: {
Mp3List
Did -ra Mp3 8 Répertoire actuel de tes mp3: %Mp3.Dir
}
Alias Mp3List {
Did -r Mp3 2
set %Mp3.Recherche " $+ %Mp3.Dir $+ "
set %Mp3.Temp $Findfile(%Mp3.Recherche,*.Mp3,0, Didtok Mp3 2 C $nopath($1-))
}
On *:Dialog:Mp3:Sclick:8: {
Set %Mp3.Size 225
:First
If %Mp3.Size == 274 {
Goto End
}
Else {
Inc %Mp3.Size
Dialog -s Mp3 -1 -1 376 %Mp3.Size
Goto First
}
:End
Did -b Mp3 8
Did -e Mp3 9
Halt
}
On *:Dialog:Mp3:Sclick:9: {
Set %Mp3.Size 274
:First
If %Mp3.Size == 225 {
Goto End
}
Else {
Dec %Mp3.Size
Dialog -s Mp3 -1 -1 376 %Mp3.Size
Goto First
}
:End
Did -e Mp3 8
Did -b Mp3 9
Halt
}
On *:Dialog:Mp3:Sclick:15: {
Set %Mp3.Dir $Sdir="Choisissez Le Repertoire De Vos Mp3!"
}
on *:Dialog:Mp3:Sclick:13:{
Var %Volume = $Calc( $Int($Calc( $Vol(Wave) / 1300 )) * 1300 - 1300 )
if ( %Volume < 1 ) {
var %Volume = 0
}
vol -w %Volume
did -ra Mp3 11 $int($calc( $vol(wave) / 1300 ))
}
on *:Dialog:Mp3:Sclick:12:{
Var %Volume = $Calc( $Int($Calc( $Vol(Wave) / 1300 )) * 1300 + 1300 )
If ( %Volume > 65000 ) {
Var %Volume = 65000
}
Vol -w %Volume
Did -ra Mp3 11 $int($calc( $vol(wave) / 1300 ))
}
on *:dialog:Mp3:sclick:*:{
if $did(Mp3,20).sel == 1 { set %Mp3.color 0 }
if $did(Mp3,20).sel == 2 { set %Mp3.color 1 }
if $did(Mp3,20).sel == 3 { set %Mp3.color 2 }
if $did(Mp3,20).sel == 4 { set %Mp3.color 3 }
if $did(Mp3,20).sel == 5 { set %Mp3.color 4 }
if $did(Mp3,20).sel == 6 { set %Mp3.color 5 }
if $did(Mp3,20).sel == 7 { set %Mp3.color 6 }
if $did(Mp3,20).sel == 8 { set %Mp3.color 7 }
if $did(Mp3,20).sel == 9 { set %Mp3.color 8 }
if $did(Mp3,20).sel == 10 { set %Mp3.color 9 }
if $did(Mp3,20).sel == 11 { set %Mp3.color 10 }
if $did(Mp3,20).sel == 12 { set %Mp3.color 11 }
if $did(Mp3,20).sel == 13 { set %Mp3.color 12 }
if $did(Mp3,20).sel == 14 { set %Mp3.color 13 }
if $did(Mp3,20).sel == 15 { set %Mp3.color 14 }
if $did(Mp3,20).sel == 16 { set %Mp3.color 15 }
if $did(Mp3,22).sel == 1 { set %Mp3.color2 0 }
if $did(Mp3,22).sel == 2 { set %Mp3.color2 1 }
if $did(Mp3,22).sel == 3 { set %Mp3.color2 2 }
if $did(Mp3,22).sel == 4 { set %Mp3.color2 3 }
if $did(Mp3,22).sel == 5 { set %Mp3.color2 4 }
if $did(Mp3,22).sel == 6 { set %Mp3.color2 5 }
if $did(Mp3,22).sel == 7 { set %Mp3.color2 6 }
if $did(Mp3,22).sel == 8 { set %Mp3.color2 7 }
if $did(Mp3,22).sel == 9 { set %Mp3.color2 8 }
if $did(Mp3,22).sel == 10 { set %Mp3.color2 9 }
if $did(Mp3,22).sel == 11 { set %Mp3.color2 10 }
if $did(Mp3,22).sel == 12 { set %Mp3.color2 11 }
if $did(Mp3,22).sel == 13 { set %Mp3.color2 12 }
if $did(Mp3,22).sel == 14 { set %Mp3.color2 13 }
if $did(Mp3,22).sel == 15 { set %Mp3.color2 14 }
if $did(Mp3,22).sel == 16 { set %Mp3.color2 15 }
}
dialog Mp3.Erreur {
title "Erreur"
size -1 -1 211 84
text Choisit un mp3 avant !, 2, 60 36 388 16
button "Ok", 3, 4 62 208 19, ok
}
Alias Mp3List {
Did -r Mp3 2
set %Mp3.Recherche " $+ %Mp3.Dir $+ "
set %Mp3.Temp $Findfile(%Mp3.Recherche,*.Mp3,0, Didtok Mp3 2 C $nopath($1-))
}
On *:Dialog:Mp3:Sclick:8: {
Set %Mp3.Size 225
:First
If %Mp3.Size == 274 {
Goto End
}
Else {
Inc %Mp3.Size
Dialog -s Mp3 -1 -1 376 %Mp3.Size
Goto First
}
:End
Did -b Mp3 8
Did -e Mp3 9
Halt
}
On *:Dialog:Mp3:Sclick:9: {
Set %Mp3.Size 274
:First
If %Mp3.Size == 225 {
Goto End
}
Else {
Dec %Mp3.Size
Dialog -s Mp3 -1 -1 376 %Mp3.Size
Goto First
}
:End
Did -e Mp3 8
Did -b Mp3 9
Halt
}
On *:Dialog:Mp3:Sclick:15: {
Set %Mp3.Dir $Sdir="Choisissez Le Repertoire De Vos Mp3!"
}
on *:Dialog:Mp3:Sclick:13:{
Var %Volume = $Calc( $Int($Calc( $Vol(Wave) / 1300 )) * 1300 - 1300 )
if ( %Volume < 1 ) {
var %Volume = 0
}
vol -w %Volume
did -ra Mp3 11 $int($calc( $vol(wave) / 1300 ))
}
on *:Dialog:Mp3:Sclick:12:{
Var %Volume = $Calc( $Int($Calc( $Vol(Wave) / 1300 )) * 1300 + 1300 )
If ( %Volume > 65000 ) {
Var %Volume = 65000
}
Vol -w %Volume
Did -ra Mp3 11 $int($calc( $vol(wave) / 1300 ))
}
on *:dialog:Mp3:sclick:*:{
if $did(Mp3,20).sel == 1 { set %Mp3.color 0 }
if $did(Mp3,20).sel == 2 { set %Mp3.color 1 }
if $did(Mp3,20).sel == 3 { set %Mp3.color 2 }
if $did(Mp3,20).sel == 4 { set %Mp3.color 3 }
if $did(Mp3,20).sel == 5 { set %Mp3.color 4 }
if $did(Mp3,20).sel == 6 { set %Mp3.color 5 }
if $did(Mp3,20).sel == 7 { set %Mp3.color 6 }
if $did(Mp3,20).sel == 8 { set %Mp3.color 7 }
if $did(Mp3,20).sel == 9 { set %Mp3.color 8 }
if $did(Mp3,20).sel == 10 { set %Mp3.color 9 }
if $did(Mp3,20).sel == 11 { set %Mp3.color 10 }
if $did(Mp3,20).sel == 12 { set %Mp3.color 11 }
if $did(Mp3,20).sel == 13 { set %Mp3.color 12 }
if $did(Mp3,20).sel == 14 { set %Mp3.color 13 }
if $did(Mp3,20).sel == 15 { set %Mp3.color 14 }
if $did(Mp3,20).sel == 16 { set %Mp3.color 15 }
if $did(Mp3,22).sel == 1 { set %Mp3.color2 0 }
if $did(Mp3,22).sel == 2 { set %Mp3.color2 1 }
if $did(Mp3,22).sel == 3 { set %Mp3.color2 2 }
if $did(Mp3,22).sel == 4 { set %Mp3.color2 3 }
if $did(Mp3,22).sel == 5 { set %Mp3.color2 4 }
if $did(Mp3,22).sel == 6 { set %Mp3.color2 5 }
if $did(Mp3,22).sel == 7 { set %Mp3.color2 6 }
if $did(Mp3,22).sel == 8 { set %Mp3.color2 7 }
if $did(Mp3,22).sel == 9 { set %Mp3.color2 8 }
if $did(Mp3,22).sel == 10 { set %Mp3.color2 9 }
if $did(Mp3,22).sel == 11 { set %Mp3.color2 10 }
if $did(Mp3,22).sel == 12 { set %Mp3.color2 11 }
if $did(Mp3,22).sel == 13 { set %Mp3.color2 12 }
if $did(Mp3,22).sel == 14 { set %Mp3.color2 13 }
if $did(Mp3,22).sel == 15 { set %Mp3.color2 14 }
if $did(Mp3,22).sel == 16 { set %Mp3.color2 15 }
}
dialog Mp3.Erreur {
title "Erreur"
size -1 -1 211 84
text Choisit un mp3 avant !, 2, 60 36 388 16
button "Ok", 3, 4 62 208 19, ok
}
dialog autojoin {
title "« Auto-Join »"
size -1 -1 330 225
button "OK", 1, 260 195 60 20, ok,flat
box "Auto Join", 2, 130 5 190 180
list 3, 10 10 110 185
edit "", 4, 164 28 120 23, autohs
button "&Ajouter", 5, 161 62 65 22,flat
button "&Modifier", 6, 226 62 65 22,flat
button "&Supprimer", 7, 183 92 80 22,flat
button "&Joindre tout", 8, 139 193 90 25,flat
check "A&ctiver autojoin", 10, 20 197 100 13,flat
;### Si vous desirez voir apparaître une image/logo sur l'auto-join, ajoutez le chemin vers cette image à la fin de la ligne suivante (apres la virgule), suivi de ", center". Ex : , Images\logo.jpg, center
;###
text "Délai entre chaque /join :", 12, 140 143 120 23, autohs
edit "", 13, 265 138 30 23, autohs
text "s.", 14, 300 143 120 23, autohs
}
on *:dialog:autojoin:init:*:{
did -b autojoin 5,6,7
if ($group(#autojoin) == ON) { did -c autojoin 10 }
if (%autojoin.delai !== $null) { did -a autojoin 13 %autojoin.delai }
autojoin.update
}
on *:dialog:autojoin:edit:*:{
if ($did(4) == $null) { did -b autojoin 5,6 }
else { did -e autojoin 5,6 }
if ($did(3).sel == $null) { did -b autojoin 6 }
else { did -e autojoin 6 }
if ($left($did(4),1) !== $chr(35)) { var %autojoin.edit = $chr(35) $+ $did(4) }
else { var %autojoin.edit = $did(4) }
if ($findtok(%autojoin.canaux,%autojoin.edit,0,44) == 1) { did -b autojoin 5,6 }
if ($did == 13) {
if ($did(13) !isnum) { did -r autojoin 13 | unset %autojoin.delai }
else { set %autojoin.delai $did(13) }
} }
on *:dialog:autojoin:sclick:*:{
if ($did == 5) {
if ($left($did(4),1) !== $chr(35)) { var %autojoin.ajout = $chr(35) $+ $did(4) }
else { var %autojoin.ajout = $did(4) }
set %autojoin.canaux $sorttok($addtok(%autojoin.canaux,%autojoin.ajout,44),44)
autojoin.update
}
elseif ($did == 6) {
if ($left($did(autojoin,4),1) !== $chr(35)) { var %autojoin.modif = $chr(35) $+ $did(4) }
else { var %autojoin.modif = $did(4) }
set %autojoin.canaux $sorttok($reptok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),%autojoin.modif,1,44),44)
autojoin.update
}
elseif ($did == 7) {
set %autojoin.canaux $remtok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),44)
autojoin.update
}
if ($did == 3 && $did(3).sel !== $null) { did -ra autojoin 4 $did(3,$did(3).sel) }
elseif ($did == 8) { if ($server != $null) { autojoin.join } }
elseif ($did == 10) {
if ($did(10).state == 0) { .disable #autojoin }
else { .enable #autojoin }
}
if ($did(3).sel == $null) { did -b autojoin 5,6,7 }
else { did -e autojoin 6,7 }
if ($did == 3) { did -b autojoin 6 }
}
alias autojoin.update {
did -r autojoin 3,4
if (%autojoin.canaux !== $null) {
did -e autojoin 8,10
var %autojoin.loop.n = 1
:loop
did -a autojoin 3 $gettok(%autojoin.canaux,%autojoin.loop.n,44)
inc %autojoin.loop.n
if ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) { goto loop }
}
else {
unset %autojoin.canaux
.disable #autojoin
did -ub autojoin 8,10
} }
alias autojoin.join {
var %autojoin.loop.n = 1
while ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) {
if (%autojoin.delai !== $null) { .timer 1 $calc(%autojoin.delai * %autojoin.loop.n) join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
else { join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
inc %autojoin.loop.n
} }
#autojoin on
on *:connect:autojoin.join
#autojoin end
}
Conclusion :
je rapelle que pour l'ouvrir taper sa /dialog -m couleurs couleurs
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.