Forums Scripts & Popups make nick appear in color

; custom identifier
; usage: $rc(nick)
; returns a nick split in two, each half colored a random color
; note: because of the use of $rand, the two halves can occasionally end up the same color
;
alias rc {
  ; determine half-length of nick
  ;
  var %i = $int($calc($len($1) / 2))
  ;
  ; return the color nick 
  ; $chr(3) = colorcode
  ; $chr(15) = end all control codes
  ;
  return $chr(3) $+ $rand(00,15) $+ $left($1,%i) $+ $chr(3) $+ $rand(00,15) $+ $right($1,$calc($len($1) - %i)) $+ $chr(15)
}
 

alias rc {
  var %a = $remtok(00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15,$color(b).dd,32), $&
    %1 = $gettok(%a,$r(1,15),32)
  if ? iswm $1 { return $+($chr(3),%1,$1,$chr(3)) }
  var %2 = $gettok($remtok(%a,%1,32),$r(1,14),32), %a = $int($calc($len($1) / 2))
  return $+($chr(3),%1,$left($1,%a),$chr(3),%2,$right($1,- $+ %a),$chr(3))
}