Ayuda IRcap > Ayuda IRC y otras cosas relacionadas

nick completion de con tres colores o cuatro

(1/1)

BlaCk-maGiC:
hola hay alguien que me ayude o me diga como puedo poner mi nick completion partido por tres colores a cuatro? por favor, se los agradeceria xD

Stig:
esto es un tema mas que aburrido de las veces que se ha preguntado, molestate en usar el buscador y leer post anteriores

victor28:
hola este codigo Colorea los nicks q salen en el texto pero esta vez en cualquier parte del texto y en tres colores


--- Código: ---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
  }

--- Fin del código ---

este codigo te puede dar un erro de repetir las letra y los nick

ejemplo


solución si te da fallo de repetición

modificar el archivo ircap1.mrc y a esta línea:


--- Código: ---#hablo on
--- Fin del código ---

la reemplazás por esta:


--- Código: ---#hablo off
--- Fin del código ---

mas facil

esta linea la puede encontrar en
editor ircap1.mrc lineas 857
cuando la busque la veras así


--- Código: ---#hablo on
on *:input:#: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
on *:input:?: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
on *:input:=: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
on *:input:!: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
#hablo end
--- Fin del código ---

e probado con dos mirc el 7.32
solo con pone #hablo off funciona

en mirc 6.2 hay me daba mas fallos
 solucion


--- Código: ---#hablo off
off *:input:#: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
off *:input:?: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
off *:input:=: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
off *:input:!: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
#hablo end
--- Fin del código ---

resultado final



funciona con un pequeño cambio

los colores se cambia en esta parte del codigo


--- Código: --- set -u0 %mig-c1 02,00
        set -u0 %mig-c2 04,00
        set -u0 %mig-c3 03,00
--- Fin del código ---

02 es el azul ,00 es fondo blanco
04 es rojo ,00 es fondo blanco
03 es verde ,00 es fondo blanco

bueno con esto a gusto colores así eliges el que mas te guste
muchas combinaciones para elegir


--- Citar ---esto es un tema mas que aburrido de las veces que se ha preguntado, molestate en usar el buscador y leer post anteriores
--- Fin de la cita ---

stig ves que poco cuesta para no ayudar mejor no decir  nada a problemas soluciones un saludo y con fotos jejejejeje

Stig:
acaso cuesta tanto usar el buscador con el problema? o es mejor abrir 300 hilos con la misma pregunta? no se, cada loco con su tema..

Barbie:
Hola coloque este codigo y me bloquea parte del setup del ircap  escritura ( nick completacion, corrector y adornos )  y sólo me permite escribir en color negro en mis texto

Navegación

[0] Índice de Mensajes

Responder

Ir a la versión completa