function danslista(l){
	this.length = l;
	for(i=0;i<l;i++)
		this[i] = "-";
}

function block(l){
	this.length = l;
	for(i=0;i<l;i++)
		this[i] = "";
}

function dup(l){
	this.length = l;
	for(i=0;i<l;i++)
		this[i] = "";
}

function choise(l){
	this.length = l;
	for(i=0;i<l;i++)
		this[i] = 0;
}


dansnamn=new danslista(151);
lika=new block(151);
sparr=new dup(12);
dansval=new choise(12);


// 10 poäng
dansnamn[1] = "Bakmes, hambovals & pols från Särna (variant a)";
lika[1] = "1";
dansnamn[2] = "Bakmes & pols i turer från Idre";
lika[2] = "2";
dansnamn[3] = "Bakmes & slängpolsk fr ö Klarälvsdalen";
lika[3] = "a";
dansnamn[4] = "Bakmes & springdans fr Rörbäcksnäs";
lika[4] = "7";
dansnamn[5] = "Gammalvänster från Oviken";
dansnamn[6] = "Polsk från Finnskoga";
lika[6] = "a";
dansnamn[7] = "Polska från Boda";
dansnamn[8] = "Polska från Orsa";
dansnamn[9] = "Polska från Orust";
dansnamn[10] = "Polska från östra Jämtland - senpolska";
dansnamn[11] = "Polskdans-Springdans fr Hogdal-Lommeland";
lika[11] = "6";
dansnamn[12] = "Polskor från Bingsjö";
lika[12] = "b";
dansnamn[13] = "Storpolska från Vemdalen";

// 9 poäng
dansnamn[26] = "Bakmes, hambovals & pols från Särna (variant b)";
lika[26] = "1";
dansnamn[27] = "Bakmes fr Hede, Backmans variant";
lika[27] = "4";
dansnamn[28] = "Bakmes fr Hede, Perssons variant";
lika[28] = "4";
dansnamn[29] = "Bakmes från Lillhärdal";
lika[29] = "5";
dansnamn[30] = "Bakmes & polska från Transtrand";
lika[30] = "8";
dansnamn[31] = "Bakmes & slängpolsk fr ö Klarälvsdalen";
lika[31] = "a";
dansnamn[32] = "Bondpolska från Viksta";
dansnamn[33] = "Hambopolska från södra Dalarna";
dansnamn[34] = "Klacklekspolska från Malung";
lika[34] = "3";
dansnamn[35] = "'Norsk mazurka' från Lima";
dansnamn[36] = "Polsk från Finnskoga";
lika[36] = "a";
dansnamn[37] = "Polska m kast - Malungslek";
lika[37] = "3";
dansnamn[38] = "Polska från Skepplanda";
dansnamn[39] = "Polska från Tiveden";
dansnamn[40] = "Polska från Årsunda";
dansnamn[41] = "Polska på fläck - Trinnpolska";
dansnamn[42] = "Polska & bakmes fr Kall";
dansnamn[43] = "Polska & bakmes fr Ramsele (Jämtp & bakm)";
dansnamn[44] = "Polskdans-Springdans fr Hogdal-Lommeland";
lika[44] = "6";
dansnamn[45] = "Slängpolska från Malung";
lika[45] = "3";
dansnamn[46] = "Slängpolska - Fyrpolska fr Södermanland";
dansnamn[47] = "Slängpolska från Torp";
dansnamn[48] = "Springdans från Rörbäcksnäs";
lika[48] = "7";
dansnamn[49] = "Storhurveln (Svängpolska) fr Funäsdalen";

// 8 poäng
dansnamn[51] = "Bakmes från Lillhärdal";
lika[51] = "5";
dansnamn[52] = "Bakmes från Ragunda";
dansnamn[53] = "Bakmes från övre Klarälvsdalen";
lika[53] = "a";
dansnamn[54] = "Bakmes och pols från Idre";
lika[54] = "2";
dansnamn[55] = "Bakmes och pols från Särna";
lika[55] = "1";
dansnamn[56] = "Bakmes och polska från Transtrand";
lika[56] = "8";
dansnamn[57] = "Enbenspolska från Bingsjö";
lika[57] = "b";
dansnamn[58] = "Enbenspolska - Bodavariant";
dansnamn[59] = "Gammalpolska från Stugun";
dansnamn[60] = "Klackpolska från norra Ångermanland";
dansnamn[61] = "'Norsk mazurka', Transtrand";
dansnamn[62] = "Polsk från Finnskoga";
lika[62] = "a";
dansnamn[63] = "Polska från Ramsjö - Stigpolska";
dansnamn[64] = "Polska från Skaftö I";
dansnamn[65] = "Polska från södra Ångermanland";
dansnamn[66] = "Polska från Älvdalen";
dansnamn[67] = "Polska - slängpolska - från Äppelbo";
dansnamn[68] = "Polska och bakmes från Mattmar";
dansnamn[69] = "Slängpolsk från övre Klarälvsdalen";
lika[69] = "a";
dansnamn[70] = "Slängpolska från Karlskogatrakten";
lika[70] = "9";
dansnamn[71] = "Slängpolska från Malung";
lika[71] = "3";
dansnamn[72] = "Slängpolska från Stugun";
dansnamn[73] = "Slängpolska från Svanskog";
dansnamn[74] = "Slängpolska från Vikbolandet";
dansnamn[75] = "Svingpolsk-Svingdans från ö Fryksdalen";
lika[75] = "c";

