Nick completion

/set %nickcomp2colores [0|1]
;/setnc2c Color1 Color2 Extra
alias setnc2c {
  set %nc2cColor1 $chr(3) $+ $base($1,10,10,2)
  set %nc2cColor2 $chr(3) $+ $base($2,10,10,2)
  set %nc2cExtra $3
}

Parte 2

#mod^ncomp on
alias mod^ncomp {
  if (%fullnickComp != on) {
    if ($1 ison $active ) {
      %nick^comp = $1
      if ($gettok(%mod^ncomp,3,8) != off) { %nick^comp = $ [ $+ [ $replace($ifmatch,<t>,%nick^comp) ] ] }
      %nick^comp = $gettok(%mod^ncomp,1,8) $+ %nick^comp $+  $+ $gettok(%mod^ncomp,2,8) $+
      %mi^frase = $deltok(%mi^frase,1,32)
    }
  }
  else {
    %mi^frase = $null
    var %token = 1
    while ($gettok($1-,%token,32) != $null) {
      var %word = $v1
      if (%word ison $active) {
        if ($gettok(%mod^ncomp,3,8) != off) { %word = $ [ $+ [ $replace($ifmatch,<t>,%word) ] ] }
        if (%nickcomp2colores) %word = $+(%nc2cExtra,$regsubex(%word,/(.)/g,$iif(2 \\ \n,%nc2cColor1,%nc2cColor2)\t),%nc2cExtra,)
        %word = $+(,$gettok(%mod^ncomp,1,8),%word,$gettok(%mod^ncomp,2,8),,%colorDeLetra)
      }
      %mi^frase = %mi^frase %word
      inc %token
    }
  }
}
#mod^ncomp end