;Color script by tank59
;Color codes provided by the good folks on Hawkee.com
;Enjoy!
alias csc { dialog -md typec typec }
#color on
dialog typec {
  title "Color by tank59"
  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 45 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, 90 130 20 9, ok
  button "Cancel", 11, 115 130 20 9, cancel
  check "Bold", 12, 74 118 20 7
  text "This is a color script by tank59. 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
  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 "jalopenobologna@gmail.com", 25, 66 80 69 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:{
  if ($did(typec,3).state == 1) {
    did -b typec 4,5,6,7,9
  }
  else {
    did -eu typec 3,4,5,6,7,8,9
  }
}
on *:dialog:typec:sclick:4:{
  if ($did(typec,4).state == 1) {
    did -b typec 3,5,6,7
  }
  else {
    did -eu typec 3,4,5,6,7,8,9
  }
}
on *:dialog:typec:sclick:5:{
  if ($did(typec,5).state == 1) {
    did -b typec 3,4,6,7,8,9
  }
  else {
    did -eu typec 3,4,5,6,7,8,9
  }
}
on *:dialog:typec:sclick:6:{
  if ($did(typec,6).state == 1) {
    did -b typec 3,4,5,7
  }
  else {
    did -eu typec 3,4,5,6,7,8,9
  }
}
on *:dialog:typec:sclick:7:{
  if ($did(typec,7).state == 1) {
    did -b typec 3,4,5,6
  }
  else {
    did -eu typec 3,4,5,6,7,8,9
  }
}
on *:dialog:typec:sclick:11:{
  .disable #color
}
on *:dialog:typec:sclick:10:{
  unset %sc | unset %bg1 | unset %bg2 | unset %ab1 | unset %ab2 | unset %a1 | unset %a2 | unset %bold
  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 on
;single color
on *:input:*:{
  if (/* !iswm $1) && (!$ctrlenter) {
    say $+(,%sc,$1-,)
    halt
  }
}
#single end
#ac on
;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 off
;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 on
;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 * {
  Color Talker
  .Change Options: .enable #color | csc
  $iif($group(#color) == on,$style(1)) Talker On: .enable #color
  $iif($group(#color) == off,$style(1)) Talker Off: .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
}