function sara_question()
--	DisplayQuestionList(Sara)
	if not DisplayQuestionList(Sara) then
		PlayDialog(Sara, "M3_SARA_2424")
	end

end

AddEvent( nil, true, nil, Sara, nil, "sara_question" )
AddEvent( nil, true, nil, HDigSiteSara1, nil, "sara_question" )
AddEvent( nil, true, nil, HDigSiteSara2, nil, "sara_question" )
AddEvent( nil, true, nil, HApartmentSara1, nil, "sara_question" )
AddEvent( nil, true, nil, HApartmentSara2, nil, "sara_question" )
AddEvent( nil, true, nil, HParlorSara1, nil, "sara_question" )
AddEvent( nil, true, nil, HParlorSara2, nil, "sara_question" )
-- trailer
AddEvent( nil, true, nil, HTrailerExteriorSaraCU, nil, "sara_question" )
AddEvent( nil, true, nil, HTrailerInteriorSaraCU, nil, "sara_question" )

-- rooms
AddEvent( nil, true, nil, DigSiteSara1, nil, "sara_question" )
AddEvent( nil, true, nil, ApartmentSara1, nil, "sara_question" )
AddEvent( nil, true, nil, MainlabCSICloseup1, nil, "sara_question" )
AddEvent( nil, true, nil, ParlorSara1, nil, "sara_question" )
AddEvent( nil, true, nil, TrailerExteriorSara, nil, "sara_question" )
AddEvent( nil, true, nil, TrailerInteriorSara, nil, "sara_question" )




-- evidente
function	sara_question_TB_Q1195()
	DisplayQuestionList(CSIHintsEvidence)
	if not HasQuestion (CSIHintsEvidence) then
 	PlayDialog( Sara, "M3_SARA_2424" )
	end
end

AddQuestion ( CSIHints, true, nil, "_TB_Q1195", nil, nil, "sara_question_TB_Q1195" )
-- suspects
function	sara_question_TB_Q1196()
	DisplayQuestionList(CSIHintsSuspects)
	if not HasQuestion (CSIHintsSuspects) then
 	PlayDialog( Sara, "M3_SARA_2424" )
	end
end

AddQuestion ( CSIHints, true, nil, "_TB_Q1196", nil, nil, "sara_question_TB_Q1196" )
-- victim
function	sara_question_TB_Q1197()
	DisplayQuestionList(CSIHintsVictim)
	if not HasQuestion (CSIHintsVictim)  then
 	PlayDialog( Sara, "M3_SARA_2424" )
	end
end

AddQuestion ( CSIHints, true, nil, "_TB_Q1197", nil, nil, "sara_question_TB_Q1197" )

--------------------------------------------------------------------------
-- improper tool

function wrong_tool_dialog()
		T = Random (3)
	if T == 1 then
		PlayDialog (nil, "M3_SARA_2427")
	end
	if T == 2 then
		PlayDialog (nil, "M3_SARA_2425")
	end
	if T == 3 then
		PlayDialog (nil, "M3_SARA_2426")
	end

end

AddEvent( nil, true, nil, DEFAULT_TOOL_EVENT, nil, "wrong_tool_dialog" )

function similar_tool_dialog()
		T = Random (3)
	if T == 1 then
		PlayDialog (nil, "M3_SARA_2428")
	end
	if T == 2 then
		PlayDialog (nil, "M3_SARA_2429")
	end
	if T == 3 then
		PlayDialog (nil, "M3_SARA_2430")
	end

end

AddEvent( nil, true, nil, SIMILAR_TOOL_EVENT, nil, "similar_tool_dialog" )

function magnifier_tool_dialog()
	T = Random (3)
	if T == 1 then
		PlayDialog (nil, "M3_SARA_2436")
	end
	if T == 2 then
		PlayDialog (nil, "M3_SARA_2434")
	end
	if T == 3 then
		PlayDialog (nil, "M3_SARA_2435")
	end

end

AddEvent( nil, true, nil, magnifier, nil, "magnifier_tool_dialog" )
AddEvent( nil, true, nil, uv, nil, "magnifier_tool_dialog" )

