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


function search_tire()
	SetComputerSearchResult("", true)
end

--AddComputerEvent(nil, true, nil, ETConstructionTireTread, nil, "search_tire")

function match_tire_false()
	SetComputerMatchResult(nil)
	T = Random (3)
	if T == 1 then
		PlayDialog( nil, "M2_WARRICK_1395" )
	end
	if T == 2 then
		PlayDialog( nil, "M2_WARRICK_1393" )
	end
	if T == 3 then
		PlayDialog( nil, "M2_WARRICK_1394" )
	end

end
AddComputerEvent(nil, true, nil, COMPUTER_DEFAULT_MATCH_EVENT, nil, "match_tire_false")

function match_micro_false()
	SetMicroscopeMatchResult(nil)
			T = Random (3)
	if T == 1 then
		PlayDialog( nil, "M2_WARRICK_1396" )
	end
	if T == 2 then
		PlayDialog( nil, "M2_WARRICK_1398" )
	end
	if T == 3 then
		PlayDialog( nil, "M2_WARRICK_1397" )
	end

end
AddComputerEvent(nil, true, nil, MICROSCOPE_DEFAULT_MATCH_EVENT, nil, "match_micro_false")

function match_false()
	SetComputerSearchResult("", false)
end
AddComputerEvent(nil, true, nil, COMPUTER_DEFAULT_SEARCH_EVENT, nil, "match_false")







function send_to_greg_again ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1267")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1268")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1269")
	end

end



----------------------------------
function comp_activate()
	ActivateComputer()
end

AddEvent(nil, true, nil, HLaboratoryComputer, nil, "comp_activate")

function micro_activate()
	ActivateMicroscope()
end

AddEvent(nil, true, nil, HLaboratoryMicroscop, nil, "micro_activate")

function enter_lab_greg()

			T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1305")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1306")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1307")
	end

end
function laboratory_entrance()
	
	if IsEventDone( EInternetSearchCompleted ) then
		ChangeRoom(MainLabEstab)
		FadeIn()
		if IsEventDone (EVIntroLabFirst) then
			enter_lab_greg()
		end
	else
		ChangeRoom(MainLabSolo)
		FadeIn()
	end
end
AddEvent(nil, true, nil, Laboratory, nil, "laboratory_entrance")


function laboratory_entrance_solo()
	PlayDialog( Warrick, "M5_WARR_01")
end
AddEvent( EVEnterLabSolo, false, nil, MainLabSolo, nil, "laboratory_entrance_solo")


--6.1
function present_evidence_to_greg()
	PlayDialog(Warrick,"M5_WARR_21")
	PlayDialog(Greg,"M5_GREG_01")
end
AddEvent(EVIntroLabFirst, false, nil, MainLabEstab, nil, "present_evidence_to_greg")

-- probe pt care Greg nu are nimic de zis 
AddEvent(nil,true,EDPrintFlora,Greg,nil,"send_to_greg_again")
AddEvent(nil,true,EDPaperOrder,Greg,nil,"send_to_greg_again")
AddEvent(nil,true,EIMouthChips,Greg,nil,"send_to_greg_again")
--6.1.1
function lab_dirt_stain()
	if not IsEventDone(EVDirtStain) then

	PlayDialog(Greg,"M5_GREG_02")
	AddEvidenceDescriptionText(EIDirtPens,"TEXT4024")
	if IsEventDone(EVGardenDirt)
		then
			NewEvent(nil,EVGregNotes01)
	end
	else
		send_to_greg_again ()
	end
end
AddEvent(EVDirtStain,true,EIDirtPens,Greg,nil,"lab_dirt_stain")

--6.1.2
function lab_sticky_stain()
	if not IsEventDone(EVStickyStain) then
	PlayDialog(Greg,"M5_GREG_03")
	AddEvidenceDescriptionText(EIStickySubstPens,"TEXT4030")
	else
		send_to_greg_again ()
	end

end
AddEvent(EVStickyStain,true,EIStickySubstPens,Greg,nil,"lab_sticky_stain")

