var sti="";		//server sti
var pause=0;				//default pause
var karak;					//Fyr karakter
//sti til billeder af fyr slukket hvidt rødt og grønt
fyrO=sti+"/gfx/fyr/fyrOff.jpg";	//slukket
fyrH=sti+"/gfx/fyr/fyrOnW.jpg";	//hvidt
fyrR=sti+"/gfx/fyr/fyrOnR.jpg";	//rødt
fyrG=sti+"/gfx/fyr/fyrOnG.jpg";	//grønt
//henter billeder så de ligger i hukommelsen
	fyron = new Image();
	fyron.src=fyrO;
	fyroff = new Image();
  	fyroff.src=fyrH;
	
	
function setFarve()	//sætter on off billeder 
{
	switch(arguments[0])
	{
		case 'W':	//hvidt fyr
					fyron.src=fyrH; 
					fyroff.src=fyrO; 
					document.indForm.farve[0].checked=true;
					return 0;
		case 'R':	//rødt fyr
					fyron.src=fyrR; 
					fyroff.src=fyrO; 
					document.indForm.farve[1].checked=true;
					//document.indForm.farve.value='R';
					return 0;
		case 'G':	//grønt fyr
					fyron.src=fyrG; 
					fyroff.src=fyrO; 
					document.indForm.farve[2].checked=true;
					//document.indForm.farve.value='G';
					return 0;
		case 'Oh':	//billeder byttes for at blike med mørke (omvendt)
					fyron.src=fyrO; 
					fyroff.src=fyrH; 
					document.indForm.farve[0].checked=true;
					return 0;
	}
	return 0;
}

function fyra()	//funktion der styre de første blink
	{
		if((document.indForm.i.value++)%2)	//hver anden gang tændes
			document.indForm.pic.src=fyron.src
		else		//den anden slukckes
			document.indForm.pic.src=fyroff.src; 
		//hvis fyret ikke har blinket nok endnu kaldes fyra igen via setTimeout
		if((document.indForm.i.value)<=(document.indForm.antala.value*2))
			setTimeout('fyra()',document.indForm.typea.value);	//venter x antal mSek før fyra kaldes
		else //ellers kaldes fyr b hvis det skal blinke
		if(document.indForm.antalb.value!=0)
		{
			document.indForm.q.value=0;
			setTimeout('fyrb()',document.indForm.typea.value);	//venter x antal mSek før fyr b kaldes
		}
		else	//hvis fyr b ikka skal blinke kaldes fyr a igen med pause i setTimeout
		{
			document.indForm.i.value=0;
			setTimeout('fyra()',pause);
		}
		return 0;
	}
function fyrb()	//funktion der styre de næste blink
	{	//funktion fungere ligesom fyra
		if((++document.indForm.q.value)%2)
			document.indForm.pic.src=fyron.src;
		else document.indForm.pic.src=fyroff.src;
		if(((document.indForm.q.value)<(document.indForm.antalb.value*2)) )
			setTimeout('fyrb()',document.indForm.typeb.value);
		else 
		{
			document.indForm.i.value=0;
			setTimeout('fyra()',pause-document.indForm.typea.value);
		}
		return 0;
	}
