// JavaScript Document

/**********************************************************************************   
NewsSlideFade 
*   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.ie7=(this.ver.indexOf("MSIE 7")>-1 && this.dom && !this.opera5)?1:0;	
	this.ie8=(this.ver.indexOf("MSIE 8")>-1 && this.dom && !this.opera5)?1:0;	
	this.ie9=(this.ver.indexOf("MSIE 9")>-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.ie7
	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.agent)
	return this
}
var bw=new lib_bwcheck()



/***************************************************************************
Use the style tag to change the placement and width of the layers.
If you are trying to place this into a table cell or something make the
position of the divNewsCont layer relative...Remeber that that might crash
Netscape 4 though, Good luck!
********************************************************************************/

/****
Variables to set 
****/

//How do you want the script to work? 
//0 = Fade in - Fade out
//1 = Slide in - Fade out
//2 = Random 
nWorks = 0

//If you use the slide set these variables:
nSlidespeed = 5 //in px
nNewsheight = 80 //This is how long down it should start the slide.

nBetweendelay = 5000 //The delay before fading out.
nFont = 'verdana,arial,helvetiva' //The font for the news.
nFontsize = 11 //Font size in pixel.
nFadespeed = 100 //The speed to fade in, in milliseconds.

//Set the colors, first color is same as background, last color is the color it stops at:
//You can have as many colors you want
nColor=new Array('#FAF7F2', '#EEEEEE','#CCCCCC','#999999','#666666','#333333','#000000')

//This is the news you wanna have, set the link and the text. If you don't wan't it to link anywhere
//use a # as the link
nNews=new Array()
//Copy there three lines and change the info and numbers to get more news.
nNews[0]=new Array()
nNews[0]["text"]="Heavy-duty Levi's jeans were originally made out of hemp cloth"
nNews[0]["link"]="#"

nNews[1]=new Array()
nNews[1]["text"]="The first Bibles, including the Gutenberg bible, were printed on hemp paper"
nNews[1]["link"]="#"

nNews[2]=new Array()
nNews[2]["text"]="The first drafts of the US Constitution and Declaration of Independence were printed on hemp paper"
nNews[2]["link"]="#"

nNews[3]=new Array()
nNews[3]["text"]="Heavy-duty Levi's jeans were originally made out of hemp cloth"
nNews[3]["link"]="#"

nNews[4]=new Array()
nNews[4]["text"]="Hemp paper more than 1,500 years old has been found"
nNews[4]["link"]="#"

nNews[5]=new Array()
nNews[5]["text"]="The long fibres allow hemp paper to be recycled several times more than wood-based paper"
nNews[5]["link"]="#"

nNews[6]=new Array()
nNews[6]["text"]="Because of its low lignin content, hemp can be pulped using less chemicals than with wood"
nNews[6]["link"]="#"

nNews[7]=new Array()
nNews[7]["text"]="Until 1883, around 75-90% of all paper was made with hemp fibre "
nNews[7]["link"]="#"

nNews[8]=new Array()
nNews[8]["text"]="Hemp paper is stronger and has greater folding endurance than wood pulp paper"
nNews[8]["link"]="#"

nNews[9]=new Array()
nNews[9]["text"]="Because of it's ability to replace trees as a pulp source, hemp reduces the need for non-sustainable clear-cutting"
nNews[9]["link"]="#"

nNews[10]=new Array()
nNews[10]["text"]="The writings of Confucius and Lao Tsu were transcribed on hemp paper"
nNews[10]["link"]="#"

nNews[11]=new Array()
nNews[11]["text"]="Hemp fibreboard was found to be twice as strong as wood-based fibreboard"
nNews[11]["link"]="#"

nNews[12]=new Array()
nNews[12]["text"]="Hemp has been used throughout history for carpet backing"
nNews[12]["link"]="#"

nNews[13]=new Array()
nNews[13]["text"]="Hemp is a more prolific producer of ethanol than corn"
nNews[13]["link"]="#"

nNews[14]=new Array()
nNews[14]["text"]="Rudolph Diesel designed his engine to run on hemp oil"
nNews[14]["link"]="#"

nNews[15]=new Array()
nNews[15]["text"]="One acre of hemp can produce as much usable fibre as two acres of cotton, on a sustainable basis"
nNews[15]["link"]="#"

nNews[16]=new Array()
nNews[16]["text"]="Industrial hemp has a THC content of between 0.05%. and 1%. Marijuana has a THC content of 3% to 20%"
nNews[16]["link"]="#"

nNews[17]=new Array()
nNews[17]["text"]="Hemp growers can not hide marijuana plants in their fields"
nNews[17]["link"]="#"

nNews[18]=new Array()
nNews[18]["text"]="Hemp can yield 3-8 dry tons of fibre per acre"
nNews[18]["link"]="#"

