Mensajes recientes

Páginas: 1 [2] 3 4 ... 10
11
Ayuda scripting IRcap / Re:ayuda sobre nick completion dos colores cualquier parte
« Último mensaje por lamasfeita en Febrero 15, 2017, 08:37:24 am »
aqui esta la modificacion del nick completion en cualquier parte de la frase pulsa en este link bassman

http://foroircap.org/ayuda-scripting-ircap/nick-completion-en-dos-colores-1874/msg6389/#msg6389

espero que entiendas la explicacion.

 saludos

LaMasFeita
12
Ayuda scripting IRcap / Re:ayuda sobre nick completion dos colores cualquier parte
« Último mensaje por bassman en Febrero 10, 2017, 08:36:39 pm »
hola de nuevo ya lo probe y funciona perfecto!!! solo una pregunta........... no agrego el nick en cualquier parte del texto o no lo vi?
13
Ayuda scripting IRcap / Re:ayuda sobre nick completion dos colores cualquier parte
« Último mensaje por bassman en Febrero 10, 2017, 08:19:26 pm »
Muchas gracias por la ayuda, lo probare y te aviso como me fue!!
14
Ayuda scripting IRcap / Re:cambio de color de nick completion
« Último mensaje por lamasfeita en Febrero 02, 2017, 06:18:11 am »
aqui dejo uno ha alguien le gustara

Código: [Seleccionar]
;Este evento activa el identificador de validación.
#nickcolores off
on *:INPUT:#: {
  if ($left($1-,1) != $chr(47)) {
    ;Enviamos el texto de confirmación a nuestro canal activo, para asegurarnos de que funcione ;)
    echo -t $active $str($chr(160),10) 12••• 14 $+ $nick 12 ¦ $+  $validar($active,$1-)
    ;En realidad, quiero que otros vean que uso esto ;)
    .msg $active $validar($active,$1-) | %frase^halt = on
  }
}
;Este identificador, provee la string reformateada del texto que quiero enviar.
alias validar {
  set %chan $1
  set %text $2
  set %data 0
  :continuar
  if (%data <= $nick(%chan,0)) {
    inc %data
    if ($nick(%chan,%data) isincs %text) {
      ;Seteo si encuentro, y guardo en memoria para despues enviarlo por un return
      %text = $replace(%text,$nick(%chan,%data),$+(,$rand(0,15),$nick(%chan,%data),))
      ;Sigo con el ciclo
      goto continuar
    }
    else {
      ;Forzando nuevamente
      goto continuar
    }
  }
  ;Si todo a terminado, hora de enviar el texto final.
  return %text | %frase^halt = on
}

;Todo se puede ;)

#nickcolores end

menu channel {
  -
  Nick Colores
  .. activar lista: .enable #nickcolores
  .. desactivar lista: .disable #nickcolores
}
espero que le sirva :)
15
Ayuda scripting IRcap / Re:Nick Completion en más colores
« Último mensaje por lamasfeita 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
16
Ayuda scripting IRcap / Re:ayuda sobre nick completion dos colores cualquier parte
« Último mensaje por lamasfeita en Febrero 02, 2017, 05:50:59 am »
Hola bassman paso a ayudarte y explicarte lo siguiente: el codigo citado

 
Hola, buenas tardes, mi duda es la siguiente.... con respecto al tema del remote que hizo TheMexicanForce, es muy bueno, solo tengo una duda, como cambio el color del texto que le sigue al nick completion quiero que mi letra predetermina sea roja, y despues del nick completion me sale negra, sin negritas y no la puedo cambiar este es el remote:


;/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
}
on *:signal:modoescritura: {
  if (%nickcomp2colores) {
    %mi^frase = $null
    var %token = 1
    while ($gettok($1-,%token,32) != $null) {
      var %word = $v1
      if (%word ison $active) {
        %word = $+(%nc2cExtra,$regsubex(%word,/(.)/g,$iif(2 \\ \n,%nc2cColor1,%nc2cColor2)\t),%nc2cExtra,)
      }
      %mi^frase = %mi^frase %word
      inc %token
    }
  }
}


