Responder al mensaje

Advertencia: No se ha publicado ninguna respuesta a este tema desde hace 40 días como mínimo.
A menos que estés seguro de que quieres responder, por favor, considera el empezar un nuevo tema.

Nota: este mensaje no se mostrará hasta que sea aprobado por un moderador.

Nombre:
Email:
Asunto:
Icono del mensaje:

Verificación:
Escribe las letras mostradas en la imagen
Escuchar el texto / Solicitar otra imagen

Escribe las letras mostradas en la imagen:
¿Cuánto es uno menos uno? (en letra y en minúscula):

teclas método abreviado (sólo IE y Mozilla): presiona alt+s para enviar formulario/publicar o alt+p para previsualizar


Sumario de Temas

Publicado por: Diablo
« en: Junio 16, 2019, 08:38:19 pm »

Ya  se que es de hace 5 años  y que alguno dira lo de siempre

Yo, realmente me he incorporado al scripting hace muy poco , como hace un año, pero como todos podemos poner nuestro granito de arena, ahi va el mio , contestando a una pregunta de hace 5 años , y que el user  no ha entrado desde el 2017 , a mi me ha servido, si le ayuda a otro pues mejor , sino  me ha servido para aprender un poco mas

on *:text:*:#: {
  if ($2 == $null) && ($read($scriptdirantimayus.txt,w,$left($1,2) $+ *) != $null) return
  var %a = $numtok($1-,32)
  var %b = 1
  :bucle
  var %c = $gettok($1-,%b,32)
  if ( %c ison # ) { inc %b | goto bucle }
  var %d = %d %c
  if ( %b > %a ) { goto continua }
  inc %b
  goto bucle
  :continua

  var %lon_frase = $len(%d)
  var %lon_frase_sin_may = $len($removecs(%d,A,B,C,D,E,F,G,H,I,J,K,L,M,N,Ñ,O,P,Q,R,S,T,U,V,W,X,Y,Z))
  If ( $me isop # ) && ( $nick !isop # ) && ( %lon_frase >= 12 ) && ( $calc(((%lon_frase - %lon_frase_sin_may) * 100 ) / %lon_frase ) > 75 ) {
    inc %_cuenta. [ $+ [ $nick ] ]
    if (%_cuenta. [ $+ [ $nick ] ] == 1) { msg # $nick 1Por favor desactive las mayúsculas, además de ser molestas en Internet se considera como gritar 1AVISO | /timer 1 300 unset %_cuenta. [ $+ [ $nick ] ] }
    if (%_cuenta. [ $+ [ $nick ] ] == 2) { msg # $nick 1 Ya le hemos 4AVISADO 1, en breves momentos entrara , la proxima vez no sera igual | Ban -u300 $chan $address($nick,2) | /timer 1 1800  unset %_cuenta. [ $+ [ $nick ] ] }     
    if (%_cuenta. [ $+ [ $nick ] ] == 3) { msg # $nick 1 Ya le habiamos 4AVISADO 1La Proxima Vez Vuelva Sin Mayusculas | ban -u3600 $chan $address($nick,2) | kick $chan $nick | unset %_cuenta. [ $+ [ $nick ] ] }
  }
}

Esa es mi modesta  aportacion
1º a los 300 segundos le quito el unset , podria ser simplemente un error  en verde
2º lo que esta en rojo , le aviso de baneo por 2º vez , yo le he puesto  300 segundos, y le retiro el tiempo en media hora ,en rojo
3º en el ultimo tramo  se le retira el unset azul

Como siempre, cada cual que administre el tiempo, como crea conveniente
Y os agradezco a todos  vuestras aportaciones y sobre todo las mejoras que se van viendo y juzgarme muy venebolamente
Publicado por: PaToLoko
« en: Junio 14, 2014, 01:56:20 am »

bueno probando al ver que a poner /auser 10 y el nick si escribe en mayusculas le saltan = que podria hacer con eso ?
Publicado por: PaToLoko
« en: Junio 13, 2014, 10:14:06 pm »

ya lo tengo solucionado
Publicado por: PaToLoko
« en: Junio 13, 2014, 09:23:19 pm »

No se como explicarme sobre este tema ya va bien el codigo de mayusculas ya no saltan cuando ponen un nick en mayusculas pero el fallo esta que si ponen mayusculas saltan pero si ya no ponen mas en ese dia cuando entra al dia siguiente con el mismo nick sigue la cuenta que lo banea lo que yo kisiera saber ponerle que borrara la cuenta cada 2 horas un ejemplo: HOLAAAAAAAAAAAAAAAAAA y si en 2 horas ya no han puesto mas mayusculas que borrara la cuenta aqui dejo el codigo

Código: [Seleccionar]
on *:text:*:#akitucanal: {
  if ( $nick isop $chan ) || ( $nick isvoice $chan ) { return }
  var %FraseCompleta = $strip($remove($1-,:))
  var %a = $numtok($1-,32)
  var %b = 1
  while (%b <= %a) {
    if ($gettok(%FraseCompleta,%b,32) ison #akitucanal) var %FraseCompleta = $remove(%FraseCompleta,$gettok(%FraseCompleta,%b,32))
    else if (xDD isin $gettok(%FraseCompleta,%b,32)) var %FraseCompleta = $remove(%FraseCompleta,$gettok(%FraseCompleta,%b,32))
    inc %b
  }
  var %b = 1
  :bucle
  var %c = $gettok(%FraseCompleta,%b,32)
  if ( %c ison #akitucanal ) { inc %b | goto bucle }
  var %d = %d %c
  if ( %b > %a ) { goto continua }
  inc %b
  goto bucle
  :continua

  var %lon_frase = $len(%d)
  var %lon_frase_sin_may = $len($removecs(%d,A,B,C,D,E,F,G,H,I,J,K,L,M,N,Ñ,O,P,Q,R,S,T,U,V,W,X,Y,Z))
  If ( $me isop #akitucanal ) && ( $nick !isop #akitucanal ) && ( %lon_frase >= 12 ) && ( $calc(((%lon_frase - %lon_frase_sin_may) * 100 ) / %lon_frase ) > 40 ) {
    inc %_cuenta. [ $+ [ $nick ] ]
    if (%_cuenta. [ $+ [ $nick ] ] == 1) { msg # 4 $nick 2Por favor desactive las mayúsculas, además de ser molestas en Internet se considera como gritar. }
    if (%_cuenta. [ $+ [ $nick ] ] == 2) { Ban -u60 $chan $address($nick,2) #akitucanal }
    if (%_cuenta. [ $+ [ $nick ] ] == 3) { ban -u3600 $chan $address($nick,2) | kick $chan $nick 2Cuando vuelvas a entrar escribe en minúsculas. | unset %_cuenta. [ $+ [ $nick ] ] }
  }
}
lo que yo kiero en el 1º aviso si dentro de 2 horas no vuelve a escribir en mayusculas lo borrara
Publicado por: Zentinel
« en: Enero 10, 2014, 12:19:38 pm »

Buenas yo tengo este codigo y bueno... creo k la solución es esta yo lo estoy probando y creo k funciona tengo k mirarlo 100%
on *:text:*:#canal: {
 if ($2 == $null) && ($read($scriptdirantimayus.txt,w,$left($1,2) $+ *) != $null) return
  var %a = $numtok($1-,32)
  var %b = 1
  :bucle
  var %c = $gettok($1-,%b,32)
  if ( %c ison #canal ) { inc %b | goto bucle }
  var %d = %d %c
  if ( %b > %a ) { goto continua }
  inc %b
  goto bucle
  :continua

  var %lon_frase = $len(%d)
  var %lon_frase_sin_may = $len($removecs(%d,A,B,C,D,E,F,G,H,I,J,K,L,M,N,Ñ,O,P,Q,R,S,T,U,V,W,X,Y,Z))
  If ( $me isop # ) && ( $nick !isop # ) && ( %lon_frase >= 12 ) && ( $calc(((%lon_frase - %lon_frase_sin_may) * 100 ) / %lon_frase ) > 75 ) {
    inc %_cuenta. [ $+ [ $nick ] ]
    if (%_cuenta. [ $+ [ $nick ] ] == 1) { msg # $nick 1 Por favor desactive las mayúsculas, además de ser molestas en Internet se considera como gritar }
    if (%_cuenta. [ $+ [ $nick ] ] == 2) { Ban -u60 $chan $address($nick,2) #canal }   
    if (%_cuenta. [ $+ [ $nick ] ] == 3) { ban $chan $address($nick,2) | kick $chan $nick 1La Proxima Vez Vuelva Sin Mayusculas | unset %_cuenta. [ $+ [ $nick ] ] }

Esto es lo que yo e añadido un txt con el nombre antimayus.txt que lo tienes que meter en el directorio de tu script " if ($2 == $null) && ($read($scriptdirantimayus.txt,w,$left($1,2) $+ *) != $null) return " y dentro pones las palabras que no quieras que avise.

Por ejemplo...
JAJAJAJA
xDDDDD
:D:D:D:D:D
cosas asi
Publicado por: S|Lv3R
« en: Enero 06, 2014, 02:12:26 pm »

Si, esas protecciones las pusé yo porque le pasaba eso y no se solucionó xDD
Publicado por: PaToLoko
« en: Diciembre 21, 2013, 04:27:58 am »

Buenas tengo una protes de mayusculas que la pusieron en un tema de aqui
on *:text:*:#canal: {

  var %a = $numtok($1-,32)
  var %b = 1
  :bucle
  var %c = $gettok($1-,%b,32)
  if ( %c ison #canal ) { inc %b | goto bucle }
  var %d = %d %c
  if ( %b > %a ) { goto continua }
  inc %b
  goto bucle
  :continua

  var %lon_frase = $len(%d)
  var %lon_frase_sin_may = $len($removecs(%d,A,B,C,D,E,F,G,H,I,J,K,L,M,N,Ñ,O,P,Q,R,S,T,U,V,W,X,Y,Z))
  If ( $me isop # ) && ( $nick !isop # ) && ( %lon_frase >= 12 ) && ( $calc(((%lon_frase - %lon_frase_sin_may) * 100 ) / %lon_frase ) > 75 ) {
    inc %_cuenta. [ $+ [ $nick ] ]
    if (%_cuenta. [ $+ [ $nick ] ] == 1) { msg # $nick 1 Por favor desactive las mayúsculas, además de ser molestas en Internet se considera como gritar }
    if (%_cuenta. [ $+ [ $nick ] ] == 2) { Ban -u60 $chan $address($nick,2) #canal }   
    if (%_cuenta. [ $+ [ $nick ] ] == 3) { ban $chan $address($nick,2) | kick $chan $nick 1La Proxima Vez Vuelva Sin Mayusculas | unset %_cuenta. [ $+ [ $nick ] ] }

pero ponen por ejemplo JAJAJAJAJA ya saltan kisiera saber que tengo que tocarle para que no me salte con eso que me salte por ejemplo con esto JAJAJAJAJAJAJAJAJA