-- 7.1
function lab_intro()
	FadeIn()
	if not IsEventDone( EnterLabLocationEvent ) then
		PlayDialog( Greg, "M1_GREG_01" )
	else
		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
end

AddEvent( EnterLabLocationEvent, true, nil, Laboratory, nil, "lab_intro" )

-- 7.1.1
function lab_greg_intro()
	PlayDialog( Greg, "M1_GREG_02" )
end

AddEvent( nil, false, nil, Greg, nil, "lab_greg_intro" )

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

-- 7.1.2
function lab_greg_hair_sample()
	if not IsEventDone(GregAnalyzedHairSample) then 
		PlayDialog( Greg, "M1_GREG_03" )
		SendEvidenceToMicroscope( HairSample )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedHairSample, true, HairSample, Greg, nil, "lab_greg_hair_sample" )

function lab_greg_devon_hair_sample()
	if not IsEventDone(GregAnalyzedDevonHair) then 
		PlayDialog( Greg, "M1_GREG_03" )
		SendEvidenceToMicroscope( DevonHair )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedDevonHair, true, DevonHair, Greg, nil, "lab_greg_devon_hair_sample" )

function lab_greg_bert_hair_sample()
	if not IsEventDone(GregAnalyzedBertHair) then 
		PlayDialog( Greg, "M1_GREG_03" )
		SendEvidenceToMicroscope( BertHair )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedBertHair, true, BertHair, Greg, nil, "lab_greg_bert_hair_sample" )

-- 7.1.3
function lab_greg_finger_print()
	if not IsEventDone(GregAnalyzedTVFingerPrint) then 
		PlayDialog( Greg, "M1_GREG_04" )
		SendEvidenceToComputer( TVFingerPrint )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedTVFingerPrint, true, TVFingerPrint, Greg, nil, "lab_greg_finger_print" )

function lab_greg_medicine_finger_print()
	if not IsEventDone(GregAnalyzedMedicineBottlePrints) then 
		PlayDialog( Greg, "M1_GREG_04" )
		SendEvidenceToComputer( MedicineBottlePrints )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedMedicineBottlePrints, true, MedicineBottlePrints, Greg, nil, "lab_greg_medicine_finger_print" )

function lab_greg_schedule()
	if not IsEventDone(GregAnalyzedKylieSchedule) then 
		SendEvidenceToComputer( KylieSchedule )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedKylieSchedule, true, KylieSchedule, Greg, nil, "lab_greg_schedule" )

-- 7.1.4
function lab_greg_partial_finger_print()
	if not IsEventDone(GregAnalyzedRemoteFingerPrint) then 
		PlayDialog( Greg, "M1_GREG_05" )
		SendEvidenceToComputer( RemoteFingerPrint )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedRemoteFingerPrint, true, RemoteFingerPrint, Greg, nil, "lab_greg_partial_finger_print" )

-- 7.1.5
function lab_greg_money()
	if not IsEventDone(GregAnalyzedMoney) then 
		PlayDialog( Greg, "M1_GREG_15" )
		AddEvidenceDescriptionText( Money, "TEXT1262" )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedMoney, true, Money, Greg, nil, "lab_greg_money" )

-- 7.1.6
function lab_greg_bert_dna()
	if not IsEventDone(GregAnalyzedBertDNA) then 
		PlayDialog( Greg, "M1_GREG_06" )
	--	if IsEventDone(GregAnalyzedSkinSample) then
	--		NewEvent( GregComparesBertDNASkinSample, Greg )
	--	end
	--	if IsEventDone(GregAnalyzedSinkBlood) then
	--		NewEvent( GregComparesBertDNASinkBlood, Greg )
	--	end
		SendEvidenceToComputer( BertDNA )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedBertDNA, true, BertDNA, Greg, nil, "lab_greg_bert_dna" )

-- 7.1.7
function lab_greg_devon_dna()
	if not IsEventDone(GregAnalyzedDevonDNA) then 
		PlayDialog( Greg, "M1_GREG_16" )
	--	if IsEventDone(GregAnalyzedSinkBlood) then
	--		NewEvent( GregComparesDevonDNASinkBlood, Greg )
	--	end
	--	if IsEventDone(GregAnalyzedSkinSample) then
	--		NewEvent( GregComparesDevonDNASkinSample, Greg )
	--	end
		SendEvidenceToComputer( DevonDNA )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedDevonDNA, true, DevonDNA, Greg, nil, "lab_greg_devon_dna" )

