egghelp/eggheads community

random colors per character

2023-05-16T11:17:55-04:00

After a bit of consideration, I decided to put things to a test.

The rand command (that comes with eggdrop) outputs a random value from the given LIMIT, of 0 up to LIMIT-1, thus, giving it a limit of 5, it can output the values 0, 1, 2, 3, 4.

Code:

% set fg_colors "01 02 05 06 10 12"01 02 05 06 10 12% llength $fg_colors6%

With that limit-1 from the rand this means it will start from 0 and end at 5. To test that:

Code:

% set fg_colors "01 02 05 06 10 12"01 02 05 06 10 12% lindex $fg_colors 512% lindex $fg_colors 001

And the result is correct, no need to change anything if you use the rand output on a list with lindex.

But, if you want to get a random number starting with 1 up to a certain limit, let's say 1 to 100, then you need that +1 I mentioned initially.

Statistics: Posted by caesar — Tue May 16, 2023 11:17 am

No need for +1

2023-05-15T12:40:29-04:00

caesar,

I don't agree with any of that.

[rand] works well with [lindex] and [llength], without the need for any extra math:)

Statistics: Posted by SpiKe^^ — Mon May 15, 2023 12:40 pm

random colors per character

2023-05-15T12:40:37-04:00

When working with rand on list, [rand [llength $list]] is perfect as list index begins at 0. llength is alway last index + 1.

Statistics: Posted by CrazyCat — Mon May 15, 2023 12:40 pm

random colors per character

2023-05-15T12:26:39-04:00

Given that the rand that's implemented in eggdrop returns a random integer between 0 and limit-1, for example a [rand 10] would pick a random number from position 0 (in our case 1) up to limit (in our case it's 10) - 1, so last element will be 9, this means at least in theory, 10 will never be picked.

To put this theory to the test I mimic the rand function in tclsh:

Code:

set max 10% for {set x 0} {$x<10000} {incr x} {if {[expr {int(rand()*$max)}] == 10} {puts "match!"break}}%

and then if I change from 10 to 9:

Code:

% for {set x 0} {$x<10000} {incr x} {if {[expr {int(rand()*$max)}] == 9} {puts "match!"break}}match!%

Notice the lack of a match in first case. Now, if we add +1 at the end then:

Code:

% for {set x 0} {$x<1000} {incr x} {if {[expr {int(rand()*$max)} + 1] == 10} {puts "match!"break}}match!%

So with +1 it works as expected.

TLDR: rand works between 0 and limit-1, thus you need to make it [rand limit + 1], else last element will never be picked.

Statistics: Posted by caesar — Mon May 15, 2023 12:26 pm

random colors per character

2023-05-15T06:46:21-04:00

excellent that seems to work well thanks MMX much apreciated

Statistics: Posted by simo — Mon May 15, 2023 6:46 am

Oops ;)

2023-05-14T18:15:50-04:00

Oops
Try this one.

Code:

# random foreground and background colors from listsproc rcpc_bg {text} {set bg_colors "03 08 11"set fg_colors "01 02 05 06 10 12"foreach char [split [string trim [stripcodes * $text]] ""] {if {$char eq " "} {lappend output $char} else {lappend output "\003[lindex $fg_colors [rand [llength $fg_colors]]],[lindex $bg_colors [rand [llength $bg_colors]]]$char\003"}}return [join $output ""]}

Statistics: Posted by MMX — Sun May 14, 2023 6:15 pm

random colors per character

2023-05-14T17:06:52-04:00

except the proc wich has the background color as well seems to color the spaces as well while we want the spaces to be blank and only have the actual characters with fg color and bg color

Statistics: Posted by simo — Sun May 14, 2023 5:06 pm

random colors per character

2023-05-14T16:54:50-04:00

excellent that seems to work well, thanks MMX

Statistics: Posted by simo — Sun May 14, 2023 4:54 pm

random colors per character

2023-05-14T16:37:14-04:00

Here are two variations with and without background color.
I hope they will be useful to you.

Code:

# completely random colors per character, no background colorsproc rcpc {text} {foreach char [split [string trim [stripcodes * $text]] ""] {lappend output "\003[expr int(rand()*15)+1]$char\003"}return [join $output ""]}# random foreground and background colors from listsproc rcpc_bg {text} {set bg_colors "03 08 11"set fg_colors "01 02 05 06 10 12"foreach char [split [string trim [stripcodes * $text]] ""] {lappend output "\003[lindex $fg_colors [rand [llength $fg_colors]]],[lindex $bg_colors [rand [llength $bg_colors]]]$char\003"}return [join $output ""]}

Statistics: Posted by MMX — Sun May 14, 2023 4:37 pm

random colors per character

2023-05-14T12:02:45-04:00

greetingz folks,

ive tried this to assign a color to each character in the text but it seems to do for the entire sentence instead of per character:

Code:

set xfgx {00 08}set xbgx {01 02 05 06 10 12}proc wildcharcolor {text} {   set xmfgx [lindex $::xfgx [rand [llength $::xfgx]]]   set xmbgx [lindex $::xbgx [rand [llength $::xbgx]]]   set xsepx "\003${xmfgx},${xmbgx}"   set xregx $xsepx   for {set i 0} {$i<=[string length $text]} {incr i} {      append xregx [string index $text $i]$xsepx   }   return $xregx }bind pub -|- !xcols pub:text:rcolorsproc  pub:text:rcolors {nick uhost hand chan text} {      if {![isatleasthalfop2017ewa $nick $chan]} { return 0 }       set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]       putserv "privmsg $chan :[wildcharcolor $text]"}

Statistics: Posted by simo — Sun May 14, 2023 12:02 pm