-- 2.1
function grissom_officer_talk()
	PlayIntroMovie("Art\\Movie\\Flyin\\c1m1_motel.xmv")
	
	FadeIn()

	PlayDialog( Grissom, "M1_GRISS_02" )
	PlayDialog( Officer, "M1_OFFICER_01" )
	PlayDialog( Grissom, "M1_GRISS_03" )
	
	AddVictim( Kylie, "Jane Doe", "Art\\Reenactments\\Pictures\\suspect_kylie.tga" )
	AddSuspect( Bert, "Bert Susten", "Art\\Reenactments\\Pictures\\suspect_bert.tga" )
	
	UpdateCaseFile( Bert, INFORMATION, "TEXT1144" )
	
	ChangeRoom( Hotel )
end

-- Prima intrare in locatia ChampagneHotel
AddEvent( nil, false, nil, HotelIntro, nil, "grissom_officer_talk" )

function champagne_hotel_intro()
	if not IsEventDone( EnterHotelLocationEvent ) then
		ChangeRoom( HotelIntro )
	else
		FadeIn()
	end
	SetVisible( OBedSheetHairLink, true )
end

AddEvent( EnterHotelLocationEvent, true, nil, ChampagneHotel, nil, "champagne_hotel_intro" )

-- 2.2.1
function kylie_body_click()
	PlayDialog( nil, "M1_GRISS_91" )
	PlayReenactment( "Art\\Reenactments\\Movie\\c1m1_reenact_kylie01.xmv", "Art\\Reenactments\\Pictures\\c1m1_reenact_kylie01.tga", "TEXT1011", nil, "mission01_small01_reenactment" )
	PlayDialog( nil, "M1_GRISS_12" )
	
	UpdateCaseFile( Kylie, VICTIM_CRIMESCENE, "TEXT1115", 200 )
end

-- 2.2.13
AddEvent( KylieBodyClick, false, nil, KylieBody, nil, "kylie_body_click" )

function kylie_neck_uv()
	PlayReenactment( "Art\\Reenactments\\Movie\\c1m1_reenact_kylie02.xmv", "Art\\Reenactments\\Pictures\\c1m1_reenact_kylie02.tga", "TEXT1012", nil, "mission01_small02_reenactment" )
	UpdateCaseFile( Kylie, VICTIM_CRIMESCENE, "TEXT1119", 100 )
end

AddEvent( KylieNeckClick, false, uv, KylieNeckBruise, nil, "kylie_neck_uv" )

-- 2.4.2
function kylie_money_pick()
	SetVisible( KylieMoney, false )
	SetActive( KylieMoney, false )
	SetVisible( KylieMoneyDistance, false )
	SetActive( KylieMoneyDistance, false )
	
	PlayDialog( nil, "M1_GRISS_72" )

	AddEvidence( Money )
	AddEvidenceDescriptionText( Money , "TEXT1261" )
end

AddEvent( nil, false, gloves, KylieMoney, nil, "kylie_money_pick" )

-- 2.4.1
function kylie_money_closeup()
	PlayDialog( nil, "M1_GRISS_07" )
end

AddEvent( nil, false, nil, KylieMoneyCloseup, nil, "kylie_money_closeup" )

-- 2.2.18
function bed_sheet_lens()
	if not IsEventDone( BedSheetHairPick ) then 
		ZoomToRoom( BedSheetHairCloseup , true )
	end
end

AddEvent( nil, true, magnifier, BedSheetHairLink, nil, "bed_sheet_lens" )

-- 2.2.19
function bed_sheet_hair_room()
	PlayDialog( nil, "M1_GRISS_04" )
end

AddEvent( nil, false, nil, BedSheetHairCloseup, nil, "bed_sheet_hair_room" )

-- 2.2.21
function bed_sheet_hair_pick()
	ChangeLink( HBedSheet, TOOLS )
	
	SetVisible( OHairSample, false )
	SetActive(  HHairSample, false )

	SetActive( BedSheetHairLink, false )
	SetVisible( OBedSheetHairLink, false )
	
	AddEvidence( HairSample )
	AddEvidenceDescriptionText( HairSample , "TEXT1219" )

	if (IsEventDone(MorgueVisited) and not HasEvidence(BedSheet)) then
		SetActive( HHotelSheetViewEnter, false )
		SetActive( HHotelSheetView, true )
	end
end

AddEvent( BedSheetHairPick, false, tweezers, HHairSample, nil, "bed_sheet_hair_pick" )

-- 2.2.28
function bed_sheet_pick_condition()
	return IsEventDone(BedSheetHairPick)
end

function bed_sheet_pick()
	PlayDialog(nil, "M1_GRISS_11")
	
	SetVisible( OBedSheet, false )
	SetActive( HBedSheet, false )
	
	AddEvidence( BedSheet )
	AddEvidenceDescriptionText( BedSheet , "TEXT1213" )
end

AddEvent( nil, false, gloves, HBedSheet, "bed_sheet_pick_condition", "bed_sheet_pick" )

-- After the Coroner was visited
function bed_sheet_pick2_condition()
	return IsEventDone(BedSheetHairPick)
