/**********************************************************************************   
ScrollText 
*   Copyright (C) 2001 Thomas Brattli
*   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 Thomas Brattli
*
*   Script date: 09/23/2001 (keep this date to check versions) 
*********************************************************************************/
function lib_bwcheck(){ //Browsercheck (needed)
	this.ver=navigator.appVersion
	this.agent=navigator.userAgent
	this.dom=document.getElementById?1:0
	this.opera5=(navigator.userAgent.indexOf("Opera")>-1 && document.getElementById)?1:0
	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=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 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.moveIt=moveIt; 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 moveIt(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 goDown(move){
	if (this.y>-this.scrollHeight+oCont.clipHeight){
		this.moveIt(0,this.y-move)
			if (loop) setTimeout(this.obj+".down("+move+")",speed)
	}
}
//Makes the object go down
function goUp(move){
	if (this.y<0){
		this.moveIt(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 scroll(speed){
	if (scrolltextLoaded){
		loop = true;
		if (speed>0) oScroll.down(speed)
		else oScroll.up(speed)
	}
}

//Stops the scrolling (called on mouseout)
function noScroll(){
	loop = false
	if (timer) clearTimeout(timer)
}
//Makes the object
var scrolltextLoaded = false
function scrolltextInit(){
	oCont = new makeObj('divScrollTextCont')
	oScroll = new makeObj('divText','divScrollTextCont')
	oScroll.moveIt(0,0)
	oCont.css.visibility = "visible"
	scrolltextLoaded = true
}
//Call the init on page load if the browser is ok...
//if (bw.bw) onload = scrolltextInit

/***************
Multiple Scripts
If you have two or more scripts that use the onload event, probably only one will run (the last one).
Here is a solution for starting multiple scripts onload:
   1. Delete or comment out all the onload assignments, onload=initScroll and things like that.
   2. Put the onload assignments in the body tag like in this example, note that they must have braces ().
   Example: <body onload="initScroll(); initTooltips(); initMenu();">
**************/

// MESSAGES PAR DEFAUT
var P_deb = "<p>";
var P_fin = "</p>";
var BR = "<br>";
var MsgPlay = " Pour jouer le document, clique sur <img src=\"../icones/play.gif\" width=\"16\" height=\"16\" align=\"absbottom\">";
var MsgReplay = "N'h&eacute;site pas &agrave; r&eacute;ecouter le document pour faire les activit&eacute;s.";
var MsgPlaylent = "Pour t'aider de la version lente, clique sur <img src=\"../icones/playlent.gif\" width=\"15\" height=\"15\" align=\"absbottom\">";
var TitreDico = "<b>Dico</b>"; 
var TitreEnPlus = "<b>En Plus</b>"; 

// FONCTIONS ADODOC POUR L'AFFICHAGE DE MESSAGES DANS LA BULLE 

// FONCTION D'AFFICHAGE DU MESSAGE RELATIF AU DOC SELON SON ETAT
// 0 : Etat initial par defaut avec seulement le lien "play"
// 1 : Etat lecture du doc avec lien "playlent" pour jouer la version lente
// 2 : Etat lecture lente du doc avec lien "play" pour retourner a l'etat 1
// indefini : Etat indifini, le doc peut etre dans l'un des etats 0, 1 ou 2
// OU dans l'etat 1 pour un doc sans version lente (cas niveau 3)
function AfficherAideDoc(etat) {
var MsgAide =  BR + P_deb;		

if (etat == 0) {MsgAide += MsgPlay;} 
else if (etat == 1) {MsgAide += MsgReplay + P_fin + P_deb + MsgPlaylent;}
else if (etat == 2) {MsgAide += MsgReplay + P_fin + P_deb + MsgPlay;}  
else MsgAide += MsgReplay;

MsgAide +=  P_fin;
	
var DivText = document.getElementById('divText');
DivText.innerHTML = MsgAide;
scrolltextInit();
}

// AFFICHAGE D'UN MESSAGE SELON SON TYPE
// indefini : aide ou indication sur l'activite  (pas de titre)
// type = 1: dico
// type = 2: en plus
function AfficherAide(msg, type) {
var MsgAide = BR;
var P_Dico = P_deb + TitreDico + P_fin; 
var P_EnPlus = P_deb + TitreEnPlus + P_fin; 
var P_Msg = P_deb + msg + P_fin;

if (type == 0) {MsgAide += P_Dico + P_Msg;} 
else if (type == 1) {MsgAide += P_EnPlus + P_Msg;} 
else MsgAide += P_Msg;

var DivText = document.getElementById('divText');
DivText.innerHTML = MsgAide;
setTimeout('AfficherAideDoc()', 30000);
scrolltextInit();
}