function fingerdust_tool_dialog()
		T = Random (3)
	if T == 1 then
		PlayDialog (nil, "M3_SARA_2437")
	end
	if T == 2 then
		PlayDialog (nil, "M3_SARA_2438")
	end
	if T == 3 then
		PlayDialog (nil, "M3_SARA_2439")
	end

end

AddEvent( nil, true, nil, fingerdust, nil, "fingerdust_tool_dialog" )
AddEvent( nil, true, nil, magnetic, nil, "fingerdust_tool_dialog" )







-- 50
function	sara_question_TB_Q1032()
	if not HasQuestion (CSIHintsSuspects) and not HasQuestion (CSIHintsVictim) and not HasQuestion (CSIHintsEvidence) then
 	PlayDialog( Sara, "M3_SARA_2424" )
	else
	PlayDialog( Sara, "M3_SARA_2530" )
	DisplayQuestionList(CSIHints)
	end
end

AddQuestion ( Sara, true, nil, "_TB_Q1032", nil, nil, "sara_question_TB_Q1032" )

--50.011 What can I learn about where the victim has been?
function	sara_question_TB_Q1094_cond()
	return (IsEventDone(EVMicroscopeSkullGlass) and not HasEvidence( ETVictimDirtyFiber ))
end
function	sara_question_TB_Q1094()
	PlayDialog( Sara, "M3_SARA_2540" )
	ScoreAddStateHint (CSIHintsVictim, "_TB_Q1094")
end

AddQuestion ( CSIHintsVictim, true, nil, "_TB_Q1094", nil, "sara_question_TB_Q1094_cond", "sara_question_TB_Q1094" )

--50.021 What more is there to learn about the evidence from Adam's apartment?
function	sara_question_TB_Q1096_cond()
	return (not IsEventDone(EVSawBloodonStatue) and HasEvidence( EIStatue ))
end
function	sara_question_TB_Q1096()
	PlayDialog( Sara, "M3_SARA_2542" )
	ScoreAddStateHint (CSIHintsEvidence, "_TB_Q1096")
end

AddQuestion ( CSIHintsEvidence, true, nil, "_TB_Q1096", nil, "sara_question_TB_Q1096_cond", "sara_question_TB_Q1096" )

--50.03 How can I approximate the victim's time of burial?
function	sara_question_TB_Q1095_cond()
	return (not IsEventDone(EVGregSoil) and HasEvidence( EISkullGlass ))
end
function	sara_question_TB_Q1095()
	PlayDialog( Sara, "M3_SARA_2541" )
	ScoreAddStateHint (CSIHintsVictim, "_TB_Q1095")
end

AddQuestion ( CSIHintsVictim, true, nil, "_TB_Q1095", nil, "sara_question_TB_Q1095_cond", "sara_question_TB_Q1095" )

--50.04 How can I determine what the murder weapon was?
function	sara_question_TB_Q1100_cond()
	return (not IsEventDone(EVMicroscopeBatGlass) and HasEvidence( EISkullGlass ) and HasEvidence(EISpeckGlass))
end
function	sara_question_TB_Q1100()
	PlayDialog( Sara, "M3_SARA_2546" )
	ScoreAddStateHint (CSIHintsEvidence, "_TB_Q1100")
end

AddQuestion ( CSIHintsEvidence, true, nil, "_TB_Q1100", nil, "sara_question_TB_Q1100_cond", "sara_question_TB_Q1100" )

--50.05 How can I learn what was used to burn the bat?
function	sara_question_TB_Q1099_cond()
	return (not IsEventDone(EVBurnedBat) and HasEvidence( EIBaseballBat ))
end
function	sara_question_TB_Q1099()
	PlayDialog( Sara, "M3_SARA_2545" )
	ScoreAddStateHint (CSIHintsEvidence, "_TB_Q1099")
end

AddQuestion ( CSIHintsEvidence, true, nil, "_TB_Q1099", nil, "sara_question_TB_Q1099_cond", "sara_question_TB_Q1099" )

--50.06 How can I get a warrant for John Montana?
function	sara_question_TB_Q1105_cond()
	return (not IsEventDone(EVGregBatGlass) and IsEventDone( EVComputerAdn ))
end
function	sara_question_TB_Q1105()
	PlayDialog( Sara, "M3_SARA_2551" )
	ScoreAddStateHint (CSIHintsSuspects, "_TB_Q1105")
end