end

function bed_sheet_pick2()
	PlayDialog(nil, "M1_GRISS_11")
	
	SetVisible( OHotelSheetView, false )
	SetActive( HHotelSheetView, false )
	
	AddEvidence( BedSheet )
	AddEvidenceDescriptionText( BedSheet , "TEXT1213" )
end

AddEvent( nil, false, gloves, HHotelSheetView, "bed_sheet_pick2_condition", "bed_sheet_pick2" )

-- 2.2.31
function show_bert_questions_condition()
--	return IsEventDone(KylieBodyClick)
	return true
end

function show_bert_questions()
	if (not IsEventDone(ShowBertHotelQuestions)) then
		PlayDialog( Bert, "M1_MOWNER_01" )
	end

	if (not DisplayQuestionList( Bert )) then
		PlayDialog( Bert, "M1_MOWNER_22" )
	end
end

AddEvent( ShowBertHotelQuestions, true, nil, Bert, "show_bert_questions_condition", "show_bert_questions" )

IncludeFile( "Script\\Gamelogic\\BertQuestions.lua" )

-- 2.6.0
function remote_finger_print_closeup()
	PlayDialog( nil, "M1_GRISS_13" )
end

AddEvent( nil, false, nil, RemoteFingerPrintCloseup, nil, "remote_finger_print_closeup" )

-- 2.6.1
function remote_finger_print()
	SetActive( RemoteFingerPrint, false )
	SetActive( RemoteFingerPrintHotspot, false )

	AddEvidence( RemoteFingerPrint )
	AddEvidenceDescriptionText( RemoteFingerPrint , "TEXT1225" )
end

AddEvent( nil, false, fingerdust, RemoteFingerPrint, nil, "remote_finger_print" )

-- 2.7.0
function tv_finger_print_closeup()
	PlayDialog( nil, "M1_GRISS_14" )
end

AddEvent( nil, false, nil, TVFingerPrintCloseup, nil, "tv_finger_print_closeup" )

-- 2.7.1
function tv_finger_print()
	SetActive( TVFingerPrint, false )
	SetActive( TVFingerPrintHotspot, false )

	AddEvidence( TVFingerPrint )
	AddEvidenceDescriptionText( TVFingerPrint , "TEXT1177" )
end

AddEvent( nil, false, fingerdust, TVFingerPrint, nil, "tv_finger_print" )

-- 2.8.0
function kylie_bracelet_closeup()
	PlayDialog( nil, "M1_GRISS_15" )
end

AddEvent( nil, false, nil, KylieBraceletCloseup, nil, "kylie_bracelet_closeup" )

-- 2.8.1
function kylie_bracelet_pick()
	SetVisible( Bracelet, false )
	SetActive( Bracelet, false )
	PlayDialog( nil, "M1_GRISS_73" )
	SetVisible( KylieBraceletHotspot, false )
	SetActive ( KylieBraceletHotspot, false )
	SetVisible( OPanoBracelet, false )
	
	AddEvidence( Bracelet )
	AddEvidenceDescriptionText( Bracelet , "TEXT1183" )
end

AddEvent( nil, false, gloves, Bracelet, nil, "kylie_bracelet_pick" )

-- 2.11.0
function sink_blood_closeup()
	PlayDialog( nil, "M1_GRISS_74" )
end

AddEvent( nil, false, nil, SinkBloodCloseup, nil, "sink_blood_closeup" )

-- 2.11.1
function sink_blood_luminol()
	SetActive( SinkBlood, false )

	SetVisible( OSinkLuminolFar, true )

	PlayDialog( nil, "M1_GRISS_17" )
end

AddEvent( SinkBloodLuminolClick, false, luminol, SinkBlood, nil, "sink_blood_luminol" )

-- 2.11.2
function sink_blood_swab_condition()
	return IsEventDone( SinkBloodLuminolClick )
end

function sink_blood_swab()
	SetActive( SinkBloodHotspot, false )

	PlayDialog( nil, "M1_GRISS_75" )
	AddEvidence( SinkBlood )
	AddEvidenceDescriptionText( SinkBlood , "TEXT1171" )
end

AddEvent( nil, false, swab, SinkBloodHotspot, "sink_blood_swab_condition", "sink_blood_swab" )

-- Default tool events
-- 12.2

function wrong_tool_dialog()
	PlayDialog( nil, "M1G_GRISS_01" )
end

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

function similar_tool_dialog()
	PlayDialog( nil, "M1G_GRISS_02" )
end

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

function magnifier_tool_dialog()
	PlayDialog( nil, "M1G_GRISS_04" )
end

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

function fingerdust_tool_dialog()
	PlayDialog( nil, "M1G_GRISS_05" )
end

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

-- Conditie iesire din Locatie
function exit_hotel()
	if HasEvidence( RegistrationCard ) and IsEventDone( KylieNeckClick ) then
		OpenLocationsMenu()
	else
		PlayDialog( nil, "M1_GRISS_12" )
	end
end

AddEvent( nil, true, ChampagneHotel, nil, nil, "exit_hotel" )