//valentin.perez@iconmedialab.es 2001
//capturamos el navegador
	ns4 = (document.layers)? true:false
	ie4 = ((document.all)&&!(document.getElementById ))? true:false
	ie5	= (document.getElementById)? true:false
//Esta son las variables que hay que modificar. No hay que tocar nada más
	targetdefinido="self" //ventana donde se abren los enlaces
	corte=0 //zona de recorde del submenu
	cortemenucompleto=100 //zona de recorte de menucompleto para netscape que si no...
	velocidad=1 //controla la velocidad del desplegamiento
	if (ns4) margen=0 //Esto es el margen de la capa hija que es 0
	if (ie4||ie5) margen=8 //En explorer es 8 porque la fuente es más grande
	//Variables que no son configurables
	desplegado=0 //variable que indica cual es el menu desplegado
	replegar=0  //variable que controla si hay que replegar un menu antes de desplegar otro
	desplegable=1 //variable que controla que no se pueda desplegar un menu durante el despliegue de otro
	total=numeromenus //número de menús
	pos=1
	c=0
	url=""
	//Creamos un array para contener los valores de cada opción para cada menú
	desplegados= new Array()
	vuelta= new Array()
	posicion=new Array()
	for (indices=0;indices<=total;indices++){
	desplegados[indices]=0
	vuelta[indices]=0
	posicion[indices]=0
	}
	function mover(num,url){
	if (desplegable==1){
	if (ie4||ie5)	b=eval("document.all.hija"+num+".scrollHeight")
	if (ns4)b=eval("document.layers.menucompleto.layers.menu"+num+".document.layers.hija"+num+".document.height")
	}
	if(b>2){//esto controla que la capa hija tenga contenido
	if(desplegable==1){
		if (desplegados[num]==0){
			for(indice=num;indice<total;indice++){
			numo=num+1
			}
			
			
			if (ie4||ie5) b=eval("document.all.hija"+num+".scrollHeight")
			if (ns4) b=eval("document.menucompleto.document.menu"+num+".document.hija"+num+".document.height")
			if (numo!=total){
			if (ie4||ie5) eval("posicion["+numo+"]=parseInt(menu"+numo+".style.top)")

				if (ns4) eval("posicion["+numo+"]=parseInt(document.menucompleto.document.layers.menu"+numo+".top)")
}
				c=posicion[numo]+b
				
				mover2(num,c,url)
			}
			else{
				c=b
				corte=b
				mover3(num,c)
				
			}
		}
	}
	else{
	eval("parent."+targetdefinido+".document.location.href='"+url+"'")
	}
}

function mover2(num,pos,url){
desplegable=0
if (replegar==0){
	
	if (posicion[numo]<(pos-margen)){
	posicion[numo]=posicion[numo]+5
	corte=corte+5
	cortemenucompleto=cortemenucompleto+5
		if(numo!=total){
			for (def=numo;def<total;def++){
				if (ie4||ie5) eval("document.all['menu"+def+"'].style.top=parseInt(menu"+def+".style.top)+5")
				if (ns4) eval("document.menucompleto.document.layers['menu"+def+"'].top=parseInt(document.menucompleto.document.layers.menu"+def+".top)+5")
			}
		}
		if (ie4||ie5) eval("document.all['hija"+num+"'].style.clip='rect(0,200,"+corte+",0)'")
		if (ns4){
		eval("document.layers['menucompleto'].clip.bottom="+cortemenucompleto)
					eval("document.menucompleto.document.menu"+num+".document.layers['hija"+num+"'].clip.bottom="+corte)
eval("document.menucompleto.document.menu"+num+".document.layers['hija"+num+"'].clip.top=0")
eval("document.menucompleto.document.menu"+num+".document.layers['hija"+num+"'].clip.left=0")
eval("document.menucompleto.document.menu"+num+".document.layers['hija"+num+"'].clip.right=200")
	}
	setTimeout("mover2("+num+","+pos+",'"+url+"')",velocidad)
}
	
	else{
	if (url!=""){
	eval("parent."+targetdefinido+".document.location.href='"+url+"'")
	}
	desplegados[num]=1
	vuelta[num]=(posicion[num]-b)
	//alert("posicion de regreso de hija"+num+":"+vuelta[num])
	corte=0
	desplegable=1
	replegar=1
	desplegado=num
	//chorra()
	}
	}
else{
//mover4(num,desplegado,url) Si no se quiere que se repliegue al desplegar otro:comentar esta línea y descomentar las 2 siguiente
replegar=0
eval("mover2("+num+","+pos+",'"+url+"')")
}
}
function mover3(num,pos){
//alert("posicion de hija"+num+":"+posicion[num]+",posicion de regreso:"+vuelta[num])
anterior=num-1
//if (desplegados[anterior]!=0) 
if (anterior>=0 && desplegados[anterior]!=0) vuelta[num]=posicion[anterior]+vuelta[num]
//vuelta[num]+posicion[anterior]
//posicion[anterior]+57
if (posicion[num]>(vuelta[num]+margen)){
		posicion[num]=posicion[num]-5
		corte=corte-5
		cortemenucompleto=cortemenucompleto-5
		if (ie4||ie5)eval("document.all['hija"+num+"'].style.clip='rect(0,200,"+corte+",0)'")
		if (ns4) eval("document.menucompleto.document.menu"+num+".document.layers['hija"+num+"'].clip.bottom="+corte)
	if (ns4) eval("document.layers['menucompleto'].clip.bottom="+cortemenucompleto)
		for (def=num+1;def<total;def++){
			if (ie4||ie5) 				eval("document.all['menu"+def+"'].style.top=parseInt(menu"+def+".style.top)-5")
		if (ns4) eval("document.menucompleto.document.layers['menu"+def+"'].top=parseInt(document.menucompleto.document.layers.menu"+def+".top)-5")
		}
		
		setTimeout("mover3("+num+","+pos+")",velocidad)
		}
	else{
	replegar=0
	desplegable=1
	desplegados[num]=0
	corte=0
	b=0
	cerrado=1
	vuelta[num]=0
	posicion[num]=0
	}
	}
	
	function mover4(original,num,url){
if (posicion[num]>(vuelta[num]+margen)){
		posicion[num]=posicion[num]-5
		corte=corte-5
		cortemenucompleto=cortemenucompleto-5
		if (ie4||ie5)eval("document.all['hija"+num+"'].style.clip='rect(0,200,"+corte+",0)'")
		if (ns4) eval("document.menucompleto.document.menu"+num+".document.layers['hija"+num+"'].clip.bottom="+corte)
	if (ns4) eval("document.layers['menucompleto'].clip.bottom="+cortemenucompleto)
		for (def=num+1;def<total;def++){
			if (ie4||ie5) 				eval("document.all['menu"+def+"'].style.top=parseInt(menu"+def+".style.top)-5")
		if (ns4) eval("document.menucompleto.document.layers['menu"+def+"'].top=parseInt(document.menucompleto.document.layers.menu"+def+".top)-5")
		}
		
		setTimeout("mover4("+original+","+num+",'"+url+"')",velocidad)
		}
	else{
	replegar=0
	desplegable=1
	desplegados[num]=0
	corte=0
	b=0
	cerrado=1
	mover(original,url)
	}
	}
	/*
	function chorra(){
	for (def=0; def<3;def++){
	if (ie4||ie5) {
	eval("document.all['menu"+def+"'].style.visibility='visible'")
	eval("document.all['hija"+def+"'].style.visibility='visible'")
	}
	}
	}
	*/