var n = 0
var gOnce = 0

function CrossRef(number)
{
	var crossobj = document.all ? eval("document.all.neonlight" + number) : document.getElementById("neonlight" + number)
	return crossobj
}

function Neon(message, neonbasecolor, neontextcolor, neontextcolor2, flashspeed, flashingletters, flashingletters2, flashpause)
{
	//Change all letters to base color
	if (n == 0)
	{
		for (var m = 0; m < message.length; m++ )
			CrossRef(m).style.color = neonbasecolor
	}

	//cycle through and change individual letters to neon color
	CrossRef(n).style.color = neontextcolor

	if (n > flashingletters - 1) 
		CrossRef(n - flashingletters).style.color = neontextcolor2 
	if (n > (flashingletters + flashingletters2) - 1) 
		CrossRef(n - flashingletters - flashingletters2).style.color = neonbasecolor

	if (n < message.length - 1)
		n++ 
	else
	{
		n = 0;
		clearInterval(Flashing);
		var test = "BeginNeon(\"" + message + "\", \"" + neonbasecolor + "\", \"" + neontextcolor + "\", \"" + neontextcolor2 + "\", " + flashspeed + ", " + flashingletters + ", " + flashingletters2 + ", " + flashpause + ")";
		setTimeout(test, flashpause)
		return
	}
}

function BeginNeon(message, neonbasecolor, neontextcolor, neontextcolor2, flashspeed, flashingletters, flashingletters2, flashpause)
{
	if (0 == gOnce)
	{
		gOnce = 1
		if (document.all || document.getElementById)
		{
			document.write('<table wrap = "false"><tr><td><B> <font face = "verdana" size = 1 color = "' + neonbasecolor + '">')
			for (var m = 0; m < message.length; m++ )
				document.write('<span id = "neonlight' + m + '">' + message.charAt(m) + '</span>')
			
			document.write('</font></B></td></tr></table>')
		}
		else
			document.write(message)
	}

	if (document.all || document.getElementById)
	{
		var test = "Neon(\"" + message + "\", \"" + neonbasecolor + "\", \"" + neontextcolor + "\", \"" + neontextcolor2 + "\", " + flashspeed + ", " + flashingletters + ", " + flashingletters2 + ", " + flashpause + ")";
		Flashing = setInterval(test, flashspeed);
	}
}

