Mensajes recientes

Páginas: 1 2 [3] 4 5 ... 10
21
Ayuda scripting IRcap / Re:Activar/desactivar grupo
« Último mensaje por lamasfeita en Febrero 26, 2017, 07:32:00 am »
Hola Juanam
Aunque se poquito pero trate de hacer un activador asi

Código: [Seleccionar]
#saludos on
ON *:START: {
  hmake tracknicks 10
  if ($isfile(tracknicks.dat)) {
    hload tracknicks tracknicks.dat
  }
}
on *:JOIN:#chathizpano-radio: {
  if ($hget(tracknicks,$address($nick,3))) {
    var %n = $ifmatch
    if ($istok(%n,$nick,32)) { return }
    else {
      hadd tracknicks $address($nick,3) %n $nick
      if ($me isop $chan) { msg  $chan 6Bienvenid@ 3 $nick 1 a 12«» 6Xxxx 12«»  6 |  .ignore -u10 $nick  }
    }
  }
  else {
    hadd tracknicks $address($nick,3) $nick
    if ($me isop $chan) { msg  $chan 6Bienvenid@ 3 $nick 1 a 12«» 6XXXXX  |  .ignore -u10 $nick  }
  }
}

on *:NICK: {
  if ($hget(tracknicks,$address($newnick,3))) {
    var %n = $ifmatch
    if (!$istok(%n,$newnick,32)) {
      hadd tracknicks $address($newnick,3) %n $newnick
    }
  }
  else {
    hadd tracknicks $address($nick,3) $newnick
  }
}

#saludos end
menu channel {
  -
  Saludos
  .. activar saludos: .enable #saludos
  .. desactivar saludos: .disable #saludos
}

le quite el

Código: [Seleccionar]
on 1:INPUT:#: {
  if ($1 == !saluda) { .enable #greet |  /echo -s SALUDO ON }
  if ($1 == !nosaluda) ||  if ($1 == !autodj)  { .disable #greet  |  /echo -s SALUDO off }
}
.disable #greet
return

.enable #greet

se le da en el canal con el segundo boton del mouse y se va a Saludos - activar o desactivar
bueno a mi si me funciono, espero que te sirva
saludos
LaMasFeita
22
Ayuda scripting IRcap / Activar/desactivar grupo
« Último mensaje por juanam en Febrero 24, 2017, 07:57:58 pm »
Estimados no recuerdo como activar y desactivar un grupo.
Este pequeño código es para saludar on join a un nick, pero que no repita el saludo si entra al canal el mismo nick.
El código de saludo funciona perfecto!

La duda es con activar y desactivar ese saludo.

Como hacer para que cuando yo escriba !saluda se active el grupo donde están los eventos On Join y On Nick y
cuando ponga !nosaluda se desactive ese grupo y no salude a nadie.

Intenté esto pero no funcionó:
Código: [Seleccionar]
ON *:START: {
  hmake tracknicks 10
  if ($isfile(tracknicks.dat)) {
    hload tracknicks tracknicks.dat
  }
}
on 1:INPUT:#: {
  if ($1 == !saluda) { .enable #greet |  /echo -s SALUDO ON }
  if ($1 == !nosaluda) ||  if ($1 == !autodj)  { .disable #greet  |  /echo -s SALUDO off }
}
.disable #greet
return

.enable #greet
on *:JOIN:#chathizpano-radio: {
   if ($hget(tracknicks,$address($nick,3))) {
    var %n = $ifmatch
    if ($istok(%n,$nick,32)) { return }
    else {
      hadd tracknicks $address($nick,3) %n $nick
      if ($me isop $chan) { msg  $chan 6Bienvenid@ 3 $nick 1 a 12«» 6Xxxx 12«»  6 |  .ignore -u10 $nick  }
    }
  }
  else {
    hadd tracknicks $address($nick,3) $nick
    if ($me isop $chan) { msg  $chan 6Bienvenid@ 3 $nick 1 a 12«» 6XXXXX  |  .ignore -u10 $nick  }
  }
}

on *:NICK: {
  if ($hget(tracknicks,$address($newnick,3))) {
    var %n = $ifmatch
    if (!$istok(%n,$newnick,32)) {
      hadd tracknicks $address($newnick,3) %n $newnick
    }
  }
  else {
    hadd tracknicks $address($nick,3) $newnick
  }
}
23
Ayuda scripting IRcap / Re:ayuda sobre nick completion dos colores cualquier parte
« Último mensaje por bassman en Febrero 16, 2017, 12:31:06 am »
lamasfeita muchisimas gracias!!! me funciono perfecto!!! se ve muy bien tanto en ircap como en la web y no me bloquea el setup, creo que esto es obra de TheMexicanForce!! dele mis felicitaciones y mi agradecimiento..................... y tambien para usted!!
24
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
25
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?
26
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!!
27
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 :)
28
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
29
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

30
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!!
Páginas: 1 2 [3] 4 5 ... 10