Untitled

name { 
  msg $active $+($chr(3),$nick($active,$1).color,$iif($1 !isreg $active,$left($nick($active,$1).pnick,1)),[,$chr(3),14,»,$chr(3),$nick($active,$1).color,$chr(31),$1,$chr(31),$chr(3),14,«,$chr(3),$nick($active,$1).color,],$iif($2,:),$chr(3)) $regsubex($2-,/(\S)/g,$+($chr(3),$token(07 08 09 11 12 13,$and(\n,7),32))\1) 
}
colours {
  msg $active 0,1 1 0,0 0,2 2 0,0 0,3 3 0,0 0,4 4 0,0 0,5 5 0,0 0,6 6 0,0 0,7 7 0,0 0,8 8 0,0 0,9 9 0,0 0,10 10 0,0 0,11 11 0,0 0,12 12 0,0 0,13 13 0,0 0,14 14 0,0 0,15 1515,15<
}
rb { 
  var %m = 1, %n = 1, %c1 = 04, %c2 = 07, %c3 = 08, %c4 = 09, %c5 = 11, %c6 = 02, %c7 = 06 
  while ($mid($1-,%n,1) || $mid($1-,%n,1) == 0) { 
    if ($v1 == $chr(32)) { 
      var %t = %t $v2 
    } 
    else { 
      var %t = %t $+ $+($chr(3),%c [ $+ [ %m ] ],$mid($1-,%n,1),$chr(3)) 
      $iif(%m == 7,set %m 1,inc %m) 
    } 
    inc %n 
  } 
  $iif($isid,return,msg $iif($chan,$v1,$nick)) %t 
}
rcol say $regsubex($1-,/(\S)/g,$+($chr(3),$token(07 08 09 11 12 13,$and(\n,7),32))\1)