var RightChar = ':)';
var WrongChar = ':(';
var StorySoFar = '';

var CurrentAnswer = '';
var GuessesSoFar = 0;
var CurrentNumber = 0;
var CurrentCorrect = 0;
var Points = 0;
var TotalSegments = 0;
var LastFive = '';
var SwitchFlag = 'PartText';

Segments = new Array();

var platform = 'win';

function Initialize(){

	if (navigator.appVersion.indexOf('Mac') != -1) {
		platform = 'mac';
	}

	if (platform == 'win'){
		for (i = 1; i < WinSegments.length; i++){
			Segments[i] = unescape(WinSegments[i]);
		}
	}
	else {
		for (i = 1; i < MacSegments.length; i++){
			Segments[i] = unescape(MacSegments[i]);
		}
	}

	TotalSegments = Segments.length - 1;

	CurrentNumber = 1;
	ShowQuestion();
	Points = 0;
	ThisQScore = 2;
	document.QuizForm.Story.value = '';
	StorySoFar = '';
	document.QuizForm.Result1.value = '';
	document.QuizForm.Result2.value = '';
	document.QuizForm.Result3.value = '';

	document.QuizForm.Guess1.focus();

}

function ShowQuestion(){

//Deal with the new paragraph thing

	if (Segments[CurrentNumber] == '[NewPara]'){
		StorySoFar += unescape('%0D%0A%0D%0A');
		Segments[CurrentNumber] = unescape('%0D%0A%0D%0A');
		Points += 2;
		CurrentNumber++;
	}

//Deal with the last two segment situation
	if (CurrentNumber == TotalSegments - 1){

		var Temp = 1 + Math.floor(2 * Math.random());
		document.QuizForm.Guess1.value = Segments[TotalSegments];
		document.QuizForm.Guess2.value = Segments[TotalSegments];
		document.QuizForm.Guess3.value = '';

		document.QuizForm.elements[(Temp*Temp)].value = Segments[CurrentNumber];
		CurrentCorrect = Temp;
		CurrentAnswer = Segments[CurrentNumber];
		ThisQScore = 1;
		return;
	}
	

	var FirstDistractor = 0;
	var SecondDistractor = 0;
	var Range = TotalSegments - CurrentNumber;


	FirstDistractor = (CurrentNumber + 1) + Math.floor(Range  *  Math.random());
	while (Segments[FirstDistractor] == '[NewPara]'){
		FirstDistractor = (CurrentNumber + 1) + Math.floor(Range  *  Math.random());
	}

	SecondDistractor = FirstDistractor;
	while ((SecondDistractor == FirstDistractor)||(Segments[SecondDistractor] == '[NewPara]')){
		SecondDistractor = (CurrentNumber + 1) + Math.floor(Range  *  Math.random());
	}

	ThreeSegments = new Array(3);
	ThreeSegments[1] = Segments[CurrentNumber];
	ThreeSegments[2] = Segments[FirstDistractor];
	ThreeSegments[3] = Segments[SecondDistractor];

	CurrentAnswer = Segments[CurrentNumber];

	MixedSegments = new Array(3);

	var j = 3;
	var i = 1;
	var Temp = 0;
	for (i = 1; i < 4; i++)  {

		Temp = 1 + Math.floor(j  *  Math.random());
		MixedSegments[i] = ThreeSegments[Temp];

		for (k=Temp; k < j; k++) {
			ThreeSegments[k] = ThreeSegments[k+1];
		}
		j = j - 1;
	}

	for (i=1; i<4; i++){
		if (MixedSegments[i] == CurrentAnswer){
			CurrentCorrect = i;
		}
	}

	document.QuizForm.Guess1.value = MixedSegments[1];
	document.QuizForm.Guess2.value = MixedSegments[2];
	document.QuizForm.Guess3.value = MixedSegments[3];
	document.QuizForm.Result1.value = '';
	document.QuizForm.Result2.value = '';
	document.QuizForm.Result3.value = '';

	ThisQScore = 2;

}

