--##################################################################################################
--##  This function is used on the Radiobutton to select the clicked item as the choosen answer
--##################################################################################################

function RBSelect(sRBName)
	--Get the number of the radio button
	nA = String.ToNumber(String.Right(sRBName, 1));
	
	--Get the checked state
	if RadioButton.GetChecked(sRBName) then
		
		--If checked then set the xml path for the answer to selected
		XML.SetAttribute(strXMLPath.."/answer:"..nA, "selected", "y");
		Paragraph.SetProperties("Answer"..nA, {FontWeight=700,BorderStyle=1});
		
		--Remove the selected option from the other answers 
		--as only one item should be selected at a time.
		for x = 1,4 do
			if nA ~= x then
				XML.RemoveAttribute(strXMLPath.."/answer:"..x, "selected");
				Paragraph.SetProperties("Answer"..x, {FontWeight=400,BorderStyle=0});
			end
		end
	end
end

--##################################################################################################
--##  This function is used on the CheckBox to select the clicked item as the choosen answer
--##################################################################################################

function CBSelect(sCBName)
	--Get the number of the Checkbox
	nA = String.ToNumber(String.Right(sCBName, 1));
	
	--Get the checked state
	if CheckBox.GetChecked(sCBName) then
		--If checked then set the xml path for the answer to selected
		XML.SetAttribute(strXMLPath.."/answer:"..nA, "selected", "y");
		
		--set color for the border.  FFFFFF = white 0000FF = blue
		--this is used to visually distinguish which items were selected
		nBColor = Math.HexColorToNumber("0000FF");
		Paragraph.SetProperties("Answer"..nA, {FontWeight=700,BorderColor=nBColor});
	
	--If the CheckBox is not checked then perform the following actions
	--These actions will reset the answer to it's default state
	elseif not CheckBox.GetChecked(sCBName) then
		XML.RemoveAttribute(strXMLPath.."/answer:"..nA, "selected");
		Paragraph.SetProperties("Answer"..nA, {FontWeight=400,BorderColor=0});
	end
end

--##################################################################################################
--##  This function is used to populate the question and answer fields in the quiz
--##################################################################################################

function PopulateQuiz(nQuesNum)
	
	local nCQ = tbRnd[nQuesNum]
	-- set the path for the question including the question number
	strXMLPath = "quiz/items/item:".. nCQ;
	
	--Extract the first question
	local sQuestion = XML.GetValue(strXMLPath .."/question");
	Paragraph.SetText("P-Question", "السؤال "..nQuesNum.." من :"..nQtA.."\r\n"..sQuestion);
	
	--Extract the question type
	local sQType = XML.GetAttribute(strXMLPath .."/question", "type");
	
	--Reset the answer objects as well as the CheckBoxes and Radio Buttons on the page.
	for x = 1,4 do
		RadioButton.SetVisible("RadioButton"..x, false);
		RadioButton.SetChecked("RadioButton"..x, false);
		CheckBox.SetVisible("CheckBox"..x, false);
		CheckBox.SetChecked("CheckBox"..x, false);
		Paragraph.SetVisible("Answer"..x, false);
		Paragraph.SetProperties("Answer"..x, {Text="",FontWeight=400,BorderStyle=1,BorderColor=0});
	end
	
	--Check the question type so we kwow if we should use the 
	--Check boxes or Radio buttons
	if sQType == "ms" then
		
		---Show and populate the appropriate objects if the question is Multi-select
		for x = 1,XML.Count(strXMLPath, "answer") do
			CheckBox.SetVisible("CheckBox"..x, true);
			Paragraph.SetVisible("Answer"..x, true);
			Paragraph.SetText("Answer"..x, XML.GetValue(strXMLPath.."/answer:"..x));
		end
		
	---Show and populate the appropriate objects if the question is Multiple Choice or True/False
	elseif sQType == "mc" or sQType == "tf" then

		---Show and populate the appropriate objects
		for x = 1,XML.Count(strXMLPath, "answer")) do
			RadioButton.SetVisible("RadioButton"..x, true);
			Paragraph.SetVisible("Answer"..x, true);
			Paragraph.SetText("Answer"..x, XML.GetValue(strXMLPath.."/answer:"..x));
		end
	end