-- 7.1.8
function lab_greg_sink_blood()
	if not IsEventDone(GregAnalyzedSinkBlood) then 
		PlayDialog( Greg, "M1_GREG_17" )
		AddEvidenceDescriptionText( SinkBlood , "TEXT1172" )
	--	if IsEventDone(GregAnalyzedDevonDNA) then
	--		NewEvent( GregComparesDevonDNASinkBlood, Greg )
	--	end
	--	if IsEventDone(GregAnalyzedBertDNA) then
	--		NewEvent( GregComparesBertDNASinkBlood, Greg )
	--	end
		SendEvidenceToComputer( SinkBlood )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedSinkBlood, true, SinkBlood, Greg, nil, "lab_greg_sink_blood" )

-- 7.1.9
function lab_greg_skin_sample()
	if not IsEventDone(GregAnalyzedSkinSample) then 
		PlayDialog( Greg, "M1_GREG_07" )
		AddEvidenceDescriptionText( SkinSample , "TEXT1196" )
	--	if IsEventDone(GregAnalyzedBertDNA) then
	--		NewEvent( GregComparesBertDNASkinSample, Greg )
	--	end
	--	if IsEventDone(GregAnalyzedDevonDNA) then
	--		NewEvent( GregComparesDevonDNASkinSample, Greg )
	--	end
		SendEvidenceToComputer( SkinSample )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedSkinSample, true, SkinSample, Greg, nil, "lab_greg_skin_sample" )

-- 7.1.10
function lab_greg_compare_bert_dna_blood()
	PlayDialog( Greg, "M1_GREG_09" )
	PlayDialog( nil, "M1_GRISS_78" )
	
	--UpdateCaseFile( Bert, SUSPECT_CRIMESCENE, "TEXT1148", 100 )
	--AddEvidenceDescriptionText( BertDNA, "TEXT1256" )
	--AddEvidenceDescriptionText( SinkBlood, "TEXT1173" )
end

--AddEvent( GregComparesBertDNASinkBlood, false, GregComparesBertDNASinkBlood, Greg, nil, "lab_greg_compare_bert_dna_blood" )

function lab_computer_compare_bert_dna_blood()
	SetComputerMatchResult( BertDNASearchResult )
	if not IsEventDone(GregComparesBertDNASinkBlood) then
		UpdateCaseFile( Bert, SUSPECT_CRIMESCENE, "TEXT1148", 100 )
		AddEvidenceDescriptionText( BertDNA, "TEXT1256" )
		AddEvidenceDescriptionText( SinkBlood, "TEXT1173" )
	end
end

AddComputerEvent( GregComparesBertDNASinkBlood, true, BertDNA, SinkBlood, nil, "lab_computer_compare_bert_dna_blood" )

-- 7.1.11
function lab_greg_compare_devon_dna_blood()
	PlayDialog( Greg, "M1_GREG_18" )
end

--AddEvent( nil, false, GregComparesDevonDNASinkBlood, Greg, nil, "lab_greg_compare_devon_dna_blood" )

-- 7.1.12
function lab_greg_compare_devon_dna_skin()
	PlayDialog( Greg, "M1_GREG_19" )
	
	--UpdateCaseFile( Devon, SUSPECT_CRIMESCENE, "TEXT1131", 100 )
	--AddEvidenceDescriptionText( DevonDNA, "TEXT1244" )
end

--AddEvent( GregComparesDevonDNASkinSample, false, GregComparesDevonDNASkinSample, Greg, nil, "lab_greg_compare_devon_dna_skin" )

function lab_computer_compare_devon_dna_skin()
	SetComputerMatchResult( DevonDNASearchResult )
	if not IsEventDone(GregComparesBertDNASinkBlood) then
		UpdateCaseFile( Devon, SUSPECT_CRIMESCENE, "TEXT1131", 200 )
		AddEvidenceDescriptionText( DevonDNA, "TEXT1244" )
	end
end

AddComputerEvent( GregComparesDevonDNASkinSample, true, DevonDNA, SkinSample, nil, "lab_computer_compare_devon_dna_skin" )

-- 7.1.13
function lab_greg_compare_devon_dna_blood()
	PlayDialog( Greg, "M1_GREG_20" )
	--UpdateCaseFile( Bert, SUSPECT_CRIMESCENE, "TEXT1145", 100 )
