help wih colour

[Reynaldo]

Code: Select all

PRIVMSG $chan :\(4\002Hi..\002\)

how to set with random color? from 1-15 colour
Please help.

[Dedan]

[rand 15] returns a random number between 0 and 14

Code: Select all

  set colour [expr [rand 15] + 1]
  PRIVMSG $chan :\(\003$colour \002Hi..\002\003\)

i hope this helps

[Sir_Fz]

Code: Select all

[rand 16]

returns a number in this range [0,15].

[metroid]

0 being nothing is probably why he adds 1

[Sir_Fz]

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

[Alchera]

0 being nothing is probably why he adds 1

There are actually 16 colours, not 15!

[Reynaldo]

it's working now..
thank you guys

[Reynaldo]

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

[Alchera]

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

All is revealed in Colour and formatting codes.

[Reynaldo]

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.

[Sir_Fz]

Code: Select all

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]

[Reynaldo]

i cant used it on "numbering" ??

[Sir_Fz]

Code: Select all

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
}

[Reynaldo]

Thank you verymuch bro Sir_fz

[Sir_Fz]

You can use this proc, which is much faster:

Code: Select all

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
}