end

--##################################################################################################
--##  This function is used to score the quiz.
--##  This function will return a table containing the number of correct answers
--##  and the users score as a numerical percentage.
--##################################################################################################

function ScoreQuiz(tbQuiz)
	--by loading the table that contains the list of questions asked in the quiz
	--we will use that same table to step through the loaded XML file to 
	--score the quiz
	local nCorrect = 0;
	local tbReturn = {};
	
	--Use a for loop to step through each question asked and score if correct.
	for i,v in pairs(tbQuiz) do
		--get the path to the question
		local strXMLPath = "quiz/items/item:".. v;
		
		--Set boolean variable to a default of true
		local bCorrect = true
		
		--Step through each answer to see if they were answered correctly
		--If any answer was incorrectly selected then bCorrect will be set to false
		for x = 1,XML.Count(strXMLPath, "answer") do

			--Check to see if the answer was correctly selected
			--The correct attribute for the answer should match the selected attribute inorder to be correct
			if XML.GetAttribute(strXMLPath.."/answer:"..x, "correct") ~= XML.GetAttribute(strXMLPath.."/answer:"..x, "selected") then
				
				--If they don't match then mark this answer as incorrect and break out of the loop
				bCorrect = false
				break; --This will break out of the for loop
			end 
		end
		
		--If all the answers were correctly selected then increment nCorrect by one.
		if bCorrect then
			nCorrect = nCorrect+1;
		end			
	end
	--Populate the tbReturn table to be exported for this function
	tbReturn.Correct = nCorrect;
	tbReturn.Score = Math.Round((nCorrect/Table.Count(tbQuiz))*100,0);
	return tbReturn;
end

--##################################################################################################
--##  This function is used to perform a page clickobject when the answer is clicked on the page
--##################################################################################################

function ClickSelect(nObj)
	-- If the checkbos is visible perform the following actions
	if CheckBox.IsVisible("CheckBox"..nObj) then
	
		--The following actions will toggle the state of the checkbox
		if CheckBox.GetChecked("CheckBox"..nObj) then
			CheckBox.SetChecked("CheckBox"..nObj, false);
		else
			CheckBox.SetChecked("CheckBox"..nObj, true);
		end
		
		--After setting the state of the checkbox this action will then click on the object
		Page.ClickObject("CheckBox"..nObj);
	else
		--The following action will check the radio box and then click on the object.
		RadioButton.SetChecked("RadioButton"..nObj, true);
		Page.ClickObject("RadioButton"..nObj);
	end
end








------------------------------------------------------------------------------ تحريك الصور  ----------------
--Enter global declarations and functions here...
--Like Worm's Function only with some additional features
function HitTestEx()
	local mi
	local mtblPos
	local mObject
	local mtblObj
	local mtblPos = nil
	local mtblDimension = nil
	local mtblHits = {}
	local mType
	
	mtblObj = Page.EnumerateObjects()
	for mi, mObject in pairs (mtblObj) do
		mObjType = Page.GetObjectType(mObject)
		
		------
		if mObjType == OBJECT_IMAGE then
			mtblPos = Image.GetPos(mObject)
			mtblDimension = Image.GetSize(mObject)
		
		end
		if mtblPos then
			mX=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseX", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
			mY=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseY", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
			if (mtblPos.X <= mX) and (mX <= (mtblPos.X + mtblDimension.Width)) then
				if (mY >= mtblPos.Y) and (mY <= (mtblPos.Y + mtblDimension.Height)) then
					mtblHits[Table.Count(mtblHits) + 1] = {Type = mObjType, Name = mObject, Xpos=mtblPos.X, Ypos=mtblPos.Y};
				end
			end
		end
	end
	return mtblHits;
end

--This Functions moves any object
function MoveObject(strObName,nObType,nXPos,nYPos)
	if nObType == OBJECT_IMAGE then
		mtblPos = Image.SetPos(strObName,nXPos,nYPos);
	
	end
end

-----
-----
-----