1
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
Mensajes recientes
2
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
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
3
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)
}
}
4
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.
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.
5
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 
6
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.
7
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
}
#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
}
8
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
9
Ayuda IRC y otras cosas relacionadas / ircs con automensaje privados
« Último mensaje por mask man en Enero 28, 2019, 09:52:45 pm »buenas tengo mirc y lo tiene pero no encuentro ninguno mas,a ver si alguien puede ayudarme
10
Ayuda scripting IRcap / Re:texto bicolor en el comando /ame y /me
« Último mensaje por Malevo en Enero 27, 2019, 02:44:16 pm »para Sabelonada
me he tomado mi tiempo porque no quería hablar de lo que no sabía
He intentado leer todo lo que hay en la red sobre scripting; Y la verdad es que alguna idea he adquirido, pero sería incapaz de redactar, y mucho menos poner en funcionamiento un script. Los que saben de esto creen estar en posesión del Santo Grial, y su enorme vanidad les pone de los nervios si tu pretendes copiar/modificar algo de ellos
Ademas los que escriben bots , los llenan de agujeritos y recovecos para entrar con ellos, (un poc de asquito, dan, la verdad)
Total, que todas las vacas son tuyas, ...menos la colorada
me he tomado mi tiempo porque no quería hablar de lo que no sabía
He intentado leer todo lo que hay en la red sobre scripting; Y la verdad es que alguna idea he adquirido, pero sería incapaz de redactar, y mucho menos poner en funcionamiento un script. Los que saben de esto creen estar en posesión del Santo Grial, y su enorme vanidad les pone de los nervios si tu pretendes copiar/modificar algo de ellos
Ademas los que escriben bots , los llenan de agujeritos y recovecos para entrar con ellos, (un poc de asquito, dan, la verdad)
Total, que todas las vacas son tuyas, ...menos la colorada