// vs. 0,00 promille - copyright e-dvertising.at 11/2005

function zaehler(op, feld, menge){

	zaehler_feld = parseFloat(document.kalkulator[feld].value);

	// dazuzaehlen oder abziehen
	if(op=='p'){ 
		zaehler_neu = zaehler_feld + menge;
	} else{
		zaehler_neu = zaehler_feld - menge;
	}

	// runden damit immer nur eine nachkomma stelle
	zaehler_neu = Math.round(zaehler_neu * 10000) / 10000;

	if(zaehler_neu < 0){
		zaehler_neu = 0;
	}
	document.kalkulator[feld].value = zaehler_neu;

}

//radio button checken
function be_checked(feld, x){
	document.kalkulator[feld][x].checked = true;
}

function runden(floatzahl,nachkomma,c) {
	var out;
	floatzahl = floatzahl.toString();
	var p = floatzahl.indexOf('.');
	if (p != -1) {
		out = floatzahl.substring(0,p);
		out += c + floatzahl.substring(p+1,p+1+nachkomma);
	}
	else {
		var n = "";
		for (t=0;t<nachkomma;t++)
			n += "0";
		out = floatzahl + c + n;
	}
	return out;
}


function berechnen() {
	//formular
	var f = document.kalkulator;

	// Getränke
	bier = parseFloat(f.bier.value);

	if(isNaN(bier)){bier=0;f.bier.value=0;}

	wein = f.wein.value;
	if(isNaN(wein)){wein=0;f.wein.value=0;}

	likoer = f.likoer.value;
	if(isNaN(likoer)){likoer=0;f.likoer.value=0;}

	schnaps = f.schnaps.value;
	if(isNaN(schnaps)){schnaps=0;f.schnaps.value=0;}

	bacardi = f.bacardi.value;
	if(isNaN(bacardi)){bacardi=0;f.bacardi.value=0;}

	whiskey = f.whiskey.value;
	if(isNaN(whiskey)){whiskey=0;f.whiskey.value=0;}

	zeitraum = parseFloat(f.zeitraum.value);

	gewicht = parseFloat(f.gewicht.value);

	// Magenfüllung
	for (i=0;i<=3;i++){
		if (f.mahlzeit[i].checked){
			magenfuellung = parseFloat(f.mahlzeit[i].value);
		}
	}

	// Geschlecht
	for (i=0;i<2;i++){
		if (f.geschlecht[i].checked){
			geschlecht = parseFloat(f.geschlecht[i].value);
		}
	}

	// Konstitution
	//for (i=0;i<3;i++){
		//if (f.konstitution[i].checked){
			//konstitution = parseFloat(f.konstitution[i].value);
		//}
	//}

	konstitution = 0.12; //keine auswahl

	alkohol = ( (bier / (100 / 5) ) +
            (wein / (100 / 11) ) +
            (whiskey / (100 / 42) ) +
            (schnaps / (100 / 32)) +
            (likoer / (100 / 24)) +
            (bacardi / (100 / 37)) ) * 800;

	promille = (alkohol / (gewicht * geschlecht)) - (zeitraum * konstitution) - (magenfuellung * konstitution);

	if (promille < 0){
		promille = 0.0;
	}

	// Zeit bis zum Maximum
	if(promille==0){
		max_zr=0;
	} else {
		max_zr = zeitraum + magenfuellung;
	}

	// Gesamt-Zeit bis zur Nüchternheit
	nuechtern = max_zr + (promille / konstitution);

	ergebnis_1 = runden(promille,2,",") + " ‰";
	ergebnis_2 = runden(max_zr,1,",") + " std.";
	ergebnis_3 = runden(alkohol,1,",") + " g";
	ergebnis_4 = runden(nuechtern,1,",") + " std.";
	ergebnis_5 = runden(promille,2,",");

	text_promille="";

	if((promille<0.2) && (promille>0)){
		text_promille="Leicht enthemmende Wirkung.";
	} 
	if((promille>=0.2) && (promille<0.5)){
		text_promille="Widerstand gegen Alkohol lässt nach, Risikobereitschaft steigt, Konzentrationsfähigkeit und Auffassungsgabe werden schlechter, Wärmegefühl, Zwanglosigkeit.";
	}
	if((promille>=0.5) && (promille<0.8)){
		text_promille="Selbstkritik und Urteilsvermögen lassen nach, Reizbarkeit steigt, Entfernungen und Geschwindigkeiten werden falsch eingeschätzt, Hell/Dunkel-Anpassung lässt nach, Bewegungskoordination wird schlechter. Enthemmung, Selbstüberschätzung. Das Unfallrisiko steigt um das Doppelte.";
	}
	if((promille>=0.8) && (promille<1)){
		text_promille="Gleichgewichtsstörungen, das Gesichtsfeld ist eingeengt (Tunnelblick), die Reaktionszeit ist um etwa 35 % verlängert, deutliche Enthemmung, Selbstüberschätzung. Starke Beeinträchtigung der Nachtsehfähigkeit und der optischen Reaktionen. Das Unfallrisiko steigt bereits um das Vierfache an.";
	}
	if((promille>=1) && (promille<2)){
		text_promille="Sprachstörungen, Risikobereitschaft und Aggressivität steigen. Unsicheres Gehen und Stehen. Enthemmung, Verlust der Selbstkontrolle, Gleichgewichtsstörungen. Das Unfallrisiko steigt auf das 10fache.";
	}
	if((promille>=2) && (promille<3)){
		text_promille="Starke Koordinations- und Gleichgewichtsstörungen, Sprachstörungen, lallende Aussprache, Verwirrtheit, Gedächtnisstörungen, Bewusstseinsstörungen, Erbrechen.";
	}

	if((promille>=3) && (promille<5)){
		text_promille="Lähmungserscheinungen, Doppeltsehen und Ausschaltung des Erinnerungsvermögens;  lebensbedrohliche Zustände; es besteht die Gefahr einer Lähmung des Atmungszentrums, die zu Koma oder Tod führen kann!";
	}
	if(promille>=5){
		text_promille="In den meisten Fällen Tod.";
	}
	ergebnis_6 = text_promille;

	if((navigator.appName=="Opera") && (parseInt(navigator.appVersion) <= 7)){
		opera_txt = "Promille-Maximum: " + ergebnis_1 + "\n";
		opera_txt += "Maximum erreicht nach: " + ergebnis_2 + "\n";
		opera_txt += "Alkoholaufnahme: " + ergebnis_3 + "\n"; 
		opera_txt += "Nüchtern nach:  " + ergebnis_4 + "\n"; 
		opera_txt += "Wirkung bei  " + ergebnis_5 + " Promille(‰):\n";
		opera_txt += text_promille;
		document.forms['kalkulator'].ergebnis.value = opera_txt;
	} else {
		document.getElementById('ergebnis1').firstChild.nodeValue=ergebnis_1;
		document.getElementById('ergebnis2').firstChild.nodeValue=ergebnis_2;
		document.getElementById('ergebnis3').firstChild.nodeValue=ergebnis_3;
		document.getElementById('ergebnis4').firstChild.nodeValue=ergebnis_4;
		document.getElementById('ergebnis5').firstChild.nodeValue=ergebnis_5;
		document.getElementById('ergebnis6').firstChild.nodeValue=ergebnis_6;
	}

}