function CheckAnswer(Chosen){

	if (CurrentNumber == TotalSegments){
		return;
	}

	if (CurrentCorrect == Chosen){
		StorySoFar += CurrentAnswer;

		if (CurrentNumber == 1){
			LastFive = Segments[1];
		}

		if (CurrentNumber == 2){
			LastFive = Segments[1] + Segments[2];
		}

		if (CurrentNumber == 3){
			LastFive = Segments[1] + Segments[2] + Segments[3];
		}

		if (CurrentNumber == 4){
			LastFive = Segments[1] + Segments[2] + Segments[3] + Segments[4];
		}

		if (CurrentNumber > 4){
				LastFive = Segments[CurrentNumber - 4] + Segments[CurrentNumber - 3] + Segments [CurrentNumber - 2] + Segments[CurrentNumber - 1] + Segments[CurrentNumber];
		}


		if (CurrentNumber == TotalSegments - 1){
			StorySoFar += Segments[TotalSegments];
			LastFive += Segments[TotalSegments];
		}

		if (SwitchFlag == 'WholeText'){
			document.QuizForm.Story.value = StorySoFar;
		}
		else{
			document.QuizForm.Story.value = LastFive;
		}
	
		CurrentNumber++;
		Points += ThisQScore;
		
		if (CurrentNumber < TotalSegments){
			var CurrentScore = Math.floor(100*Points/(2*(CurrentNumber-1)));
			document.QuizForm.ScoreBox.value = CurrentScore + '%';
			ShowQuestion();
		}
		else{
			document.QuizForm.Guess1.value = RightChar;
			document.QuizForm.Guess2.value = RightChar;
			document.QuizForm.Guess3.value = RightChar;
			document.QuizForm.Result1.value = RightChar;
			document.QuizForm.Result2.value = RightChar;
			document.QuizForm.Result3.value = RightChar;
			var FinalScore = Math.floor(100*Points/((2*TotalSegments) - 3));
			document.QuizForm.ScoreBox.value = FinalScore + '%';
		}	
	}
	else{
		document.QuizForm.elements[(Chosen*3)-1].value = WrongChar;
		document.QuizForm.ScoreBox.value = '';
		if (ThisQScore > 0){
			ThisQScore--;
		}
	}
}

function SwitchStuff(WhichButton){
	SwitchFlag = WhichButton;
	if (SwitchFlag == 'WholeText'){
		document.QuizForm.Story.value = StorySoFar;
	}
	else{
		document.QuizForm.Story.value = LastFive;
	}
}

WinSegments = new Array();

WinSegments[1] = 'Winston Churchill tritt  f%FCr die Schaffung der "Vereinigten Staaten von Europa" ein. ';
WinSegments[2] = 'Stra%DFburger Vertrag : Entstehung des Europa-Rates. ';
WinSegments[3] = 'Der Pariser Vertrag  gr%FCndet die EGKS, die Europ%E4ische Gemeinschaft f%FCr Kohle und Stahl. Sechs L%E4nder sind Mitglieder. ';
WinSegments[4] = 'Der Vertrag von Rom f%FChrt den Gemeinschaftsmarkt der Sechs ein, f%FCr Deutschland, Belgien, Frankreich, Italien, Luxemburg und die Niederlande. ';
WinSegments[5] = 'Das Baseler Abkommen f%FChrt die "W%E4hrungsschlange" ein, die Schwankungen zwischen den W%E4hrungen kann nicht 2,25%25 %FCberschreiten. ';
WinSegments[6] = 'D%E4nemark, Irland und das Vereinigte K%F6nigreich treten in die EWG ein, die jetzt 9 Mitglieder z%E4hlt. ';
WinSegments[7] = 'Schaffung des Europ%E4ischen W%E4hrungssytem, das den europ%E4ischen W%E4hrungen eine gewisse Stabilit%E4t geben soll und den ECU zur Welt bringt. ';
WinSegments[8] = 'Erste Wahlen des Europa-Parlaments im  allgemeinen Wahlrecht. ';
WinSegments[9] = 'Griechenland gesellt sich zur EWG. ';
WinSegments[10] = 'Die ersten europ%E4ischen P%E4sse werden in Umlauf gebracht. ';
WinSegments[11] = 'Spanien und Portugal gesellen sich zur EWG, es ist das Europa der Zw%F6lf. ';
WinSegments[12] = 'Die europ%E4ische Einheitsakte wird in Luxemburg und in den Haag unterschrieben. ';
WinSegments[13] = 'Die Europa-Flagge wird von den Gemeinschaftsinstitutionen angenommen und wird zum ersten Mal am Giebel des "Berlaymont" zu den T%F6nen der europ%E4ischen Hymne gehisst. ';
WinSegments[14] = 'Wiedervereinigung Deutschlands. ';
WinSegments[15] = 'Die erste Phase der Wirtschafts- und W%E4hrungsunion tritt in Kraft. ';
WinSegments[16] = 'Der Vertrag der Europ%E4ischen Union wird in Maastricht von den  Ministern f%FCr das  Ausw%E4rtige Amt  und f%FCr die Finanzen unterzeichnet. ';
WinSegments[17] = 'Alle Prozeduren f%FCr die Ratifizierung des Maastrichter Vertrages sind beendet. Der Vertrag der Europ%E4ischen Union tritt in Kraft. ';
WinSegments[18] = 'Die Schengener Abkommen treten in Kraft zwischen Belgien, Frankreich, Deutschland, Luxemburg, den Niederlanden, Spanien und Portugal. ';
WinSegments[19] = 'Die zweite Etappe der Wirtschafts- und W%E4hrungsunion beginnt und das Europ%E4ische W%E4hrungsinstitut wird gegr%FCndet. Der Vertrag, der den europ%E4ischen Wirtschaftsraum einf%FChrt, tritt in Kraft. ';
WinSegments[20] = '%D6sterreich, Finnland und Schweden gesellen sich zur Europ%E4ischen Union, um das Europa der F%FCnfzehn zu bilden ';
WinSegments[21] = 'Die Zollunion zwischen der Union und der T%FCrkei tritt in Kraft. ';
WinSegments[22] = 'Unterzeichnung des Vertrages von Amsterdam, der den von Maastricht neu bildet. ';
WinSegments[23] = 'Geburt des Euro, der die offizielle W%E4hrung der elf Unionsmitglider wird. ';
WinSegments[24] = 'Euro-Banknoten und  Euro-Geldst%FCcke  werden in Umlauf gebracht. ';

