// ********************************************************
// This code written by and copyright 1999-2002 Leefe Hicks
// ********************************************************
var codeWin;
var siteID;
var typeID;


function errorMessage(type, id) {
	errorWin = open("", "errorWindow", "width=400,height=100,status=no,toolbar=no,menubar=no,screenX=10,screenY=10");
	errorWin.document.open();
	
	errorWin.document.write(
	'<html>\n' +
	'<head>\n' +
	'\t<title>Site ID Error</title>\n' +
	'</head>\n' +
	'<body bgcolor="#99ccff" text="#000000">');
	
	if (type=="noid") {
		errorWin.document.write(
		'<font size="+2"><b>No Site ID entered !!!</b></font>\n');
	}
	if (type=="nonum") {
		errorWin.document.write(
		'<font size="+2"><b>Not a number entered for Site ID !!!</b></font>\n');
	}

	errorWin.document.write(
	'</body>\n' +
	'</HTML>');

	errorWin.document.close();
	}


function GenerateCode () {
	siteID = document.CodeForm.SiteID.value;
//ERROR
	if (!siteID) {
		errorMessage("noid", siteID);
		return;
	}
	if (isNaN(siteID)) {
		errorMessage("nonum", siteID);
		return;
	}

	siteID = parseInt(siteID);

// CHECK TYPE
	if (document.CodeForm.Type[0].selected) {
		typeID = 1; }
	else if (document.CodeForm.Type[1].selected) {
		typeID = "1i"; }
	else if (document.CodeForm.Type[2].selected) {
		typeID = 2; }
	else if (document.CodeForm.Type[3].selected) {
		typeID = "2i"; }
	else if (document.CodeForm.Type[4].selected) {
		typeID = 3; }
	else {
		typeID = "3i"; }

// Check Border width
	border = document.CodeForm.border.value;
	border = parseInt(border)

// Check Cell Padding
	cellpadding = document.CodeForm.cellpadding.value;
	cellpadding = parseInt(cellpadding)

// Check Cell Spacing
	cellspacing = document.CodeForm.cellspacing.value;
	cellspacing = parseInt(cellspacing)

// check RED
	red = document.CodeForm.red.value;

// check GRREEN
	green = document.CodeForm.green.value;

// check BLUE
	blue = document.CodeForm.blue.value;

// Set bgcolor
	if (red == "" || green == "" || blue == "" ) {
		bgcolor = "";
	}
	else {
		bgcolor = red + green + blue;
	}
	

// CREATE NEW WINDOW
	codeWin = open("", "displayWindow", "width=580,height=500,status=yes,toolbar=no,menubar=no,screenX=10,screenY=10");


// OPEN WINDOW DOCUMENT
	codeWin.document.open();

// WINDOW TITLE
	codeWin.document.write(
	'<html>\n' +
	'<head>\n' +
	'\t<title>ROARING Ring Code - Type: ' + typeID +
	', Site ID: ' + siteID +
	'</title>\n' +
	'</head>\n' +
	'<body bgcolor="#99CCFF" text="#000000" onLoad="document.myForm.codeText.focus();document.myForm.codeText.select()">\n');

	codeWin.document.write(
	'<b><font size="+1" color="#ff6633">ROARING Ring Code created of Type: ' +
	typeID +
	' for Site ID: ' + siteID +
	'</font></b><br>\n' +
	'<b>Copy the below code to your own site.</b>' +
	'<form name="myForm">\n' +
	'<textarea name="codeText" rows="20" cols="60">');


// START ROARING CODE
	ringCode = '<!-- BEGIN ROARING CODE -->\n' +
	'<p>\n' +
	'<table border="' + border +'"';
	
	if (cellpadding >= 0) {
		ringCode = ringCode + ' cellpadding="' + cellpadding + '"';
	}
	
	if (cellspacing >= 0) {
		ringCode = ringCode + ' cellspacing="' + cellspacing + '"';
	}
	
	ringCode = ringCode + ' align="center">\n';

//codeWin.document.write(ringCode);

//SECTION 2 - TYPE 1 AND 2
	if (typeID == 1 || typeID == 2) {
	ringCode = ringCode +
	'<tr>\n' +
	'\t<td colspan="3" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<b>Member of the<br>\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';home"\n' +
	'\ttarget="_top">Ring Of Australian RoleplayING</a></b>\n' +
	'\t</td>\n'+
	'</tr>\n\n';
	}


//SECTION 2 - TYPE 3
	if (typeID == 3) {
	ringCode = ringCode +
	'<tr>\n' +
	'\t<td colspan="4" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<b>Member of the ' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';home"\n' +
	'\ttarget="_top">Ring Of Australian RoleplayING</a></b>\n' +
	'\t</td>\n' +
	'</tr>\n\n';
	}


//SECTION 2 - TYPE 1i AND 2i
	if (typeID == "1i" || typeID == "2i") {
	ringCode = ringCode +
	'<tr>\n' +
	'\t<td colspan="3" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	 siteID +';home"\n' +
	'\ttarget="_top"><img src="roaring0xx.gif" alt="roaring logo" width="300" height="60"\n' +
	'\tborder="0"><br clear=all>\n' +
	'\t<b>Member of the<br>\n' +
	'\tRing Of Australian RoleplayING</b></a>\n' +
	'\t</td>\n' +
	'</tr>\n\n';
	}


//SECTION 2 - TYPE 3i
	if (typeID == "3i") {
	ringCode = ringCode +
	'<tr>\n' +
	'<td colspan="4" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';home"\n' +
	'\ttarget="_top"><img src="roaring0xx.gif" alt="roaring logo" width="300" height="60"\n' +
	'\tborder="0"><br clear=all>\n' +
	'\t<b>Member of the ' +
	'Ring Of Australian RoleplayING</b></a>' +
	'\t</td>\n' +
	'</tr>\n\n';
	}


//SECTION 3 - TYPE 1 OR 1i
	if (typeID == 1 || typeID == "1i") {
	ringCode = ringCode +
	'<tr>\n' +
	'\t<td width="100" rowspan="2" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';prev"\n' +
	'\ttarget="_top"><font size="4">Previous Site</font></a>\n' +
	'\t</td>\n\n';

	ringCode = ringCode +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';random"\n' +
	'\ttarget="_top"><font size="4">Random Site</font></a>\n' +
	'\t</td>\n\n';

	ringCode = ringCode +
	'\t<td width="100" rowspan="2" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';next"\n' +
	'\ttarget="_top"><font size="4">Next Site</font></a>\n' +
	'\t</td>\n' +
	'</tr>\n\n';

	ringCode = ringCode +
	'<tr>\n' +
	'\t<td align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';next5"\n' +
	'\ttarget="_top"><font size="4">Next 5 Sites</font></a>\n' +
	'\t</td>\n' +
	'</tr>\n';
		}


//SECTION 3 - TYPE 2 OR 2i
	if (typeID == 2 || typeID == "2i") {
	ringCode = ringCode +
	'<tr>\n' +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';random"\n' +
	'\ttarget="_top"><font size="4">Random Site</font></a>\n' +
	'\t</td>\n\n';

	ringCode = ringCode +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';next5"\n' +
	'\ttarget="_top"><font size="4">Next 5 Sites</font></a>\n' +
	'\t</td>\n\n';

	ringCode = ringCode +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';next"\n' +
	'\ttarget="_top"><font size="4">Next Site</font></a>\n' +
	'\t</td>\n' +
	'</tr>\n';
		}

//SECTION 3 - TYPE 3 OR 3i
	if (typeID == 3 || typeID == "3i") {
	ringCode = ringCode +
	'<tr>\n' +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';prev"\n' +
	'\ttarget="_top"><font size="4">Previous Site</font></a>\n' +
	'\t</td>\n\n';

	ringCode = ringCode +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';random"\n' +
	'\ttarget="_top"><font size="4">Random Site</font></a>\n' +
	'\t</td>\n\n';

	ringCode = ringCode +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';next5"\n' +
	'\ttarget="_top"><font size="4">Next 5 Sites</font></a>\n' +
	'\t</td>\n\n';

	ringCode = ringCode +
	'\t<td width="100" align="center"';
	
	if (bgcolor != "") {
		ringCode = ringCode + ' bgcolor="#' + bgcolor;
	}
	
	ringCode = ringCode + '">\n' +
	'\t<a href="http://nav.webring.org/cgi-bin/navcgi?ring=roaring;id='+
	siteID +';next"\n' +
	'\ttarget="_top"><font size="4">Next Site</font></a>\n' +
	'\t</td>\n' +
	'</tr>\n';
	}

// END ROARING CODE
	ringCode = ringCode +
	'</table>\n' +
	'</p>\n' +
	'<!-- END ROARING CODE -->';


// Write ringCode into form
	var ringCodeForForm = ringCode.replace(/>/g, "&gt;");
	ringCodeForForm = ringCodeForForm.replace(/</g, "&lt;");

	codeWin.document.write(ringCodeForForm);


// END FORM
	codeWin.document.write(
	'</textarea>\n' +
	'</form>\n\n');


// Write RingCode into page
	codeWin.document.write(
	'<br clear=all>\n' +
	'<font size="+2">Sample of code choosen:</font>\n\n');
	
	var ringCode2 = ringCode.replace(/roaring0xx\.gif/g, "http://www.necronomicon.org/cgi-bin/rand_roaring.pl");

	codeWin.document.write(ringCode2 + "\n\n");


// WINDOW FOOT
	codeWin.document.write(
	'</body>\n' +
	'</html>');

// CLOSE WINDOW DOCUMENT
	codeWin.document.close();
	}