P.D. disculpen que no sepa mucho como funciona el foro es que soy nuevo, saludos a todos!!

te explico que ya esta obsoleto, ya que el mismo TheMexicanForce creo otro, que  sirve para los adornos y corrector del ircap.-
solo has esto en tu ircap con mucho cuidado.-

http://foroircap.org/ayuda-scripting-ircap/nick-completion-en-dos-colores-1874/msg6389/#msg6389

comandos.
/set %fullnickcomp on/off ( para activar o desactivar  )
/set %colorDeLetra ctrl +b +k numero color de letra …

pd: ese codigo que colocaste ese borralo y en aliases coloca este:

Código: [Seleccionar]
;---- activar letras

;----Las Fer Letras (nick partido en dos colores) /ll3_activar

ll3_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll3(<t>))
ll3 {
  var %txt1 $+($chr(3),12)
  var %txt2 $+($chr(3),01)
  var %mi frase $null, %i 1, %txt $chr(2), %n, %n2
  while ($gettok($1-,%i,32) != $null) {
    var %palabra = $v1
    if ($len(%palabra) = 1) { %palabra = $+(%txt1,,%palabra) | goto L }
    %n = $int($calc($len(%palabra) / 2)) | %n2 = $calc($len(%palabra) - %n)
    %palabra = $+(%txt1,$mid(%palabra,1,%n),%txt2,$mid(%palabra,- $+ %n2))
    :L
    %txt =  %txt $+ %palabra
    inc %i
  }
  return %txt
}

;-----color doble con negrita /ll7_activar

ll7_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll7(<t>))
ll7 {
  var %a $1,  %c1 12, %c2 13, %i 01, %ii $len($1), %t, %b 1
  while (%i <= %ii) { %t = %t $+ $chr(2) $+ $chr(3) $+ $iif(%b,%c1,%c2) $+ $mid(%a,%i,1) $+ $chr(2) | inc %i | if (%b) %b = 0 | else %b = 1 }
  return %t
}

;-----color doble con bold y sin bold /ll2_activar

ll2_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll2(<t>))
ll2 {
  var %a $1, %c1 04, %c2 01, %i 1, %ii $len($1), %t, %b 1
  while (%i <= %ii) { %t = %t $+ $chr(3) $+ $iif(%b,%c1,%c2) $+ $mid(%a,%i,1) $+ $chr(2) | inc %i | if (%b) %b = 0 | else %b = 1 }
  return %t
}

;----------- /ll3_tri_activar Letra en tres colores modificar %txt1,2,3 despues de la ","

ll3_tri_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll3_tri(<t>))
ll3_tri {
  var %txt1 $+($chr(3),03)
  var %txt2 $+($chr(3),01)
  var %txt3 $+($chr(3),06)
  var %mi frase $null, %i 1, %txt $chr(2), %n, %n2, %n3
  while ($gettok($1-,%i,32) != $null) {
    var %palabra = $v1
    if ($len(%palabra) = 1) { %palabra = $+(%txt1,%palabra) | goto L }
    %n = $int($calc($len(%palabra) / 3)) | %n2 = $calc($len(%palabra) - %n) | %n3 = $calc($len(%palabra) - $calc(%n + %n2))
    %palabra = $+(%txt1,$mid(%palabra,1,%n),%txt2,$mid(%palabra,$calc(%n +1),$calc(%n2 - %n)),%txt3,$right(%palabra,- $+ %n2))
    :L
    %txt = %txt $+ %palabra
    inc %i
  }
  return %txt
}

;--------- Letra MaYuScUlA y MiNiScUlA --> /ll5_activar ejemplo MmMnMn o 10101010

ll5_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll5(<t>))
ll5 {
  var %a $len($1-), %b 1, %i 1, %t, %t2, %tp
  while (%a) {  if (%b ) { %b = 0 | %tp = upper } | else { %b = 1 | %tp = lower }
    %t2 = $mid($1-,%i,1)
    %t = %t $+  [ $ [ $+ [ %tp ] $+ (%t2) ] ] $+ $chr(32)
    inc %i | dec %a
  }
  return %t
}

