Mensajes recientes

Páginas: 1 2 3 [4] 5 6 ... 10
31
Ayuda scripting IRcap / Re:ayuda con codigo de lineas y stats
« Último mensaje por Hercules en Diciembre 22, 2018, 09:30:46 pm »
on 1:TEXT:*:#:{
  tokenize 32 $strip($1-)
  write logs/ $+ $chan $+ .mbt $nick $chr(91) $+ 6 $asctime(hh:nn) $asctime(dd/mm/yy) $+ ]: $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 1º .12 $+($gettok(%nicks,1,44),$chr(40),$gettok(%numeros,1,44),$chr (41)) }
      if ($gettok(%nicks,2,44)) { var %2nick = 1 2º .12 $+($gettok(%nicks,2,44),$chr(40),$gettok(%numeros,2,44),$chr (41)) }
      if ($gettok(%nicks,3,44)) { var %3nick =  1 3º .12 $+($gettok(%nicks,3,44),$chr(40),$gettok(%numeros,3,44),$chr (41)) }
      if ($gettok(%nicks,4,44)) { var %4nick = 1 4º .12 $+($gettok(%nicks,4,44),$chr(40),$gettok(%numeros,4,44),$chr (41)) }
      if ($gettok(%nicks,5,44)) { var %5nick = 1 5º .12 $+($gettok(%nicks,5,44),$chr(40),$gettok(%numeros,5,44),$chr (41)) }
      if ($gettok(%nicks,6,44)) { var %6nick = 1 6º .12 $+($gettok(%nicks,6,44),$chr(40),$gettok(%numeros,6,44),$chr (41)) }
      if ($gettok(%nicks,7,44)) { var %7nick = 1 7º .12 $+($gettok(%nicks,7,44),$chr(40),$gettok(%numeros,7,44),$chr (41)) }
      if ($gettok(%nicks,8,44)) { var %8nick = 1 8º .12 $+($gettok(%nicks,8,44),$chr(40),$gettok(%numeros,8,44),$chr (41)) }
      if ($gettok(%nicks,9,44)) { var %9nick = 1 9º .12 $+($gettok(%nicks,9,44),$chr(40),$gettok(%numeros,9,44),$chr (41)) }
      if ($gettok(%nicks,10,44)) { var %10nick = 1 10º . 12 $+($gettok(%nicks,10,44),$chr(40),$gettok(%numeros,10,44), $chr(41)) }
    }
    else { var %1nick = 1no hay nicks en los 4stats. }
    msg $chan   12[Estadisticas] 1del canal  6 $+ $chan $+   12Lineas: 1escritas por los usuarios  5 %1nick   3 %2nick  5  %3nick  6 %4nick  4 %5nick  2 %6nick  3 %7nick  4 %8nick  6 %9nick  5 %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/totallines.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 12Lineas 1escritas por los usuarios   1(  $+ $2 $+  1) 4 $readini (logs/top.ini,$chan,$2) 12 $iif($readini(logs/top.ini,$chan,$2) > 12 1,Lineas,Lineas) 1escritas en 12 $chan  ,1esta en la 12  $findtok(%nicks,$2,1,44)3 $+ º 1,posicion con un 12 %Por $+  %  1de Las Lineas del Canal 4,Frase  Aleatoria3 %frase2 }
      else { msg $chan 12Disculpa,1pero no tengo las estadisticas de 6 nick $2 1en 12 $chan $+ . }
    }
    else {
      var %lineas = $readini(logs/top.ini,$chan,$nick)
      var %frase = $r(1,%lines)
      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 %nicks = $iif(%nicks,%nicks $+ $chr(44)) $+ $iif($gettok(%b,1,61) !isin %nicks,$gettok(%b,1,61))}
      }
      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
        inc %a
      }
      if ($readini(logs/top.ini,$chan,$nick)) { msg $chan  1Hola 1-12 $+ $nick $+ 1-  1tienes un total de 4 $readini (logs/top.ini,$chan,$nick) 12 $iif($readini(logs/top.ini,$chan,$nick) > 12 1,Lineas,Lineas) 1escritas en 12 $chan  ,1estas en  la 4 $findtok(%nicks,$nick,1,44)3 $+ º ,1posicion con un  12 %Por $+  %  1de Las Lineas del Canal, 4Frase  Aleatoria3 %frase2
      }
      else { msg $chan 3Disculpa, 1pero no tengo las 12estadisticas 1de nick 6 $nick 1en 12 $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/totallines.ini,$chan,Total) + 1)
  }
}
32
Ayuda scripting IRcap / ayuda con codigo de lineas y stats
« Último mensaje por Hercules en Diciembre 22, 2018, 09:28:43 pm »
Hola buenas.a ver si me pueden hechar una mano con este codigo que meda error y no salen las lineas enlos canales y tampoco se puede
mirar las lineas de un usuario.