end

AddEvent( GregComparesDevonDNASinkBlood, false, GregComparesDevonDNASinkBlood, Greg, nil, "lab_greg_compare_devon_dna_blood" )

-- 7.1.14
function lab_greg_answering_machine_tape()
	if not IsEventDone(GregAnalyzedAnsweringMachineTape) then 
		PlayDialog( Greg, "M1_GREG_21" )
		AddEvidenceDescriptionText( AnsweringMachineTape, "TEXT1208" )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedAnsweringMachineTape, true, AnsweringMachineTape, Greg, nil, "lab_greg_answering_machine_tape" )

-- 7.1.15
function lab_greg_medicine_bottle()
	if not IsEventDone(GregAnalyzedMedicineBottle) then 
		PlayDialog( Greg, "M1_GREG_22" )
		AddEvidenceDescriptionText( MedicineBottle, "TEXT1274" )
	
		AddEvidence(MedicineBottlePrints)
		AddEvidenceDescriptionText( MedicineBottlePrints, "TEXT1189" )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedMedicineBottle, true, MedicineBottle, Greg, nil, "lab_greg_medicine_bottle" )

-- 7.1.16
function lab_greg_bedsheet()
	if not IsEventDone(GregAnalyzedBedSheet) then 
		PlayDialog( Greg, "M1_GREG_23" )
		AddEvidenceDescriptionText( BedSheet, "TEXT1214" )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedBedSheet, true, BedSheet, Greg, nil, "lab_greg_bedsheet" )

-- 7.1.17
function lab_greg_receipts()
	if not IsEventDone(GregAnalyzedReceipts) then 
		PlayDialog( Greg, "M1_GREG_30" )
		AddEvidenceDescriptionText( Receipts, "TEXT1280" )
	else
		send_to_greg_again()
	end
end

AddEvent( GregAnalyzedReceipts, true, Receipts, Greg, nil, "lab_greg_receipts" )

AddEvent( nil, true, Bracelet, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, RegistrationCard, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, BertRapSheet, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, DevonRapSheet, Greg, nil, "send_to_greg_again" )

function lab_computer_compare_bert_print_rapsheet()
	SetComputerMatchResult( BertRapSheetSearchResult )
end

AddComputerEvent( nil, true, TVFingerPrint, BertRapSheet, nil, "lab_computer_compare_bert_print_rapsheet" )

-- Computer and microscope
function lab_computer_click()
	if not IsEventDone(ActivateComputerEvent) then
		PlayDialog( nil, "M1_GREG_12" )
	end
	
	ActivateComputer()
end

AddEvent( ActivateComputerEvent, true, nil, HLaboratoryComputer, nil, "lab_computer_click" )

function computer_match_false()
	SetComputerMatchResult(nil)
			T = Random (3)
	if T == 1 then
		PlayDialog( nil, "M5_GRISSOM_1730" )
	end
	if T == 2 then
		PlayDialog( nil, "M5_GRISSOM_1731" )
	end
	if T == 3 then
		PlayDialog( nil, "M5_GRISSOM_1732" )
	end

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

function computer_search_false()
	SetComputerSearchResult("", false)
	PlayDialog( nil, "M5_GRISSOM_1730" )
end
AddComputerEvent(nil, true, nil, COMPUTER_DEFAULT_SEARCH_EVENT, nil, "computer_search_false")

-- 7.2.2
function search_tv_print()
	SetComputerSearchResult("", true)
end

AddComputerEvent(nil, true, nil, TVFingerPrint, nil, "search_tv_print")

function match_tv_print()
	SetComputerMatchResult(BertRapSheetSearchResult)
	if not IsEventDone( TVFingerPrintMatchEvent ) then
		PlayDialog( nil, "M1_GRISS_79" )
		AddEvidence( BertRapSheet )
		AddEvidenceDescriptionText( BertRapSheet, "TEXT1285" )
		
		SendEvidenceToComputer( BertRapSheet )
		
		AddEvidenceDescriptionText( TVFingerPrint, "TEXT1178" )

		UpdateCaseFile( Bert, SUSPECT_CRIMESCENE, "TEXT1147", 100 )
		UpdateCaseFile( Bert, INFORMATION, "TEXT1146", 100 )
	end		
end

AddComputerEvent( TVFingerPrintMatchEvent, true, TVFingerPrint, Print5SampleObject, nil, "match_tv_print" )