--6.1.3
function lab_pollen_swab()
	if not IsEventDone(EVLabPollen) then

	PlayDialog(Greg,"M5_GREG_04")
	AddEvidenceDescriptionText(ETPollenSample,"TEXT4042")
	AddEvidence(EDPrintFlora)
	AddEvidenceDescriptionText(EDPrintFlora,"TEXT4047")
	else
		send_to_greg_again ()
	end

end
AddEvent(EVLabPollen,true,ETPollenSample,Greg,nil,"lab_pollen_swab")

--6.2 aici toata treaba se face la calculator, care deocamdata nu merge asa ca o fac pe Greg

--6.2.1
function phone_prints_show()
	if not IsEventDone(EVLabPhonePrintsShow) then
	SendEvidenceToComputer( ETPhonePrints )
	else
		send_to_greg_again ()
	end

end
AddEvent(EVLabPhonePrintsShow, true, ETPhonePrints, Greg, nil, "phone_prints_show")

AddComputerEvent(nil, true, nil, ETPhonePrints, nil, "search_tire")


function match_prints_false1()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind)
end
AddComputerEvent(EVMatchPrintsFalse1, true, OPrint2, ETPhonePrints, nil, "match_prints_false1")

function match_prints_false2()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind)
end
AddComputerEvent(EVMatchPrintsFalse2, true, OPrint3, ETPhonePrints, nil, "match_prints_false2")

function match_prints_false3()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind)
end
AddComputerEvent(EVMatchPrintsFalse3, true, OPrint4, ETPhonePrints, nil, "match_prints_false3")

function match_prints_false4()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind)
end
AddComputerEvent(EVMatchPrintsFalse4, true, OPrint5, ETPhonePrints, nil, "match_prints_false4")

function lab_phone_prints_cond()
	return IsEventDone( EVMatchPrintsFalse1 ) and IsEventDone( EVMatchPrintsFalse2 ) and IsEventDone( EVMatchPrintsFalse3 ) and IsEventDone( EVMatchPrintsFalse4 ) 
end

function lab_phone_prints()
	PlayDialog(Warrick,"M5_WARR_22")
	AddEvidenceDescriptionText(ETPhonePrints,"TEXT4018")
end
AddEvent(nil, false, nil, EVNoFind, "lab_phone_prints_cond", "lab_phone_prints")

--6.2.2
function lab_tire_cast_show()
	if not IsEventDone(EVLabTireCastShow) then
		SendEvidenceToComputer( ETTireCasino)
	else
		send_to_greg_again ()
	end

end
AddEvent(EVLabTireCastShow, true, ETTireCasino, Greg, nil, "lab_tire_cast_show")

AddComputerEvent(nil, true, nil, ETTireCasino, nil, "search_tire")


function match_tire_false1()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind1)
end
AddComputerEvent(EVMatchTireFalse1, true, OTire1, ETTireCasino, nil, "match_tire_false1")

function match_tire_false2()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind1)
end
AddComputerEvent(EVMatchTireFalse2, true, OTire2, ETTireCasino, nil, "match_tire_false2")

function match_tire_false3()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind1)
end
AddComputerEvent(EVMatchTireFalse3, true, OTire3, ETTireCasino, nil, "match_tire_false3")

function match_tire_false4()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind1)
end
AddComputerEvent(EVMatchTireFalse4, true, OTire4, ETTireCasino, nil, "match_tire_false4")

function match_tire_false5()
	SetComputerMatchResult(nil)
	NewEvent (nil, EVNoFind1)
end
AddComputerEvent(EVMatchTireFalse5, true, OTire5, ETTireCasino, nil, "match_tire_false5")



function lab_tire_cast_cond()
	return IsEventDone( EVMatchTireFalse1 ) and IsEventDone( EVMatchTireFalse2 ) and IsEventDone( EVMatchTireFalse3 ) and IsEventDone( EVMatchTireFalse4 ) and IsEventDone( EVMatchTireFalse5 ) 
end