on 1:TEXT:*:#:{
  tokenize 32 $strip($1-)
  write logs/ $+ $chan $+ .mbt $nick $chr(91) $+ 6 $asctime(hh:nn) $asctime(dd/mm/yy) $+ ]: $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 1º .12 $+($gettok(%nicks,1,44),$chr(40),$gettok(%numeros,1,44),$chr (41)) }
      if ($gettok(%nicks,2,44)) { var %2nick = 1 2º .12 $+($gettok(%nicks,2,44),$chr(40),$gettok(%numeros,2,44),$chr (41)) }
      if ($gettok(%nicks,3,44)) { var %3nick =  1 3º .12 $+($gettok(%nicks,3,44),$chr(40),$gettok(%numeros,3,44),$chr (41)) }
      if ($gettok(%nicks,4,44)) { var %4nick = 1 4º .12 $+($gettok(%nicks,4,44),$chr(40),$gettok(%numeros,4,44),$chr (41)) }
      if ($gettok(%nicks,5,44)) { var %5nick = 1 5º .12 $+($gettok(%nicks,5,44),$chr(40),$gettok(%numeros,5,44),$chr (41)) }
      if ($gettok(%nicks,6,44)) { var %6nick = 1 6º .12 $+($gettok(%nicks,6,44),$chr(40),$gettok(%numeros,6,44),$chr (41)) }
      if ($gettok(%nicks,7,44)) { var %7nick = 1 7º .12 $+($gettok(%nicks,7,44),$chr(40),$gettok(%numeros,7,44),$chr (41)) }
      if ($gettok(%nicks,8,44)) { var %8nick = 1 8º .12 $+($gettok(%nicks,8,44),$chr(40),$gettok(%numeros,8,44),$chr (41)) }
      if ($gettok(%nicks,9,44)) { var %9nick = 1 9º .12 $+($gettok(%nicks,9,44),$chr(40),$gettok(%numeros,9,44),$chr (41)) }
      if ($gettok(%nicks,10,44)) { var %10nick = 1 10º . 12 $+($gettok(%nicks,10,44),$chr(40),$gettok(%numeros,10,44), $chr(41)) }
    }
    else { var %1nick = 1no hay nicks en los 4stats. }
    msg $chan   12[Estadisticas] 1del canal  6 $+ $chan $+   12Lineas: 1escritas por los usuarios  5 %1nick   3 %2nick  5  %3nick  6 %4nick  4 %5nick  2 %6nick  3 %7nick  4 %8nick  6 %9nick  5 %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/totallines.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 12Lineas 1escritas por los usuarios   1(  $+ $2 $+  1) 4 $readini (logs/top.ini,$chan,$2) 12 $iif($readini(logs/top.ini,$chan,$2) > 12 1,Lineas,Lineas) 1escritas en 12 $chan  ,1esta en la 12  $findtok(%nicks,$2,1,44)3 $+ º 1,posicion con un 12 %Por $+  %  1de Las Lineas del Canal 4,Frase  Aleatoria3 %frase2 }
      else { msg $chan 12Disculpa,1pero no tengo las estadisticas de 6 nick $2 1en 12 $chan $+ . }
    }
    else {
      var %lineas = $readini(logs/top.ini,$chan,$nick)
      var %frase = $r(1,%lines)
      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 %nicks = $iif(%nicks,%nicks $+ $chr(44)) $+ $iif($gettok(%b,1,61) !isin %nicks,$gettok(%b,1,61))}
      }
      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
        inc %a
      }
      if ($readini(logs/top.ini,$chan,$nick)) { msg $chan  1Hola 1-12 $+ $nick $+ 1-  1tienes un total de 4 $readini (logs/top.ini,$chan,$nick) 12 $iif($readini(logs/top.ini,$chan,$nick) > 12 1,Lineas,Lineas) 1escritas en 12 $chan  ,1estas en  la 4 $findtok(%nicks,$nick,1,44)3 $+ º ,1posicion con un  12 %Por $+  %  1de Las Lineas del Canal, 4Frase  Aleatoria3 %frase2
      }
      else { msg $chan 3Disculpa, 1pero no tengo las 12estadisticas 1de nick 6 $nick 1en 12 $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/totallines.ini,$chan,Total) + 1)
  }
}
33
Ayuda scripting IRcap / ayuda con remote de expulsiones /me y /ame
« Último mensaje por gigiana en Diciembre 21, 2018, 04:34:56 pm »
hola necesito de una ayuda.. porfavor..

tengo una salita y me gustaria ver si se podria prohibir los /me y /ame me explico:

cuando los usuarios pongan /me o /ame les de ban o expulse con un motivo que por favor no enviar /me ni /ame
por favor se que ustedes podrian ayudarme muchas gracias.
34
Ayuda scripting IRcap / Re:Nick Completion en el privado
« Último mensaje por _M3xiC4n0_ en Diciembre 18, 2018, 09:03:56 pm »
esa si me la se
35
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 05:06:26 pm »
si,eso ya se como va,lo que pasa ke me repetia varias veces el spam seguido.pero ya esta solucionado.gracias por tu ayuda.cierro el tema.
36
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Cadaver en Diciembre 18, 2018, 05:04:26 pm »
 :)
37
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 04:52:30 pm »
vale,amigo muchas gracias ,ya tengo la solucion.gracias de nuevo
38
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Cadaver en Diciembre 18, 2018, 04:38:16 pm »
Cita de: Hercules en Diciembre 18, 2018, 04:22:24 pm
hola de nuevo,hay un problema ahora,lo que pasa es que sale muy seguido el spam.podrias decirme como puedo acer para que salga cada 5 minutos?

El timer esta en el "on connect " el primer numeral después del timer es el numero de intervalos tienes "0" para infinito y el segundo numeral es para el intervalo en segundos de repetición para ponerlo cada "5" minutos pondremos "300".

Reemplaza:

Código: [Seleccionar]
On *:CONNECT:{
  joinall
  timernt 0 300 nt
}
39
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 04:22:24 pm »
hola de nuevo,hay un problema ahora,lo que pasa es que sale muy seguido el spam.podrias decirme como puedo acer para que salga cada 5 minutos?
40
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 04:14:50 pm »
gracias por tu ayuda cadaver.Lo  que me saca las noticias en el status no en el general.pero ahora si suelta.muchas gracias
Páginas: 1 2 3 [4] 5 6 ... 10
anything