;--------- Letra MaYuScUlA y MiNiScUlA en negrita --> /ll8_activar ejemplo MmMnMn o 10101010

ll8_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll8(<t>))
ll8 {
  var %a $len($1-), %b 1, %i 1, %t , %t2, %tp
  while  (%a) {  if (%b) { %b = 0 | %tp = upper } | else { %b = 1 | %tp = lower }
    %t2 = $mid($1-,%i,1)
    %t = %t $+ [ $ [ $+ [ %tp ] $+ (%t2) ] ] $+ $chr(32)
    inc %i | dec %a
  }
  return %t
}
;------- /ll6_activar letra primer y ultima en un color --------

ll6_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll6(<t>))
ll6 {
  var %len $1 | return $chr(3) $+ $chr(3) $+ 12 $+ $left(%len,1) $+ $chr(3) $+ 14 $+ $mid(%len,2,$calc($len(%len)-2)) $+ $chr(3) $+ 12  $+ $right(%len,1)
}

;--- 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))
}


para activar solo lee el pie de cada codigo, ejemplo: ;--- usar /ll4_activar para activar

espero que me entiendas
hasta pronto
LaMasFeita

17
Ayuda scripting IRcap / ayuda sobre nick completion dos colores cualquier parte
« Último mensaje por bassman en Enero 31, 2017, 12:26:53 am »
Hola, buenas tardes, mi duda es la siguiente.... con respecto al tema del remote que hizo TheMexicanForce, es muy bueno, solo tengo una duda, como cambio el color del texto que le sigue al nick completion quiero que mi letra predetermina sea roja, y despues del nick completion me sale negra, sin negritas y no la puedo cambiar este es el remote:


;/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
}
on *:signal:modoescritura: {
  if (%nickcomp2colores) {
    %mi^frase = $null
    var %token = 1
    while ($gettok($1-,%token,32) != $null) {
      var %word = $v1
      if (%word ison $active) {
        %word = $+(%nc2cExtra,$regsubex(%word,/(.)/g,$iif(2 \\ \n,%nc2cColor1,%nc2cColor2)\t),%nc2cExtra,)
      }
      %mi^frase = %mi^frase %word
      inc %token
    }
  }
}


P.D. disculpen que no sepa mucho como funciona el foro es que soy nuevo, saludos a todos!!
18
Ayuda scripting IRcap / Re:darme op en todos los canales que estoy con un solo comando
« Último mensaje por kn1ght en Enero 25, 2017, 05:28:29 pm »
Estamos para dar soluciones... no para complicar mas a los usuarios.




simplemente eso
19
Ayuda scripting IRcap / No saludar al mismo nick mas de 1 vez, evento on join
« Último mensaje por juanam en Enero 17, 2017, 09:24:19 pm »
Estimados, he creado un evento on join en mi nick, para saludar a quien entra a mi sala.
Como hace mucho que no programo en mSL, ando algo perdido con los comandos y sintaxis.

Lo que deseo es que se cree una base de datos con los nicks saludados y que no los saludé nuevamente si se caen y entran.
No quiero usar el comando ignore, ya que cuando entran me saludan e interactúan conmigo, de ahi la idea de la base de datos.

La idea que tengo, es ir agregando cada nick que saludo en una base de datos y que cuando ese nick se caiga de la sala y reentre, no lo salude.

Luego esa base de datos la tengo que eliminar con algun comando, para que al día siguiente comience a funcionar desde cero, digo eliminarla para no complicarla con comandos de fechas y horas.

Se aceptan ideas, no pretendo que me hagan el trabajo por mi eh?
20
Ayuda scripting IRcap / bloquear ips con el bot
« Último mensaje por marco22222222 en Enero 03, 2017, 04:12:06 am »
hola soy nuevo la primera vez que posteo no se si esta es el sitio adecuado mi pregunta es hay algún código o addons para poder bloquear la ip de alguien y el Nick i poniendo por ejemplo
!info  me salga el motivo del bloqueo y después poniendo !desbloquer ip se desbloquee o el Nick
lo necesito para las dos cosas gracias dse antemano y saludos feliz año nuevo
Páginas: 1 [2] 3 4 ... 10
anything