Color Config

By NIGathan on Sep 07, 2008

With my color config you can customize all of your 00-15 colors with ease.
Image
Remember to click Save before clicking Ok for the actual colors to take affect.

Update:

Now the Save and Ok buttons work, sorry about that, I never realized I was using an undeclared variable to hold the color for the drawrects and drawtexts.

Now the sliders are taller than the triangles and changed the color of them to a much more noticeable one.

alias colorconf {
  resetoutsel
  set %pallbox 0
  set %outsel0 $rgb(10,10,10)
  set %tempred $gettok($rgb($color(0)),1,44)
  set %tempgreen $gettok($rgb($color(0)),2,44)
  set %tempblue $gettok($rgb($color(0)),3,44)
  colorconf.refresh
}

alias -l colorconf.refresh {
  window -paoCdk0 +tnfl @ColorConfig -1 -1 325 152
  drawrect -rf @ColorConfig $rgb(236,233,216) 1 0 0 317 186
  drawrect -rf @ColorConfig %outsel0 5 4 4 17 17
  drawrect -rf @ColorConfig %outsel1 5 21 4 17 17
  drawrect -rf @ColorConfig %outsel2 5 38 4 17 17
  drawrect -rf @ColorConfig %outsel3 5 55 4 17 17
  drawrect -rf @ColorConfig %outsel4 5 72 4 17 17
  drawrect -rf @ColorConfig %outsel5 5 89 4 17 17
  drawrect -rf @ColorConfig %outsel6 5 106 4 17 17
  drawrect -rf @ColorConfig %outsel7 5 123 4 17 17
  drawrect -rf @ColorConfig %outsel8 5 4 21 17 17
  drawrect -rf @ColorConfig %outsel9 5 21 21 17 17
  drawrect -rf @ColorConfig %outsel10 5 38 21 17 17
  drawrect -rf @ColorConfig %outsel11 5 55 21 17 17
  drawrect -rf @ColorConfig %outsel12 5 72 21 17 17
  drawrect -rf @ColorConfig %outsel13 5 89 21 17 17
  drawrect -rf @ColorConfig %outsel14 5 106 21 17 17
  drawrect -rf @ColorConfig %outsel15 5 123 21 17 17
  drawrect -rf @ColorConfig $color(0) 5 5 5 15 15
  drawrect -rf @ColorConfig $color(1) 5 22 5 15 15
  drawrect -rf @ColorConfig $color(2) 5 39 5 15 15
  drawrect -rf @ColorConfig $color(3) 5 56 5 15 15
  drawrect -rf @ColorConfig $color(4) 5 73 5 15 15
  drawrect -rf @ColorConfig $color(5) 5 90 5 15 15
  drawrect -rf @ColorConfig $color(6) 5 107 5 15 15
  drawrect -rf @ColorConfig $color(7) 5 124 5 15 15
  drawrect -rf @ColorConfig $color(8) 5 5 22 15 15
  drawrect -rf @ColorConfig $color(9) 5 22 22 15 15
  drawrect -rf @ColorConfig $color(10) 5 39 22 15 15
  drawrect -rf @ColorConfig $color(11) 5 56 22 15 15
  drawrect -rf @ColorConfig $color(12) 5 73 22 15 15
  drawrect -rf @ColorConfig $color(13) 5 90 22 15 15
  drawrect -rf @ColorConfig $color(14) 5 107 22 15 15
  drawrect -rf @ColorConfig $color(15) 5 124 22 15 15
  drawline -r @ColorConfig $rgb(255,0,0) 3 160 20 290 15 290 25 160 20
  drawline -r @ColorConfig $rgb(255,0,0) 3 290 20 200 20
  drawline -r @ColorConfig $rgb(255,0,0) 3 290 17 200 20
  drawline -r @ColorConfig $rgb(255,0,0) 3 290 23 200 20
  drawline -r @ColorConfig $rgb(0,255,0) 3 160 40 290 35 290 45 160 40
  drawline -r @ColorConfig $rgb(0,255,0) 3 290 40 200 40
  drawline -r @ColorConfig $rgb(0,255,0) 3 290 37 200 40
  drawline -r @ColorConfig $rgb(0,255,0) 3 290 43 200 40
  drawline -r @ColorConfig $rgb(0,0,255) 3 160 60 290 55 290 65 160 60
  drawline -r @ColorConfig $rgb(0,0,255) 3 290 60 200 60
  drawline -r @ColorConfig $rgb(0,0,255) 3 290 57 200 60
  drawline -r @ColorConfig $rgb(0,0,255) 3 290 63 200 60
  drawrect -rf @ColorConfig $rgb(%tempred,%tempgreen,%tempblue) 5 47 50 50 50
  drawline -r @ColorConfig $rgb(100,100,100) 4 $calc(157 + (%tempred / 1.875)) 13 $calc(157 + (%tempred / 1.875)) 27
  drawline -r @ColorConfig $rgb(100,100,100) 4 $calc(157 + (%tempgreen / 1.875)) 33 $calc(157 + (%tempgreen / 1.875)) 47
  drawline -r @ColorConfig $rgb(100,100,100) 4 $calc(157 + (%tempblue / 1.875)) 53 $calc(157 + (%tempblue / 1.875)) 
  drawrect -rfd @ColorConfig $rgb(10,10,30) 1 150 95 65 20 5 5
  drawrect -rfd @ColorConfig $rgb(10,10,30) 1 220 95 65 20 5 5
  drawtext -ro @ColorConfig $rgb(235,235,255) Arial 11 170 98 Save
  drawtext -ro @ColorConfig $rgb(235,235,255) Arial 11 245 98 Ok

}

