egghelp/eggheads community

$ch r(3) $+ $r(1,7)

2020-11-29T10:32:43-04:00

Thanks alot guys

Statistics: Posted by KhashayaR — Sun Nov 29, 2020 10:32 am

$ch r(3) $+ $r(1,7)

2020-11-27T16:09:18-04:00

was fiddling with it some more seems to be working fine thanx crazycat

Statistics: Posted by simo — Fri Nov 27, 2020 4:09 pm

$ch r(3) $+ $r(1,7)

2020-11-27T14:17:27-04:00

excellent crazycat that worked i was wondering if this could be called by other tcl scripts for example for kick messages

Statistics: Posted by simo — Fri Nov 27, 2020 2:17 pm

$ch r(3) $+ $r(1,7)

2020-11-27T13:28:21-04:00

Create a list of bg colors and a list of fg colors and select random in each.

Code:

set fg {00 08 09 11 15}set bg {01 02 03 04 05 06 07 10 12 14}proc colors {} {   set mfg [lindex $::fg [rand [llength $::fg]]]   set mbg [lindex $::bg [rand [llength $::bg]]]   return "\003${mfg},${mbg}"}

Statistics: Posted by CrazyCat — Fri Nov 27, 2020 1:28 pm

$ch r(3) $+ $r(1,7)

2020-11-27T11:34:27-04:00

this seems to work for me but i was wondering if only certain random colors could be used for foreground and background

Code:

bind pub n|n  .rcols random:colsproc random:cols {nick host hand chan text} {  putquick "privmsg $chan \00300,[expr {int(6*rand() + 1)}] $text \017"  }

if possible i was curious how to use the following config:

for foreground i would like to use:

00 08 09 11 15

for background i would like to use:

01 02 03 04 05 06 07 10 12 14

this is the msl version:

$+($chr(3),$base($gettok(00 08 09 11 15,$r(1,5),32),10,10,2),$chr(44),$base($gettok(1 2 3 5 6 7 10 12 14,$r(1,9),32),10,10,2))

Statistics: Posted by simo — Fri Nov 27, 2020 11:34 am

$ch r(3) $+ $r(1,7)

2020-11-27T08:11:07-04:00

Simplest way:

Code:

set col [format "%.02d" [expr {1 + round(rand()*6}]]set ch "\003${col}"

Note that IRC colors goes from 0 (white= to 15). If you want to use all of them but the white, change the "6" to 14.

Statistics: Posted by CrazyCat — Fri Nov 27, 2020 8:11 am

$ch r(3) $+ $r(1,7)

2020-11-27T06:43:52-04:00

hello is it possible to have translate $ch r(3) $+ $r(1,7) to TCL language? this will give a random color to output text Thanks in advance

Statistics: Posted by KhashayaR — Fri Nov 27, 2020 6:43 am