/**********************************************************************************   
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> 
*********************************************************************************/
/************************************************************************************
Modificado por Carlos Revillo para aceptar también scroll horizontal
*************************************************************************************/
function lib_bwcheck(){
	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()

var speed = 30

var loop, timer

function makeObj(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=goUp;this.down=goDown;
	/************************************/
	this.scrollWidth=bw.ns4?this.css.document.width:this.el.offsetWidth;
	this.clipWidth=bw.ns4?this.css.clip.width:this.el.offsetWidth;
	this.right=goRight;this.left=goLeft;
	/*************************************/
	this.moveIt=moveIt; this.x=0; this.y=0;
    this.obj = obj + "Object";
	
    eval(this.obj + "=this")
	
    return this
	
}

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

function moveIt(x,y){
	
	this.x = x
	this.y = y
	this.css.left = this.x+px
	this.css.top = this.y+px
	
}

function goDown(move,obj){
	if (this.y>-this.scrollHeight+oCont.clipHeight){
		this.moveIt(0,this.y-move)
			if (loop) setTimeout(this.obj+".down("+move+")",speed)
		//swapimg('arriba',arrows[3].src);
	}
	else {
	//swapimg('abajo',arrows[2].src);
	}
}
function goUp(move){

	if (this.y<0){
		this.moveIt(0,this.y-move)
			if (loop) setTimeout(this.obj+".up("+move+")",speed)
		//swapimg('abajo',arrows[4].src);
	}
	else {
	//swapimg('arriba',arrows[1].src);
	}
}

function goRight(move) {
	alert('pasa');

	if (this.x>-this.scrollWidth+oCont2.clipWidth) {

		this.moveIt(this.x-move,0);
			if (loop) setTimeout(this.obj+".right("+move+")",speed);
	}
	
}

function goLeft(move) {
	if (this.x<0) {
		this.moveIt(this.x-move,0);
			if (loop) setTimeout(this.obj+".left("+move+")",speed);
	}
	
}
function scroll(speed){
	if (scrolltextLoaded){
		loop = true;
		if (speed>0) oScroll.down(speed)
		else oScroll.up(speed)
	}
}
function scrollado(speed) {
	if (scrolltextLoaded2){
		loop = true;
		if (speed>0) oScroll2.right(speed)
		else oScroll2.left(speed)
	}
}

function noScroll(){
	loop = false
	if (timer) clearTimeout(timer)
}

var scrolltextLoaded = false
function scrolltextInit(){

	oCont = new makeObj('divScrollTextCont')
	oScroll = new makeObj('divText','divScrollTextCont')
	oScroll.moveIt(0,0)

	oCont.css.visibility = "visible"
	scrolltextLoaded = true
}

var scrolltextLoaded2 = false
function scrolltextInit2(){
	oCont = new makeObj('divScrollTextCont');
	oCont2 = new makeObj('divScrollTextCont2');
	oScroll = new makeObj('divText','divScrollTextCont')
	oScroll2 = new makeObj('divText2','divScrollTextCont2')
	oScroll.moveIt(0,0)
	oScroll2.moveIt(0,0);
	oCont.css.visibility = "visible"
	oCont2.css.visibility = "visible"
	scrolltextLoaded = true
	scrolltextLoaded2 = true
}


//if (bw.bw) onload = scrolltextInit