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 += 'has_childs';
								if (lis[i].getElementsByTagName('a').length > 0)
								{
									lis[i].getElementsByTagName('a')[0].className = 'has_childs';
								}

								/*
								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">&rarr;</span>';
									}
									else
									{
										lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="horiz">&darr;</span>';
									}
								}
								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>';
								}
								*/
							}

							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;

						while(parent.parentNode && parent.className.indexOf('mlmenu') == -1)
						{
							parent = parent.parentNode;
						}

						if(parent.className.indexOf('delay') != -1)
						{
							window.mlTimeout = setTimeout(function(){mlout()},500);
						}
						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 = 'has_childs hide';

					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 = 'has_childs';
						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;
				}
			}

			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 * 50);
							}
							setTimeout(function(){ob.style.filter = ''}, 500);
						}
						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);
						}
						break;

					case 'blindv':
						ob.style.display = 'block';
						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';

						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;
			}