Foro IRcap

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 ] ] }
  }
}