function lab_tire_cast()
	if not IsEventDone (EVLabTireCast) then
		AddEvidenceDescriptionText(ETTireCasino1,"TEXT4336" , true )
		AddEvidenceDescriptionText(ETTireCasino1,"TEXT4337", true)
	end
	SetComputerMatchResult(ETTireCasino1)
	if not IsEventDone (EVLabTireCast) then
	PlayDialog(Warrick,"M5_WARR_23")
	AddEvidenceDescriptionText(ETTireCasino,"TEXT4012")
	end
end
AddEvent(EVLabTireCast, true, nil, EVNoFind1, "lab_tire_cast_cond", "lab_tire_cast")

-- functia de mai jos cred ca se va scoate pentru ca este un alternate la 7.1 din BrassQuestions
	
--6.2.3
--function lab_flora_list()
--	PlayDialog(Warrick,"M5_WARR_91")
--	AddEvidenceDescriptionText(EDPrintFlora,"TEXT4012")
------------------------------------------------------------------------
-- LOCATION ADDED - GARDEN
--	AddLocation(Garden)
------------------------------------------------------------------------
--end
--AddEvent(nil, false, EDPrintFlora, Greg, nil, "lab_flora_list")

--9.1.1
function lab_strand_of_hair()
	if not IsEventDone(EVLabStrandOfHair) then
	PlayDialog(Greg,"M5_GREG_05")
	AddEvidenceDescriptionText(ETHairGarden,"TEXT4066")
	SendEvidenceToComputer( ETHairGarden)
--	SendEvidenceToMicroscope ( ETHairGarden )
	else
		send_to_greg_again ()
	end

end
AddEvent(EVLabStrandOfHair, true, ETHairGarden, Greg, nil, "lab_strand_of_hair")

AddComputerEvent(nil, true, nil, ETHairGarden, nil, "search_tire")
--9.1.2
function lab_facial_tissue()
	if not IsEventDone(EVLabFacialTissue) then

	PlayDialog(Greg,"M5_GREG_06")
	PlayDialog(Warrick,"M5_WARR_30")
	PlayDialog(Greg,"M5_GREG_07")
	AddEvidenceDescriptionText(EITissueGarden,"TEXT4072")
	SendEvidenceToComputer( EITissueGarden)
	else
		send_to_greg_again ()
	end
end
AddEvent(EVLabFacialTissue, true, EITissueGarden, Greg, nil, "lab_facial_tissue")

AddComputerEvent(nil, true, nil, EITissueGarden, nil, "search_tire")
--9.1.3
function lab_garden_dirt()
	if not IsEventDone(EVGardenDirt) then
	PlayDialog(Greg,"M5_GREG_08")
	AddEvidenceDescriptionText(EIDirtGarden,"TEXT4066")
	if IsEventDone(EVDirtStain)
		then
			NewEvent(nil,EVGregNotes01)
	end
	else
		send_to_greg_again ()
	end

end
AddEvent(EVGardenDirt, true, EIDirtGarden, Greg, nil, "lab_garden_dirt")

--9.1.4
function greg_notes01()
	PlayDialog(Greg,"M5_GREG_09")
	AddEvidenceDescriptionText(EIDirtGarden,"TEXT4061")
end
AddEvent(nil, false, nil, EVGregNotes01, nil, "greg_notes01")

--9.2 aici toata treaba se face la calculator, care deocamdata nu merge asa ca o fac pe Greg
--9.2.1 si 9.2.2 si 9.2.3
function lab_garden_tire_show()
	if not IsEventDone(EVLabTireGardenShow) then
	SendEvidenceToComputer( ETTireGarden )
	else
		send_to_greg_again ()
	end

end
AddEvent(EVLabTireGardenShow, true, ETTireGarden, Greg, nil, "lab_garden_tire_show")

function search_tire_garden()
	SetComputerSearchResult("", true)
	
end

AddComputerEvent(nil, true, nil, ETTireGarden, nil, "search_tire_garden")

function match_tire_garden ()
	if not IsEventDone (EVSearch123) then
		AddEvidenceDescriptionText(ETTireGarden1,"TEXT4346" , true)
		AddEvidenceDescriptionText(ETTireGarden1,"TEXT4347", true)
	end
	SetComputerMatchResult(ETTireGarden1)

	if not IsEventDone (EVSearch123) then
	PlayDialog(Warrick,"M5_WARR_31")
	AddEvidenceDescriptionText(ETTireGarden,"TEXT4054")
