﻿// JavaScript Document
var GreekStory;
var HtmlOpen = '<!DOCTYPE HTML PUBLIC "-\/\/W3C\/\/DTD HTML 4.01 Transitional\/\/EN">\n'+
'<html><head>\n'+
'<title>Greek Story Page<\/title>\n'+
'<meta http-equiv="Content-Type" content="text\/html; charset=utf-8">\n'+
'<link href="format.css" rel="stylesheet" type="text\/css">\n'+
'<style type="text\/css">\n'+
'.greekstory {font-size: 1.3em;\n'+
'line-height: 130%; }\n'+
'a:hover { color:#FF0000;\n'+
'background-color: white; }\n'+
'p {text-indent: 25px; \n'+
'margin-top: 5px; \n'+
'margin-bottom: 0px; }\n'+
'<\/style>\n'+
'<\/head>\n'+
'<body class="greekstory">\n';

var HtmlClose = '<\/body><\/html>';

// assign names to Actor values
function getMascActors(Actor){
	MActor = new Array();
	MActor[1]= "Βαρναβᾶς";
	MActor[2]= "Θωμᾶς";
	MActor[3]= "'Ἰούδας'";
	MActor[4]= "Ἀγρίππας";
	MActor[5]= "";
	MActor[6]= "";
	MActor[7]= "";
	MActor[8]= "";
	MActor[9]= "";
	MActor[10]= "";
	return MActor[Actor];
}
function getFemActors(Actor){
	FActor = new Array();
	FActor[1]= "Βερνίκη";
	FActor[2]= "Ῥόδη";
	FActor[3]= "Σαλώμη";
	FActor[4]= "Φοίβη";
	FActor[5]= "";
	FActor[6]= "";
	FActor[7]= "";
	FActor[8]= "";
	FActor[9]= "";
	FActor[10]= "";
	return FActor[Actor];
}

function updateStory(){
	if (document.StorySelectors.MainGender[1].checked  == true) {
 		frames['RefNounArea'].location = "refN2.html";   
	}
	if (document.StorySelectors.MainGender[0].checked  == true) {
 		frames['RefNounArea'].location = "refN5.html";   
	}
	if(document.StorySelectors.Tense[0].checked == true) {
 		frames['RefVerbArea'].location = "refVIPA.html";   
	} 
	if(document.StorySelectors.Tense[1].checked == true) {
 		frames['RefVerbArea'].location = "refVIAA.html";   
	}
	if(document.StorySelectors.Tense[2].checked == true) {
 		frames['RefVerbArea'].location = "refVIFA.html";   
	}
//	if(document.StorySelectors.Tense[3].checked == true) {
//	}
	storyNumber = document.StoryForm1.SelectStory.value;
	switch (storyNumber) {
		case "0" : GreekStory = "Choose a story and click the 'Load Story' button.";
		break;
		case "1" : GreekStory = 
			'<p>'+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'n',1)+' '+getVerb(1,'βλέπω',0,0,0)+' '+getCNoun(2,0,'','δούλη','a','ms',0,0,0)+', καὶ '+getCNoun(2,1,'','δούλη','n','ms',0,0,0)+' '+getVerb(0,'βλέπω',0,0,0)+' '+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'a',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',0,1)+', '+getPNoun(0,0,'','Ῥόδη',3,4,3,4,'v',0)+',” '+getVerb(1,'λέγω',0,0,0)+' '+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'n',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',1,1)+', '+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'v',0)+',” '+getVerb(0,'λέγω',0,0,0)+' '+getPNoun(2,1,'ἄνθρωπος','Ῥόδη',3,4,3,4,'n',0)+'.</p>'+
			'<p>'+getPNoun(2,1,'δούλη','Ῥόδη',3,0,3,0,'n',1)+' '+getVerb(2,'ἔχω',1,0,0)+' '+getPNoun(0,0,'ἀδελφή','Σαλώμη',4,0,4,0,'a',0)+'. '+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'n',1)+' '+getVerb(1,'βλέπω',0,0,0)+' καί '+getPNoun(0,1,'ἀδελφή','Σαλώμη',4,3,4,3,'a',0)+', καί '+getCNoun(2,1,'','ἀδελφή','n','ms',0,0,0)+' '+getVerb(0,'βλέπω',0,0,0)+' '+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'a',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',0,1)+', '+getPNoun(0,0,'','Σαλώμη',4,3,4,3,'v',0)+',” '+getVerb(1,'λέγω',0,0,0)+' '+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'n',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',1,1)+', '+getPNoun(1,0,'','Βερνίκη',1,2,1,2,'v',0)+',” '+getVerb(0,'λέγω',0,0,0)+' '+getPNoun(0,0,'','Σαλώμη',4,3,4,3,'n',0)+'.</p>'+
			'<p>'+getPNoun(1,0,'','Βερνίκη',1,0,1,0,'n',1)+' καί '+getVerb(1,'ἔχω',0,0,0)+' '+getPNoun(0,0,'ἀδελφή','Φοίβη',2,0,2,0,'a',0)+'. '+getPNoun(0,0,'','Φοίβη',2,0,2,0,'n',1)+' καί '+getVerb(0,'βλέπω',1,0,0)+' '+getPNoun(2,1,'δούλη','Ῥόδη',3,0,3,0,'a',0)+' καί '+getPNoun(2,1,'ἀδελφή','Σαλώμη',4,0,4,0,'a',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',1,1)+', '+getPNoun(0,0,'','Ῥόδη',3,0,3,4,'v',0)+',” '+getVerb(0,'λέγω',0,0,0)+' '+getPNoun(0,0,'','Φοίβη',2,1,2,1,'n',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',1,1)+', '+getPNoun(0,0,'','Φοίβη',2,0,2,1,'v',0)+',” '+getVerb(0,'λέγω',0,0,0)+' '+getPNoun(2,0,'','Ῥόδη',3,4,3,4,'n',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',1,1)+', '+getPNoun(0,0,'','Σαλώμη',4,0,4,3,'v',0)+',” '+getVerb(0,'λέγω',0,0,0)+' '+getPNoun(0,0,'','Φοίβη',2,1,2,1,'n',0)+'.</p>'+
			'<p>“'+getWord('χαίρω','vdpa2',1,1)+', '+getPNoun(0,0,'','Φοίβη',2,0,2,1,'v',0)+',” '+getVerb(0,'λέγω',0,0,0)+' '+getPNoun(0,0,'','Σαλώμη',4,3,4,3,'n',0)+'.'+'</p>' +
   			'<br><div style="text-align: right;"><small style="font-style: italic;">Author:  Norbert Rennert, 2005</small></div>' ;
			break;
		case "2" : GreekStory = '';
			break;
	}
	frames['storyArea'].document.open();
	frames['storyArea'].document.write(HtmlOpen);
	frames['storyArea'].document.write(GreekStory);
	frames['storyArea'].document.write(HtmlClose);
	frames['storyArea'].document.close();
}