function nyFyr()	//funktion der initialisere en karakter
{
	switch (arguments[0])
	{
		case "bbfl1":	//bagbord sideafmærkning
			document.indForm.antala.value=1;
			document.indForm.typea.value=1000;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=3000;
			setFarve('R');
			setPause();
			return 0;
		case "fl2":		//fl(2) 9 sek
			document.indForm.antala.value=2;
			document.indForm.typea.value=1000;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=9000;
			setFarve('W');
			setPause();
			return 0;
		case "sbfl2":	//styrbord sideafmærkning (Fl(2) 5s)
			document.indForm.antala.value=2;
			document.indForm.typea.value=1000;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=5000;
			setFarve('G');
			setPause();
			return 0;
		case "sbVq":	//sb sideafmærkning (VQ)
			document.indForm.antala.value=2;
			document.indForm.typea.value=1000;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=5000;
			setFarve('G');
			setPause();
			return 0;
		case "bbfl3":	//bb side afmæek fl(3) 9s
			document.indForm.antala.value=3;
			document.indForm.typea.value=1000;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=9000;
			setFarve('R');
			setPause();
			return 0;
		case "fl2-10":	//fl(2) 10s
			document.indForm.antala.value=2;
			document.indForm.typea.value=1000;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=10000;
			setFarve('W');
			setPause();
			return 0;
		case "q":	//Q
			document.indForm.antala.value=5;
			document.indForm.typea.value=500;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=500;
			document.indForm.periode.value=5000;
			setFarve('W');
			setPause();
			return 0;
		case "q3":		//q(3) 6s
			document.indForm.antala.value=3;
			document.indForm.typea.value=500;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=6000;
			setFarve('W');
			setPause();
			return 0;
		case "q6l":		//q(6)+LFl 15s
			document.indForm.antala.value=6;
			document.indForm.typea.value=500;
			document.indForm.antalb.value=1;
			document.indForm.typeb.value=2000;
			document.indForm.periode.value=15000;
			setFarve('W');
			setPause();
			return 0;
		case "q9": //q(9) 15s
			document.indForm.antala.value=9;
			document.indForm.typea.value=500;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=15000;
			setFarve('W');
			setPause();
			return 0;
		case "iso":		//iso 4s
			document.indForm.antala.value=1;
			document.indForm.typea.value=2001;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=4000;
			setFarve('W');
			setPause();
			return 0;
		case "midt1":	//midtfarvand   iso 4s
			document.indForm.antala.value=1;
			document.indForm.typea.value=2001;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=4000;
			setFarve('W');
			setPause();
			return 0;
		case "midt2":	//midtfarvand  LFl 8s
			document.indForm.antala.value=1;
			document.indForm.typea.value=2000;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=8000;
			setFarve('W');
			setPause();
			return 0;
		case "OC2":		//formørkelses fyr OC(2) 7s
			document.indForm.antala.value=2;
			document.indForm.typea.value=999;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=7000;
			setFarve('Oh');
			setPause();
			return true;
		case "Rbaake":	//rød sejlads båke  iso 2s
			document.indForm.antala.value=1;
			document.indForm.typea.value=1001;
			document.indForm.antalb.value=0;
			document.indForm.typeb.value=1000;
			document.indForm.periode.value=2000;
			setFarve('R');
			setPause();
			return true;
		case "ingen": return 0;
	}
	return 0;
}
function setPause()	//funktion der udregner pausen
{
	if(document.indForm.typea.value==999) setFarve('Oh');	//sætter farven hvis det skal formørkes
	if(document.indForm.typea.value==2001 || document.indForm.typea.value==1001 || document.indForm.typea.value==4001) 
	{	//hvis karakteren er iso
		document.indForm.antalb.value=0;
		document.indForm.antala.value=1;
		document.indForm.periode.value=2000;
	}
	//pausen udregnes
	pause=document.indForm.periode.value -document.indForm.typea.value*2*document.indForm.antala.value
			-document.indForm.typeb.value*2*document.indForm.antalb.value;
	if(pause < 0)	//hvis pausen er negativ sættes den til 0 og perioden forlænges så det passer 
	{
		pause=0;
		document.indForm.periode.value= document.indForm.typea.value*2*document.indForm.antala.value  
			+document.indForm.typeb.value*2*document.indForm.antalb.value;
	}
	//hvis det viser sig at være en iso sættes typen til iso
	if(pause==0 && document.indForm.antalb.value==0 && !document.indForm.typea.value%1000) 
		++document.indForm.typea.value;
	if(pause==0) document.indForm.antalb.value=0;
	if(is_ie5up)	//hvis browseren er ie5 eller højere 
	{	//fyrkarakter skrives til skærmen (virker kun i ie5 eller højere)
		karak="Fyrkarakter: \n"+type(document.indForm.typea.value);
		if(pause!=0) karak+="("+document.indForm.antala.value+")";
		if(document.indForm.antalb.value!=0) karak+=" +"+type(document.indForm.typeb.value)+"("+document.indForm.antalb.value+")";
		if(pause!=0) karak+=" "+document.indForm.periode.value/1000+"s";
		info.innerText=karak;
	}
	return 0;
}

function type()	//funktion der retunere tyrpe
{
	switch(arguments[0])		//finder typen til at skrive fyrkarakter
	{
		case '4001' :
		case '2001' :
		case '1001' :	return 'ISO';
		case '2000' :	return 'LFl';
		case '1000' :	return 'Fl';
		case '999'	:	return 'Oc';
		case '500' :	return 'Q';
		case '250' :	return 'VQ';
	}
	return 0;
}