menu @ColorConfig {
  sclick: {
    if ($mouse.x > 150) {
      if ($inrect($mouse.x,$mouse.y,157,12,136,16) == $true) {
        set %redit 1
        unset %gedit
        unset %bedit
      }
      else if ($inrect($mouse.x,$mouse.y,157,32,136,16) == $true) {
        set %gedit 1
        unset %redit
        unset %bedit
      }
      else if ($inrect($mouse.x,$mouse.y,157,52,136,16) == $true) {
        set %bedit 1
        unset %redit
        unset %gedit
      }
      else { unset %redit | unset %gedit | unset %bedit }
      halt
    }
    if ($inrect($mouse.x,$mouse.y,5,5,15,15) == $true) {
      resetoutsel
      set %outsel0 $rgb(10,10,10)
      set %pallbox 0
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,22,5,15,15) == $true) {
      resetoutsel
      set %outsel1 $rgb(10,10,10)
      set %pallbox 1
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,39,5,15,15) == $true) {
      resetoutsel
      set %outsel2 $rgb(10,10,10)
      set %pallbox 2
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,56,5,15,15) == $true) {
      resetoutsel
      set %outsel3 $rgb(10,10,10)
      set %pallbox 3
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,73,5,15,15) == $true) {
      resetoutsel
      set %outsel4 $rgb(10,10,10)
      set %pallbox 4
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,90,5,15,15) == $true) {
      resetoutsel
      set %outsel5 $rgb(10,10,10)
      set %pallbox 5
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,107,5,15,15) == $true) {
      resetoutsel
      set %outsel6 $rgb(10,10,10)
      set %pallbox 6
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,124,5,15,15) == $true) {
      resetoutsel
      set %outsel7 $rgb(10,10,10)
      set %pallbox 7
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,5,22,15,15) == $true) {
      resetoutsel
      set %outsel8 $rgb(10,10,10)
      set %pallbox 8
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,22,22,15,15) == $true) {
      resetoutsel
      set %outsel9 $rgb(10,10,10)
      set %pallbox 9
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,39,22,15,15) == $true) {
      resetoutsel
      set %outsel10 $rgb(10,10,10)
      set %pallbox 10
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,56,22,15,15) == $true) {
      resetoutsel
      set %outsel11 $rgb(10,10,10)
      set %pallbox 11
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,73,22,15,15) == $true) {
      resetoutsel
      set %outsel12 $rgb(10,10,10)
      set %pallbox 12
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,90,22,15,15) == $true) {
      resetoutsel
      set %outsel13 $rgb(10,10,10)
      set %pallbox 13
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,107,22,15,15) == $true) {
      resetoutsel
      set %outsel14 $rgb(10,10,10)
      set %pallbox 14
      goto end
    }
    if ($inrect($mouse.x,$mouse.y,124,22,15,15) == $true) {
      resetoutsel
      set %outsel15 $rgb(10,10,10)
      set %pallbox 15
      goto end
    }
    goto skip
    :end
    set %tempred $gettok($rgb($color(%pallbox)),1,44)
    set %tempgreen $gettok($rgb($color(%pallbox)),2,44)
    set %tempblue $gettok($rgb($color(%pallbox)),3,44)
    unset %redit
    unset %gedit
    unset %bedit
    colorconf.refresh
    :skip
  }

  drop: {
    if (%redit == 1 || %gedit == 1 || %bedit == 1) {
      if (%redit == 1) {
        if ($mouse.x <= 157) set %tempred 0
        else if ($mouse.x >= 293) set %tempred 255
        else set %tempred $round($calc(($mouse.x - 157)*1.875),0)
      }
      if (%gedit == 1) {
        if ($mouse.x <= 157) set %tempgreen 0
        else if ($mouse.x >= 293) set %tempgreen 255
        else set %tempgreen $round($calc(($mouse.x - 157)*1.875),0)
      }
      if (%bedit == 1) {
        if ($mouse.x <= 157) set %tempblue 0
        else if ($mouse.x >= 293) set %tempblue 255
        else set %tempblue $round($calc(($mouse.x - 157)*1.875),0)
      }
      unset %redit
      unset %gedit
      unset %bedit
      colorconf.refresh
      halt
    }
    if ($inrect($mouse.x,$mouse.y,150,95,65,20)) {
      color %pallbox $rgb(%tempred,%tempgreen,%tempblue)
      colorconf.refresh
    }
    if ($inrect($mouse.x,$mouse.y,220,95,65,20)) {
      window -c @ColorConfig
    }
  }

  mouse: {
    if (%redit == 1 || %gedit == 1 || %bedit == 1) {
      if (%redit == 1) {
        if ($mouse.x >= 157 && $mouse.x <= 293) { set %tempred $round($calc(($mouse.x - 157)*1.875),0) }
        else if ($mouse.x < 157) { set %tempred 0 }
        else if ($mouse.x > 293) { set %tempred 255 }
      }
      if (%gedit == 1) {
        if ($mouse.x >= 157 && $mouse.x <= 293) { set %tempgreen $round($calc(($mouse.x - 157)*1.875),0) }
        else if ($mouse.x < 157) { set %tempgreen 0 }
        else if ($mouse.x > 293) { set %tempgreen 255 }
      }
      if (%bedit == 1) {
        if ($mouse.x >= 157 && $mouse.x <= 293) { set %tempblue $round($calc(($mouse.x - 157)*1.875),0) }
        else if ($mouse.x < 157) { set %tempblue 0 }
        else if ($mouse.x > 293) { set %tempblue 255 }
      }
      colorconf.refresh
    }
  }

  leave: {
    unset %redit
    unset %gedit
    unset %bedit
  }
}

