var mensajeActual="";
var mensajeAux="";
var mensajeMinus="";
var deshacerActivo=0;

function comprobar(){
if (deshacerActivo !=1){
comprimir()
} else {
deshacer()
}

}
function esMayuscula(l) {
var letras="ABCDEFGHIJKLMNÑOPQRSTUVWXYZ";
if (letras.indexOf(l)!=-1) { return true;}
return false;
}

function esMayusculaPalabra(p) {
for (i=0; i<(p.length); i++) {
if (!esMayuscula(p.substring(i,i+1))) { return false; }
}
return true;

}

function sustituye(x,y) {
var submens="";
var auxmens="";	
var pos=mensajeMinus.indexOf(x);
if (pos==-1) return;
var auxpos=0;
while (pos!=-1) {
if (pos!=0) {auxmens=auxmens+mensajeActual.substring(auxpos,pos);}
else {auxmens="";}				
if (esMayuscula(mensajeActual.substring(pos,pos+1))) {
auxy=y.substring(0,1);
y=auxy.toUpperCase()+y.substring(1,y.length);
if (esMayusculaPalabra(mensajeActual.substring(pos,pos+x.length))) {			
y=y.toUpperCase();
}
}	
auxmens=auxmens+y;		
y=y.toLowerCase();
submens=mensajeActual.substring(pos+x.length,mensajeActual.length);
mensajeActual=auxmens+submens;

auxpos=0;
auxmens="";
mensajeMinus=mensajeActual.toLowerCase();
pos=mensajeMinus.indexOf(x);
}
}

function comprimir() {
mensajeActual=document.FORM1.message.value; 
mensajeAux=mensajeActual; 
mensajeMinus=mensajeActual.toLowerCase();
sustituye("abril","abr");
sustituye("adios","a2");
sustituye("agosto","ago");
sustituye("ayuda","ayd");
sustituye("be","b");
sustituye("beso","bs");
sustituye("besos","bss");
sustituye("ca","k");
sustituye("cafe","kf");
sustituye("café","kf");
sustituye("cagar","kgar");
sustituye("cariño","krño");
sustituye("casa","ksa");
sustituye("ce","c");
sustituye("celular","cel");
sustituye("cero","0");
sustituye("cinco","5");
sustituye("cinco","5");
sustituye("coche","kch");
sustituye("coma",",");
sustituye("con","c");
sustituye("cuatro","4");
sustituye("cuatro","4");
sustituye("de","d");
sustituye("de","d");
sustituye("decir","dcir");
sustituye("diez","10");
sustituye("dinamita","tnt");
sustituye("dirección","dir");
sustituye("dividir","÷");
sustituye("doce","12");
sustituye("dos","2");
sustituye("ejemplo","ej");
sustituye("el","l");
sustituye("eme","m");
sustituye("emergencia","emrgncia");
sustituye("empezar","empzar");
sustituye("ene","n");
sustituye("entrada","entrda");
sustituye("es","s");
sustituye("ese","s");
sustituye("espero","spro");
sustituye("est","st");
sustituye("estándar","stndar");
sustituye("ex","x");
sustituye("examen","exam");
sustituye("ge","g");
sustituye("general","gral");
sustituye("generalmente","gral%");
sustituye("gracias","thanx");
sustituye("gua","wa");
sustituye("guap","wp");
sustituye("habitación","hab");
sustituye("hermano","hno");
sustituye("hora","hr");
sustituye("igual","=");
sustituye("información","info");
sustituye("jodete","jdt");
sustituye("juvenil","jvnil");
sustituye("kilo","kg");
sustituye("kilómetro","km");
sustituye("llamame","ymam");
sustituye("llámame","ymam");
sustituye("mañana","mñna");
sustituye("mas","+");
sustituye("más","+");
sustituye("me","m");
sustituye("menos","-");
sustituye("mensaje","mnsj");
sustituye("mensaje","msj");
sustituye("metro","m");
sustituye("mucho","mxo");
sustituye("nueva","9va");
sustituye("nuevo","9vo");
sustituye("ocho","8");
sustituye("once","11");
sustituye("pe","p");
sustituye("pelicula","peli");
sustituye("película","peli");
sustituye("pequeño","pqño");
sustituye("peso","$");
sustituye("plata","$");
sustituye("poco","pco");
sustituye("por favor","x fa");
sustituye("por","x");
sustituye("porque","xq");
sustituye("punto",".");
sustituye("que","q");
sustituye("quiero","kero");
sustituye("regalo","rgalo");
sustituye("saludos","salu2");
sustituye("seis","6");
sustituye("siete","7");
sustituye("sin","s/");
sustituye("socorro","sos");
sustituye("también","tb");
sustituye("tarde","trd");
sustituye("te","t");
sustituye("telefono","fono");
sustituye("teléfono","fono");
sustituye("televisor","tv");
sustituye("teta","tta");
sustituye("texto","txt");
sustituye("tres","3");
sustituye(" un"," 1");
sustituye("uno","1");
sustituye("ve","b");
sustituye("zoologico","zoo");
sustituye("zoológico","zoo");
refrescaVentanaMensaje();
deshacerActivo=1;
document.FORM1.comprobarmsge.value="Poner el mensaje original";

}

function refrescaVentanaMensaje(){
document.FORM1.message.value=mensajeActual; 
cuenta(FORM1);
}

function deshacer() {
if (deshacerActivo!=0) {
mensajeActual=mensajeAux;
refrescaVentanaMensaje();
document.FORM1.comprobarmsge.value="Abreviar el Mensaje";

}
deshacerActivo =0;
}