window.onload = mladdevents;
	function mladdevents(){
		if(window.mlrunShim == true){
			
			var Iframe = document.createElement("iframe");
			Iframe.setAttribute("src","about:blank");
			Iframe.setAttribute("scrolling","no");
			Iframe.setAttribute("frameBorder","0");
			Iframe.style.zIndex = "2";
			Iframe.style.filter = 'alpha(opacity=0)';
		}
		var effects_a = new Array();
		var divs = document.getElementsByTagName('div');
		
		for(var j=0;j<divs.length;j++){
			if(divs[j].className.indexOf('mlmenu') != -1){
				
				var lis = divs[j].getElementsByTagName('li');
				for(var i =0;i<lis.length;i++){
					lis[i].onmouseover = mlover;
					lis[i].onmouseout = mloutSetTimeout;
					if(window.mlrunShim == true){
						
						lis[i].appendChild(Iframe.cloneNode(false));
					}
					if(lis[i].getElementsByTagName('ul').length > 0){
						
						lis[i].className += 'haschild';
						
						if(divs[j].className.indexOf('arrow') != -1){
							if(divs[j].className.indexOf('vertical') != -1 || lis[i].parentNode.parentNode.nodeName != 'DIV'){
								
								lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="vert"> »</span>';
							}
							else{
								//lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="horiz">&darr;</span>';
								lis[i].getElementsByTagName('a')[0].innerHTML += '';
								
							}
						}
						else if(divs[j].className.indexOf('plus') != -1){
							lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="plus">+</span>';
						}
					}
					else{
						if(divs[j].className.indexOf('arrow') != -1){
							//This accounts for a wierd IE-specific bug in horizontal menus. CSS will set visibility: hidden;. This keeps the menu level(in IE)
							//lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="noshow">&darr;</span>';
							lis[i].getElementsByTagName('a')[0].innerHTML += '';
						}
					}
					var uls = lis[i].getElementsByTagName('ul');
					for(var k=0;k<uls.length;k++){
						var found = 'no';
						for(var z=0;z<effects_a.length;z++){
							if(effects_a[z] == uls[k]){
								found = 'yes';
								
							}
						}
						if(found == 'no'){
							effects_a[effects_a.length] = uls[k];
							uls[k].style.zIndex = '100';
							mlEffectLoad(uls[k]);
						}
					}
				}
			}
		}
	}
	function mloutSetTimeout(e){
		if(!e){
			var the_e = window.event;
		}
		else{
			var the_e = e;
		}
		
		var reltg = (the_e.relatedTarget) ? the_e.relatedTarget : the_e.toElement;
		if(reltg){
			var under = ancestor(reltg,this);
			if(under === false && reltg != this){
				window.mlLast = this;
				var parent = this.parentNode;
				if(parent.parentNode.nodeName=="DIV"){
					count = 1;
				}
				while(parent.parentNode && parent.className.indexOf('mlmenu') == -1){
					parent = parent.parentNode;
				}
				if(parent.className.indexOf('delay') != -1){
					window.mlTimeout = setTimeout(function(){mlout()},30000);
				}
				else{
					mlout();
				}
			}
		}
	}
	
	function mlout(){
		
	if(window.mlLast==null)return false;
		var uls = window.mlLast.getElementsByTagName('ul');
		var sib;
		for(var i=0;i<uls.length;i++){
			mlEffectOut(uls[i]);
			window.mlLast.className = 'haschild shide';
			if(window.mlrunShim == true){
				sib = uls[i];							
				while(sib.nextSibling && sib.nodeName != 'IFRAME'){
						sib = sib.nextSibling
				}
				sib.style.display = 'none';
				
			}
		}
		window.lastover = null;
	
	}
	function mlover(e){
		if(!e){
			var the_e = window.event;
		}
		else{
			var the_e = e;
		}
		the_e.cancelBubble = true;
		if(the_e.stopPropagation){
			the_e.stopPropagation();
		}
		clearTimeout(window.mlTimeout);
		if(window.mlLast && window.mlLast != this && ancestor(this,window.mlLast) == false){
			mlout();
		}
		else{
			window.mlLast = null;
			
		}
		var reltg = (the_e.relatedTarget) ? the_e.relatedTarget : the_e.fromElement;
		var ob = this.getElementsByTagName('ul');
		var under = ancestor(reltg,this);
		if(ob[0] && under == false){
			
			if(window.lastover != ob[0]){
				
				if(window.mlrunShim == true){
					var sib = ob[0];
					while(sib.nextSibling && sib.nodeName != 'IFRAME'){
						sib = sib.nextSibling
						
					}
					ob[0].style.display = 'block';
					
					sib.style.top = ob[0].offsetTop+'px';
					sib.style.left = ob[0].offsetLeft-2+'px';
					sib.style.width = ob[0].offsetWidth+'px';
					
					sib.style.height = ob[0].offsetHeight-2+'px';
					sib.style.border = '1px solid red';
					sib.style.display = 'block';
				}
				this.className = 'haschild';
				mlEffectOver(ob[0],this);
				window.lastover = ob[0];
				
			}
		}
	}
	function mlSetOpacity(ob,level){
		if(ob){
			//level is between 0 and 10
			//need to convert to decimal for standard
			var standard = level/10;
			//need to convert to 0-100 scale for IE filter
			var ie = level*10;
			ob.style.opacity = standard;
			ob.style.filter = "alpha(opacity="+ie+")"
		}
	}
	function mlIncreaseOpacity(ob){
			var current = ob.style.opacity;
			if(lastob == ob && lastop == current){
				//mlout has not interfered
				current = current *10;
				var upone = current +1;
				mlSetOpacity(ob,upone);
				lastob = ob;
				lastop = upone/10;
			}
	}
	function mlIncreaseHeight(ob){
		var current = parseInt(ob.style.height);
		var newh = current + 1;
		ob.style.height = newh+'px';
	}
	function mlIncreaseWidth(ob){
		var current = parseInt(ob.style.width);
		var newh = current + 1;
		ob.style.width = newh+'px';
	}
	function mlBlink(ob){
		var newb = '1px solid red';
		var old = '';
		if(ob.style.border==old){
			ob.style.border=newb;
		}
		else{
			ob.style.border=old;
			ob.style.borderTop = '1px solid';
		}
	}
	function mlShake(ob){
		var newp = '5px';
		var old = '';
		if(ob.style.paddingLeft==old){
			ob.style.paddingLeft=newp;
		}
		else{
			ob.style.paddingLeft=old;
		}
	}
	var count = 1;
	function mlEffectOver(ob,parent){
		switch(ob.className){
			case 'fade':
				ob.style.display = 'block';
				if(ob.style.opacity == 0){
					lastob = ob
					lastop = 0;
					for(var i = 1;i<=10;i++){
						setTimeout(function(){mlIncreaseOpacity(ob)},i*20);
					}
					setTimeout(function(){ob.style.filter = ''},300);
				}
				var ie=(document.all);
				if (ie){
					if(count==1){
						ob.style.marginLeft = - ob.parentNode.offsetWidth + "px";
					}else{
						ob.style.marginLeft = 0 + "px";
					}
					count++;
				}else{
					if(count==1){
						ob.style.marginLeft = 0;
						
					} else{
						ob.style.marginLeft = ob.parentNode.offsetWidth + "px";
					}
					count++;
				}
				break;
			case 'blink':
				ob.style.display = 'block';
				for(var i=0;i<10;i++){
					setTimeout(function(){mlBlink(ob)},i*50);
				}
				break;
			case 'shake':
				ob.style.display = 'block';
				for(var i=0;i<10;i++){
					setTimeout(function(){mlShake(ob)},i*50);
				}
				var ie=(document.all);
				if (ie){
					if(count==1){
						ob.style.marginLeft = - ob.parentNode.offsetWidth + "px";
					}else{
						ob.style.marginLeft = 0 + "px";
					}
					count++;
				}else{
					if(count==1){
						ob.style.marginLeft = 0;
						
					} else{
						ob.style.marginLeft = ob.parentNode.offsetWidth + "px";
					}
					count++;
				}
				break;
			
			
			case 'blindv':
				ob.style.display = 'block';
				var ie=(document.all);
				if (ie){
					if(count==1){
						ob.style.marginLeft = - ob.parentNode.offsetWidth + "px";
					}else{
						ob.style.marginLeft = 0 + "px";
					}
					count++;
				}else{
					if(count==1){
						ob.style.marginLeft = 0;
						
					} else{
						ob.style.marginLeft = ob.parentNode.offsetWidth + "px";
					}
					count++;
				}
				if(ob.offsetHeight){
					var height = ob.offsetHeight
					ob.style.height = '0px';
					ob.style.overflow = 'hidden';
					for(var i=0;i<height;i++){
						setTimeout(function(){mlIncreaseHeight(ob)},i*3);
					}
					setTimeout(function(){ob.style.overflow='visible';},height*3)
				}
				break;
			case 'blindh':
				ob.style.display = 'block';
				var ie=(document.all);
				if (ie){
					if(count==1){
						ob.style.marginLeft = - ob.parentNode.offsetWidth + "px";
					}else{
						ob.style.marginLeft = 0 + "px";
					}
					count++;
				}else{
					if(count==1){
						ob.style.marginLeft = 0;
						
					} else{
						ob.style.marginLeft = ob.parentNode.offsetWidth + "px";
					}
					count++;
				}
				if(ob.offsetWidth){
					var width = ob.offsetWidth;
					ob.style.width = '0px';
					ob.style.overflow = 'hidden';
					for(var i=0;i<width;i++){
						setTimeout(function(){mlIncreaseWidth(ob)},i*3);
					}
					setTimeout(function(){ob.style.overflow='visible';},width*3)
				}
				break;
			default:
				ob.style.display = 'block';
				
				break;
		}
	}
	function mlEffectOut(ob){
		
		switch(ob.className){
			case 'fade':
				mlSetOpacity(ob,0);
				ob.style.display = 'none';
				break;
			case 'blink':
				ob.style.border = '';
				ob.style.display = 'none';
				break;
			case 'shake':
				ob.style.paddingLeft = '';
				ob.style.display = 'none';
				break;
			default:
				ob.style.display = 'none';
				break;
		}
	}
	function mlEffectLoad(ob){
		var parent = ob.parentNode;
		while(parent.parentNode && parent.className.indexOf('mlmenu') == -1){
			parent = parent.parentNode;
			
		}
		if(parent.className.indexOf('fade') != -1){
				ob.style.display = 'none';
				ob.className = 'fade';
				mlSetOpacity(ob,0);
		}
		else if(parent.className.indexOf('blink') != -1){
			ob.className = 'blink';
			ob.style.display = 'none';
		}
		else if(parent.className.indexOf('shake') != -1){
			ob.className = 'shake';
			ob.style.display = 'none';
		}
		else if(parent.className.indexOf('blindv') != -1){
			ob.className = 'blindv';
			ob.style.display = 'none';
			
		}
		else if(parent.className.indexOf('blindh') != -1){
			ob.className = 'blindh';
			ob.style.display = 'none';
		}
		else{
			ob.className = 'none';
			ob.style.display = 'none';
		}
	}
	function ancestor(child, parent){
		if(child==null)return false;//Saves checking elsewhere
		
		//This is a fix for a Firefox bug *gasp*
		//Aparantly causes a bug in Opera!
		//I see no choice but a browser detect. *sigh* I didn't want to have to do this.
		if(navigator.userAgent.indexOf('Gecko') != -1 && navigator.userAgent.indexOf('Opera') == -1){
			//This should only be run by Gecko based browsers. this code should be fine in everything but Opera so forge away browsers.
			var allc = parent.getElementsByTagName('*');
			for(var i= 0;i<allc.length;i++){
				if(allc[i] == child){
					return true;
				}
			}
		}
		else{
			//http://www.dynamicdrive.com/forums/showthread.php?t=12341 Thanks Twey!
			for(; child.parentNode; child = child.parentNode){
				if(child.parentNode === parent) return true;
			}
		}
		return false;
	}