egghelp/eggheads community

help wih colour

2010-01-28T23:09:58-04:00

The part that matters in the script below is the proc pColorRandom which, when called with a argument, will return the text with randomly coloured foreground/background. A while loop is used to ensure that the foreground color cannot be the same as the background color.

A public command with syntax !color has been provided to demonstrate.
Code:
bind PUB - !color pColorCommandproc pColorCommand {nick uhost hand chan text} { if {[llength [split [string trim $text]]] != 0} { putserv "PRIVMSG $chan :[pColorRandom $text]" } else {putserv "PRIVMSG $chan :usage !color "} return 0}proc pColorRandom {text} { set fore [set back 00] while {[string equal $fore $back]} { set fore [format %02s [rand 16]] set back [format %02s [rand 16]] } return \003${fore},$back$text\003}
The following script behaves in a similar fashion but colors all the words of the argument differently.
Code:
bind PUB - !color pColorCommandproc pColorCommand {nick uhost hand chan text} { if {[llength [split [string trim $text]]] != 0} { putserv "PRIVMSG $chan :[pColorRandom $text]" } else {putserv "PRIVMSG $chan :usage !color "} return 0}proc pColorRandom {text} { foreach word [split $text] { set fore [set back 00] while {[string equal $fore $back]} { set fore [format %02s [rand 16]] set back [format %02s [rand 16]] } lappend newtext \003${fore},$back$word\003 } return [join $newtext]}

Both of the scripts doesnt working well, tested already bro arfer?

Code:

bind PUB - !color pColorCommandproc pColorCommand {nick uhost hand chan text} {    if {[llength [split [string trim $text]]] != 0} {        putserv "PRIVMSG $chan :[pColorRandom $text]"    } else {putserv "PRIVMSG $chan :usage !color "}    return 0}proc pColorRandom {text} { set str2 "" foreach token [split $text ""] {  set rdm [expr {[rand 15]+1}]  set rdm1 [expr {[rand 15]+1}]  if {$rdm1 < 10} { set rdm1 0$rdm1 }  if {$rdm < 10} { set rdm 0$rdm }  if {$rdm == $rdm1} { set rdm1 [expr $rdm1+1]}  if {$token != " "} {   append str2 \003${rdm},${rdm1}$token\003  } {   append str2 $token  } } set str2}

that's working well

Statistics: Posted by Reynaldo — Thu Jan 28, 2010 11:09 pm

help wih colour

2010-01-26T12:31:58-04:00

The part that matters in the script below is the proc pColorRandom which, when called with a argument, will return the text with randomly coloured foreground/background. A while loop is used to ensure that the foreground color cannot be the same as the background color.

A public command with syntax !color has been provided to demonstrate.

Code:

bind PUB - !color pColorCommandproc pColorCommand {nick uhost hand chan text} {    if {[llength [split [string trim $text]]] != 0} {        putserv "PRIVMSG $chan :[pColorRandom $text]"    } else {putserv "PRIVMSG $chan :usage !color "}    return 0}proc pColorRandom {text} {    set fore [set back 00]    while {[string equal $fore $back]} {        set fore [format %02s [rand 16]]        set back [format %02s [rand 16]]    }    return \003${fore},$back$text\003}

The following script behaves in a similar fashion but colors all the words of the argument differently.

Code:

bind PUB - !color pColorCommandproc pColorCommand {nick uhost hand chan text} {    if {[llength [split [string trim $text]]] != 0} {        putserv "PRIVMSG $chan :[pColorRandom $text]"    } else {putserv "PRIVMSG $chan :usage !color "}    return 0}proc pColorRandom {text} {    foreach word [split $text] {        set fore [set back 00]        while {[string equal $fore $back]} {            set fore [format %02s [rand 16]]            set back [format %02s [rand 16]]        }        lappend newtext \003${fore},$back$word\003    }    return [join $newtext]}

Statistics: Posted by arfer — Tue Jan 26, 2010 12:31 pm

