//
// Javascript library containing the "svUnits" unit conversion widget
// basic die rolling functions
// v1.0 - 8/28/09
//
// Based on javascript code copyright 1999 by Scott Virtes
// Widget code copyright 2009 by Scott Virtes
//

var debug=0;
var SVROLLER_SID = 3;
var MAX_ROLLS = 20;


// these variables can be set by user before calling this library
// but if not, here are the defaults:
if (typeof(svRoller_top_blurb) == 'undefined') svRoller_top_blurb="Let's roll some dice!";
if (typeof(svRoller_main_bg) == 'undefined') svRoller_main_bg="white";
if (typeof(svRoller_main_text) == 'undefined') svRoller_main_text="navy";
if (typeof(svRoller_main_border) == 'undefined') svRoller_main_border="1px solid blue";
if (typeof(svRoller_top_bg) == 'undefined') svRoller_top_bg="navy";
if (typeof(svRoller_top_text) == 'undefined') svRoller_top_text="white";
if (typeof(svRoller_top_border) == 'undefined') svRoller_top_border="0px";
if (typeof(svRoller_result_bg) == 'undefined') svRoller_result_bg="#eeeeee";
if (typeof(svRoller_result_text) == 'undefined') svRoller_result_text="black";
if (typeof(svRoller_result_border) == 'undefined') svRoller_result_border="0px";
if (typeof(svRoller_ctrl_bg) == 'undefined') svRoller_ctrl_bg="#dddddd";
if (typeof(svRoller_ctrl_text) == 'undefined') svRoller_ctrl_text="black";
if (typeof(svRoller_ctrl_border) == 'undefined') svRoller_ctrl_border="1px solid gray";

function nextRandomNumber()
{
	var Hi = this.seed / this.Q;
	var Lo = this.seed % this.Q;
	var Test = this.A * Lo - this.R * Hi;
	if (Test>0)
		this.seed = Test
	else
		this.seed = Test + this.M;
	return (this.seed * this.oneOverM);
}

function randomNumberGen()
{
	var D = new Date();
	this.seed = 2345679081 + (D.getSeconds() * 0xFFFFFF)
				     + (D.getMinutes() * 0xFFFF);
	this.A = 48271;
	this.M = 2147483647;
	this.Q = this.M / this.A;
	this.R = this.M % this.A;
	this.oneOverM = 1.0 / this.M;
	this.next = nextRandomNumber;
}

function rollOne(sides)
{
//	roll = Math.round(Rand.next() * sides) + 1;
	rnd = Rand.next();
	roll = Math.round(rnd * 11111) % sides + 1;
//	alert( rnd + "=" + roll );
	return roll;
}

function rollMany(count, sides, modifier, multiplier)
{
	msg = "";
	total = modifier;
	for (i=0; i<count; i++)
	{
		roll = rollOne(sides);
		if (i==0)
		{
			msg = "" + roll;
		} else {
			msg = msg + "," + roll;
		}
		total += roll;
	}
	total *= multiplier;
	msg = msg + " = " + total;
//	alert( msg );
	return total;
}

//
// set a preset (using a button)
//
function preset(frm, dice, sides)
{
  frm.txtDice.value = dice;
  frm.txtSides.value = sides;
  frm.txtAdd.value = "0";
  frm.txtMult.value = "1";
  frm.txtRolls.value = "1";
  frm.txtHit.value = "0";
}

////
//  read settings from the form elements of frm, and roll the dice
////
function rollEm(frm)
{
	dice = parseInt(frm.txtDice.value);
	sides = parseInt(frm.txtSides.value);
	adder = parseInt(frm.txtAdd.value);
	mult = parseInt(frm.txtMult.value);
	rolls = parseInt(frm.txtRolls.value);
	hit = parseInt(frm.txtHit.value);

	frm.txtResults.value = "";
//        alert(rolls);
	if (rolls>MAX_ROLLS){
		alert("The maximum number of rolls is "+MAX_ROLLS+".");
		rolls=MAX_ROLLS;
	}
	count = 0;
	hits = 0;
	result = "";
	for (ii=0; ii<rolls; ii++)
	{
	   x = rollMany(dice, sides, adder, mult);
	   msg = x;
	   if (hit>0)
	   {
		if (x>=hit) 
		{
		   msg = x + " (Success!)";
		   hits++;
		}
	   }
	   if (result>"") result +="\n";
	   result += msg;
	   count++;
	   if (count>MAX_ROLLS) break;
	}
	//
	if (hit>0)
	{
    	   msg = "\n\n" + hits + " successful rolls";
    	   result += msg;
	}
   frm.txtResults.value = result;
}

