Kod: Tümünü seç
dialog color {
title "Text Format"
size -1 -1 325 300
box "Foreground Color", 3, 5 5 150 250
list 4, 22 23 110 230
button "Close", 1, 140 265 50 25, ok
text "Bold", 9, 35 265 25 25
check "" 10, 60 265 15 15,
check "" 11, 60 280 15 15,
text "Underline", 8, 10 280 45 25
box "Background Color", 5, 170 5 150 250
list 6, 190 23 110 230
}
on *:dialog:color:init:*: {
/did -a color 4 None
/did -a color 4 White
/did -a color 4 Black
/did -a color 4 Dark Blue
/did -a color 4 Dark Green
/did -a color 4 Red
/did -a color 4 Maroon
/did -a color 4 Purple
/did -a color 4 Orange
/did -a color 4 Yellow
/did -a color 4 Green
/did -a color 4 Blue-Green
/did -a color 4 Light Blue
/did -a color 4 Blue
/did -a color 4 Pink
/did -a color 4 Dark Grey
/did -a color 4 Light Grey
/did -ck color 4 %fgstatus
/did -a color 6 None
/did -a color 6 White
/did -a color 6 Black
/did -a color 6 Dark Blue
/did -a color 6 Dark Green
/did -a color 6 Red
/did -a color 6 Maroon
/did -a color 6 Purple
/did -a color 6 Orange
/did -a color 6 Yellow
/did -a color 6 Green
/did -a color 6 Blue-Green
/did -a color 6 Light Blue
/did -a color 6 Blue
/did -a color 6 Pink
/did -a color 6 Dark Grey
/did -a color 6 Light Grey
/did -ck color 6 %bgstatus
if (%bold == ) {
did -c color 10
}
if (%underline == ) {
did -c color 11
}
}
on *:dialog:color:sclick:10: {
if ($did(color,10).state) {
/set %bold
}
else {
/unset %bold
}
}
on *:dialog:color:sclick:11: {
if ($did(color,11).state) {
/set %underline
}
else {
/unset %underline
}
}
on *:dialog:color:sclick:13: {
/set %color on
/echo Text Changer turned on.
}
on *:dialog:color:sclick:15: {
/unset %color
/echo Text Changer turned off.
}
on *:dialog:color:sclick:1: {
if ($did(color,4,1) != $null) { /write -c test.txt | /write test.txt $did(color,4,1) }
if ($did(color,4,2) != $null) { /write test.txt $did(color,4,2) }
if ($did(color,4,3) != $null) { /write test.txt $did(color,4,3) }
}
on *:dialog:color:sclick:4: {
if ($did(color,4).sel == 1) { set %foreground none | set %fgstatus 01 }
if ($did(color,4).sel == 2) { set %foreground 00 | set %fgstatus 02 }
if ($did(color,4).sel == 3) { set %foreground 01 | set %fgstatus 03 }
if ($did(color,4).sel == 4) { set %foreground 02 | set %fgstatus 04 }
if ($did(color,4).sel == 5) { set %foreground 03 | set %fgstatus 05 }
if ($did(color,4).sel == 6) { set %foreground 04 | set %fgstatus 06 }
if ($did(color,4).sel == 7) { set %foreground 05 | set %fgstatus 07 }
if ($did(color,4).sel == 8) { set %foreground 06 | set %fgstatus 08 }
if ($did(color,4).sel == 9) { set %foreground 07 | set %fgstatus 09 }
if ($did(color,4).sel == 10) { set %foreground 08 | set %fgstatus 10 }
if ($did(color,4).sel == 11) { set %foreground 09 | set %fgstatus 11 }
if ($did(color,4).sel == 12) { set %foreground 10 | set %fgstatus 12 }
if ($did(color,4).sel == 13) { set %foreground 11 | set %fgstatus 13 }
if ($did(color,4).sel == 14) { set %foreground 12 | set %fgstatus 14 }
if ($did(color,4).sel == 15) { set %foreground 13 | set %fgstatus 15 }
if ($did(color,4).sel == 16) { set %foreground 14 | set %fgstatus 16 }
if ($did(color,4).sel == 17) { set %foreground 15 | set %fgstatus 17 }
}
on *:dialog:color:sclick:6: {
if ($did(color,6).sel == 1) { set %background none | set %bgstatus 01 }
if ($did(color,6).sel == 2) { set %background 00 | set %bgstatus 02 }
if ($did(color,6).sel == 3) { set %background 01 | set %bgstatus 03 }
if ($did(color,6).sel == 4) { set %background 02 | set %bgstatus 04 }
if ($did(color,6).sel == 5) { set %background 03 | set %bgstatus 05 }
if ($did(color,6).sel == 6) { set %background 04 | set %bgstatus 06 }
if ($did(color,6).sel == 7) { set %background 05 | set %bgstatus 07 }
if ($did(color,6).sel == 8) { set %background 06 | set %bgstatus 08 }
if ($did(color,6).sel == 9) { set %background 07 | set %bgstatus 09 }
if ($did(color,6).sel == 10) { set %background 08 | set %bgstatus 10 }
if ($did(color,6).sel == 11) { set %background 09 | set %bgstatus 11 }
if ($did(color,6).sel == 12) { set %background 10 | set %bgstatus 12 }
if ($did(color,6).sel == 13) { set %background 11 | set %bgstatus 13 }
if ($did(color,6).sel == 14) { set %background 12 | set %bgstatus 14 }
if ($did(color,6).sel == 15) { set %background 13 | set %bgstatus 15 }
if ($did(color,6).sel == 16) { set %background 14 | set %bgstatus 16 }
if ($did(color,6).sel == 17) { set %background 15 | set %bgstatus 17 }
}
on *:input:* {
if (($left($1,1) != /) && (%foreground != none) && (%background != none) && ($active != Status Window)) {
msg $active %bold $+ %underline $+ $+ %foreground $+ , $+ %background $+ $$1- | haltdef
}
if (($left($1,1) != /) && (%foreground != none) && (%background == none) && ($active != Status Window)) {
msg $active %bold $+ %underline $+ $+ %foreground $+ , $+ 16 $+ $$1- | haltdef
}
if (($left($1,1) != /) && (%foreground == none) && (%background != none) && ($active != Status Window)) {
msg $active %bold $+ %underline $+ $+ 16 $+ , $+ %background $+ $$1- | haltdef
}
if (($left($1,1) != /) && (%foreground == none) && (%background == none) && ($active != Status Window)) {
msg $active %bold $+ %underline $+ $$1- | haltdef
}
}
on *:load:{
set %foreground none
set %background none
set %fgstatus 01
set %bgstatus 01
}
menu channel,menu,status {
Text Changer: /dialog -dm color color
}