- on *:load:conf.wclr
- menu status,nicklist,menubar {
- -
- WtextColor V1.0
- .Configurer:conf.wclr
- .Désinstaller:rem.wclr
- }
- alias conf.wclr dialog $iif($dialog(wclr),-v wclr,-m wclr wclr)
- alias rem.wclr dialog $iif($dialog(dclr),-v dclr,-m dclr dclr)
- dialog wclr {
- title "WorldDMT Text Color"
- size -1 -1 205 218
- option pixels
- combo 1, 92 110 100 70, drop
- combo 2, 92 133 100 69, drop
- check "Gras", 3, 93 157 40 17
- check "Souligné", 4, 136 157 60 17
- text "Couleur texte", 6, 7 112 80 13
- text "Fond de texte", 7, 7 135 80 13
- text "WorldDMT Text Color V1.0", 8, 60 194 130 13, disable
- text "Format du texte", 9, 7 158 80 13
- box "Configuration", 10, 2 95 201 85
- box "", 11, 2 180 200 36
- icon 12, 3 3 201 92, colorpic.jpg, 0 noborder
- check "OFF", 13, 9 193 39 17, push
- }
- dialog dclr {
- title Désinstaller WtextColor V 1.0
- size -1 -1 150 40
- option dbu
- box ATTENTION!!, 1, 1 2 148 37
- text Cette action supprime l'addon WtextColor V 1.0 voulez-vous désinstallé WtextColor?, 2, 12 9 125 24, Center
- button Oui, 3, 45 25 30 12, ok
- button Non, 4, 75 25 30 12, cancel
- }
- on *:dialog:dclr:sclick:3:{
- if ($dialog(wclr)) dialog -x wclr
- echo -ae - Désinstallation de l'Addon terminé avec succes
- echo -ae - merci d'avoir utilisé WtextColor V 1.0
- echo -ae - WorldDMT
- unset %wclr %t.g %t.s %t.c %t.f
- .unload -rs $qt($scriptdirwcolor.data)
- }
- on *:dialog:wclr:*:*:{
- if ($devent == sclick) {
- set %wclr $did(13).state
- did -ra $dname 13 $iif(%wclr,ON,OFF)
- set %t.g $did(3).state
- set %t.s $did(4).state
- if ($did == 1) {
- set %t.c $did(1).sel
- did -er $dname 2
- loadbuf -o $dname 2 $qt($scriptdircouleur.data)
- did -d $dname 2 $did(1).sel
- if (%t.f == %t.c) {
- unset %t.f
- }
- else did -c $dname 2 $calc(%t.f $iif(%t.c >= %t.f,+ 1))
- }
- if ($did == 2) {
- set %t.f $did(2).sel $iif(%t.c >= $did(2).sel,- 1)
- }
- }
- if ($devent == init) {
- loadbuf -o $dname 1 $qt($scriptdircouleur.data)
- loadbuf -o $dname 2 $qt($scriptdircouleur.data)
- if (%t.c == $null) did -b $dname 2
- did -d $dname 2 $calc(%t.c + 1)
- if (%wclr) { did -c $dname 13 | did -ra $dname 13 ON }
- if (%t.g) did -c $dname 3
- if (%t.s) did -c $dname 4
- did -c $dname 1 $iif(%t.c != $null,$calc($ifmatch + 1))
- did -c $dname 2 $iif(%t.f != $null,$calc(%t.f $iif(%t.c >= %t.f,+ 1)))
- }
- }
- on *:input:*:{
- if (%wclr) {
- if (($active != Status Window) && ($left($1,1) !isin !./) && (c !isincs $gettok($chan($active).mode,1,32))) {
- var %C = $chr(3) $+ $iif(%t.c != $null,%t.c $+ $iif(%t.f != $null,$+($chr(44),%t.f))) $+ $iif(%t.g,$chr(2)) $+ $iif(%t.s,$chr(31))
- msg $active %C $+ $1-
- halt
- }
- }
- }
on *:load:conf.wclr
menu status,nicklist,menubar {
-
WtextColor V1.0
.Configurer:conf.wclr
.Désinstaller:rem.wclr
}
alias conf.wclr dialog $iif($dialog(wclr),-v wclr,-m wclr wclr)
alias rem.wclr dialog $iif($dialog(dclr),-v dclr,-m dclr dclr)
dialog wclr {
title "WorldDMT Text Color"
size -1 -1 205 218
option pixels
combo 1, 92 110 100 70, drop
combo 2, 92 133 100 69, drop
check "Gras", 3, 93 157 40 17
check "Souligné", 4, 136 157 60 17
text "Couleur texte", 6, 7 112 80 13
text "Fond de texte", 7, 7 135 80 13
text "WorldDMT Text Color V1.0", 8, 60 194 130 13, disable
text "Format du texte", 9, 7 158 80 13
box "Configuration", 10, 2 95 201 85
box "", 11, 2 180 200 36
icon 12, 3 3 201 92, colorpic.jpg, 0 noborder
check "OFF", 13, 9 193 39 17, push
}
dialog dclr {
title Désinstaller WtextColor V 1.0
size -1 -1 150 40
option dbu
box ATTENTION!!, 1, 1 2 148 37
text Cette action supprime l'addon WtextColor V 1.0 voulez-vous désinstallé WtextColor?, 2, 12 9 125 24, Center
button Oui, 3, 45 25 30 12, ok
button Non, 4, 75 25 30 12, cancel
}
on *:dialog:dclr:sclick:3:{
if ($dialog(wclr)) dialog -x wclr
echo -ae - Désinstallation de l'Addon terminé avec succes
echo -ae - merci d'avoir utilisé WtextColor V 1.0
echo -ae - WorldDMT
unset %wclr %t.g %t.s %t.c %t.f
.unload -rs $qt($scriptdirwcolor.data)
}
on *:dialog:wclr:*:*:{
if ($devent == sclick) {
set %wclr $did(13).state
did -ra $dname 13 $iif(%wclr,ON,OFF)
set %t.g $did(3).state
set %t.s $did(4).state
if ($did == 1) {
set %t.c $did(1).sel
did -er $dname 2
loadbuf -o $dname 2 $qt($scriptdircouleur.data)
did -d $dname 2 $did(1).sel
if (%t.f == %t.c) {
unset %t.f
}
else did -c $dname 2 $calc(%t.f $iif(%t.c >= %t.f,+ 1))
}
if ($did == 2) {
set %t.f $did(2).sel $iif(%t.c >= $did(2).sel,- 1)
}
}
if ($devent == init) {
loadbuf -o $dname 1 $qt($scriptdircouleur.data)
loadbuf -o $dname 2 $qt($scriptdircouleur.data)
if (%t.c == $null) did -b $dname 2
did -d $dname 2 $calc(%t.c + 1)
if (%wclr) { did -c $dname 13 | did -ra $dname 13 ON }
if (%t.g) did -c $dname 3
if (%t.s) did -c $dname 4
did -c $dname 1 $iif(%t.c != $null,$calc($ifmatch + 1))
did -c $dname 2 $iif(%t.f != $null,$calc(%t.f $iif(%t.c >= %t.f,+ 1)))
}
}
on *:input:*:{
if (%wclr) {
if (($active != Status Window) && ($left($1,1) !isin !./) && (c !isincs $gettok($chan($active).mode,1,32))) {
var %C = $chr(3) $+ $iif(%t.c != $null,%t.c $+ $iif(%t.f != $null,$+($chr(44),%t.f))) $+ $iif(%t.g,$chr(2)) $+ $iif(%t.s,$chr(31))
msg $active %C $+ $1-
halt
}
}
}