-- evidente
function grissom_question_TB_Q1054()
--	DisplayQuestionList(CSIHintsEvidence)
	if not DisplayQuestionList(CSIHintsEvidence) then
		PlayDialog( Grissom, "M5_GRISSOM_1705" )
	end
end

AddQuestion ( CSIHints, true, nil, "_TB_Q1054", nil, nil, "grissom_question_TB_Q1054" )
-- suspects
function grissom_question_TB_Q1055()
--	DisplayQuestionList(CSIHintsSuspects)
	if not DisplayQuestionList(CSIHintsSuspects) then
		PlayDialog( Grissom, "M5_GRISSOM_1705" )
	end
end

AddQuestion ( CSIHints, true, nil, "_TB_Q1055", nil, nil, "grissom_question_TB_Q1055" )
-- victim
function grissom_question_TB_Q1056()
--	DisplayQuestionList(CSIHintsVictim)
	if not DisplayQuestionList(CSIHintsVictim) then
		PlayDialog( Grissom, "M5_GRISSOM_1705" )
	end
end

AddQuestion ( CSIHints, true, nil, "_TB_Q1056", nil, nil, "grissom_question_TB_Q1056" )
--------------------------------------------------------------------------------------------------------------------------




-- 50.0000
-- _TB_Q1057=Can I have a hint about this case?
function grissom_question_1057()
	if (not HasQuestion (CSIHintsSuspects)) and (not HasQuestion (CSIHintsVictim)) and (not HasQuestion (CSIHintsEvidence)) then
		PlayDialog( Grissom, "M5_GRISSOM_1705" )
	else
		PlayDialog( Grissom, "M5_GRISSOM_2532" )
		DisplayQuestionList(CSIHints)
	end

end

AddQuestion( Grissom, true, nil, "_TB_Q1057", nil, nil, "grissom_question_1057" )




-- 50.0110
-- _TB_Q1063=What more can I learn at Red Curtain Imports?
function grissom_question_1063_cond()
	return IsEventDone( EVRedLuminolUsed ) and (not IsEventDone( EVRedPickBlood ))
end

function grissom_question_1063()
	PlayDialog( Grissom, "M5_GRISSOM_2518" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1063" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1063", nil, "grissom_question_1063_cond", "grissom_question_1063" )




-- 50.0200
-- _TB_Q1122=What more can I learn from the tread marks lifted from the cirque grounds?
function grissom_question_1122_cond()
	return IsEventDone( EVCircusTreadmarks ) and (not IsEventDone( EVCompTireMarks1 ))
end

function grissom_question_1122()
	PlayDialog( Grissom, "M5_GRISSOM_2570" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1122" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1122", nil, "grissom_question_1122_cond", "grissom_question_1122" )




-- 50.0300
-- _TB_Q1121=What more can we learn about the flake of vinyl?
function grissom_question_1121_cond()
	return HasEvidence( ETCactusVinylFlake ) and (not IsEventDone( EVCompSearch3 ))
end

function grissom_question_1121()
	PlayDialog( Grissom, "M5_GRISSOM_2569" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1121" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1121", nil, "grissom_question_1121_cond", "grissom_question_1121" )




-- 50.0400
-- _TB_Q1120=What else can we learn from the Komodo Dragon?
function grissom_question_1120_cond()
	return IsQuestionAsked( Coroner,"_TB_Q832" ) and (not HasEvidence( ETSwabStomachDragon ))
end

function grissom_question_1120()
	PlayDialog( Grissom, "M5_GRISSOM_2568" )
	ScoreAddStateHint( CSIHintsVictim, "_TB_Q1120" )

end

AddQuestion( CSIHintsVictim, true, nil, "_TB_Q1120", nil, "grissom_question_1120_cond", "grissom_question_1120" )




-- 50.0500
-- _TB_Q1089=How can I learn when the cobra photo was taken?
function grissom_question_1089_cond()
	return HasEvidence( EDPhotoSnake ) and HasEvidence( EDNewspaper ) and (not IsEventDone( EVCompPhotoSearch ))
end

function grissom_question_1089()
	PlayDialog( Grissom, "M5_GRISSOM_2534" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1089" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1089", nil, "grissom_question_1089_cond", "grissom_question_1089" )




-- 50.0600
-- _TB_Q1088=What else can I learn from the Polaroid photo?
function grissom_question_1088_cond()
	return HasEvidence( EDPhotoSnake ) and not( HasEvidence( ETPhotoFingerprint ))
end

function grissom_question_1088()
	PlayDialog( Grissom, "M5_GRISSOM_2533" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1088" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1088", nil, "grissom_question_1088_cond", "grissom_question_1088" )




-- 50.0700
-- _TB_Q1066=What can we learn from the telephone in the Cirque offices?
function grissom_question_1066_cond()
	return IsEventDone( EVCircOfficePhoneCU ) and HasEvidence( EDPaperCirque ) and (not IsEventDone( EVRedialButtonClick ))
