// HUGELY ADAPTED FROM ...
/***********************************************
* Cross browser Marquee II- © Dynamic Drive (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit http://www.dynamicdrive.com/ for this script and 100s more.
***********************************************/

var delayb4scroll=2000 //Specify initial delay before marquee starts to scroll on page (2000=2 seconds)
var marqueespeed=1 //Specify marquee scroll speed (larger is faster 1-10)
var pauseit=1 //Pause marquee onMousever (0=no. 1=yes)?

////NO NEED TO EDIT BELOW THIS LINE////////////

var copyspeed=marqueespeed
var pausespeed=(pauseit==0)? copyspeed: 0
var actualheight=''

function scrollmarquee(){
if (parseInt(cross_marquee.style.top) > 0 && copyspeed < 0)
	copyspeed = 0
else if (parseInt(cross_marquee.style.top)>(marqueeheight-actualheight))
	cross_marquee.style.top=parseInt(cross_marquee.style.top)-copyspeed+"px"
else
	{
		clearInterval(lefttime) ;
		setTimeout('initializemarquee()', delayb4scroll) ;
	}
}

function initializemarquee(){
cross_marquee=document.getElementById("vmarquee") ;
cross_marquee.style.top=0;
marqueeheight=document.getElementById("marqueecontainer").offsetHeight;
actualheight=cross_marquee.offsetHeight;

if (navigator.userAgent.indexOf("Netscape/7")!=-1){ 
	//if Opera or Netscape 7x, add scrollbars to scroll and exit
	cross_marquee.style.height=marqueeheight+"px";
	cross_marquee.style.overflow="scroll";
	return ;
	}
setTimeout('lefttime=setInterval("scrollmarquee()",50)', delayb4scroll) ;
}

if (window.addEventListener)
window.addEventListener("load", initializemarquee, false)
else if (window.attachEvent)
window.attachEvent("onload", initializemarquee)
else if (document.getElementById)
window.onload=initializemarquee

function setcopyspeed(e) {
	height = marqueeheight ;
	if (!e) { e = window.event } ;	// e not passed by IE
	if (e.offsetY) { myY = e.offsetY }	// these are both
	else { myY = e.layerY }				// relative to cross_marquee
	myY+=parseInt(cross_marquee.style.top) ;	// so need to adjust
	if (myY < height/8) copyspeed = marqueespeed * 3 ;
	else if (myY < height/4) copyspeed = marqueespeed * 2 ;
	else if (myY < 2*height/4) copyspeed = marqueespeed ;
	else if (myY < 3*height/4) copyspeed = pausespeed ;
	else if (myY < 7*height/8) copyspeed = marqueespeed * (-1) ;
	else if (myY < height) copyspeed = marqueespeed * (-2) ;
}