;COLOR FONT 1.2 script by pope
;PEERCOMMONS chat.peercommons.net 6667
;#scripters.united
;thanks to Vox91 for the !iswmcs suggestion
;
menu * {
  COLOR FONT
  .on/off: {
    if (!%cf.font) {
      set %cf.font 1
    }
    if (!%cf.bkgrd) {
      set %cf.bkgrd 0
    }
    if (!%colorfont) {
      set %colorfont 1
      echo -a 4 Color Font Now Active.
      halt
    }
    unset %colorfont
    echo -a 4 Color Font Now Inactive.
    halt
  }
  .underline: {
    if (!%cf.und) {
      set %cf.und 1
      halt
    }
    unset %cf.und
  }
  .bold: {
    if (!%cf.bld) {
      set %cf.bld 1
      halt
    }
    unset %cf.bld
  }
  .text color
  ..0 white: set %cf.font 0
  ..1 black: set %cf.font 1
  ..2 blue: set %cf.font 2
  ..3 green: set %cf.font 3
  ..4 lightred: set %cf.font 4
  ..5 brown: set %cf.font 5
  ..6 purple: set %cf.font 6
  ..7 orange: set %cf.font 7
  ..8 yellow: set %cf.font 8
  ..9 lightgreen: set %cf.font 9
  ..10 cyan: set %cf.font 10
  ..11 light-cyan: set %cf.font 11
  ..12 lightblue: set %cf.font 12
  ..13 pink: set %cf.font 13
  ..14 grey: set %cf.font 14
  ..15 lightgrey: set %cf.font 15
  .background color
  ..0 white: set %cf.bkgrd 0
  ..1 black: set %cf.bkgrd 1
  ..2 blue: set %cf.bkgrd 2
  ..3 green: set %cf.bkgrd 3
  ..4 lightred: set %cf.bkgrd 4
  ..5 brown: set %cf.bkgrd 5
  ..6 purple: set %cf.bkgrd 6
  ..7 orange: set %cf.bkgrd 7
  ..8 yellow: set %cf.bkgrd 8
  ..9 lightgreen: set %cf.bkgrd 9
  ..10 cyan: set %cf.bkgrd 10
  ..11 light-cyan: set %cf.bkgrd 11
  ..12 lightblue: set %cf.bkgrd 12
  ..13 pink: set %cf.bkgrd 13
  ..14 grey: set %cf.bkgrd 14
  ..15 lightgrey: set %cf.bkgrd 15
}
on *:input:#: {
  if ((/ !isin $left($1,1)) && (%colorfont)) {
    set %color.font  $+ %cf.font $+ , $+ %cf.bkgrd
    if (%cf.bld) {
      set %color.font  $+ %color.font
    }
    if (%cf.und) {
      set %color.font $+ %color.font
    }
    msg $chan %color.font $+  $strip($1-)
    halt
  }
}