http://www.cybervulcans.net/site/wp-content/themes/cybervulcans/javascript/slidemenu.js

1var slideMenu=function(){
2	var sp,st,t,m,sa,l,w,gw,ot;
3	return{
4		build:function(sm,sw,mt,s,sl,h){
5			sp=s; st=sw; t=mt;
6			m=document.getElementById(sm);
7			sa=m.getElementsByTagName('li');
8			l=sa.length; w=m.offsetWidth; gw=w/l;
9			ot=Math.floor((w-st)/(l-1)); var i=0;
10			for(i;i<l;i++){s=sa[i]; s.style.width=gw+'px'; this.timer(s)}
11			if(sl!=null){m.timer=setInterval(function(){slideMenu.slide(sa[sl-1])},t)}
12		},
13		timer:function(s){
14			s.onmouseover=function(){clearInterval(m.htimer);clearInterval(m.timer);m.timer=setInterval(function(){slideMenu.slide(s)},t)}
15			s.onmouseout=function(){clearInterval(m.timer);clearInterval(m.htimer);m.htimer=setInterval(function(){slideMenu.slide(s,true)},t)}
16		},
17		slide:function(s,c){
18			var cw=parseInt(s.style.width);
19			if((cw<st && !c) || (cw>gw && c)){
20				var owt=0; var i=0;
21				for(i;i<l;i++){
22					if(sa[i]!=s){
23						var o,ow; var oi=0; o=sa[i]; ow=parseInt(o.style.width);
24						if(ow<gw && c){oi=Math.floor((gw-ow)/sp); oi=(oi>0)?oi:1; o.style.width=(ow+oi)+'px';
25						}else if(ow>ot && !c){oi=Math.floor((ow-ot)/sp); oi=(oi>0)?oi:1; o.style.width=(ow-oi)+'px'}
26						if(c){owt=owt+(ow+oi)}else{owt=owt+(ow-oi)}}}
27				s.style.width=(w-owt)+'px';
28			}else{clearInterval(m.timer);clearInterval(m.htimer)}
29		}
30	};
31}();