Color Config

mIRC Code

+ 1 likes

Please Register to submit score.

Average Score	1.5
Scores Submitted	4
Date Added	Sep 07, 2008
Last Updated	Sep 07, 2008
Tags	codes color config

Introduction

With my color config you can customize all of your 00-15 colors with ease.

Remember to click Save before clicking Ok for the actual colors to take affect.

Grab the Code

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
}

alias colorconf {
  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(200,200,200) 4 $calc(157 + (%tempred / 1.875)) 15 $calc(157 + (%tempred / 1.875)) 25
  drawline -r @ColorConfig $rgb(200,200,200) 4 $calc(157 + (%tempgreen / 1.875)) 35 $calc(157 + (%tempgreen / 1.875)) 45
  drawline -r @ColorConfig $rgb(200,200,200) 4 $calc(157 + (%tempblue / 1.875)) 55 $calc(157 + (%tempblue / 1.875)) 65
  drawrect -rfd @ColorConfig %colbut1b 1 150 95 65 20 5 5
  drawrect -rfd @ColorConfig %colbut2b 1 220 95 65 20 5 5
  drawtext -ro @ColorConfig %colbut1t Arial 11 170 98 Save
  drawtext -ro @ColorConfig %colbut2t 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
    :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
      halt
    }
    if ($inrect($mouse.x,$mouse.y,150,95,65,20)) {
      color %pallbox $rgb(%tempred,%tempgreen,%tempblue)
      colorconf
    }
    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
    }
  }

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

alias 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

(15) RSS

Go to Bottom

Comments: 1,173

mIRC Snippet: Color Config
Posted on Sep 7, 2008 3:58 am

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

Comments: 1,173

mIRC Snippet: Color Config
Posted on Sep 7, 2008 4:16 am

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.`-.-´

jonesy44

Comments: 1,320

mIRC Snippet: Color Config
Posted on Sep 7, 2008 7:36 am

CTRL+ K much?

Comments: 1,173

mIRC Snippet: Color Config
Posted on Sep 7, 2008 7:45 am

Rofl -.-'

napalm`

Comments: 163

mIRC Snippet: Color Config
Posted on Sep 7, 2008 10:55 am

/me ripzzzz

NIGathan

Comments: 156

mIRC Snippet: Color Config
Posted on Sep 7, 2008 1:45 pm

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.

Code:

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.

jonesy44

Comments: 1,320

mIRC Snippet: Color Config
Posted on Sep 7, 2008 1:49 pm

Oh! My bad, sweet! :D

Comments: 1,173

mIRC Snippet: Color Config
Posted on Sep 7, 2008 2:19 pm

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

a careful warchild

Comments: 221

mIRC Snippet: Color Config
Posted on Sep 7, 2008 2:46 pm

Quote:

/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.

Eugenio

Comments: 1,112

mIRC Snippet: Color Config
Posted on Sep 7, 2008 2:59 pm

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

Quote:

/me ripzzzz

was 1% funny the first time
`-.-´

Comments: 1,173

mIRC Snippet: Color Config
Posted on Sep 7, 2008 3:09 pm

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

Eugenio

Comments: 1,112

mIRC Snippet: Color Config
Posted on Sep 7, 2008 3:18 pm

LMFAO dumb dumb
smh
`-.-´

NIGathan

Comments: 156

mIRC Snippet: Color Config
Posted on Sep 7, 2008 3:47 pm

Rofl

Quote:

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...

Typo

Comments: 232

mIRC Snippet: Color Config
Posted on Sep 7, 2008 4:30 pm

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 :) .

NIGathan

Comments: 156

mIRC Snippet: Color Config
Posted on Sep 7, 2008 4:35 pm

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

And whats picwin? nvm I misread... lol

Color Config

Introduction

Grab the Code

Comments

NIGathan

My Snippet Tags

Contact

Friends (2)

Sponsors

		Texas
Last seen: Jan 07, 2009 Profile Likes (3) Friends (2) Snippets (15) Images (6) Comments Received (212) Comments Submitted (156) Forum Posts (2)