;; Written by Jonesy44
;; Version 1.0.1
;; First Release: 17th August, 2008
;; IF YOU HAVE MDX.DLL ON YOUR COMPUTER LINK IT HERE, ELSE LEAVE THIS PART OF THE SCRIPT
alias mdx {
  return $shortfn(mdx.dll)
}
on *:DIALOG:*:init:*: {
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname
}
;; MDX END ==============================================================================
 
 
alias colors {
  dialog $iif($dialog(colors),-v,-m) colors colors
}
dialog colors {
  title "Colors Select"
  size -1 -1 100 50
  option dbu
  radio "All Text Colored", 100, 2 2 54 10
  radio "Start of Each Word", 101, 2 12 54 10
  radio "None", 102, 2 22 54 10
  box "", 103, 60 -10 2 45
  box "", 104, 0 31 100 5
  text "Color Code", 200, 65 3 30 10, center
  edit %colors.sel, 201, 65 11 30 10
  text "", 202, 65 23 30 7, center
  button "Confirm", 300, 2 36 58 13
  button "Cancel", 301, 62 36 36 13
}
on *:DIALOG:colors:init:*: {
  ;;THIS IS THE NEW UPDATE! DO NOT REMOVE THIS NEXT LINE
  did -b colors 101
  ;;LEAVE THE LINE ABOVE
  var %colors = BLACK D.BLUE D.GREEN RED BROWN PURPLE ORANGE YELLOW L.GREEN S.BLUE L.BLUE D.BLUE PINK D.GREY L.GREY
  did $iif($gettok($replace($did(201).text,$chr(44),$chr(32)),1,32),-rae,-rb) colors 202 $gettok(%colors,$gettok($replace($did(201).text,$chr(44),$chr(32)),1,32),32)
  if ($mdx) {
    if ($regex(%colors.sel,$chr(44))) {
      var %xcheck = $replace(%colors.sel,$chr(44),$chr(32))
      dll $mdx SetColor 202 text $color($gettok(%xcheck,1,32))
      dll $mdx SetColor 202 background $color($gettok(%xcheck,2,32))
      dll $mdx SetColor 202 textbg $color($gettok(%xcheck,2,32))
    }
    else {
      dll $mdx SetColor 202 text $color(%colors.sel)
    }
  }
  did -cf colors $iif(!%colors.setting,102,$iif(%colors.setting = 1,100,101))
  if (!%colors.setting) {
    did -b colors 201,202
  }
}
on *:DIALOG:colors:sclick:*: {
  if ($did == 100 || $did == 101) {
    did -e colors 201,202
    did $iif($gettok($replace($did(201).text,$chr(44),$chr(32)),1,32) isnum 1-15 && $gettok($replace($did(201).text,$chr(44),$chr(32)),2,32) isnum 1-15,-e,-b) colors 300
  }
  if ($did == 102) {
    did -b colors 201,202
    did -e colors 300
  }
  if ($did == 300) {
    $iif($did(102).state,unset,set) %colors.setting $iif($did(100).state,1,2)
    if ($did(100).state || $did(101).state) {
      set %colors.sel $did(201).text
    }
    dialog -x colors
  }
  if ($did == 301) {
    dialog -x colors
  }
}
on *:DIALOG:colors:edit:*: {
  if ($did == 201) {
    var %colors = BLACK D.BLUE D.GREEN RED BROWN PURPLE ORANGE YELLOW L.GREEN S.BLUE L.BLUE D.BLUE PINK D.GREY L.GREY
    if (!$regex($did(201).text,$chr(44))) {
      did $iif($did(201).text isnum 1-15,-e,-b) colors 300
      did $iif($did(201).text isnum 1-15,-rae,-rb) colors 202 $gettok(%colors,$did(201).text,32)
      if ($mdx) {
        dll $mdx SetColor 202 text $color($did(201).text)
        dll $mdx SetColor 202 background reset
        dll $mdx SetColor 202 textbg reset
      }
    }
    else {
      var %xcheck = $replace($did(201).text,$chr(44),$chr(32))
      if ($gettok(%xcheck,1,32) isnum 1-15 && $gettok(%xcheck,2,32) isnum 1-15 && !$gettok(%xcheck,3,32)) {
        did -e colors 300
        did -rae colors 202 $gettok(%colors,$gettok(%xcheck,1,32),32)
        if ($mdx) {
          dll $mdx SetColor 202 text $color($gettok(%xcheck,1,32))
          dll $mdx SetColor 202 background $color($gettok(%xcheck,2,32))
          dll $mdx SetColor 202 textbg $color($gettok(%xcheck,2,32))
        }
      }
      else {
        did -b colors 300
        did -rb colors 202 $gettok(%colors,$gettok(%xcheck,1,32),32)
      }
    }
  }
}
on *:INPUT:*: {
  if ($left($1,1) != / && c !isincs $chan($chan).mode) {
    if (%colors.setting == 1) {
      msg $active  $+ $base($gettok($replace(%colors.sel,$chr(44),$chr(32)),1,32),10,10,2) $+ $iif($regex(%colors.sel,$chr(44)),$chr(44),) $+ $base($gettok($replace(%colors.sel,$chr(44),$chr(32)),2,32),10,10,2) $+ $1-
      halt
    }
  }
}

Commenting Options