/**********************************************************************************   

ScrollText 

*   Copyright (C) 2001 <a href="/dhtmlcentral/thomas_brattli.asp">Thomas Brattli</a>

*   This script was released at DHTMLCentral.com

*   Visit for more great scripts!

*   This may be used and changed freely as long as this msg is intact!

*   We will also appreciate any links you could give us.

*

*   Made by <a href="/dhtmlcentral/thomas_brattli.asp">Thomas Brattli</a> 

*********************************************************************************/



function lib_bwcheck(){ //Browsercheck (needed)

	this.ver=navigator.appVersion

	this.agent=navigator.userAgent

	this.dom=document.getElementById?1:0

	this.opera5=this.agent.indexOf("Opera 5")>-1

	this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom && !this.opera5)?1:0; 

	this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom && !this.opera5)?1:0;

	this.ie4=(document.all && !this.dom && !this.opera5)?1:0;

	this.ie=this.ie4||this.ie5||this.ie6

	this.mac=this.agent.indexOf("Mac")>-1

	this.ns6=(this.dom && parseInt(this.ver) >= 5) ?1:0; 

	this.ns4=(document.layers && !this.dom)?1:0;

	this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns6 || this.opera5)

	return this

}

var bw=new lib_bwcheck()





/*****************



You set the width and height of the divs inside the style tag, you only have to

change the divScrollTextCont, Remember to set the clip the same as the width and height.

You can remove the divUp and divDown layers if you want. 

This script should also work if you make the divScrollTextCont position:relative.

Then you should be able to place this inside a table or something. Just remember

that Netscape crash very easily with relative positioned divs and tables.



Updated with a fix for error if moving over layer before pageload.



****************/





//If you want it to move faster you can set this lower, it's the timeout:

var speed = 30



//Sets variables to keep track of what's happening

var loop, timer



//Object constructor

function makeObj1(obj,nest){

    nest=(!nest) ? "":'document.'+nest+'.'

	this.el=bw.dom?document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+'document.'+obj):0;

  	this.css=bw.dom?document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+'document.'+obj):0;

	this.scrollHeight=bw.ns4?this.css.document.height:this.el.offsetHeight

	this.clipHeight=bw.ns4?this.css.clip.height:this.el.offsetHeight

	this.up=goUp1;this.down=goDown1;

	this.moveIt1=moveIt1; this.x=0; this.y=0;

    this.obj = obj + "Object"

    eval(this.obj + "=this")

    return this

}



// A unit of measure that will be added when setting the position of a layer.

var px = bw.ns4||window.opera?"":"px";



function moveIt1(x,y){

	this.x = x

	this.y = y

	this.css.left = this.x+px

	this.css.top = this.y+px

}



//Makes the object go up

function goDown1(move){

//alert(-this.scrollHeight);

//alert(oCont1.clipHeight);

//alert(-this.scrollHeight+oCont1.clipHeight-50);

//alert(this.y);

	if (this.y>-this.scrollHeight+oCont1.clipHeight){

		this.moveIt1(0,this.y-move)

			if (loop) setTimeout(this.obj+".down("+move+")",speed)

	}

}

//Makes the object go down

function goUp1(move){

	if (this.y<0){

		this.moveIt1(0,this.y-move)

		if (loop) setTimeout(this.obj+".up("+move+")",speed)

	}

}



//Calls the scrolling functions. Also checks whether the page is loaded or not.

function scroll1(speed){

	if (scrolltextLoaded1){

		loop = true;

		if (speed>0) {

		  //alert('down');

		  oScroll1.down(speed);

		}

		else {

		  //alert('up');

		  oScroll1.up(speed);

		}

	}

}



//Stops the scrolling (called on mouseout)

function noScroll1(){

	loop = false

	if (timer) clearTimeout(timer)

}

//Makes the object

var scrolltextLoaded1 = false

function scrolltextInit1(){

	oCont1 = new makeObj1('divScrollTextCont1')

	oScroll1 = new makeObj1('divText1','divScrollTextCont1')

	oScroll1.moveIt1(0,0)

	oCont1.css.visibility = "visible"

	scrolltextLoaded1 = true

}

//Call the init on page load if the browser is ok...

if (bw.bw) onload = scrolltextInit1