;Color script by Naruto1783
;Color codes provided by the good folks on Hawkee.com
;Enjoy!
alias csc { dialog -md typec typec }
#color on
dialog typec {
title "Color by Naruto1783"
size -1 -1 140 140
option dbu
box "Color 1", 1, 70 90 30 25
box "Color 2", 2, 105 90 30 25
check "Single Color", 3, 5 90 41 7
check "Color w/ BG", 4, 5 100 40 7
check "Random Color", 5, 5 110 30 7
check "Alternating Color w/ BG", 6, 5 130 65 7
check "Alternating Color", 7, 5 120 50 7
combo 8, 74 99 23 50, size drop
combo 9, 109 99 23 50, size drop
button "Set", 10, 81 130 12 7, ok
button "Cancel", 11, 115 130 20 7, cancel
check "Bold", 12, 74 118 20 7
text "This is a color script by Naruto1783. Select the type of color you would like to use and then choose the appropriate color for your use, using the chart below. Click set to enable it. Enjoy!" 13, 5 1 130 27
button "Reset" 15, 95 130 18 7
text "0 white 8 yellow", 16, 5 31 50 7
text "1 black 9 lightgreen", 17, 5 38 60 7
text "2 blue 10 cyan", 18, 5 45 50 7
text "3 green 11 lightcyan", 19, 5 52 60 7
text "4 lightred 12 lightblue", 20, 5 59 60 7
text "5 brown 13 pink", 21, 5 66 50 7
text "6 purple 14 grey", 22, 5 73 50 7
text "7 orange 15 lightgrey", 23, 5 80 60 7
link "http://www.hawkee.com/", 24, 66 55 60 7
link "mini_logo_62@hotmail.com", 25, 66 80 55 7
text "Email me with any comments, questions, or suggestions.", 26, 66 65 70 15
text "Thanks to folks on Hawkee.com with coding the majority of color codes.", 27, 66 33 70 20
text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 28, 3 27 135 4
}
on *:dialog:typec:init:0:{
var %f 0
while (%f <= 15) {
if ($len(%f) < 2) {
did -a typec 8,9 $+(0,%f)
inc %f
}
else {
did -a typec 8,9 %f
inc %f
}
}
}
on *:dialog:typec:sclick:3:{
did -b typec 4,5,6,7,9
}
on *:dialog:typec:sclick:4:{
did -b typec 3,5,6,7
}
on *:dialog:typec:sclick:5:{
did -b typec 3,4,6,7,8,9
}
on *:dialog:typec:sclick:6:{
did -b typec 3,4,5,7
}
on *:dialog:typec:sclick:7:{
did -b typec 3,4,5,6
}
on *:dialog:typec:sclick:15:{
did -eu typec 3,4,5,6,7,8,9
}
on *:dialog:typec:sclick:11:{
.disable #color
}
on *:dialog:typec:sclick:10:{
set %bold $did(12).state
if ($did(3).state == 1) && ($did(12).state == 0) {
.enable #single
set %sc $did(8).seltext
}
if ($did(3).state == 1) && ($did(12).state == 1) {
.enable #bs
set %sc $did(8).seltext
}
if ($did(4).state == 1) && ($did(12).state == 0) {
.enable #cwb
set %bg1 $did(8).seltext
set %bg2 $did(9).seltext
}
if ($did(4).state == 1) && ($did(12).state == 1) {
.enable #withbb
set %bg1 $did(8).seltext
set %bg2 $did(9).seltext
}
if ($did(5).state == 1) && ($did(12).state == 0) {
.enable #r
}
if ($did(5).state == 1) && ($did(12).state == 1) {
.enable #randomb
}
if ($did(6).state == 1) && ($did(12).state == 0) {
.enable #acb
set %ab1 $did(8).seltext
set %ab2 $did(9).seltext
}
if ($did(6).state == 1) && ($did(12).state == 1) {
.enable #backaltb
set %ab1 $did(8).seltext
set %ab2 $did(9).seltext
}
if ($did(7).state == 1) && ($did(12).state == 0) {
.enable #ac
set %a1 $did(8).seltext
set %a2 $did(9).seltext
}
if ($did(7).state == 1) && ($did(12).state == 1) {
.enable #altb
set %a1 $did(8).seltext
set %a2 $did(9).seltext
}
}
#color end
#cwb off
;color w/ background
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) {
var %x = $+ %bg1
var %z = %bg2
say %x $+ , $+ %z $+ $1-
halt
}
}
#cwb end
#r off
;random color
on *:input:*: {
var %r = $r(1,15)
if (/* !iswm $1) && (!$ctrlenter) && ($len(%r) < 2) {
var %c = $+(0,,,%r)
say $+($chr(3),%c,$1-)
halt
}
elseif (/* !iswm $1) && (!$ctrlenter) {
say $+($chr(3),%r,$1-)
halt
}
}
#r end
#single off
;single color
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) {
say $+(,%sc,$1-,)
halt
}
}
#single end
#ac off
;alternating color
alias ctalker {
var %x
.echo -q $regsub($1,/(.)(.?)/g, $+ %a1 $+ \1 $+ %a2 $+ \2,%x)
return %x
}
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
say $$ctalker($1-)
halt
}
}
#ac end
#acb on
;alternating color w/ background
alias ctalker {
var %x = $+ %ab1 $+ , $+ %ab2 $+ \1 $+ %ab2 $+ , $+ %ab1 $+ \2
.echo -q $regsub($1,/(.)(.?)/g,%x,%x)
return %x
}
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
say $$ctalker($1-)
halt
}
}
#acb end
#withbb off
;Bold color w/ background
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) {
var %x = $+ %bg1
var %z = %bg2
say %x $+ , $+ %z $+ $1-
halt
}
}
#withbb end
#randomb off
;Bold random color
on *:input:*: {
var %r = $r(1,15)
if (/* !iswm $1) && (!$ctrlenter) && ($len(%r) < 2) {
var %c = $+(0,,,%r)
say $+ %c $+ $1-
halt
}
elseif (/* !iswm $1) && (!$ctrlenter) {
say $+ %r $+ $1-
halt
}
}
#randomb end
#bs off
;Bold single color
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) {
say $+(,%sc,$1-,)
halt
}
}
#bs end
#altb off
;Bold alternating color
alias ctalker {
var %x
.echo -q $regsub($1,/(.)(.?)/g, $+ %a1 $+ \1 $+ %a2 $+ \2,%x)
return %x
}
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
say $$ctalker($1-)
halt
}
}
#altb end
#backaltb off
;Bold alternating color w/ background
alias ctalker {
var %x = $+ %ab1 $+ , $+ %ab2 $+ \1 $+ %ab2 $+ , $+ %ab1 $+ \2
.echo -q $regsub($1,/(.)(.?)/g,%x,%x)
return %x
}
on *:input:*:{
if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
say $$ctalker($1-)
halt
}
}
#backaltb end
menu * {
Turn Color $iif($group(#color) == on,Off,On) {
if ($group(#color) == on) {
.disable #color #single #cwb #r #acb #ac #bs #withbb #randomb #backaltb #altb | echo -a *Color Script Disabled | unset %sc | unset %bg1 | unset %bg2 | unset %ab1 | unset %ab2 | unset %a1 | unset %a2 | unset %bold
}
else { .enable #color | csc }
}
}