AddQuestion ( CSIHintsSuspects, true, nil, "_TB_Q1105", nil, "sara_question_TB_Q1105_cond", "sara_question_TB_Q1105" )

--50.07 What more can I learn from the photo from the report?
function	sara_question_TB_Q1097_cond()
	return (HasEvidence(EDReportPhoto) and not IsEventDone( EVMicroscopPhoto ))
end
function	sara_question_TB_Q1097()
	PlayDialog( Sara, "M3_SARA_2543" )
	ScoreAddStateHint (CSIHintsEvidence, "_TB_Q1097")
end

AddQuestion ( CSIHintsEvidence, true, nil, "_TB_Q1097", nil, "sara_question_TB_Q1097_cond", "sara_question_TB_Q1097" )


--50.08 What more can I learn from the burned bat?
function	sara_question_TB_Q1098_cond()
	return (HasEvidence(EIBaseballBat) and not HasEvidence(EISpeckGlass))
end
function	sara_question_TB_Q1098()
	PlayDialog( Sara, "M3_SARA_2544" )
	ScoreAddStateHint (CSIHintsEvidence, "_TB_Q1098")
end

AddQuestion ( CSIHintsEvidence, true, nil, "_TB_Q1098", nil, "sara_question_TB_Q1098_cond", "sara_question_TB_Q1098" )

--50.09 How can I prove the trailer once belonged to Adam Kilborne?
function	sara_question_TB_Q1103_cond()
	return (IsQuestionAsked(John, "_TB_Q1027") and not IsEventDone(EVGregNest))
end
function	sara_question_TB_Q1103()
	PlayDialog( Sara, "M3_SARA_2549" )
	ScoreAddStateHint (CSIHintsSuspects, "_TB_Q1103")
end

AddQuestion ( CSIHintsSuspects, true, nil, "_TB_Q1103", nil, "sara_question_TB_Q1103_cond", "sara_question_TB_Q1103" )

--50.10 How can I build a stronger case against John?
function	sara_question_TB_Q1101_cond()
	return (IsQuestionAsked(John, "_TB_Q1020") and not IsQuestionAsked(WarrantLocations, "_TB_Q1021"))
end
function	sara_question_TB_Q1101()
	PlayDialog( Sara, "M3_SARA_2547" )
	ScoreAddStateHint (CSIHintsSuspects, "_TB_Q1101")
end

AddQuestion ( CSIHintsSuspects, true, nil, "_TB_Q1101", nil, "sara_question_TB_Q1101_cond", "sara_question_TB_Q1101" )

--50.11 What do I need to learn about the skeletal remains?
function	sara_question_TB_Q1093_cond()
	return (IsEventDone(EVEnterDigSite) and not HasEvidence(EISkullGlass))
end
function	sara_question_TB_Q1093()
	PlayDialog( Sara, "M3_SARA_2539" )
	ScoreAddStateHint (CSIHintsVictim, "_TB_Q1093")
end

AddQuestion ( CSIHintsVictim, true, nil, "_TB_Q1093", nil, "sara_question_TB_Q1093_cond", "sara_question_TB_Q1093" )

--50.12 What else can I learn about the trailer office?
function	sara_question_TB_Q1102_cond()
	return (IsQuestionAsked(John, "_TB_Q1020") and not HasEvidence(ETTrailerWallBlood))
end
function	sara_question_TB_Q1102()
	PlayDialog( Sara, "M3_SARA_2548" )
	ScoreAddStateHint (CSIHintsSuspects, "_TB_Q1102")
end

AddQuestion ( CSIHintsSuspects, true, nil, "_TB_Q1102", nil, "sara_question_TB_Q1102_cond", "sara_question_TB_Q1102" )

--50.13 What can I learn from the fiber recovered from the victim?
function	sara_question_TB_Q1104_cond()
	return (HasEvidence(ETVictimDirtyFiber) and not HasEvidence(ETTrailerOldCarpetFiber))
end
function	sara_question_TB_Q1104()
	PlayDialog( Sara, "M3_SARA_2550" )
	ScoreAddStateHint (CSIHintsEvidence, "_TB_Q1104")
end

AddQuestion ( CSIHintsEvidence, true, nil, "_TB_Q1104", nil, "sara_question_TB_Q1104_cond", "sara_question_TB_Q1104" )