alias -l resetoutsel {
  set %outsel0 $rgb(236,233,216)
  set %outsel1 $rgb(236,233,216)
  set %outsel2 $rgb(236,233,216)
  set %outsel3 $rgb(236,233,216)
  set %outsel4 $rgb(236,233,216)
  set %outsel5 $rgb(236,233,216)
  set %outsel6 $rgb(236,233,216)
  set %outsel7 $rgb(236,233,216)
  set %outsel8 $rgb(236,233,216)
  set %outsel9 $rgb(236,233,216)
  set %outsel10 $rgb(236,233,216)
  set %outsel11 $rgb(236,233,216)
  set %outsel12 $rgb(236,233,216)
  set %outsel13 $rgb(236,233,216)
  set %outsel14 $rgb(236,233,216)
  set %outsel15 $rgb(236,233,216)
}

Menu * {
Color Config:colorconf
}

Comments

Sign in to comment.
NIGathan   -  Jul 31, 2010

Just updated the script:

Now the Save and Ok buttons work, sorry about that, I never realized I was using an undeclared variable to hold the color for the drawrects and drawtexts.

Now the sliders are taller than the triangles and changed the color of them to a much more noticeable one.

As well as a few modifications to help it run smoother.

I didn't upload a new screenshot, although, it looks almost exactly the same, except the sliders are darker and a little longer.

 Respond  