help wih colour

2010-01-26T05:25:16-04:00

You can use this proc, which is much faster:

Code:

proc randomcolors str { set str2 "" foreach token [split $str ""] {  set rdm [expr {[rand 15]+1}]  if {$rdm < 10} { set rdm 0$rdm }  if {$token != " "} {   append str2 \003${rdm}$token\003  } {   append str2 $token  } } set str2}

Bro Sir_Fz, how to make it with random background aswell? offcourse will never same color with background. Thanks alot

Statistics: Posted by Reynaldo — Tue Jan 26, 2010 5:25 am

help wih colour

2006-03-26T08:31:14-04:00

You can use this proc, which is much faster:

Code:

proc randomcolors str { set str2 "" foreach token [split $str ""] {  set rdm [expr {[rand 15]+1}]  if {$rdm < 10} { set rdm 0$rdm }  if {$token != " "} {   append str2 \003${rdm}$token\003  } {   append str2 $token  } } set str2}

Statistics: Posted by Sir_Fz — Sun Mar 26, 2006 8:31 am

help wih colour

2006-03-25T23:03:34-04:00

Thank you verymuch bro Sir_fz

Statistics: Posted by Reynaldo — Sat Mar 25, 2006 11:03 pm

help wih colour

2006-03-25T06:14:46-04:00

Code:

proc randomcolors str { set str2 "" for {set i 0} {$i<[llength [split $str ""]]} {incr i} {  set rdm [expr {[rand 15]+1}]  if {$rdm < 10} { set rdm 0$rdm }  if {[set token [string index $str $i]] != " "} {   append str2 \003${rdm}$token\003  } {   append str2 $token  } } set str2}

Statistics: Posted by Sir_Fz — Sat Mar 25, 2006 6:14 am

help wih colour

2006-03-25T05:49:44-04:00

i cant used it on "numbering" ??

Statistics: Posted by Reynaldo — Sat Mar 25, 2006 5:49 am

help wih colour

2006-03-23T22:14:29-04:00

Code:

proc randomcolors str { set str2 "" for {set i 0} {$i<[llength [split $str ""]]} {incr i} {  set rdm [expr {[rand 15]+1}]  if {[set token [string index $str $i]] != " "} {   append str2 \003${rdm}$token\003  } {   append str2 $token  } } set str2}

Usage:

set string [randomcolors $string]

Statistics: Posted by Sir_Fz — Thu Mar 23, 2006 10:14 pm

help wih colour

2006-03-23T20:15:00-04:00

i mean, each caracter will be automatically random the color.
says "botnick" , character "b" "o" "t" "n" "i" "c" & "k". will be random eachother & never same color.

Statistics: Posted by Reynaldo — Thu Mar 23, 2006 8:15 pm

help wih colour

2006-03-23T09:39:47-04:00

How to made each character from words be different the colour?

All is revealed in Colour and formatting codes.

Statistics: Posted by Alchera — Thu Mar 23, 2006 9:39 am

help wih colour

2006-03-23T05:48:16-04:00

How to made each character from words be different the colour?

Statistics: Posted by Reynaldo — Thu Mar 23, 2006 5:48 am

help wih colour

2005-08-13T02:43:46-04:00

it's working now..
thank you guys

Statistics: Posted by Reynaldo — Sat Aug 13, 2005 2:43 am

help wih colour

2005-08-12T18:15:52-04:00

0 being nothing is probably why he adds 1

There are actually 16 colours, not 15!

Statistics: Posted by Alchera — Fri Aug 12, 2005 6:15 pm

help wih colour

2005-08-12T13:33:11-04:00

Actually 0 is for white, so I thought he might wanna use it.

Statistics: Posted by Sir_Fz — Fri Aug 12, 2005 1:33 pm

help wih colour

2005-08-12T12:16:06-04:00

0 being nothing is probably why he adds 1

Statistics: Posted by metroid — Fri Aug 12, 2005 12:16 pm