--	NewEvent(nil, EVCompareTirePrints)
	end

end

AddComputerEvent(EVSearch123, true, OTire3, ETTireGarden, nil, "match_tire_garden")

function match_tire_true1()
	SetComputerMatchResult(ETTireGarden)
	if not IsEventDone(EVGardenTirePrint)
		then
			PlayDialog(Warrick,"M5_WARR_32")
			AddEvidenceDescriptionText(ETTireGarden,"TEXT4055")
	end

end
AddComputerEvent(EVGardenTirePrint, true, ETTireCasino, ETTireGarden, nil, "match_tire_true1")


--9.3 aici toata treaba se face la microscop, care deocamdata nu merge asa ca o fac pe Greg ( am simulat pe comp, HOTSPOT-ul pt micro nu este available)
--9.3.1 am comentat dialogul pentru ca proba nu poate fi trimisa si la microscop si la PC, si in plus nu are nici o relevanta

--function lab_strand_of_hair_microscope_cond()
--	return IsEventDone( EVLabStrandOfHair )
--end

--function lab_strand_of_hair_microscope()
--	PlayDialog(Warrick,"M5_WARR_85")
--end
--AddEvent(nil, false, nil, HLaboratoryMicroscop, "lab_strand_of_hair_microscope_cond", "lab_strand_of_hair_microscope")

--11.1.1
function victim_dna_sample()
	if not IsEventDone(EVVictimDNASample) then

	SendEvidenceToComputer( ETVictimDNA )

	else
		send_to_greg_again ()
	end
	
end
AddEvent( EVVictimDNASample, true, ETVictimDNA, Greg, nil, "victim_dna_sample")

AddComputerEvent(nil, true, nil, ETVictimDNA, nil, "search_tire")


function match_tire_dna1()
	SetComputerMatchResult(ETVictimDNA)
	if not IsEventDone(EVDNAMATCH1)
		then
			PlayDialog(Greg, "M5_GREG_10")
			AddEvidenceDescriptionText(ETVictimDNA,"TEXT4078")
--11.2.1

			-- ar trebui play-at un reenactment cu toate textele urmatoare pe el
		--PlayDialog(Warrick,"M5_WARR_78")
		PlayReenactment( "Art\\Reenactments\\Movie\\reenact2.xmv", "Art\\Reenactments\\Pictures\\reenact2.tga", "TEXT4317", nil, "REENACT2" )	
		--PlayDialog(Warrick,"M5_WARR_79")	
		--PlayDialog(Warrick,"M5_WARR_80")
		--PlayDialog(Warrick,"M5_WARR_81")
			-- sfarsitul reenactmentului
		PlayDialog(Greg,"M5_GREG_17")

	end

end
AddComputerEvent(EVDNAMATCH1, true, EITissueGarden, ETVictimDNA, nil, "match_tire_dna1")


--11.1.2



function match_tire_dna2()
	SetComputerMatchResult(nil)
	if not IsEventDone(EVDNAMATCH2)
		then
			PlayDialog(Greg, "M5_GREG_11")
			AddEvidenceDescriptionText(ETHairGarden,"TEXT4067")

	end

end
AddComputerEvent(EVDNAMATCH2, true, ETHairGarden, ETVictimDNA, nil, "match_tire_dna2")

--11.1.3 nu mai are logica dupa 11.1.1 si 11.1.2
--function victim_dna_sample_positive()
--	if (IsEventDone(EVLabStrandOfHair) and IsEventDone(EVLabFacialTissue))
--		then
--			PlayDialog(Greg, "M5_GREG_12")
--			AddEvidenceDescriptionText(ETVictimDNA,"TEXT4078")
--			AddEvidenceDescriptionText(ETHairGarden,"TEXT4067")
--			UpdateCaseFile(Victim,INFORMATION,"TEXT4157")
--			NewEvent(EVWarrickNotes01)
--	end
--end
--AddEvent( EVVictimDNASamplePositive, false, ETVictimDNA, Greg, nil, "victim_dna_sample_positive")