-- 7.2.3
function search_remote_print()
	SetComputerSearchResult("", false)
	PlayDialog( nil, "M1_GRISS_80" )
end

AddComputerEvent(nil, true, nil, RemoteFingerPrint, nil, "search_remote_print")

-- 7.2.4
function search_kylie_schedule()
	SetComputerSearchResult( "", true, DevonRapSheetSearchResult )
	if not IsEventDone( KylieScheduleSearchEvent ) then
		PlayDialog( nil, "M1_GRISS_81" )
		
		AddEvidence( DevonRapSheet )
		AddEvidenceDescriptionText( DevonRapSheet, "TEXT1291" )

		SendEvidenceToComputer( DevonRapSheet )
		
		UpdateCaseFile( Devon, SUSPECT_CRIMESCENE, "TEXT1126", 200 )
	end
end

AddComputerEvent( KylieScheduleSearchEvent, true, nil, KylieSchedule, nil, "search_kylie_schedule")

-- 7.2.5
function match_partial_print()
	SetComputerMatchResult( DevonRapSheetSearchResult )
	if not IsEventDone( RemoteFingerPrintMatchEvent ) then
		PlayDialog( nil, "M1_GRISS_82" )
		AddEvidenceDescriptionText( RemoteFingerPrint, "TEXT1226" )
	end		
end

AddComputerEvent( RemoteFingerPrintMatchEvent, true, RemoteFingerPrint, DevonRapSheet, nil, "match_partial_print" )

-- 7.2.6
function search_medicine_prints()
	SetComputerSearchResult( "", false )
	if not IsEventDone( MedicinePrintSearchEvent ) then
		AddEvidenceDescriptionText( MedicineBottlePrints, "TEXT1190" )
	end
end

AddComputerEvent( MedicinePrintSearchEvent, true, nil, MedicineBottlePrints, nil, "search_medicine_prints" )

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

AddComputerEvent( nil, true, nil, DevonDNA, nil, "search_DNAs" )
AddComputerEvent( nil, true, nil, SkinSample, nil, "search_DNAs" )
AddComputerEvent( nil, true, nil, BertDNA, nil, "search_DNAs" )
AddComputerEvent( nil, true, nil, SinkBlood, nil, "search_DNAs" )

-- Microscope
function lab_microscope_click()
	if not IsEventDone(ActivateMicroscopeEvent) then
		PlayDialog( nil, "M1_GREG_13" )
	end
	
	ActivateMicroscope()
end

AddEvent( ActivateMicroscopeEvent, true, nil, HLaboratoryMicroscop, nil, "lab_microscope_click" )

function match_micro_false()
	SetMicroscopeMatchResult(nil)
			T = Random (3)
	if T == 1 then
		PlayDialog( nil, "M5_GRISSOM_1733" )
	end
	if T == 2 then
		PlayDialog( nil, "M5_GRISSOM_1734" )
	end
	if T == 3 then
		PlayDialog( nil, "M5_GRISSOM_1735" )
	end
end

AddMicroscopeEvent(nil, true, nil, MICROSCOPE_DEFAULT_MATCH_EVENT, nil, "match_micro_false")

-- 7.6.1
function match_micro_bert()
	SetMicroscopeMatchResult(nil)
	if not IsEventDone( BertHairMatchEvent ) then 
		PlayDialog( nil, "M1_GRISS_83" )
		UpdateCaseFile( Bert, SUSPECT_CRIMESCENE, "TEXT1142", 100 )
		AddEvidenceDescriptionText( HairSample, "TEXT1221" )
	end
end

AddMicroscopeEvent( BertHairMatchEvent, true, BertHair, HairSample, nil, "match_micro_bert" )

-- 7.6.2
function match_micro_devon()
	SetMicroscopeMatchResult(DevonHair)
	if not IsEventDone(DevonHairMatchEvent) then
		PlayDialog( nil, "M1_GRISS_84" )
		UpdateCaseFile( Devon, SUSPECT_CRIMESCENE, "TEXT1238", 200 )
		AddEvidenceDescriptionText( HairSample, "TEXT1220" )
		AddEvidenceDescriptionText( DevonHair, "TEXT1238" )
	end
end

AddMicroscopeEvent( DevonHairMatchEvent, true, DevonHair, HairSample, nil, "match_micro_devon")