function checkUpper(msg_id){
	var txt=msg_id.value;
	var upper=0;
  if (txt.length>0){	
	for (i=0; i<txt.length; i++){
	 char_txt=txt.substr(i,1);
	 if (char_txt>="A" && char_txt<="Z")upper++;
	}
   if (upper>txt.length*0.5){
     alert ("Más de la mitad del Título de tu mensaje está escrito en mayúsculas. \n\nEn la web, las mayúsculas son como un GRITO, y a nadie le gusta que le griten. \n\nPor favor, usa las mayúsculas correctamente, sólo para inicio de frases y nombres propios.\n\nGracias.");
	 msg_id.focus();
     return false;
	 }
  }
return true;
}

function preventLongWords(msg_id){
	var txt=msg_id.value;
	var sp=0;
	var chr_count=0;
  if (txt.length>0){	
	for (i=0; i<txt.length; i++){
	 char_txt=txt.substr(i,1);
	 if (char_txt==" " || char_txt=="\n"){
	   chr_count=0; 
	   }
	 if (chr_count>255){sp++;chr_count=-1;}
	 if (chr_count!=-1)chr_count++;
	}
   if (sp>0){

     alert ("El título de tu mensaje contiene palabras demasiado largas. Hay  "+sp+"  palabra(s) de más de   255  caracteres. ");
	 msg_id.focus();
     return false;
	 }
  }
return true;
}

function validNcheck(){
	if (!checkUpper(document.getElementById('subject'))){
	  return false;
	 }
	
	
	if (!preventLongWords(document.getElementById('subject'))){
	  return false;
	 }

	if (!noCertainWords()){
	  return false;
	 }
	

return true;
}

function noCertainWords(){
var res=true;
words_arr=''; 
 words_arr=Array("Los mensajes con insultos o palabras mal sonantes no están permitidos en este foro","mierda","gilipollas","idiota","imbécil","imbecil","cabron","cabrón","hijo puta","cerdo");
 if (check_Word(words_arr)!=true)res=false; 
words_arr=''; 
 words_arr=Array("Los mensajes escritos como si fueran un SMS no están permitidos porque devalúan la calidad del foro. Por favor, haz un pequeño esfuerzo y escribe correctamente y sin abreviaciones.","q","kiero","ke","k");
 if (check_Word(words_arr)!=true)res=false; 
return res;
}

function check_Word(words_arr){
  var msg_val=document.getElementById('subject');
  var res2=true;
  if (!msg_val)return true;
  msg_val=msg_val.value+"\n";
  if (!msg_val)return true;
  msg_val=msg_val.toLowerCase();
  for (i=1; i<words_arr.length;i++){
  
  if (msg_val.indexOf(words_arr[i]+" ")!=-1 || msg_val==words_arr[i]){
       av=msg_val.indexOf(words_arr[i]+" ");

	   if (av<1)res2=false; else {
	      av=msg_val.substr(av-1,1);
	      if (av==" " || av=="\n" || av=="\r") res2=false; 
		  }
	 
	 } else{
     
	   if (msg_val.indexOf(words_arr[i])!=-1){
	      av2=msg_val.indexOf(words_arr[i]);
		  av=av2+words_arr[i].length;

		  if (msg_val.substr(av,1)=="\n" || msg_val.substr(av,2)=="\r\n"){
		    
			   if (av2<1)res2=false; else {
				   av=msg_val.substr(av2-1,1);
		    	   if (av==" " || av=="\n" || av=="\r") res2=false; 
				   }
			}
		  }
	 }
   
  }
 if (res2==false)alert (words_arr[0]);  
return res2;  
}