--18.1.1
function lab_woodchips()
	if not IsEventDone(EVGregWoodChips) then


	PlayDialog(Greg, "M5_GREG_18")
	AddEvidenceDescriptionText(EIWoodchips,"TEXT4084")

	else
		send_to_greg_again ()
	end

end
AddEvent(EVGregWoodChips, true, EIWoodchips, Greg, nil, "lab_woodchips")

--18.1.2
function lab_sticky_substance_cond()
	return not IsEventDone(EVStickyStain)
end

function lab_sticky_substance()
	if not IsEventDone(EVStickySubstanceUno) then


	PlayDialog(Greg,"M5_GREG_19")
	AddEvidenceDescriptionText(ETTruckSubstance,"TEXT4096")
	else
		send_to_greg_again ()
	end

end
AddEvent(EVStickySubstanceUno, true, ETTruckSubstance, Greg, "lab_sticky_substance_cond", "lab_sticky_substance")

--18.1.3
function lab_sticky_substance2_cond()
	return IsEventDone(EVStickyStain)
end

function lab_sticky_substance2()
	
	PlayDialog(Greg, "M5_GREG_20")
	if not IsEventDone(EVStickySubstanceUno) 
		then
		AddEvidenceDescriptionText(ETTruckSubstance,"TEXT4096")
	end
	

end
AddEvent(EVStickySubstance2, false, ETTruckSubstance, Greg, "lab_sticky_substance2_cond", "lab_sticky_substance2")

--18.1.4
function lab_sticky_substance3_cond()
	return (IsEventDone(EVStickyStain) and (IsEventDone(EVStickySubstance2) or IsEventDone(EVStickySubstanceUno)))
end
function lab_sticky_substance3()
	if not IsEventDone(EVStickySubstance3) then
	PlayDialog(Greg,"M5_GREG_21")
	AddEvidenceDescriptionText(ETTruckSubstance,"TEXT4097")
	NewEvent(nil, EVWarrickConclusion)
	else
		send_to_greg_again ()
	end
end
AddEvent(EVStickySubstance3, true, ETTruckSubstance, Greg, "lab_sticky_substance3_cond", "lab_sticky_substance3")

-- punctul 18.2 se desfasoara la calculator

--18.2.1
function lab_truck_tire_print_lift_show()
	if not IsEventDone(EVTruckTirePrintShow) then

	SendEvidenceToComputer ( ETTireTruckGarage )
	else
		send_to_greg_again ()
	end

end
AddEvent( EVTruckTirePrintShow, true, ETTireTruckGarage, Greg, nil, "lab_truck_tire_print_lift_show")



function search_tire_truck()
	SetComputerSearchResult("", true)
	
end

AddComputerEvent(nil, true, nil, ETTireTruckGarage, nil, "search_tire_truck")
function match_tire_truck ()

	if not IsEventDone (EVSearchTireTruck) then
		AddEvidenceDescriptionText(ETTireTruckGarage1,"TEXT4346", true)
		AddEvidenceDescriptionText(ETTireTruckGarage1,"TEXT4347", true)
	end
	SetComputerMatchResult(ETTireTruckGarage1)

	if not IsEventDone (EVSearchTireTruck) then
	PlayDialog(Warrick,"M5_WARR_45")
	AddEvidenceDescriptionText(ETTireTruckGarage,"TEXT4102")
--	NewEvent(nil, EVCompareTirePrints)
	end
end
AddComputerEvent(EVSearchTireTruck, true, OTire3, ETTireTruckGarage, nil, "match_tire_truck")

--18.2.2

function match_tire_true2()
	SetComputerMatchResult(ETTireTruckGarage)
	if not IsEventDone(EVCompareTirePrints1) then
		PlayDialog(nil,"M5_WARR_46")
		AddEvidenceDescriptionText(ETTireTruckGarage,"TEXT4103")
		NewEvent(nil,EVWarrickConclusion)
	end

end
AddComputerEvent(EVCompareTirePrints1, true, ETTireGarden, ETTireTruckGarage, nil, "match_tire_true2")


