dialog color {
  size -1 -1 100 70
  option dbu
  title "color script by kof"
  button "ok",1, 50 30 15 10
  text "Text color:",2, 10 10 40 10
  combo 3, 40 10 30 30,drop
  text "back color:",4, 10 30 40 10
  combo 5, 40 30 30 30,drop
  button "done!",6, 40 50 30 10

 


}



on *:dialog:color:*:*: {
  if ($did == 0) && ($devent == close) {
    window -c @c
  }
  if ($did == 0) && ($devent == init) {
    did -a $dname 3 0 white
    did -a $dname 3 1 black
    did -a $dname 3 2 blue
    did -a $dname 3 3 green
    did -a $dname 3 4 lightred
    did -a $dname 3 5 brown
    did -a $dname 3 6 purple
    did -a $dname 3 7 orange
    did -a $dname 3 8 yellow
    did -a $dname 3 9 lightgreen
    did -a $dname 3 10 cyan
    did -a $dname 3 11 lightcyan
    did -a $dname 3 12 lightblue
    did -a $dname 3 13 pink
    did -a $dname 3 14 grey
    did -a $dname 3 15 lightgrey
    did -a $dname 5 0 white
    did -a $dname 5 1 black
    did -a $dname 5 2 blue
    did -a $dname 5 3 green
    did -a $dname 5 4 lightred
    did -a $dname 5 5 brown
    did -a $dname 5 6 purple
    did -a $dname 5 7 orange
    did -a $dname 5 8 yellow
    did -a $dname 5 9 lightgreen
    did -a $dname 5 10 cyan
    did -a $dname 5 11 lightcyan
    did -a $dname 5 12 lightblue
    did -a $dname 5 13 pink
    did -a $dname 5 14 grey
    did -a $dname 5 15 lightgrey
    window -aod +d @c 300 380 200 20
    did -h $dname 1

  }
  if ($did == 3) && ($devent == sclick) {
    .disable #style*
    .enable #colortext
    set %textcolor $gettok($did($dname,3),1,32)
    set %showcolor on
    unset %mystyle
    if (!%backcolor) {
      echo @c $+($chr(3),%textcolor,this is my text,$chr(3))
    }

    if (%backcolor) {
      echo @c $+($chr(3),%textcolor,$chr(44),%backcolor,this is my text,$chr(3))
    }
  }

  if ($did == 5) && ($devent == sclick) {
    .disable #style*
    .enable #colortext
    set %backcolor $gettok($did($dname,5),1,32)
    set %showcolor on
    unset %mystyle

    if (!%backcolor) {
      echo @c $+($chr(3),%textcolor,this is my text,$chr(3))
    }

    if (%backcolor) {
      echo @c $+($chr(3),%textcolor,$chr(44),%backcolor,this is my text,$chr(3))
    }

  }

  if ($did == 6) && ($devent == sclick) {
    dialog -c color
  }
}

#colortext off
on *:input:*: {
  if ($1- == brb) || ($1- == lol) && (/* !iswm $1) {
    msg $active $replace($1-,brb,$+($chr(3),$r(2,7),$chr(223),$chr(3),$r(10,15),$chr(235),$chr(3),$r(2,7),$chr(32),$chr(3),$r(2,7),R,$chr(3),$r(2,7),$chr(236),$chr(3),$r(2,7),g,$chr(3),$r(2,7),h,$chr(3),$r(2,7),t,$chr(32),$chr(3),$r(10,15),$chr(223),$chr(3),$r(10,15),$chr(225),$chr(3),$r(2,7),$chr(169),$chr(3),$r(10,15),K),lol,$+($chr(2),$chr(3),$r(2,6),L,$chr(3),$r(2,6),a,$chr(3),$r(2,6),u,$chr(3),$r(2,6),g,$chr(3),$r(10,15),h,$chr(3),$r(2,6),s,$chr(32),O,$chr(3),$r(10,15),ut,$chr(32),$chr(3),$r(2,6),L,$chr(3),$r(10,15),o,$chr(3),$r(2,6),u,$chr(3),$r(10,15),d,$chr(3),$chr(2)))))
    halt
  }

  if ((/* !iswm $1) && (!%backcolor)) && (($1- != brb) || ($1- != lol)) { 
    msg $active $+($chr(3),%textcolor,$1-,$chr(3)) 
    halt 
  } 
  if ((/* !iswm $1) && (%backcolor)) && (($1- != brb) || ($1- != lol)) {
    msg $active $+($chr(3),%textcolor,$chr(44),%backcolor,$1-,$chr(3)) 

    halt

  }
}
#colortext end

menu menubar,nick,channel,query { 
  colorscript
  .select:dialog -m color color
  .on:.enable #colortext | echo 15 -a *** color script is on 
  .off:.disable #colortext | echo 15 -a *** color script is off

}




}