on ^*:TEXT:*:#: сolor_nick_message $nick $chan $1-
on *:INPUT:#: .msg $chan $1- | if ($left($strip($1-),1) != /) сolor_nick_message $me $chan $1-
alias -l сolor_nick_message {
;# %stype = 1 - color from nickname list.
;# %stype = 2 - color from address book.
;---------------
var %stype = 1
;---------------
var %st $3- | var %sts $strip(%st) | var %sq 1 | while (%sq <= $numtok(%sts,32)) {
var %ss $gettok(%sts,%sq,32)
if ($comchan(%ss,0) > 0) {
if (%stype == 1) var %sc $nick($2,%ss).color | if (%stype == 2) var %sc $cnick(%ss).color
var %snc $+($chr(3),%sc,%ss,$chr(3)) | var %st $puttok(%st,%snc,%sq,32)
}
inc %sq
}
if (%st) { var %sac $+(<,$chr(3),$cnick($1).color,$1,$chr(3),>) | /echo -t $2 %sac %st | halt }
}