--18.2.3 Aici nu era nimic in documentul de design... o conditie fara actiune...
function match_tire_true3()
	SetComputerMatchResult(ETTireCasino)

end
AddComputerEvent(EVGardenTirePrint2, true, ETTireTruckGarage, ETTireCasino, nil, "match_tire_true3")


--18.3
function warrick_conclusion_cond()
	return (IsEventDone(EVStickySubstance3) and IsEventDone(EVCompareTirePrints1))
end
function warrick_conclusion()
	PlayDialog(Warrick,"M5_WARR_47")
--18.3.1, 18.3.2 si 18.3.3	
	-- inceput reenactment
--	PlayDialog(nil, "M5_WARR_48")
	PlayReenactment( "Art\\Reenactments\\Movie\\reenact3.xmv", "Art\\Reenactments\\Pictures\\reenact3.tga", "TEXT4318", nil, "REENACT3" )	
--	PlayDialog(nil, "M5_WARR_49")
	-- sfarsit reenactment
--18.3.4
	PlayDialog(Warrick, "M5_WARR_50")
	UpdateCaseFile(DrWilk,SUSPECT_VICTIM,"TEXT4176",100)
	UpdateCaseFile(MrsWilk,SUSPECT_VICTIM,"TEXT4184",100)
end	
AddEvent(EVWarrickConclusion1, false, nil, EVWarrickConclusion, "warrick_conclusion_cond", "warrick_conclusion")


-- 23.1


function lab_mr_dna()
	if not IsEventDone(EVGregDrWilk) then
		SendEvidenceToComputer ( ETDrWilkDNA )
	else
		send_to_greg_again ()
	end

end
AddEvent( EVGregDrWilk, true, ETDrWilkDNA, Greg,nil, "lab_mr_dna")

AddComputerEvent(nil, true, nil, ETDrWilkDNA, nil, "search_tire")

function match_tire_false10()
	SetComputerMatchResult(nil)
	if not IsEventDone (EVDNA10) then
	PlayDialog(Greg,"M5_GREG_22")
	AddEvidenceDescriptionText(ETDrWilkDNA,"TEXT4114")
	end
end
AddComputerEvent(EVDNA10, true, ETHairGarden, ETDrWilkDNA, nil, "match_tire_false10")


-- 23.2

function lab_mrs_dna()
	if not IsEventDone(EVGregMrsWilk) then

	SendEvidenceToComputer ( ETMrsWilkDNA )
	else
		send_to_greg_again ()
	end


end
AddEvent( EVGregMrsWilk, true, ETMrsWilkDNA, Greg, nil,  "lab_mrs_dna")


AddComputerEvent(nil, true, nil, ETMrsWilkDNA, nil, "search_tire")

function match_tire_false11()
	SetComputerMatchResult(nil)
	if not IsEventDone (EVDNA11) then
	PlayDialog(Greg,"M5_GREG_23")
	AddEvidenceDescriptionText(ETMrsWilkDNA,"TEXT4114")
	end
end
AddComputerEvent(EVDNA11, true, ETHairGarden, ETMrsWilkDNA, nil, "match_tire_false11")



-- 23.3


function lab_leda_dna()
	if not IsEventDone(EVLedaDNA) then
	SendEvidenceToComputer ( ETLedaDNA )
	else
		send_to_greg_again ()
	end

end
AddEvent( EVLedaDNA, true, ETLedaDNA, Greg, nil, "lab_leda_dna")

AddComputerEvent(nil, true, nil, ETLedaDNA, nil, "search_tire")

function match_tire_false12()
	SetComputerMatchResult(ETLedaDNA)
	if not IsEventDone (EVDNA12) then
	PlayDialog(Greg,"M5_GREG_24")
	AddEvidenceDescriptionText(ETLedaDNA,"TEXT4120")
	UpdateCaseFile(Leda, SUSPECT_VICTIM, "TEXT4167", 500)
	end
end
AddComputerEvent(EVDNA12, true, ETHairGarden, ETLedaDNA, nil, "match_tire_false12")