// antiHOYGAN
// Script URI: http://www.nopuedocreer.com/quelohayaninventado/?page_id=203
// Description: "Filtro antiHOYGAN"
// Author: Dani "Troy" Gonzalez
// Version: 1.0
// Author URI: http://www.hevistocosas.com 

function RAErules (texto)
{
	swHOYGAN=false;
	msgError="";

	numLetras=texto.length;
	numMayusculas=0;
	for (i=0;i<numLetras;i++)
		if (texto.charAt(i)>='A' && texto.charAt(i)<='Z')
			numMayusculas++;
    if (numLetras>4 && numMayusculas>numLetras/4)			
    {
		swHOYGAN=true;
		msgError="Shift overload";
	}
	else
	{
		textoLower=texto.toLowerCase();
		textoLower=" "+textoLower;
		HOYGANseed = new Array("hoigan","fabor","kiero","grasias","antebraso"," ke "," k ","hahahahaha","jejejejeje","????","ggg","jjj","mmmm","nnnn","rrrr","xxxx","zzzz","ssss ","cojer","targeta","pajina","haser","chinga","habrir","pinche","pendejo","hamime","gratix","devo ","alluda","kisiera","conoser","agradeser","supcion","wey","apollo","hacesinato","ezperansa ","desaogarme "," ubo ","elejir","jajajajaja"," coje ","¡hoygan!","aaaaaaa","eeeeeee","iiiiiii","ooooooo","uuuuuuu","espesial","!!!!!!","dddddddddddddd"," nececi"," neseci"," nesesi","sinematica ","tampoko","probla","esplico","construit ","comprueva","agrdesco","aparéese","prosesador","aveces","aveses","buneas","alguine","utilisar"," avia ","expancion","pantaya","estava","volvelo"," chido","cansion","buenicima","ayudacen","atraviezo","prueven","bayance","lansada","tanbien","tambiem","tamvien"," ase ","vueno","ezacto","pringao","encerio","actualisacion","antevraso"," abitacion"," agas "," asiendo "," puto  "," ago "," prueva ","setiempre","buneas"," ai o ","hantebraso","hantemano","//ves//","aparesca","provado","analizis","leellendo","lellendo","DGEN","YMSULTAR","ADVERTENSIA","advertensia"," vercion","discucion","parese","haygan","profecionales"," lla ","lisensia","rason","Jalf-Laif","Resientemente","funsionaba","funsiona","inisiar","solusionar","Gra-sias","Ante-braso ","//plis//","//sierto//","haver","nobato","Pdata"," ocacion"," haci ","//ise//","//biene//","//dever//","bulgar","esacto","UndeadPatch","UndeadPach","hantebraso");
		for (i=0;i<HOYGANseed.length;i++)
		{
			if (textoLower.indexOf(HOYGANseed[i])!=-1)
			{
				swHOYGAN=true;
				msgError=HOYGANseed[i];
				break;
			}	
		}
	}
	if (swHOYGAN)
	{	
		alert ("ALERT: AntiHOYGAN Filter FAILED!\n\n>>Offending Command: \""+msgError+"\"\n\nRevise su mensaje y vuelva a intentarlo, por favor.\n\nSi el problema persiste, puede solucionarlo accediendo a:\nwww.RAE.es\nfrikipedia.es/friki/Hoygan");
		return false;
    }
    return true;
}