end

function grissom_question_1066()
	PlayDialog( Grissom, "M5_GRISSOM_2521" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1066" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1066", nil, "grissom_question_1066_cond", "grissom_question_1066" )




-- 50.0800
-- _TB_Q1065=What else can we search in the Cirque Offices?
function grissom_question_1065_cond()
	return IsEventDone( EVCircOfficePhoneCU ) and (not HasEvidence( EDPaperCirque ))
end

function grissom_question_1065()
	PlayDialog( Grissom, "M5_GRISSOM_2520" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1065" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1065", nil, "grissom_question_1065_cond", "grissom_question_1065" )




-- 50.0900
-- _TB_Q1123=What more can we learn about the body bag blood sample?
function grissom_question_1123_cond()
	return IsEventDone( EVLabDigestedFood ) and  HasEvidence( ETBloodBagSample ) and (not IsEventDone( EVCompMatch2 ))
end

function grissom_question_1123()
	PlayDialog( Grissom, "M5_GRISSOM_2571" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1123" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1123", nil, "grissom_question_1123_cond", "grissom_question_1123" )




-- 50.1000
-- _TB_Q1062=Is there any way to determine the owner of the toe?
function grissom_question_1062_cond()
	return (not (IsEventDone( EVToeResultBefore ) or IsEventDone( EVCompHumanToe ))) and HasEvidence( EIHumanToe )
end

function grissom_question_1062()
	PlayDialog( Grissom, "M5_GRISSOM_2517" )
	ScoreAddStateHint( CSIHintsVictim, "_TB_Q1062" )

end

AddQuestion( CSIHintsVictim, true, nil, "_TB_Q1062", nil, "grissom_question_1062_cond", "grissom_question_1062" )




-- 50.1100
-- _TB_Q1060=What else can we learn from the circus grounds?
function grissom_question_1060_cond()
	return IsEventDone( EVCircusIntro ) and (not HasEvidence( ETCactusVinylFlake ))
end

function grissom_question_1060()
	PlayDialog( Grissom, "M5_GRISSOM_2513" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1060" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1060", nil, "grissom_question_1060_cond", "grissom_question_1060" )




-- 50.1200
-- _TB_Q1059=What more can I learn about the driftwood?
function grissom_question_1059_cond()
	return IsEventDone( EVCircusDragonCU ) and HasEvidence( EIDriftwod ) and (not HasEvidence( ETSmallHairDriftwood ))
end

function grissom_question_1059()
	PlayDialog( Grissom, "M5_GRISSOM_2512" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1059" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1059", nil, "grissom_question_1059_cond", "grissom_question_1059" )




-- 50.1300
-- _TB_Q1058=What else can we collect from the crime scene?
function grissom_question_1058_cond()
	return IsEventDone( EVCircusDragonCU ) and HasEvidence( EIDriftwod ) and (not HasEvidence( EIHumanToe ))
end

function grissom_question_1058()
	PlayDialog( Grissom, "M5_GRISSOM_2511" )
	ScoreAddStateHint( CSIHintsEvidence, "_TB_Q1058" )

end

AddQuestion( CSIHintsEvidence, true, nil, "_TB_Q1058", nil, "grissom_question_1058_cond", "grissom_question_1058" )




-- 50.1400
-- _TB_Q1064=How can I determine where the owner of the toe has been recently?
function grissom_question_1064_cond()
	return IsEventDone( EVRedPickBlood ) and IsEventDone( EVLabHumanToe ) and (not IsEventDone( EVToeDNAOffBloodDNA ))
end

function grissom_question_1064()
	PlayDialog( Grissom, "M5_GRISSOM_2519" )
	ScoreAddStateHint( CSIHintsVictim, "_TB_Q1064" )

end

AddQuestion( CSIHintsVictim, true, nil, "_TB_Q1064", nil, "grissom_question_1064_cond", "grissom_question_1064" )


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

-- improper tool

function wrong_tool_dialog()
		T = Random (3)
	if T == 1 then
		PlayDialog (nil, "M5_GRISSOM_1708")
	end
	if T == 2 then
		PlayDialog (nil, "M5_GRISSOM_1707")
	end
	if T == 3 then
		PlayDialog (nil, "M5_GRISSOM_1706")
	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, "M5_GRISSOM_1709")
	end
	if T == 2 then
		PlayDialog (nil, "M5_GRISSOM_1710")
	end
	if T == 3 then
		PlayDialog (nil, "M5_GRISSOM_1711")
	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, "M5_GRISSOM_1715")
	end
	if T == 2 then
		PlayDialog (nil, "M5_GRISSOM_1716")
	end
	if T == 3 then
		PlayDialog (nil, "M5_GRISSOM_1717")
	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, "M5_GRISSOM_1718")
	end
	if T == 2 then
		PlayDialog (nil, "M5_GRISSOM_1719")
	end
	if T == 3 then
		PlayDialog (nil, "M5_GRISSOM_1720")
	end

end

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