//A6.60 c-script
/*
	snippet from _helpyqz.wdl
	(c)opyright dummy collective
	may only be used without permission
*/
// TEXT used to show a question
TEXT qz_tQuestion {
	red = 255;
	green = 225;
	blue = 255;
	pos_x = 0;
	pos_y = 0;
	strings = 1;
	flags = VISIBLE;
}
// contains a list of answers some of which are incorrect
TEXT qz_tAnswers {
	red = 255;
	green = 225;
	blue = 255;
	pos_x = 0;
	pos_y = 50;
	strings = 4;
	flags = VISIBLE;
}
// contains a list of answers and questions in no particular order
// loaded from qz.txt
// see format file qz.txt
TEXT qz_tLoad {
	strings = 60000;
}
var qz_nAnswer = 0;	// the actual answer index in the questions TEXT
var qz_nLoad = 0;		// number of lines loaded from qz.txt
var qz_bQuestionFound = 0;	// result for qzf_getQuestion
var qz_bAnswerFound = 0;	// result for qzf_getAnswer
STRING qz_sAnswer[1024];		// an answer temp string used with qzf_getAnswer
STRING qz_sQuestion[1024];	// a question temp string used with qzf_getQuestion
STRING qz_sNum[128];	// used to convert number to STRING in multiple functions

function random_int(_nLow, _nHigh) {
	return(int(_nLow + ((_nHigh - _nLow) * random(1.001))));
}
// returns 1 if _sIn starts with _sFind
function str_starts(_sIn, _sFind) {
	return(str_stri(_sIn, _sFind) == 1);
}
// loads qz_tAnswers with random answers, non of which are _nNotNumber (the correct answer)
function qzf_getRandomAnswers(_nAnswers, _nNotNumber) {
	var n; n = random_int(0, qz_nLoad);
	var nCalls; nCalls = 0;
	var nAnswersFound; nAnswersFound = 0;
	while(nCalls < qz_nLoad * 5) {
		n = random_int(0, qz_nLoad - 1);
		if (n != _nNotNumber) {
			qzf_getAnswer(n);
			if (qz_bAnswerFound) {
				str_cpy(qz_tAnswers.string[nAnswersFound], qz_sAnswer);
				nAnswersFound += 1;
				if (nAnswersFound >= _nAnswers) { break; }
			}
		}
		nCalls += 1;
	}
}
// sets qz_sAnswer to answer in qz.txt
// modifies qz_bAnswerFound
function qzf_getAnswer(_nNumber) {
	str_cpy(qz_sAnswer, "");
	var n; n=0;
	qz_bAnswerFound = 0;
	while(n < qz_nLoad) {
		str_for_num(qz_sNum, _nNumber);
		str_cat(qz_sNum, "a");
		if (str_starts(qz_tLoad.string[n], qz_sNum)) {
			str_cpy(qz_sAnswer, qz_tLoad.string[n]);
			str_clip(qz_sAnswer, str_len(qz_sNum));
			qz_bAnswerFound = 1;
			return(n);
		}
		n+=1;
	}
}
// sets qz_sQuestion to question number _nNumber in qz.txt
// modifies qz_bQuestionFound
function qzf_getQuestion(_nNumber) {
	str_cpy(qz_sQuestion, "");
	var n; n=0;
	qz_bQuestionFound = 0;
	while(n < qz_nLoad) {
		str_for_num(qz_sNum, _nNumber);
		str_cat(qz_sNum, "q");
		if (str_starts(qz_tLoad.string[n], qz_sNum)) {
			str_cpy(qz_sQuestion, qz_tLoad.string[n]);
			str_clip(qz_sQuestion, str_len(qz_sNum));
			qz_bQuestionFound = 1;
			return(n);
		}
		n+=1;
	}
}
// loads all questions and answers from _sFileName into qz_tLoad
// modifies qz_nLoad (number of lines loaded)
function qzf_load(_sFileName) {
	if (_sFileName == 0) { return(0); }
	qz_nLoad = txt_load(qz_tLoad, _sFileName);
	if (qz_nLoad == 0) { error("no questions loaded"); }
	return(qz_nLoad);
}

// a test function
// call once from main
// press 1 , 2, or 3 key to select question 1, 2 or 3 
// and generate 3 random answers plus one correct one
// note to fix: the 3 random answers might not be unique
function qzf_input() {
	qzf_load("qz.txt");
	while(1) {
		wait(1);
		var n; n = 0;
		if (key_1) { n = 1; }
		if (key_2) { n = 2; }
		if (key_3) { n = 3; }
		if (n != 0) {
			qzf_getQuestion(n);
			str_cpy(qz_tQuestion.string[0], qz_sQuestion);
			qzf_getRandomAnswers(3, n);
			qzf_getAnswer(n);
			if (qz_bAnswerFound) {
			
				qz_nAnswer = random_int(0, 3);
				str_cpy(qz_tAnswers.string[3], qz_tAnswers.string[qz_nAnswer]);
				str_cpy(qz_tAnswers.string[qz_nAnswer], qz_sAnswer);
			}
		}
	}
}

