Autor Tema: codigo no me funciona en ircap pero en otro scritp si  (Leído 1012 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Mariio1692

  • Visitante
codigo no me funciona en ircap pero en otro scritp si
« en: Octubre 14, 2015, 11:36:21 pm »
tengo el codigo de arandy que puso en este foro pero cuando lo pongo para que avise por notice no me funciona pero en otro scritp si

Código: [Seleccionar]
menu channel {
  $iif($group(#Anti-Ecaps) == on,$style(1) Anti-Ecaps  ON,Anti-Ecaps OFF) { $iif($group(#Anti-Ecaps) == on, .disable  #Anti-Ecaps, .enable #Anti-Ecaps) }
  -
}
#Anti-Ecaps on
on *:text:*:#probandoo: {
  var %a = $numtok($1-,32)
  var %b = 1
  :bucle
  var %c = $gettok($1-,%b,32)
  if ( %c ison #probandoo ) { 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 #probandoo ) && ( $nick !isop #probandoo ) && ( %lon_frase >= 4 ) && ( $calc(((%lon_frase - %lon_frase_sin_may) * 100 ) / %lon_frase ) > 75 ) {
    inc %_cuenta. [ $+ [ $nick ] ]
    if (%_cuenta. [ $+ [ $nick ] ] == 1) { notice $nick [12Aviso #11] --> Por favor, 12Desactiva 1las 12Mayúsculas 1No Estan Permitidas en el Canal.   }
    if (%_cuenta. [ $+ [ $nick ] ] == 2) { notice $nick [12Aviso #21] --> Por favor, 12Desactiva 1las 12Mayúsculas 1No Estan Permitidas en el Canal.   }
    if (%_cuenta. [ $+ [ $nick ] ] == 3) { ban -u120 $chan $address($nick,2) | msg $chan 1[12 $+ $nick $+ 1] 1-> (Desactiva las Mayusculas. NO Estan Permitidas en el Canal. [TB]: 2 Minutos.) | unset %_cuenta. [ $+ [ $nick ] ] }
  }
}
#Anti-Ecaps end