<!-- Original:  Angus Turnbull -->
<!-- Web Site:  http://www.twinhelix.com -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
var isDOM = (document.getElementById ? true : false);
var isIE4 = ((document.all && !isDOM) ? true : false);
var isNS4 = (document.layers ? true : false);
function getRef(id) {
	if (isDOM) return document.getElementById(id);
	if (isIE4) return document.all[id];
	if (isNS4) return document.layers[id];
}

function getSty(id) {
	return (isNS4 ? getRef(id) : getRef(id).style);
}

// Hide timeout.
var popTimer = 0;
// Array showing highlighted menu items.
var litNow = new Array();
function popOver(menuNum, itemNum) {
	clearTimeout(popTimer);
	hideAllBut(menuNum);
	litNow = getTree(menuNum, itemNum);
	changeCol(litNow, true);
	targetNum = menu[menuNum][itemNum].target;
	if (targetNum > 0) {
		thisX = parseInt(menu[menuNum][0].ref.left) + parseInt(menu[menuNum][itemNum].ref.left);
		thisY = parseInt(menu[menuNum][0].ref.top) + parseInt(menu[menuNum][itemNum].ref.top);
		with (menu[targetNum][0].ref) {
			left = parseInt(thisX + menu[targetNum][0].x);
			top = parseInt(thisY + menu[targetNum][0].y);
			visibility = 'visible';
      	}
   	}
}

function popOut(menuNum, itemNum) {
	if ((menuNum == 0) && !menu[menuNum][itemNum].target)
	hideAllBut(0)
	else
	popTimer = setTimeout('hideAllBut(0)', 500);
}

function getTree(menuNum, itemNum) {

	// Array index is the menu number. The contents are null (if that menu is not a parent)
	// or the item number in that menu that is an ancestor (to light it up).
	itemArray = new Array(menu.length);

	while(1) {
		itemArray[menuNum] = itemNum;
		// If we've reached the top of the hierarchy, return.
		if (menuNum == 0) return itemArray;
		itemNum = menu[menuNum][0].parentItem;
		menuNum = menu[menuNum][0].parentMenu;
   	}
}

// Pass an array and a boolean to specify colour change, true = over colour.
function changeCol(changeArray, isOver) {
	for (menuCount = 0; menuCount < changeArray.length; menuCount++) {
		if (changeArray[menuCount]) {
			newCol = isOver ? menu[menuCount][0].overCol : menu[menuCount][0].backCol;
			// Change the colours of the div/layer background.
			with (menu[menuCount][changeArray[menuCount]].ref) {
				if (isNS4) bgColor = newCol;
				else backgroundColor = newCol;
        	}
      	}
   	}
}

function hideAllBut(menuNum) {
	var keepMenus = getTree(menuNum, 1);
	for (count = 0; count < menu.length; count++){
		if (!keepMenus[count])
			menu[count][0].ref.visibility = 'hidden';
	}
	changeCol(litNow, false);
}

// *** MENU CONSTRUCTION FUNCTIONS ***

function Menu(isVert, popInd, x, y, width, overCol, backCol, borderClass, textClass) {
	// True or false - a vertical menu?
	this.isVert = isVert;
	// The popout indicator used (if any) for this menu.
	this.popInd = popInd
	// Position and size settings.
	this.x = x;
	this.y = y;
	this.width = width;
	// Colours of menu and items.
	this.overCol = overCol;
	this.backCol = backCol;
	// The stylesheet class used for item borders and the text within items.
	this.borderClass = borderClass;
	this.textClass = textClass;
	// Parent menu and item numbers, indexed later.
	this.parentMenu = null;
	this.parentItem = null;
	// Reference to the object's style properties (set later).
	this.ref = null;
}

function Item(text, href, frame, length, spacing, target) {
	this.text = text;
	this.href = href;
	this.frame = frame;
	this.length = length;
	this.spacing = spacing;
	this.target = target;
	// Reference to the object's style properties (set later).
	this.ref = null;
}

