//===================AODWiki e-BAC Calculator====================
//========================version 1.0============================
//============Available for noncommercial distribution===========
//==== See http://aodwiki.org/index.php/AODWiki:Copyrights ======
//================ for more information =========================
//=========== Offered without Warranty ==========================

//================================Declare Valiables
var beers;
var wine;
var spirits;
var hours;
var pounds;
var genderconstant;
//===============================Calculation function
function eBAC(form){
//=====================Error checking and set value to null
form.estimate.value="";
if (form.num_beers.value =="") {
form.num_beers.value = "0";
}
if (form.num_wine.value =="") {
form.num_wine.value = "0";
}
if (form.num_spirits.value =="") {
form.num_spirits.value ="0";
}
if (form.num_hours.value =="") {
alert ("Please complete the HOURS field");
return;
}
if (form.num_pounds.value =="") {
alert ("Please complete the WEIGHT field");
return;
}
//=======================================Read in entered values
beers=eval(form.num_beers.value);
wine=eval(form.num_wine.value);
spirits=eval(form.num_spirits.value);
hours=eval(form.num_hours.value);
pounds=eval(form.num_pounds.value);

if (form.Gender[0].checked) {
var genderconstant=7.5;
}
else if (form.Gender[1].checked) {
var genderconstant=9;
}
//======================================Calculate estimate
var standarddrinks=beers+wine+spirits;
var bacestimate=((standarddrinks/2)*(genderconstant/pounds))-(0.017*hours);
if (bacestimate< 0) {
bacestimate=0;
}
if (bacestimate>.50) {
alert ("Your estimate exceeds .50, please check your entries");
return;
}
//========================================Return result
form.estimate.value=bacestimate;
}