Autor Tema: nick completion de con tres colores o cuatro  (Leído 1496 veces)

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

Desconectado BlaCk-maGiC

  • Novato
  • *
  • Mensajes: 6
  • Karma: +0/-0
nick completion de con tres colores o cuatro
« en: Junio 03, 2016, 12:45:08 am »
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

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 219
  • Karma: +10/-22
    • IrcBots
Re:nick completion de con tres colores o cuatro
« Respuesta #1 en: Junio 04, 2016, 06:06:02 am »
esto es un tema mas que aburrido de las veces que se ha preguntado, molestate en usar el buscador y leer post anteriores
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado

Desconectado victor28

  • Miembro Junior
  • **
  • Mensajes: 50
  • Karma: +2/-1
Re:nick completion de con tres colores o cuatro
« Respuesta #2 en: Junio 05, 2016, 05:00:46 am »
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: [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
  }

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: [Seleccionar]
#hablo on
la reemplazás por esta:

Código: [Seleccionar]
#hablo off
mas facil

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

Código: [Seleccionar]
#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

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: [Seleccionar]
#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

resultado final



funciona con un pequeño cambio

los colores se cambia en esta parte del codigo

Código: [Seleccionar]
set -u0 %mig-c1 02,00
        set -u0 %mig-c2 04,00
        set -u0 %mig-c3 03,00

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

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

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 219
  • Karma: +10/-22
    • IrcBots
Re:nick completion de con tres colores o cuatro
« Respuesta #3 en: Junio 20, 2016, 04:49:18 am »
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..
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado

Barbie

  • Visitante
Re:nick completion de con tres colores o cuatro
« Respuesta #4 en: Diciembre 12, 2016, 11:05:58 pm »
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

 

anything