function writeMenus() {
	// Make left border for servantcare.com menu-tweak by Richard Huey
	var scMenuDiv = document.createElement('div') ;
	scMenuDiv.id = 'scMenuDiv' ;
	document.getElementsByTagName('body').item(0).appendChild(scMenuDiv) ;
	var scMDstyleRef = scMenuDiv.style ;
	scMDstyleRef.position = 'absolute' ;
	scMDstyleRef.left = '0' ;
	scMDstyleRef.top = '0' ;
	var docHeight = '100%' ;
	scMDstyleRef.height = docHeight ; 

	// Write Bible reference at top of servantcare.com menu
	var LogoBibleHtml = " ";
	//LogoBibleHtml += '<div id = "scLogoDiv" style="position: absolute; left: ' + CasMenuLeft + 'px; top: ' + scLogoDivTop + 'px; height: ' + scLogoDivHeight + 'px; width: ' + CasMenuWidth + 'px" align = "center"><img src="http://www.servantcare.com/graphics/smallSClogoT5.gif" alt="servantCARE logo" width="137px" height="49px" /></div>' ;
	LogoBibleHtml += '<div id = "BibleRef" style="position: absolute; left: ' + CasMenuLeft + 'px; top: ' + BibleRefTop ;
	LogoBibleHtml += 'px; height: ' + BibleRefHeight + 'px; width: ' + CasMenuWidth + 'px" align = "center">' ;
	LogoBibleHtml += tCell[0] + '</div>' ;
	scMenuDiv.innerHTML = LogoBibleHtml ;

	if (!isDOM && !isIE4 && !isNS4) return;

	for (currMenu = 0; currMenu < menu.length; currMenu++) with (menu[currMenu][0]) {
		// Variable for holding HTML for items and positions of next item.
		var str = '', itemX = 0, itemY = 0;

		// Remember, items start from 1 in the array (0 is menu object itself, above).
		// Also use properties of each item nested in the other with() for construction.
		for (currItem = 1; currItem < menu[currMenu].length; currItem++) with (menu[currMenu][currItem]) {
			var itemID = 'menu' + currMenu + 'item' + currItem;

			// The width and height of the menu item - dependent on orientation!
			var w = (isVert ? width : length);
			var h = (isVert ? length : width);

			// Create a div or layer text string with appropriate styles/properties.
			// Thanks to Paul Maden (www.paulmaden.com) for helping debug this in IE4, apparently
			// the width must be a miniumum of 3 for it to work in that browser.
			if (isDOM || isIE4) {
				str += '<div id="' + itemID + '" style="position: absolute; left: ' + itemX + 'px; top: ' + itemY + 'px; width: ' + w + 'px; height: ' + h + 'px; visibility: inherit; ';
				if (backCol) str += 'background: ' + backCol + '; ';
				str += '" ';
				}
			if (isNS4) {
				str += '<layer id="' + itemID + '" left="' + itemX + 'px" top="' + itemY + 'px" width="' +  w + 'px" height="' + h + 'px" visibility="inherit" ';
				if (backCol) str += 'bgcolor="' + backCol + '" ';
				}
			if (borderClass) str += 'class="' + borderClass + '" ';

			// Add mouseover handlers and finish div/layer.
			str += 'onMouseOver="popOver(' + currMenu + ',' + currItem + ')" onMouseOut="popOut(' + currMenu + ',' + currItem + ')">';

			// Add contents of item (default: table with link inside).
			// In IE/NS6+, add padding if there's a border to emulate NS4's layer padding.
			// If a target frame is specified, also add that to the <a> tag.

			str += '<table width="' + (w - 8) + 'px" border="0" cellspacing="0" cellpadding="' + (!isNS4 && borderClass ? 3 : 0) + '"><tr><td align="left" height="' + (h - 3) + 'px">' + '<a class="' + textClass + '" href="' + href + '"' + (frame ? ' target="' + frame + '">' : '>') + text + '</a></td>';
			if (target > 0) {
				// Set target's parents to this menu item.
				menu[target][0].parentMenu = currMenu;
				menu[target][0].parentItem = currItem;

				// Add a popout indicator.
				if (popInd) str += '<td class="' + textClass + '" align="right">' + popInd + '</td>';
				} 

			str += '</tr></table>' + (isNS4 ? '</layer>' : '</div>');
			if (isVert) itemY += length + spacing ;
			else itemX += length + spacing ;
			}  //end of second for-with
			
		//Inserts code for menu in a div
		if (isDOM) {
			// tweak by Richard Huey
			// 4/10/2008
			var newDiv = document.createElement('div');
			var newDivId = 'menuDiv' + currMenu ;
			newDiv.id = newDivId ; 	
			document.getElementById('scMenuDiv').appendChild(newDiv);
			newDiv.innerHTML = str;
			ref = newDiv.style;
			ref.position = 'absolute';
			ref.visibility = 'hidden';
			}

		// Insert a div tag to the end of the BODY with menu HTML in place for IE4.
		if (isIE4) {
			document.body.insertAdjacentHTML('beforeEnd', '<div id="menu' + currMenu + 'div" ' + 'style="position: absolute; visibility: hidden">' + str + '</div>');
			ref = getSty('menu' + currMenu + 'div');
			}

		// In NS4, create a reference to a new layer and write the items to it.
		if (isNS4) {
			ref = new Layer(0);
			ref.document.write(str);
			ref.document.close();
			}

		for (currItem = 1; currItem < menu[currMenu].length; currItem++) {
			itemName = 'menu' + currMenu + 'item' + currItem;
			if (isDOM || isIE4) menu[currMenu][currItem].ref = getSty(itemName);
			if (isNS4) menu[currMenu][currItem].ref = ref.document[itemName];
  	 		}
		}   //end of first for-with and completion of code for menu

	with(menu[0][0]) {
		ref.left = x;
		ref.top = y;
		ref.visibility = 'visible';
   		}
   
	// Make servantcare.com static items table
	// Variable assignments are in scMenuJs.js
	var scSmallPrintTop = CasMenutop + (defLength + CasMenuSpacing)* 9 - 3;
	htmlStr += '<table style="position: absolute; left: ' + CasMenuLeft + 'px; top: ' + scSmallPrintTop ;
	htmlStr += 'px; width: ' + CasMenuWidth + 'px" border = "' + tB + '% cellpadding = "0" cellspacing = "0">' ;
	for(rowCount = 1; rowCount < tCell.length; rowCount++)
	{
		htmlStr += '<tr><td width = "100%" align = "center">' + tCell[rowCount] + '</td></tr>' ;		
	}
	htmlStr += '</table>' ;
	var scSmallPrint = document.createElement('div') ;
	scSmallPrint.id = 'scSmallDiv' ;
	document.getElementById('scMenuDiv').appendChild(scSmallPrint) ;
	scSmallPrint.innerHTML = htmlStr;
	//End servantcare.com's static items table
	}