dialog MCT {
  title "Max's Color Text v2.5"
  size -1 -1 112 116
  option dbu
  button "Okay", 4, 43 102 26 9, ok
  box "Text Properties", 5, 10 27 93 36
  edit "", 6, 56 37 30 10
  text "Color Code", 18, 28 38 28 6
  box "Turn Script On/Off", 22, 10 2 93 23
  radio "On", 23, 29 11 19 10, group
  radio "Off", 24, 61 11 20 10
  check "Bold", 29, 28 50 20 7, left
  check "Underline", 30, 53 50 32 7, left
}

on *:DIALOG:MCT:init:0:{
  did -c $dname $iif(%mct.on,23,$iif(%mct.off,24,))
  $iif(%text.color,did -a $dname 6 %text.color)
  if (%mctbold = ) { did -c $dname 29 }
  if (%mctunderline = ) { did -c $dname 30 }
}
on *:DIALOG:MCT:sclick:*:{
  if ($did == 4) {
    if ($did(MCT,29).state = 1) { set %mctbold  } | else { unset %mctbold }
    if ($did(MCT,30).state = 1) { set %mctunderline  } | else { unset %mctunderline }
    set %text.color $did(MCT,6)
  }
  if ($did == 23) { enable #mctext | unset %mct.* | set %mct.on on }
  if ($did == 24) { disable #mctext | unset %mct.* | set %mct.off off }
}

#mctext on

on *:input:*:if (!$regex($1-,^\/) && !$regex($1-,^\!) && !$regex($1-,^\-) && !$regex($1-,^\?) && !$regex($1-,^lol\S\sstats) && !$inpaste) { msg $active %mctunderline $+ %mctbold $+  $+ %text.color $+ $1- | halt }

#mctext end

menu * {
  .Max's Color Text Settings: { dialog -m MCT MCT }
}
alias ctext {
  $iif($dialog(MCT),dialog -c MCT MCT) dialog -m MCT MCT
}