on ^*:TEXT:*:#:if ($cnick($nick) == 0) .ColourNick $nick | /ColourText $nick $chan | .halt
on ^*:ACTION:*:#:if ($cnick($nick) == 0) .ColourNick $nick | /ColourAction $nick $chan | .halt

ColourNick {
  if ($regex($$1, m/\*\*\*/) != 0) return
  cnick -m0 $$1 $RandomColour
}

ColourText {
  if (!$nick($$2,$$1)) echo -tlbfm $$2 < $+  $+ $cnick($$1).color $+ $$1 $+  $+ > $ColourizeNicks($$1, $$2)
  else echo -tlbfm $$2 < $+  $+ $cnick($$1).color $+ $nick($$2,$$1).pnick $+  $+ > $ColourizeNicks($$1, $$2)

}

ColourAction {
  echo 9 -tlbfm $$2 *  $+ $cnick($$1).color $+ $nick($$2,$$1).pnick $+  $ColourizeNicks($$1, $$2, action)
}

ColourizeNicks {
  var %text
  var %index         = 1
  var %colorednick

  if (action isin $3) %text = $regml($regex($rawmsg, m/^:.*?:
ACTION (.*)$/))
  else %text = $regml($regex($rawmsg, m/^:.*?:(.*)$/))

  while (%index <= $nick($$2,0)) {
    %colorednick =  $+ $cnick($nick($$2,%index)).color $+ $nick($$2,%index) $+ 
    set %text $regsubex(%text, m/\b\Q $+ $nick($$2,%index) $+ \E\b/ig, %colorednick)
    inc %index
  }

  return %text
}

RandomColour {
  var %i = $rand(2,15)
  while (%i == 11) %i = $rand(2,15)
  return %i
}