MacSegments = new Array();

MacSegments[1] = 'Winston Churchill tritt  f%9Fr die Schaffung der "Vereinigten Staaten von Europa" ein. ';
MacSegments[2] = 'Stra%A7burger Vertrag : Entstehung des Europa-Rates. ';
MacSegments[3] = 'Der Pariser Vertrag  gr%9Fndet die EGKS, die Europ%8Aische Gemeinschaft f%9Fr Kohle und Stahl. Sechs L%8Ander sind Mitglieder. ';
MacSegments[4] = 'Der Vertrag von Rom f%9Fhrt den Gemeinschaftsmarkt der Sechs ein, f%9Fr Deutschland, Belgien, Frankreich, Italien, Luxemburg und die Niederlande. ';
MacSegments[5] = 'Das Baseler Abkommen f%9Fhrt die "W%8Ahrungsschlange" ein, die Schwankungen zwischen den W%8Ahrungen kann nicht 2,25%25 %9Fberschreiten. ';
MacSegments[6] = 'D%8Anemark, Irland und das Vereinigte K%9Anigreich treten in die EWG ein, die jetzt 9 Mitglieder z%8Ahlt. ';
MacSegments[7] = 'Schaffung des Europ%8Aischen W%8Ahrungssytem, das den europ%8Aischen W%8Ahrungen eine gewisse Stabilit%8At geben soll und den ECU zur Welt bringt. ';
MacSegments[8] = 'Erste Wahlen des Europa-Parlaments im  allgemeinen Wahlrecht. ';
MacSegments[9] = 'Griechenland gesellt sich zur EWG. ';
MacSegments[10] = 'Die ersten europ%8Aischen P%8Asse werden in Umlauf gebracht. ';
MacSegments[11] = 'Spanien und Portugal gesellen sich zur EWG, es ist das Europa der Zw%9Alf. ';
MacSegments[12] = 'Die europ%8Aische Einheitsakte wird in Luxemburg und in den Haag unterschrieben. ';
MacSegments[13] = 'Die Europa-Flagge wird von den Gemeinschaftsinstitutionen angenommen und wird zum ersten Mal am Giebel des "Berlaymont" zu den T%9Anen der europ%8Aischen Hymne gehisst. ';
MacSegments[14] = 'Wiedervereinigung Deutschlands. ';
MacSegments[15] = 'Die erste Phase der Wirtschafts- und W%8Ahrungsunion tritt in Kraft. ';
MacSegments[16] = 'Der Vertrag der Europ%8Aischen Union wird in Maastricht von den  Ministern f%9Fr das  Ausw%8Artige Amt  und f%9Fr die Finanzen unterzeichnet. ';
MacSegments[17] = 'Alle Prozeduren f%9Fr die Ratifizierung des Maastrichter Vertrages sind beendet. Der Vertrag der Europ%8Aischen Union tritt in Kraft. ';
MacSegments[18] = '77Die Schengener Abkommen treten in Kraft zwischen Belgien, Frankreich, Deutschland, Luxemburg, den Niederlanden, Spanien und Portugal. ';
MacSegments[19] = 'Die zweite Etappe der Wirtschafts- und W%8Ahrungsunion beginnt und das Europ%8Aische W%8Ahrungsinstitut wird gegr%9Fndet. Der Vertrag, der den europ%8Aischen Wirtschaftsraum einf%9Fhrt, tritt in Kraft. ';
MacSegments[20] = '%85sterreich, Finnland und Schweden gesellen sich zur Europ%8Aischen Union, um das Europa der F%9Fnfzehn zu bilden ';
MacSegments[21] = 'Die Zollunion zwischen der Union und der T%9Frkei tritt in Kraft. ';
MacSegments[22] = 'Unterzeichnung des Vertrages von Amsterdam, der den von Maastricht neu bildet. ';
MacSegments[23] = 'Geburt des Euro, der die offizielle W%8Ahrung der elf Unionsmitglider wird. ';
MacSegments[24] = 'Euro-Banknoten und  Euro-Geldst%9Fcke  werden in Umlauf gebracht. ';