// 7 poäng
dansnamn[76] = "Bakmes från Haverö";
dansnamn[77] = "Bakmes från Idre";
lika[77] = "2";
dansnamn[78] = "Bakmes från övre Klarälvsdalen";
lika[78] = "a";
dansnamn[79] = "Bakmes från Rörbäcksnäs";
lika[79] = "7";
dansnamn[80] = "Bakmes från Särna";
lika[80] = "1";
dansnamn[81] = "Bakmes från Transtrand";
lika[81] = "8";
dansnamn[82] = "Gammalpolska från Ragunda";
dansnamn[83] = "Hambo från Oviken, Erikssons hambo";
dansnamn[84] = "Hambo från Oviken, Svedåkers hambo";
dansnamn[85] = "Huppleken, tur I & II";
dansnamn[86] = "Käringa ma stavin";
lika[86] = "12";
dansnamn[87] = "Mazurka från Östmark";
dansnamn[88] = "Nåsföra";
dansnamn[89] = "Polsk från Finnskoga";
lika[89] = "a";
dansnamn[90] = "Polska från Haverö - senpolska";
dansnamn[91] = "Polska från Rättvik";
dansnamn[92] = "Polska från Skaftö II, slängpolska";
dansnamn[93] = "Polska från Transtrand";
lika[93] = "8";
dansnamn[94] = "Senpolska från Torp";
dansnamn[95] = "Sjuskevalappen";
dansnamn[96] = "Slängpolsk från övre Klarälvsdalen";
lika[96] = "a";
dansnamn[97] = "Slängpolska från Karlskogatrakten";
lika[97] = "9";
dansnamn[98] = "Springpolska från Bingsjö";
lika[98] = "b";
dansnamn[99] = "Stigvals & bakmes till polskmelodi fr Oviken";
dansnamn[100] = "Svingpolsk-Svingdans från ö Fryksdalen";
lika[100] = "c";

// 6 poäng
dansnamn[101] = "Bakmes från Transtrand";
lika[101] = "8";
dansnamn[102] = "Bosk";
dansnamn[103] = "Flopolska - Polska från Dala Floda";
dansnamn[104] = "Gagnsföra";
dansnamn[105] = "Gammalpolska från Ramsele";
dansnamn[106] = "Hambo från Lillhärdal";
lika[106] = "5";
dansnamn[107] = "Kringellek från Gagnef";
dansnamn[108] = "Leidelåten från Norrbärke";
dansnamn[109] = "Leksandslåten";
dansnamn[110] = "Polska från Alfta eller Arbrå";
dansnamn[111] = "Polska från Bingsjö";
lika[111] = "b";
dansnamn[112] = "Polska från Gagnef";
dansnamn[113] = "Polska från Järvsö";
dansnamn[114] = "Polska från Ore";
dansnamn[115] = "Polska från södra Dalarna";

// 5 poäng
dansnamn[126] = "Fiskardans";
dansnamn[127] = "Limmerhults gammelpolska";

function fetchName(p, d, n, i){
//info.value="fetchName";
	if(p.selectedIndex == 0){
		n.value = "Välj poäng";
		sparr[i] = "";
		dansval[i] = 0;
//		p.focus();
	}
	else if(d.selectedIndex == 0){
		n.value = "Välj dans";
		sparr[i] = "";
		dansval[i] = 0;
//		d.focus();
	}
	else
		lookUpName(p, d, n, i);
	return;
}

function lookUpName(p, d, n, i){
//info.value="lookUpName";
	dansnummer = 25 * (p.selectedIndex - 1) + d.selectedIndex;
	n.value = dansnamn[dansnummer];
	dansval[i] = dansnummer;
	if(n.value == "-")
		d.focus();
	sparr[i] = lika[dansnummer];
	return
}

function checkSparr(p, d, n, i){
	fetchName(p, d, n, i);
	if((dansval[i] != 0) && (i < 6)){
		for(j=0;j<6;j++){
			if(j != i){
				if(dansval[j] == dansval[i]){
					alert("Dansen redan vald, se dans "+(j+1));
					d.focus();
					break;
				}
				else if((sparr[i] != "") && ((sparr[j] == sparr[i]) ||
						 ((sparr[j] == "12") && ((sparr[i] == "1") || (sparr[i] == "2"))) ||
						 ((sparr[i] == "12") && ((sparr[j] == "1") || (sparr[j] == "2"))))){
					text = "'" + n.value + "' kan ej kombineras med dans "+(j+1);
					alert(text);
					d.focus();
					break;
				}
			}
		}
	}
	else if((dansval[i] != 0) && (i > 5)){
		for(j=6;j<12;j++){
			if(j != i){
				if(dansval[j] == dansval[i]){
					alert("Dansen redan vald, se dans "+(j-5));
					d.focus();
					break;
				}
				else if((sparr[i] != "") && ((sparr[j] == sparr[i]) ||
						 ((sparr[j] == "12") && ((sparr[i] == "1") || (sparr[i] == "2"))) ||
						 ((sparr[i] == "12") && ((sparr[j] == "1") || (sparr[j] == "2"))))){
					text = "'" + n.value + "' kan ej kombineras med dans "+(j-5);
					alert(text);
					d.focus();
					break;
				}
			}
		}
	}
//	if(sparr[i] != ""){
//		for(j=0;j<6;j++){
//			if(j != i){
//				if((sparr[j] == sparr[i]) ||
//				   ((sparr[j] == "12") && ((sparr[i] == "1") || (sparr[i] == "2"))) ||
//				   ((sparr[i] == "12") && ((sparr[j] == "1") || (sparr[j] == "2")))){
//					text = "'" + n.value + "' kan ej kombineras med dans "+(j+1);
//					alert(text);
//					d.focus();
//					break;
//				}
//			}
//		}
//	}
	if(n.value == "-"){
		d.selectedIndex = 0;
		fetchName(p, d, n, i);
	}
	return;
}