NIGathan   -  Sep 07, 2008

Ya, Typo, this was my first picture window so I was just playing around with it. Thanks

And whats picwin? nvm I misread... lol

 Respond  
Typo   -  Sep 07, 2008

I agree with him tho, the "/me ripz" is already getting very old and he's been doing it everywhere.

Good concept nigathan and seems to work well but i think the picwin could use work. The sliders for the color selecting look pretty bad for instance for a few reasons such as the fact that the sliders themeselves are not as tall as the bar at itss maximum and the step ups in the bar size need to be way more often so theyre not as noticable or perhaps even use angled solid lines. I also think the save and ok buttons are almost too different than everything else in appearance.

I dunno I just think visually it is lacking but once again the idea is very cool and it does what it says.

7/10 is what ill give ya tho i think its a 6.5 :) .

 Respond  
NIGathan   -  Sep 07, 2008

Rofl

your really starting to annoy pretty much everyone now, stop trying to raise your comments with useless crap, and actually input some help and ideas into the snippets.
Ya know, you didnt input anything either...

 Respond  
Eugenio   -  Sep 07, 2008

LMFAO dumb dumb
smh
`-.-´

 Respond  
EL   -  Sep 07, 2008

Rofl @ boi and yur thiefin my `-.-´ ya lil trik and who is Jordy to tell anyone they are annouying? ffs smh.`-.-´

 Respond  
Eugenio   -  Sep 07, 2008

ROFL @ dumb dumb
The boi using another one of ma phrases
/me is proud ^_^

/me ripzzzz
was 1% funny the first time
`-.-´

 Respond  
a careful warchild   -  Sep 07, 2008

/me ripzzzz

your really starting to annoy pretty much everyone now, stop trying to raise your comments with useless crap, and actually input some help and ideas into the snippets.

 Respond  
EL   -  Sep 07, 2008

Dumb dumb the 99 k codes(so gummo says) is far inferior to the 0 255 RGB.WEll doneNIGathan.`-.-´

 Respond  
Jonesy44   -  Sep 07, 2008

Oh! My bad, sweet! :D

 Respond  
NIGathan   -  Sep 07, 2008

Oh, I didnt even think about it.... Theres nothing wrong with the script, its just missing variables.

Just add this to the top and reload the script and it should work fine.

on *:START: {
  set %tempred $gettok($rgb($color(0)),1,44)
  set %tempgreen $gettok($rgb($color(0)),2,44)
  set %tempblue $gettok($rgb($color(0)),3,44)
  resetoutsel
}

Another thing... I loaded it into my bot to test just now, and Im using an older version for it (6.31, Im using 6.34) and the window acts very weird.. Its half transparent and doesnt always display right :/ So I reccomend using 6.34

jonesy: It lets you edit the colors from Ctrl+K.

 Respond  
napalm`   -  Sep 07, 2008

/me ripzzzz

 Respond  
EL   -  Sep 07, 2008

Rofl -.-'

 Respond  
Jonesy44   -  Sep 07, 2008

CTRL+ K much?

 Respond  
EL   -  Sep 07, 2008

Oh and bracket errors an the save and cancel buttons do not show.what it supposed to do? cause it changes my nicklist an screen color O_O.`-.-´

 Respond  
EL   -  Sep 07, 2008

Would be nice if it would work * /drawrect: insufficient parameters (line 4, script157).'Looks awesome tho man.`-.-´

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.