/////////////////////////////////////////////////////////////////
// Desc: The main() function is started at game start
function main()
{
	randomize();
	// set some common flags and variables
	// freeze all entity functions
	freeze_mode = 1;
	// no level has been loaded yet...
	gid01_level_state = gid01_level_not_loaded;

// entry: Warning Level (0,1, or 2)
// entry_help: Sets sensitivity to warnings (0 = none, 1 = some, 2 = all).
	warn_level = 2;	// announce bad texture sizes and bad wdl code


// entry: Starting Mouse Mode (0, 1, or 2)
	mouse_mode = 0;

	// wait 3 frames (for triple buffering) until it is flipped to the foreground
	wait(3);

	qzf_input();
	
	// now load the level
	level_load(level_str);

	wait(2);	// let level load
	// level should be loaded at this point...
	gid01_level_state = gid01_level_loaded;

//+++ load starting values


	// un-freeze the game
	freeze_mode = 0;

	// save start of game here
	wait(6);   // allow time for functions that wait for "gid01_level_loaded" to load
	file_delete("start0.SAV");	// remove any old savefile
	wait(1);
	if( game_save("start",0,SV_ALL) <= 0)
	{
		diag("\nWARNING! main - Cannot save 'start' of level (ignore on restarts).");
	}
	else
	{
		diag("\nWDL: main - Game 'start' saved.");
	}


	// main game loop
	while(1)
	{
		if(gid01_level_state != gid01_level_loaded)
		{
			freeze_mode = 1;  // pause the game
			while(gid01_level_state != gid01_level_loaded) { wait(1); }
			freeze_mode = 0;  // resume the game
		}
		wait(1);
	}

}

1qQuestion1
2qQuestion2
3qQuestion3
4qQuestion4
5qQuestion5
6qQuestion6
7qQuestion7
8qQuestion8
1aAnswer1
2aAnswer2
3aAnswer3
4aAnswer4
5aAnswer5
6aAnswer6
7aAnswer7
8aAnswer8

//A6.60 c-script
/*
	snippet from _helpyqz.wdl
	(c)opyright dummy collective
	may only be used without permission
*/
// TEXT used to show a question
TEXT qz_tQuestion {
	red = 255;
	green = 225;
	blue = 255;
	pos_x = 0;
	pos_y = 0;
	strings = 1;
	flags = VISIBLE;
}
// contains a list of answers some of which are incorrect
TEXT qz_tAnswers {
	red = 255;
	green = 225;
	blue = 255;
	pos_x = 0;
	pos_y = 15;
	strings = 4;
	flags = VISIBLE;
}


TEXT qz_tResult {
	red = 255;
	green = 255;
	blue = 255;
	pos_x = 0;
	pos_y = 60;
	strings = 1;
	flags = VISIBLE;
}
// contains a list of answers and questions in no particular order
// loaded from qz.txt
// see format file qz.txt
TEXT qz_tLoad {
	strings = 60000;
}
var qz_nStage = 0;
var qz_nQuestion = 0;
var qz_nQuestionsUsed = 0;
var qz_naQuestionsUsed[30000];

var qz_nAnswer = 0;	// the actual answer index in the questions TEXT
var qz_nLoad = 0;		// number of lines loaded from qz.txt
var qz_bQuestionFound = 0;	// result for qzf_getQuestion
var qz_bAnswerFound = 0;	// result for qzf_getAnswer
STRING qz_sAnswer[1024];		// an answer temp string used with qzf_getAnswer
STRING qz_sQuestion[1024];	// a question temp string used with qzf_getQuestion
STRING qz_sNum[128];	// used to convert number to STRING in multiple functions

define k_1, 2;
define k_2, 3;
define k_3, 4;
define k_4, 5;