nNews[19]=new Array()
nNews[19]["text"]="Hemp grows well without herbicides, fungicides, or pesticides"
nNews[19]["link"]="#"

nNews[20]=new Array()
nNews[20]["text"]="Over 30 industrialized democracies do distinguish hemp from marijuana"
nNews[20]["link"]="#"

nNews[21]=new Array()
nNews[21]["text"]="Hemp plastic is biodegradable, synthetic plastic is not"
nNews[21]["link"]="#"

nNews[22]=new Array()
nNews[22]["text"]="A 1938 Popular Mechanics described hemp as a \"New Billion Dollar Crop\""
nNews[22]["link"]="#"

/********************************************************************************
Object code...Object constructors and functions...
********************************************************************************/
function makeNewsObj(obj,nest,font,size,color,news,fadespeed,betweendelay,slidespeed,works,newsheight){
    nest=(!nest) ? "":'document.'+nest+'.'
   	this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+"document.layers." +obj):0;	
   	this.writeref=bw.dom? document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+"document.layers." +obj+".document"):0;
	if(font){this.color=new Array(); this.color=eval(color); this.news=new Array(); this.news=eval(news)
		this.font=font; this.size=size; this.speed=fadespeed; this.delay=betweendelay; this.newsheight=newsheight;
		this.fadeIn=b_fadeIn;this.fadeOut=b_fadeOut; this.newsWrite=b_newsWrite; this.y=1
		this.slideIn=b_slideIn; this.moveIt=b_moveIt; this.slideSpeed=slidespeed; this.works=works
		if(bw.dom || bw.ie4){this.css.fontFamily=this.font; this.css.fontSize=this.size; this.css.color=this.color[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 b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x+px; this.css.top=this.y+px;}

function b_newsWrite(num,i){
	if (bw.ns4){
		this.writeref.write("<a href=\""+this.news[num]['link']+"\" target=\"myTarget\" style=\"text-decoration:none; font-size:"+this.size+"px\">"
			+"<font face=\""+this.font+"\" color=\""+this.color[i]+"\">"+this.news[num]['text']+"</font></a>")
		this.writeref.close()
	}else this.writeref.innerHTML = '<a id="'+this.obj+'link' +'" target="myTarget"  style="text-decoration:none; font-size:'+this.size+'px; color:'+this.color[i]+'" href="'+this.news[num]['link']+'">'+this.news[num]['text']+'</a>'
}
//Slide in
function b_slideIn(num,i){
	if (this.y>0){
		if (i==0){this.moveIt(0,this.newsheight); this.newsWrite(num,this.color.length-1)}
		this.moveIt(this.x,this.y-this.slideSpeed)
		i ++
		setTimeout(this.obj+".slideIn("+num+","+i+");",50)
	}else setTimeout(this.obj+".fadeOut("+num+","+(this.color.length-1)+")",this.delay)
}
//The fade functions
function b_fadeIn(num,i){
	if (i<this.color.length){
		if (i==0 || bw.ns4) this.newsWrite(num,i)
		else{
			obj = bw.ie4?eval(this.obj+"link"):document.getElementById(this.obj+"link")
			obj.style.color = this.color[i]
		}
		i ++
		setTimeout(this.obj+".fadeIn("+num+","+i+")",this.speed)
	}else setTimeout(this.obj+".fadeOut("+num+","+(this.color.length-1)+")",this.delay)
}

function b_fadeOut(num,i){
	if (i>=0){
		if (i==0 || bw.ns4) this.newsWrite(num,i)	
		else{
			obj = bw.ie4?eval(this.obj+"link"):document.getElementById(this.obj+"link")
			obj.style.color = this.color[i]
		}
		i --
		setTimeout(this.obj+".fadeOut("+num+","+i+")",this.speed)
	}else{
		num ++
		if(num==this.news.length) num=0
		works = !this.works?0:this.works==1?1:Math.round(Math.random())
		if(works==0) setTimeout(this.obj+".fadeIn("+num+",0)",500)
		else if (works==1){this.y=1; setTimeout(this.obj+".slideIn("+num+",0)",500)
		}
	}
}
/********************************************************************************************
The init function. Calls the object constructor and set some properties and starts the fade
*********************************************************************************************/
function fadeInit(){
	oNews = new makeNewsObj('divNews','divNewsCont',nFont,nFontsize,"nColor","nNews",nFadespeed,nBetweendelay,nSlidespeed,nWorks,nNewsheight)
	oNewsCont = new makeNewsObj('divNewsCont')
	works = !oNews.works?0:oNews.works==1?1:Math.round(Math.random())
	if (works==0) oNews.fadeIn(0,0)
	else if (works==1) oNews.slideIn(0,0)
	oNewsCont.css.visibility = "visible"
}

//Calls the init function on pageload. 
if(bw.bw) onload = fadeInit