Autor Tema: Nick Completion en más colores  (Leído 959 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado thenecenzurat

  • Novato
  • *
  • Mensajes: 2
  • Karma: +0/-0
Nick Completion en más colores
« en: Agosto 14, 2016, 09:34:48 pm »
Hola a todos, quisiera saber si alguien puede ayudarme a que este código
para nick completion de 3 colores sea de 4

Código: [Seleccionar]
on *:INPUT:*: {
  if ($left($1-,1) != $chr(47)) {
    set -u0 %mig-cont 1
    while (%mig-cont <= $gettok($1-,0,32)) {
      if ($gettok($1-,%mig-cont,32) ison $chan) {
        set -u0 %mig-len $len($gettok($1-,%mig-cont,32))
        set -u0 %mig-rest $calc(%mig-len % 3)
        set -u0 %mig-c1 04
        set -u0 %mig-c2 01
        set -u0 %mig-c3 04
        if (%mig-len >= 3) {
          if (%mig-rest == 0) {
            set -u0 %mig-part $calc(%mig-len / 3)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
          elseif (%mig-rest == 1) {
            set -u0 %mig-part $calc(%mig-len / 3)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
          else {
            set -u0 %mig-part $calc((%mig-len / 3) + 1)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
        }
        else {
          if (%mig-txt) { %mig-txt = %mig-txt $gettok($1-,%mig-cont,32) }
          else { set -u0 %mig-txt $gettok($1-,%mig-cont,32) }
        }
        if (%mig-txt) { %mig-txt = %mig-txt %mig-comple }
        else { set -u0 %mig-txt %mig-comple }
      }
      else {
        if (%mig-txt) { %mig-txt = %mig-txt $gettok($1-,%mig-cont,32) }
        else { set -u0 %mig-txt $gettok($1-,%mig-cont,32) }
      }
      INC %mig-cont
    }
    msg $chan %mig-txt
    unset %mig-*
    halt
  }

Que se vea asi:
thenecenzurat

En lugar de asi:
thenecenzurat

Espero que alguien pueda ayudarme

Un saludo o.o/

Desconectado lamasfeita

  • Miembro Junior
  • **
  • Mensajes: 71
  • Karma: +0/-11
Re:Nick Completion en más colores
« Respuesta #1 en: Septiembre 09, 2016, 04:50:45 am »
bueno Yo utilizo aliases para eso y no es tan largo el codigo te lo dejo aqui para que lo pruebes
lo que tienes que hacer es copiar el codigo y pegarlo en un aliases nuevo ( apretas alt + A  luego pulsa -file-new) y copias todo el codigo que te dejo:

Código: [Seleccionar]
;--- usar ll4_activar para activar

ll4_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll4(<t>))
sll4 tokenize 32 $1- | var %a,  %b,  %c $chr(3) | %a = $int($calc($len($3) /2)) | %b = $calc($len($3) - %a) | return $+(%c,$1,$mid($3,1,%a),%c,$2,$mid($3,- $+ %b))
ll4 {
  var %txt1 04
  var %txt2 01
  var %txt3 04
  var %txt4 01
  var %txt $1, %N $int($calc($len($1) /2)), %N2 $calc($len($1) - %N)
  return $chr(2) $+ $sll4(%txt1 %txt2 $mid($1,1,%n)) $+ $sll4(%txt3 %txt4 $mid($1,- $+ %n2))
}

y le das ok
 y como ahi dice ahi activar asi, colocar en el ircap /ll4_activar y darle enter
« última modificación: Septiembre 09, 2016, 05:14:13 am por lamasfeita »

Desconectado thenecenzurat

  • Novato
  • *
  • Mensajes: 2
  • Karma: +0/-0
Re:Nick Completion en más colores
« Respuesta #2 en: Septiembre 29, 2016, 09:25:14 pm »
Hola ese también lo tengo haha pero sólo me aparece al principio de cada frase :/

Desconectado lamasfeita

  • Miembro Junior
  • **
  • Mensajes: 71
  • Karma: +0/-11
Re:Nick Completion en más colores
« Respuesta #3 en: Octubre 06, 2016, 05:24:50 am »
Hola Para que te salga el nick completion en cualquier parte de la frase debes de hacer esta modificacion
http://foroircap.org/ayuda-scripting-ircap/nick-completion-en-dos-colores-1874/msg6389/#msg6389
cualquier duda dejala aqui en el foro
saludos cordiales
LaMasFeita

Barbie

  • Visitante
Re:Nick Completion en más colores
« Respuesta #4 en: Diciembre 26, 2016, 02:56:12 pm »
Hola, use este código de nick complatación en 3 colores pero, me bloquea el setup del ircap ( Nick completación, corrector y adornos ) alguien sabe cómo solucionar este problema .

Desconectado victor28

  • Miembro Junior
  • **
  • Mensajes: 50
  • Karma: +2/-1
Re:Nick Completion en más colores
« Respuesta #5 en: Diciembre 27, 2016, 11:02:40 pm »
hola pues no se el codigo esta bien pon tu codigo o comprueba el que hay si miras hay mas codigo de nick completion en el foro ..

el codigo que puso la masfeita

Citar
Hola Para que te salga el nick completion en cualquier parte de la frase debes de hacer esta modificacion
http://foroircap.org/ayuda-scripting-ircap/nick-completion-en-dos-colores-1874/msg6389/#msg6389
cualquier duda dejala aqui en el foro
saludos cordiales
LaMasFeita

dejo una mejora para evitar los colores prohibidos 8,9,11 ,15 eso colore lo meteremos en %coloresNoPermitidos

Código: [Seleccionar]
#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 {
    var %coloresNoPermitidos = 8,9,11
    while (1) {
      var %color1 = $rand(2,14)
      var %color2 = $rand(2,14)
      if (!$istok(%color1,%coloresNoPermitidos,44)) && (!$istok(%color2,%coloresNoPermitidos,44)) {
        set %nc2cColor2 $chr(3) $+ $base(%color1,10,10,2)
        set %nc2cColor1 $chr(3) $+ $base(%color2,10,10,2)
        return
      }
    }
    %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
alias mod^correc return

un saludo

Barbie

  • Visitante
Re:Nick Completion en más colores
« Respuesta #6 en: Diciembre 29, 2016, 12:48:54 am »
Hola, hablo del código de nick completación en tres colores,  q usted mismo pego en el foro , lo pegue en mi ircap y me bloquea el setup ( nick completación, corrector y adornos del ircap) ademas en el pv sale esto :* /msg: insufficient parameters (line 41, nc.mrc). la verdad me gusto mucho pero tiene estos problemas. espero q alguien me ayude a arreglarlo gracias :D
Código: [Seleccionar]
on *:INPUT:*: {
  if ($left($1-,1) != $chr(47)) {
    set -u0 %mig-cont 1
    while (%mig-cont <= $gettok($1-,0,32)) {
      if ($gettok($1-,%mig-cont,32) ison $chan) {
        set -u0 %mig-len $len($gettok($1-,%mig-cont,32))
        set -u0 %mig-rest $calc(%mig-len % 3)
        set -u0 %mig-c1 02,00
        set -u0 %mig-c2 04,00
        set -u0 %mig-c3 03,00
        if (%mig-len >= 3) {
          if (%mig-rest == 0) {
            set -u0 %mig-part $calc(%mig-len / 3)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
          elseif (%mig-rest == 1) {
            set -u0 %mig-part $calc(%mig-len / 3)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
          else {
            set -u0 %mig-part $calc((%mig-len / 3) + 1)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
        }
        else {
          if (%mig-txt) { %mig-txt = %mig-txt $gettok($1-,%mig-cont,32) }
          else { set -u0 %mig-txt $gettok($1-,%mig-cont,32) }
        }
        if (%mig-txt) { %mig-txt = %mig-txt %mig-comple }
        else { set -u0 %mig-txt %mig-comple }
      }
      else {
        if (%mig-txt) { %mig-txt = %mig-txt $gettok($1-,%mig-cont,32) }
        else { set -u0 %mig-txt $gettok($1-,%mig-cont,32) }
      }
      INC %mig-cont
    }
    msg $chan %mig-txt
    unset %mig-*
    halt
  }

Desconectado lamasfeita

  • Miembro Junior
  • **
  • Mensajes: 71
  • Karma: +0/-11
Re:Nick Completion en más colores
« Respuesta #7 en: Febrero 02, 2017, 05:52:36 am »
Hola, hablo del código de nick completación en tres colores,  q usted mismo pego en el foro , lo pegue en mi ircap y me bloquea el setup ( nick completación, corrector y adornos del ircap) ademas en el pv sale esto :* /msg: insufficient parameters (line 41, nc.mrc). la verdad me gusto mucho pero tiene estos problemas. espero q alguien me ayude a arreglarlo gracias :D
Código: [Seleccionar]
on *:INPUT:*: {
  if ($left($1-,1) != $chr(47)) {
    set -u0 %mig-cont 1
    while (%mig-cont <= $gettok($1-,0,32)) {
      if ($gettok($1-,%mig-cont,32) ison $chan) {
        set -u0 %mig-len $len($gettok($1-,%mig-cont,32))
        set -u0 %mig-rest $calc(%mig-len % 3)
        set -u0 %mig-c1 02,00
        set -u0 %mig-c2 04,00
        set -u0 %mig-c3 03,00
        if (%mig-len >= 3) {
          if (%mig-rest == 0) {
            set -u0 %mig-part $calc(%mig-len / 3)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
          elseif (%mig-rest == 1) {
            set -u0 %mig-part $calc(%mig-len / 3)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
          else {
            set -u0 %mig-part $calc((%mig-len / 3) + 1)
            set -u0 %mig-comple $replace($gettok($1-,%mig-cont,32),$left($gettok($1-,%mig-cont,32),%mig-part),$+(,%mig-c1,$left($gettok($1-,%mig-cont,32),%mig-part),%mig-c2))
            %mig-comple = $replace(%mig-comple,$right(%mig-comple,%mig-part),$+(%mig-c3,$right(%mig-comple,%mig-part),))
          }
        }
        else {
          if (%mig-txt) { %mig-txt = %mig-txt $gettok($1-,%mig-cont,32) }
          else { set -u0 %mig-txt $gettok($1-,%mig-cont,32) }
        }
        if (%mig-txt) { %mig-txt = %mig-txt %mig-comple }
        else { set -u0 %mig-txt %mig-comple }
      }
      else {
        if (%mig-txt) { %mig-txt = %mig-txt $gettok($1-,%mig-cont,32) }
        else { set -u0 %mig-txt $gettok($1-,%mig-cont,32) }
      }
      INC %mig-cont
    }
    msg $chan %mig-txt
    unset %mig-*
    halt
  }

es por que ud al hacer la modificacion ha borrado otra cosa del ircap
saludos