function random_int(_nLow, _nHigh) {
	return(int(_nLow + ((_nHigh - _nLow) * random(1.001))));
}
// returns 1 if _sIn starts with _sFind
function str_starts(_sIn, _sFind) {
	return(str_stri(_sIn, _sFind) == 1);
}
function qzf_clearQuestionsUsed() {
	var n; n=0;
	while(n < qz_nQuestionsUsed) {
		qz_naQuestionsUsed[n] = 0;
		n+=0;
	}
	qz_nQuestionsUsed = 0;
}
function qzf_questionWasUsed(_nQuestion) {
	var n; n=0;
	while(n < qz_nQuestionsUsed) {
		if (qz_naQuestionsUsed[n] == _nQuestion) {
			return(1);
		}
		n+=1;
	}
	return(0);
}
function qzf_getRandomQuestion() {
	var n; n = random_int(0, qz_nLoad);
	var nCalls; nCalls = 0;
	var nAnswersFound; nAnswersFound = 0;
	while(nCalls < (qz_nLoad * 5)) {
		n = random_int(1, qz_nLoad);
		if (0 == qzf_questionWasUsed(n)) {
			qz_nQuestion = n;
			return(n);
		}
		nCalls += 1;
	}
	if (nCalls >= (qz_nLoad * 5)) {
		qzf_clearQuestionsUsed();
	}
}
function qzf_checkAnswerKey(_nAnswerIndex, _nScanCode) {
	if (_nAnswerIndex == 0 && _nScanCode == k_1) { return(1); }
	if (_nAnswerIndex == 1 && _nScanCode == k_2) { return(1); }
	if (_nAnswerIndex == 2 && _nScanCode == k_3) { return(1); }
	if (_nAnswerIndex == 3 && _nScanCode == k_4) { return(1); }
	return(0);
}

// loads qz_tAnswers with random answers, non of which are _nNotNumber (the correct answer)
function qzf_getRandomAnswers(_nAnswers, _nNotNumber) {
	var n; n = 0;
	var nCalls; nCalls = 0;
	var nAnswersFound; nAnswersFound = 0;
	while(nCalls < qz_nLoad * 5) {
		n = random_int(1, qz_nLoad);
		if (n != _nNotNumber) {
			qzf_getAnswer(n);
			if (qz_bAnswerFound) {
				str_cpy(qz_tAnswers.string[nAnswersFound], qz_sAnswer);
				nAnswersFound += 1;
				if (nAnswersFound >= _nAnswers) { break; }
			}
		}
		nCalls += 1;
	}
}
// sets qz_sAnswer to answer in qz.txt
// modifies qz_bAnswerFound
function qzf_getAnswer(_nNumber) {
	str_cpy(qz_sAnswer, "");
	var n; n=0;
	qz_bAnswerFound = 0;
	while(n < qz_nLoad) {
		str_for_num(qz_sNum, _nNumber);
		str_cat(qz_sNum, "a");
		if (str_starts(qz_tLoad.string[n], qz_sNum)) {
			str_cpy(qz_sAnswer, qz_tLoad.string[n]);
			str_clip(qz_sAnswer, str_len(qz_sNum));
			qz_bAnswerFound = 1;
			return(n);
		}
		n+=1;
	}
}
// sets qz_sQuestion to question number _nNumber in qz.txt
// modifies qz_bQuestionFound
function qzf_getQuestion(_nNumber) {
	str_cpy(qz_sQuestion, "");
	var n; n=0;
	qz_bQuestionFound = 0;
	while(n < qz_nLoad) {
		str_for_num(qz_sNum, _nNumber);
		str_cat(qz_sNum, "q");
		if (str_starts(qz_tLoad.string[n], qz_sNum)) {
			str_cpy(qz_sQuestion, qz_tLoad.string[n]);
			str_clip(qz_sQuestion, str_len(qz_sNum));
			qz_bQuestionFound = 1;
			return(n);
		}
		n+=1;
	}
}
// loads all questions and answers from _sFileName into qz_tLoad
// modifies qz_nLoad (number of lines loaded)
function qzf_load(_sFileName) {
	if (_sFileName == 0) { return(0); }
	qz_nLoad = txt_load(qz_tLoad, _sFileName);
	if (qz_nLoad == 0) { error("no questions loaded"); }
	return(qz_nLoad);
}


function qzf_quizMe() {
	qzf_load("qz.txt");
	qz_nStage = 1;
	while(qz_nStage) {
		qzf_getRandomQuestion();
		qzf_getQuestion(qz_nQuestion);
		str_cpy(qz_tQuestion.string[0], qz_sQuestion);
		qzf_getRandomAnswers(3, qz_nQuestion);
		qzf_getAnswer(qz_nQuestion);
		if (qz_bAnswerFound) {
			qz_nAnswer = random_int(0, 3);
			str_cpy(qz_tAnswers.string[3], qz_tAnswers.string[qz_nAnswer]);	
			str_cpy(qz_tAnswers.string[qz_nAnswer], qz_sAnswer);
			qz_nStage = 2;
			while(qz_nStage == 2) {
				if (key_1 || key_2 || key_3 || key_4) { qz_nStage = 3; }
				wait(1);
			}
			if (qz_nStage == 3) {
				if (qzf_checkAnswerKey(qz_nAnswer, key_lastpressed)) {
					str_cpy(qz_tResult.string[0], "correct");
				} else {
					str_cpy(qz_tResult.string[0], "wrong");
				}
				while(0 == key_enter) { wait(1); }
				str_cpy(qz_tResult.string[0], "");
				qz_nStage = 1;
			}
		}
		wait(1);
	}
}