// CREDITS:
// Floating Right-To-Left-Scroller sticking at the bottom of your webpage 
// by Urs Dudli and Peter Gehrig 
// Copyright (c) 2000 Peter Gehrig and Urs Dudli. All rights reserved.
// Permission given to use the script provided that this notice remains as is.
// Additional scripts can be found at http://www.24fun.com.
// info@24fun.com
// 12/5/2000




var message=new Array()
message[0]="Song of the year 2002"
message[1]="Cajun Night On The Louisiana Bayou"
message[2]="Download free MP3!"

var messageurl=new Array()
messageurl[0]="http://www.r-66.biz/audio/songoftheyear2002/cajunnight.mp3"
messageurl[1]="http://www.r-66.biz/audio/songoftheyear2002/cajunnight.mp3"
messageurl[2]="http://www.r-66.biz/audio/songoftheyear2002/cajunnight.mp3"

var messagetarget=new Array()
messagetarget[0]="_blank"
messagetarget[1]="_blank"
messagetarget[2]="_blank"

var messagecolor= new Array()
messagecolor[0]="yellow"
messagecolor[1]="orange"
messagecolor[2]="FFFFFF"

var scrollerwidth=200

var scrollerheight=18

var pause=5

var step=3

var fntsize=12

var fntfamily="Arial"

var fntweight=1

var backgroundcolor="000000"

var borderwidth=2

var cellpad=10

var scrollerleft
var scrollertop
var screenwidth
var clipleft,clipright,cliptop,clipbottom
var i_message=0
var timer
var textwidth
var textcontent=""
var bgcontent=""
if (fntweight==1) {fntweight="700"}
else {fntweight="100"}

function init() {
	getbgcontent()
	gettextcontent()
    if (document.all) {
		screenwidth=document.body.clientWidth
		scrollertop=document.body.clientHeight+document.body.scrollTop-(scrollerheight+2*cellpad)
		scrollerleft=screenwidth/2-scrollerwidth/2
		text.innerHTML=textcontent
		bgscroller.innerHTML=bgcontent
		textwidth=text.offsetWidth
		document.all.bgscroller.style.posTop=scrollertop-cellpad
        document.all.bgscroller.style.posLeft=scrollerleft-cellpad
		document.all.text.style.posTop=scrollertop
        document.all.text.style.posLeft=scrollerleft+scrollerwidth
		clipleft=0
		clipright=0
		cliptop=0
		clipbottom=scrollerheight
		document.all.text.style.clip ="rect("+cliptop+" "+clipright+" "+clipbottom+" "+clipleft+")"
        scrolltext()
    }
	if (document.layers) {
		screenwidth=window.innerWidth
		scrollertop=pageYOffset+window.innerHeight-(scrollerheight+2*cellpad)
		scrollerleft=screenwidth/2-scrollerwidth/2
		document.text.document.write(textcontent)
		document.text.document.close()
		document.bgscroller.document.write(bgcontent)
		document.bgscroller.document.close()

		textwidth=document.text.document.width
		
		document.bgscroller.top=scrollertop-cellpad
        document.bgscroller.left=scrollerleft-cellpad
		document.text.top=scrollertop
		document.text.left=scrollerleft+scrollerwidth
		
		document.text.clip.left=0
		document.text.clip.right=0
		document.text.clip.top=0
		document.text.clip.bottom=scrollerheight

        scrolltext()
    }
}

function scrolltext() {
    if (document.all) {
		if (document.all.text.style.posLeft>=scrollerleft-textwidth) {
			document.all.text.style.posLeft-=step
			clipright+=step
			if (clipright>scrollerwidth) {
				clipleft+=step
			}
			document.all.text.style.clip ="rect("+cliptop+" "+clipright+" "+clipbottom+" "+clipleft+")"
			scrollertop=document.body.clientHeight+document.body.scrollTop-(scrollerheight+2*cellpad)
			document.all.bgscroller.style.posTop=scrollertop-cellpad
			document.all.text.style.posTop=scrollertop
			var timer=setTimeout("scrolltext()",pause)
		}
		else {
			changetext()
		}
	}
   if (document.layers) {
		if (document.text.left>=scrollerleft-textwidth) {
			document.text.left-=step
			document.text.clip.right+=step
			if (document.text.clip.right>scrollerwidth) {
				document.text.clip.left+=step
			}
			scrollertop=pageYOffset+window.innerHeight-(scrollerheight+2*cellpad)
			document.bgscroller.top=scrollertop-cellpad
			document.text.top=scrollertop
			var timer=setTimeout("scrolltext()",pause)
		}
		else {
			changetext()
		}
	}
}

function changetext() {
    i_message++
	if (i_message>message.length-1) {i_message=0}
	gettextcontent()
	if (document.all) {
		text.innerHTML=textcontent
		textwidth=text.offsetWidth
		
        document.all.text.style.posLeft=scrollerleft+scrollerwidth
		clipleft=0
		clipright=0
		document.all.text.style.clip ="rect("+cliptop+" "+clipright+" "+clipbottom+" "+clipleft+")"
		
        scrolltext()
	}

	if (document.layers) {
   		document.text.document.write(textcontent)
		document.text.document.close()
		textwidth=document.text.document.width

		document.text.left=scrollerleft+scrollerwidth
		document.text.clip.left=0
		document.text.clip.right=0
		
        scrolltext()
	}
}

function gettextcontent() {
	textcontent="<span style='position:relative;font-size:"+fntsize+"pt;font-family:"+fntfamily+";font-weight:"+fntweight+";overflow-x:hidden'>"
	textcontent+="<a href="+messageurl[i_message]+" target="+messagetarget[i_message]+">"
	textcontent+="<nobr><font color="+messagecolor[i_message]+">"+message[i_message]+"</font></nobr></a></span>"
}

function getbgcontent() {
	var bgwidth=scrollerwidth+2*cellpad
	var bgheight=scrollerheight+2*cellpad
	bgcontent="<table border="+borderwidth+" width="+bgwidth+"  height="+bgheight+" cellpadding=0 cellspacing=0>"
	bgcontent+="<tr><td bgcolor="+backgroundcolor+">&nbsp;"
	bgcontent+="</td></tr></table>"
}

window.onresize=init;
window.onload=init;