// write all our style stuff here:
document.write("<style>.svRoller_main{font-family: Arial,Helvetica,Sans-Serif;font-size: 11px;background-color:"+svRoller_main_bg+"; color:"+svRoller_main_text+";border: "+svRoller_main_border+";}"
	+ ".svRoller_head{background-color:"+svRoller_top_bg+"; font-size: 14px;height: 24px;text-align: center;color:"+svRoller_top_text+";border:"+svRoller_top_border+";}"
	+ ".svRoller_ctrl{background-color:"+svRoller_ctrl_bg+"; font-size: 11px;height: 24px;text-align: left;color:"+svRoller_ctrl_text+";border:"+svRoller_ctrl_border+";}"
	+ ".svRoller_input{font-size:11px;}"
	+ ".svRoller_result{background-color:"+svRoller_result_bg+"; font-size: 14px;text-align: center;color: "+svRoller_result_text+";border:"+svRoller_result_border+";}</style>");

// write all our startup HTML here:
document.write("<div id='svRoller_main' width='250' height='260'>\n"
	+ "<form name='scvRoller_form'>"
	+ "<table width='248' height='258' border='0' class='svRoller_main'>\n"
	+ "<tr>\n"
	+ "<td class='svRoller_head'><b>svRoller</b>"+svRoller_top_blurb+"</td>\n"
	+ "</tr>");

var svRoller_about = "<a style='font-size:10px;' target='new' href='http://scvs.com/svRoller.php'>About <b>svRoller</b></a>\n";

// this row has our controls
document.write("<tr>\n"
	+ "<td>"
	+ "<table width='100%' border='0' class='svRoller_ctrl'>"
	+ " <tr>"
	+ "  <td align='right'>Type of dice:</td>"
	+ "  <td>"
	+ "  <INPUT class='svRoller_input' TYPE='text' NAME='txtDice' VALUE='3' SIZE='3' MAXLENGTH='4'>"
	+ "  d <INPUT class='svRoller_input' TYPE='text' NAME='txtSides' VALUE='6' SIZE='3' MAXLENGTH='4'>"
	+ "  + <INPUT class='svRoller_input' TYPE='text' NAME='txtAdd' VALUE='0' SIZE='3' MAXLENGTH='4'>"
	+ "  </td>"
	+ " </tr><tr>"
	+ "  <td align='right'>Presets:</td>"
	+ "  <td>"
	+ "  <INPUT class='svRoller_input' TYPE='button' NAME='but_d20' VALUE='d20' onClick='javascript:preset(this.form, 1, 20);'>"
	+ "  <INPUT class='svRoller_input' TYPE='button' NAME='but_d100' VALUE='d%' onClick='javascript:preset(this.form, 1, 100);'>"
	+ "  <INPUT class='svRoller_input' TYPE='button' NAME='but_3d6' VALUE='3d6' onClick='javascript:preset(this.form, 3, 6);'>"
	+ "  </td>"
	+ " </tr>"
	+ " <tr>"
	+ "  <td align='right'>Multiplier:</td>"
	+ "  <td>"
	+ "  <INPUT class='svRoller_input TYPE='TEXT' NAME='txtMult' VALUE='1' SIZE='3' MAXLENGTH='4'> (optional)"
	+ "  </td>"
	+ " </tr>"
	+ " <tr>"
	+ "  <td align='right'>Success:</td>"
	+ "  <td>"
	+ "  <INPUT class='svRoller_input' TYPE='TEXT' NAME='txtHit' VALUE='0' SIZE='3' MAXLENGTH='4'> (optional)"
	+ "  </td>"
	+ " </tr>"
	+ " <tr>"
	+ "  <td align='right'><b>Number of rolls:</b></td>"
	+ "  <td>"
	+ "  <INPUT class='svRoller_input' TYPE='TEXT' NAME='txtRolls' VALUE='1' SIZE='3' MAXLENGTH='4'>"
	+ "  <INPUT class='svRoller_input' TYPE='Button' NAME='Submit' VALUE='Roll Em!' OnClick='rollEm(this.form);'>"
	+ "  </td>"
	+ " </tr>"
	+ "</table>"
	+ "</td></tr>"
	);

document.write("<tr><td class='svRoller_result'>\n"
	+ "<div id='svRoller_result' width='298' height='150'>"
	+ "Results:<br/>"
	+ "<TEXTAREA class='svRoller_input' NAME='txtResults' COLS='30' ROWS='7'></TEXTAREA>"
	+ "<br/>"
	+ svRoller_about
	+ "</div>\n"
	+ "</td></tr>\n"
	+ "</table>\n</form>\n</div>\n");

Rand = new randomNumberGen();