var preventL=0;
var preventC=0;
var preventU=0;
var preventNW=0;

var cr_return=0;
var cr_chars=0;
var	dot_chr=0;
var dot_cor=0;
var back_call="";
var cur_for=0;
var sp=0;
var chr_count=0;
var upper=0;
var cr=0;
var found_cr=0;

function initVarRest(){
	  preventL=0;
	  preventC=0;
      preventU=0;
	  preventNW=0;
	  ed_dt=document.getElementById("editor_dots")
	  if (ed_dt)ed_dt.innerHTML=" &nbsp";
	  dot_chr=0;
	  dot_cor=0;
	  back_call="";
}

 	initVarRest(); 

function addDot(){
dot_chr++;
res=dot_chr;
if (res<100 && res!=0)return false;
var ed_dot_div=document.getElementById("editor_dots");
//if (ed_dot_div.innerHTML=="......")ed_dot_div.innerHTML="."; else ed_dot_div.innerHTML+=".";
if (!res || res==1 || dot_cor>6){
	ed_dot_div.innerHTML="Please Wait.";
      //=".";
	   dot_chr=0;
	   dot_cor=0;
   }else {
     ed_dot_div.innerHTML+=".";
	 dot_cor++;
	} 
	 if (back_call){
	 //alert (back_call);
	     window.setTimeout(back_call,1);
	    }
	 dot_chr=0;
	 
	 return -1;
   
}

function checkNvalidat(msg_id,cur_for_start){
msg_id=document.getElementById(msg_id);
checkNvalidate(msg_id,cur_for_start);
}


function checkNvalidate(msg_id,cur_for_start){
	var txt=msg_id.value;
	dot_chr=0;
    if (cur_for_start<1){
	 dot_cor=0;
	 upper=0;
	 }

  if (txt.length>0){	
	for (i=cur_for_start; i<txt.length; i++){
	 back_call="checkNvalidat('"+msg_id.id+"',"+i+");";
	 rs=addDot();
	 if (rs==-1)return false;
	 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 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();
	 initVarRest();
     return false;
	 }
  }

 preventU=1;
 if (cur_for_start<1)return true;
 return_message();
}

function preventCf(msg_id,cur_for_start){
msg_id=document.getElementById(msg_id);

preventCr(msg_id,cur_for_start);
}

function preventCr(msg_id,cur_for_start){
	var txt=msg_id.value + "\r\n\r\n";
	dot_chr=0;
    if (cur_for_start<1){
	 dot_cor=0;
	 cr=0;
	 found_cr=0;
	 chr_count=0;
	 }
//alert (cur_for_start + "   " + chr_count + "  " + found_cr);
	var char_lim=PREVENT_NO_CR_CHARS;
if (cr_return==0 || (cr_chars<txt.length-50 || cr_chars>txt.length+50)){
    do_check=1;
	}else do_check=0;	
  if (txt.length>0){	
	for (i=cur_for_start; i<txt.length; i++){
	 back_call="preventCf('"+msg_id.id+"',"+i+");";
	 rs=addDot();
	 if (rs==-1)return false;
	 char_txt=txt.substr(i,2);
	 if (char_txt=="\n\n" || txt.substr(i,4)=="\r\n\r\n"){
	  if (chr_count!=-2){
	       chr_count=-2; 
	       found_cr++;
	     }
	   }else if (chr_count==-2)chr_count=0;
	if (do_check==1){
	 if (chr_count>PREVENT_NO_CR_CHARS){cr++;chr_count=0;}
	 
	 }
	 if (chr_count>=0)chr_count++;
	}
   if (do_check==0){
      cr=cr_return-found_cr;
      }else {
	  cr_return=cr+found_cr;
	  cr_chars=txt.length;
	  }
   if (cr>0){
     
     alert ("El mensaje que intentas enviar es extenso y, sin embargo, está distribuido en s�lo "+found_cr+" párrafo(s). \n\nEsto haría que fuera muy difícil y molesto leerlo en el foro. Para evitarlo, por favor distribuye el texto en, al menos, "+(cr + found_cr) +" parrafos separados entre ellos por una línea en blanco. (Pulsa la tecla Intro dos veces para añadir una línea en blanco)\n\nGracias."); 
	 msg_id.focus();
	 initVarRest();
     return false;
	 }
  }
 if (cur_for_start<1)return true;
 preventC=1;
 return_message();

}

function preventLongWord(msg_id,cur_for_start){
msg_id=document.getElementById(msg_id);
preventLongWords(msg_id,cur_for_start);
}

function preventLongWords(msg_id,cur_for_start){
	var txt=msg_id.value;

	dot_chr=0;
    if (cur_for_start<1){
	  dot_cor=0;
	  sp=0;
	  chr_count=0;
	  }
  if (txt.length>0){	
	for (i=cur_for_start; i<txt.length; i++){
 	 back_call="preventLongWord('"+msg_id.id+"',"+i+");";
	 rs=addDot();
	 if (rs==-1)return false;
	 char_txt=txt.substr(i,1);
	 if (char_txt==" " || char_txt=="\n"){
	   chr_count=0; 
	   }
	 if (chr_count>CHECK_NO_SPACES_CHARS){sp++;chr_count=-1;}
	 if (chr_count!=-1)chr_count++;
	}
   if (sp>0){

     alert ("Tu mensajes contiene palabras demasiado largas. Hay  "+sp+"  palabra(s) de más de  CHECK_NO_SPACES_CHARS  caracteres. "); 
	 msg_id.focus();
	 initVarRest();
     return false;
	 }
  }
 if (cur_for_start<1)return true;
 preventL=1;
 return_message();
}

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","estafa","estafador","mierda","cerdo","subnormal","siglhogar","siglohogar","ayala","absolute","absolutebeds","absolutebeds.com","Absolute-Beds","forodormir.com","forodormir");
 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","muxo");
 if (check_Word(words_arr)!=true)res=false; 
words_arr=''; 
 words_arr=Array("A causa de las presiones y amenazas de Ediciones Rueda, no permitimos en ForoColchon.com la publicación de mensajes en los que se les aluda. Saquen ustedes sus propias conclusiones.","ediciones rueda");
 if (check_Word(words_arr)!=true)res=false; 
words_arr=''; 
 words_arr=Array("Naturconfort ha publicado varios mensajes en ForoColchon.com en los que simula una conversación entre varios usuarios, pero que corresponden a una misma y única persona. Por estos motivos, no permitimos la publicación de mensajes en los que se les aluda. Si quiere hacer alguna aclaración, póngase en contacto con nosotros en info@colchones.com.","naturconfort","Natur confort");
 if (check_Word(words_arr)!=true)res=false; 
words_arr=''; 
 words_arr=Array("Perlasalute ha publicado varios mensajes en ForoColchon.com en los que simula una conversación entre varios usuarios, pero que corresponden a una misma y única persona. Por estos motivos, no permitimos la publicación de mensajes en los que se les aluda. Si quiere hacer alguna aclaración, póngase en contacto con nosotros en info@colchones.com.","perlasalute","perla salute");
 if (check_Word(words_arr)!=true)res=false; 
words_arr=''; 
 words_arr=Array("A causa de la constante y baldía polémica que suscitan, no se permite la publicación de mensajes relacionados con menssana o aupper","menssana","aupper");
 if (check_Word(words_arr)!=true)res=false; 
preventNW=1;
return res;
}

function check_Word(words_arr){
  var msg_val=document.getElementById('message');
  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;  
}