Couleur TEXT

$regex($1-,/\0030?1 $chr(44) ?0?0?\s*\002?\s*\w/x) 

if $regex($1-,,/\0030?4 $chr(44) ?0?0?\s*\002?\s*\w/x) { kick ... }

if $regex($1-,/\0030?1 $chr(44) ?0?0?\s*\002?\s*\w/x) { ignore -k $gettok($ial($nick).host,1,1) } 

Alias SColor {
  Var %z = $iif($isid,Return,Echo >)
  If ($regex($1-,/[[:cntrl:]]/g) > 0) {
    Var %b = $color(background) , %dat = $1- , %r = $+($chr(3),$iif(%b == 0,01,$abs($calc(%b -16))))
    Var %i' = (?:\x2?\x1F?|\x1F?\x2?) , %i = $+(%i',\x3,%i') , %h = (\x2?[^0-9][^\x3\xF]+) , %m = (\x2?[^\x3\xF]+)
    Var %j = (1([0-5]),1\4|0([0-9]),0\5|0([2-9]),\6|([0-9]),0\7|([2-9]),\8) %m $+ $chr(124) $+ (0([01]),\11|([01]),\12) %h
    If ($len(%b) == 1) {
      If $regex(%b,/[02-9]/) { Var %k = ((0? %b )\x2C(0? %b )[^ $+ %b $+ -9]|(0? %b )[^\x2C]) %m }
      Else { Var %k = (01,01|01,1[^0-5]|1,1[^0-5]|1,01|0?1[^0-9]((?<=\x2C)[^0-9])|(01)[^\x2C]|1[^0-5\x2C]) %m }
    }
    Else { Var %k = (( %b )\x2C( %b )|( %b )[^\x2C]|( %b )\x2C[^0-9]) %m }
    Var %c = /( %i ( %k ))/gix , %d = /( %i ( %j ))/gix
    Var %dat = $regsubex(%dat,%c,$+($chr(15),%r,\2,$chr(15)))
    %z $regsubex(%dat,%d,$+($chr(15),%r,>,\2,$chr(15)))
  }
  Else { %z $color(info) $+ * /SColor: insufficient parameters - paramètres insuffisants }
}

|11:55:14|Test:1,01yOp