Mensajes recientes

Páginas: 1 2 3 [4] 5 6 ... 10
31
Ayuda scripting IRcap / Re:Primera letra de escritura en negrita
« Último mensaje por _M3xiC4n0_ en Marzo 14, 2019, 11:47:48 pm »
para mas ayuda entra a la sala #msl de chatzona
32
Ayuda scripting IRcap / Re:ayuda con codigo de lineas y stats
« Último mensaje por CabLac en Marzo 14, 2019, 09:06:08 pm »
Cadaver ¡Buenas! Gracias por tu aporte, supongo que esto es asi, como en todo trabajo.

Tu codigo funciona perfectamente, miles de gracias, solo que hay un inconveniente!

Cuando usas el comando !actualiza en una sala de 200 o 300 usuarios por ejemplo, aparece  este error.
* /set: line too long (line 7, script12.mrc)

en cambio en una sala con 10 usuarios funciona bien ¿Alguna solucion para ello?

¡Gracias de ante mano! Abrazo Cadaver :)
33
Ayuda scripting IRcap / Re:ayuda con codigo de lineas y stats
« Último mensaje por Cadaver en Marzo 14, 2019, 07:06:20 pm »
Ya lo volví a revisar y le hice algunas correcciones, aquí esta el código y el resultado.

Código: [Seleccionar]
on 1:TEXT:*:#:{
  tokenize 32 $strip($1-)
  write logs/ $+ $chan $+ .mbt $+([,$asctime(dd/mm/yy),$chr(160),$asctime(hh:nn),]) $+(<,$nick,>) $1-
  if ( $1 == !actualiza ) {
    var %x = 1
    while (%x <= $ini(logs/top.ini,$chan,0)) {
      var %y = $iif(%y,%y $+ $chr(44)) $+ $readini(logs/top.ini,$chan,$ini(logs/top.ini,$chan,%x))
      inc %x
    }
    var %z = $sorttok(%y,44,nr)
    var %numeros = $gettok(%z,1-10,44)
    var %a = 1
    while (%a <= $numtok(%numeros,44)) {
      var %b = $read(logs/top.ini,w,*= $+ $gettok(%numeros,%a,44))
      if ($istok(%c,$readn,32)) { var %b = $read(logs/top.ini,w,*= $+ $gettok(%numeros,%a,44), $calc(%d +1)) }
      var %c = %c $readn, %d = $readn
      if ($gettok(%b,1,61) !isin %nicks) {
        if ($chr(126) isin $gettok(%b,1,61)) {
          if (%top10. [ $+ [ $gettok(%b,1,61) ] ]) { var %nicks = $iif(%nicks,%nicks $+ $chr(44)) $+ %top10. [ $+ [  $gettok (%b,1,61) ] ] }
          else { var %nicks = $iif(%nicks,%nicks $+ $chr(44)) $+ $gettok(%b,1,61) }
        }
        else { var %nicks = $iif(%nicks,%nicks $+ $chr(44)) $+ $gettok(%b,1,61) }
      }
      inc %a
    }
    if (%nicks) {
      if ($gettok(%nicks,1,44)) { var %1nick = 1º $gettok(%nicks,1,44) $+($chr(40),,$gettok(%numeros,1,44),,$chr(41)) }
      if ($gettok(%nicks,2,44)) { var %2nick = 2º $gettok(%nicks,2,44) $+($chr(40),,$gettok(%numeros,2,44),,$chr(41)) }
      if ($gettok(%nicks,3,44)) { var %3nick = 3º $gettok(%nicks,3,44) $+($chr(40),,$gettok(%numeros,3,44),,$chr(41)) }
      if ($gettok(%nicks,4,44)) { var %4nick = 4º $gettok(%nicks,4,44) $+($chr(40),,$gettok(%numeros,4,44),,$chr(41)) }
      if ($gettok(%nicks,5,44)) { var %5nick = 5º $gettok(%nicks,5,44) $+($chr(40),,$gettok(%numeros,5,44),,$chr(41)) }
      if ($gettok(%nicks,6,44)) { var %6nick = 6º $gettok(%nicks,6,44) $+($chr(40),,$gettok(%numeros,6,44),,$chr(41)) }
      if ($gettok(%nicks,7,44)) { var %7nick = 7º $gettok(%nicks,7,44) $+($chr(40),,$gettok(%numeros,7,44),,$chr(41)) }
      if ($gettok(%nicks,8,44)) { var %8nick = 8º $gettok(%nicks,8,44) $+($chr(40),,$gettok(%numeros,8,44),,$chr(41)) }
      if ($gettok(%nicks,9,44)) { var %9nick = 9º $gettok(%nicks,9,44) $+($chr(40),,$gettok(%numeros,9,44),,$chr(41)) }
      if ($gettok(%nicks,10,44)) { var %10nick = 10º $gettok(%nicks,10,44) $+($chr(40),,$gettok(%numeros,10,44),,$chr(41)) }
    }
    else { var %1nick = No tengo estadisticas por el momento. }
    msg $chan [Estadisticas del canal $+($chan,]) Lineas escritas por los usuarios: %1nick %2nick %3nick %4nick %5nick %6nick %7nick %8nick %9nick %10nick
  }
  if ( $1 == !lineas ) {
    if ($2) {
      var %lineas = $readini(logs/top.ini,$chan,$2)
      var %frase = $r(1,%lineas)
      var %frase2 = $read(logs/ $+ $chan $+ .mbt, w,* $+ $2 $+ *,%frase)
      var %total = $readini(Logs/totallineas.ini,$chan,Total)
      var %Por = $round($calc($calc(%lineas * 100) / %total),2)
      var %x = 1
      while (%x <= $ini(Logs/top.ini,$chan,0)) {
        var %y = $iif(%y,%y $+ $chr(44)) $+ $readini(Logs/top.ini,$chan,$ini(logs/top.ini,$chan,%x))
        inc %x
      }
      var %numeros = $sorttok(%y,44,nr)
      var %a = 1
      while (%a <= $numtok(%numeros,44)) {
        var %b = $read(logs/top.ini,w,*= $+ $gettok(%numeros,%a,44))
        if ($istok(%c,$readn,32)) { var %b = $read(logs/top.ini,w,*= $+ $gettok(%numeros,%a,44), $calc(%d +1)) }
        var %c = %c $readn, %d = $readn
        var %nicks = $iif(%nicks,%nicks $+ $chr(44)) $+ $iif($gettok(%b,1,61) !isin %nicks,$gettok(%b,1,61))
        inc %a
      }

      if ($readini(logs/top.ini,$chan,$2)) { msg $chan $+(,$2,) ha escrito $+($chr(40),,$readini(logs/top.ini,$chan,$2),,$chr(41)) $iif($readini(logs/top.ini,$chan,$2) > 1,lineas,linea) en $+(,$chan,) y esta en la posicion $+(#,$findtok(%nicks,$2,1,44),) con un $+(,%Por,$chr(37),) de las lineas escritas en el canal. Frase aleatoria %frase2 }
      else { msg $chan Disculpa pero no tengo las estadisticas de $+(,$2,) en $+(,$chan,,.) }
    }
    else {
      var %lineas = $readini(logs/top.ini,$chan,$nick)
      var %frase = $r(1,%lineas)
      var %frase2 = $read(logs/ $+ $chan $+ .mbt, w,* $+ $nick $+ *,%frase)
      var %total = $readini(Logs/totallineas.ini,$chan,Total)
      var %Por = $round($calc($calc(%lineas * 100) / %total),2)
      var %x = 1
      while (%x <= $ini(logs/top.ini,$chan,0)) {
        var %y = $iif(%y,%y $+ $chr(44)) $+ $readini(Logs/top.ini,$chan,$ini(logs/top.ini,$chan,%x))
        inc %x
      }
      var %numeros = $sorttok(%y,44,nr)
      var %a = 1
      while (%a <= $numtok(%numeros,44)) {
        var %b = $read(logs/top.ini,w,*= $+ $gettok(%numeros,%a,44))
        if ($istok(%c,$readn,32)) { var %b = $read(logs/top.ini,w,*= $+ $gettok(%numeros,%a,44), $calc(%d +1)) }
        var %c = %c $readn, %d = $readn
        var %nicks = $iif(%nicks,%nicks $+ $chr(44)) $+ $iif($gettok(%b,1,61) !isin %nicks,$gettok(%b,1,61))}
        inc %a
      }
      if ($readini(logs/top.ini,$chan,$nick)) { msg $chan $+(,$nick,) tienes un total de $+($chr(40),,$readini(logs/top.ini,$chan,$nick),,$chr(41)) $iif($readini(logs/top.ini,$chan,$nick) > 1,lineas,linea) escritas en $+(,$chan,,) y estas en la posicion $+(#,$findtok(%nicks,$nick,1,44),) con un $+(,%Por,$chr(37),) de las lineas escritas en el canal. Frase aleatoria %frase2
      }
      else { msg $chan $+(,$nick,) no has escrito nada en $+(,$chan,,.) }
    }
  }
  else {
    writeini -n logs/top.ini $chan $nick $calc($readini(logs/top.ini,$chan,$nick) + 1)
    writeini -n logs/totallineas.ini $chan Total $calc($readini(logs/totallineas.ini,$chan,Total) + 1)
  }
}

34
Ayuda general IRcap / Nick completion, addon nicks y addon privados
« Último mensaje por alya en Marzo 14, 2019, 03:45:52 pm »
Ante todo disculpas si ya lo han preguntado, pero por más que lo pongo en el buscador, no encuentro lo que quiero.

Me gustaría saber cómo poner el nick completion para que salga el nick de la persona en negrita y sin separadores,y ya puestos, para que salga así tanto al comienzo de la frase como en cualquier lugar de la frase.

También preguntaos sobre udos addons que tuve hace tiempo y soy incapaz de encontrarlos de nuevo (y los perdí): el primero es un addon que cuando entra un nick te dice todos sus nicks anteriores (es mucho más completo que con el básico que sale por defecto de "entro antes como")
El segundo addon que busco es un opara cuando tienes activado el antiprivado y te privan, te sale en status lo que te dicen: es decir, te abren privado, salta tu frase de antiprivado pero lees lo que te han puesto.

Muchas gracias de antemano y de nuevo perdón si ya existían post con estas dudas.
35
Ayuda scripting IRcap / Re:ayuda con codigo de lineas y stats
« Último mensaje por CabLac en Marzo 14, 2019, 01:20:30 am »
Buenas, resulta que estaba buscando unas estadisticas y he dado con este post, el codigo tiene 2 fallos que  estoy intentando solucionar y no doy con ello.

1. Cuando queremos ver las lineas con el comando !lineas no te dice el numero de posicion, aparece esto --->  Hola -CabLac- tienes un total de  escritas en #canal ,estas en la  º ,posicion con un  2900% de Las Lineas del Canal, Frase Aleatoria


2. El bot esta configurado para una sala sola por ejemplo y te cuenta lineas de otras salas donde el bot no esta actuando

3. ¿Mi pregunta es si esos dos errores del codigo tienen solucion? ¡Gracias!

4. Soy nuevo en esto, me defiendo un poco, muy poquito la verdad. Disculpar las molestias. Gracias de ante mano.
36
Ayuda scripting IRcap / Re:Primera letra de escritura en negrita
« Último mensaje por DanielGuzman07 en Marzo 09, 2019, 01:18:35 pm »
Gracias, fue de gran ayuda, muy amable :D
37
Ayuda scripting IRcap / Re:Primera letra de escritura en negrita
« Último mensaje por Cadaver en Marzo 08, 2019, 06:24:39 pm »
Funciona, solo inicia mIRC y oprime ALT + R se abrirá la ventana de dialogo si no quieres tocar ningún otro remote oprime ALT + F + N para crear uno nuevo pega ahí y oprime ALT + F + S para guardar y es todo.
38
Ayuda scripting IRcap / Primera letra de escritura en negrita
« Último mensaje por DanielGuzman07 en Marzo 02, 2019, 08:41:47 pm »
Hola disculpen la ignorancia pero para este script mi pregunta es en que parte de los remotes va? y ya que la activacion de .enable #mitxt no me funciona entonces realmente es mi cuestion aqui.

#Mitxt off
on *:input:*: {
  if ($left($1,1) != /) {
    Var %i = 1
    Var %t.ini = 14
    Var %t.txt = 12
    Var %nick01 = $1 $+
    var %mitxt, %v
    while ($gettok($1-,%i,32)) { %v = $v1 |  if ($hget(corrector,%v)) {  %mitxt = %mitxt $v1 |  goto fin } | %mitxt = %mitxt $iif(%v ison $chan,$+ %v $+ ,$+($chr(15),$chr(3),%t.ini,$lower($left(%v,1)),$chr(2),$chr(3),,%t.txt,$mid(%v,2,1000)))) | :fin | Inc %i }
    { say %mitxt $+ | %frase^halt = on  }
  }
}
#Mitxt end
menu channel {
  -
  Colorea Letras
  .. activar colores: .enable #mitxt
  .. desactivar colores: .disable #mitxt
}
39
Ayuda general IRcap / Ayuda
« Último mensaje por Jam en Febrero 17, 2019, 01:02:59 am »
buenas noches, quiero unirme pero me rechaza, dice que mi correo es  un Spam :-[
40
Ayuda general IRcap / Re:autocontestador
« Último mensaje por mask man en Febrero 04, 2019, 05:10:55 pm »
y ¿cual mas lo tienen? tengo tambien el kvirc pero no veo la opcion,si esque existe claro
Páginas: 1 2 3 [4] 5 6 ... 10