-- Main laboratory Office
function fadein_laboratory()
	ChangeRoom( MainlabDefaultRoom )
	FadeIn()

	if IsEventDone( EVCircusHair ) then
		SetVisible( EOBJ_driftwoodHair_Zoom, false )
		SetActive( EHOTSPOT_circusLog_H, false )
		SetActive( EHOTSPOT_driftwoodHair, false )
	end

			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

AddEvent( nil, true, nil, Laboratory, nil, "fadein_laboratory" )



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 comp_default_search()
	SetComputerSearchResult( "", false )
--	PlayDialog( nil, "M5_GRISSOM_1730" )
end

AddComputerEvent( nil, true, nil, COMPUTER_DEFAULT_SEARCH_EVENT, nil, "comp_default_search" )


function comp_default_match()
	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, "comp_default_match" )


function micro_default_match()
	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, "micro_default_match" )



function send_to_comp_fingerprint ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1249")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1250")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1251")
	end

end

function send_to_comp_dna ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1252")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1253")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1254")
	end

end


function send_to_comp_tiretread ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1255")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1256")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1257")
	end
end

function send_to_comp_shoeprint ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1258")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1259")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1260")
	end
end

function send_to_microscope ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1264")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1265")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1266")
	end

end

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

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



-- 3.1000
-- Player shows Human Toe w/ Print to Greg.
function lab_human_toe()
	if not IsEventDone( EVLabHumanToe ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M5_GREG_1440" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidence( ETHumanToeDNA )
		AddEvidenceDescriptionText( ETHumanToeDNA, "_TB_E1815" )
		SendEvidenceToComputer( ETHumanToeDNA )
		SendEvidenceToComputer( EIHumanToe )
	else
		send_to_greg_again()
	end
	
end

AddEvent( EVLabHumanToe, true, EIHumanToe, Greg, nil, "lab_human_toe" )




-- 3.1010
-- Player shows Vinyl Flake to Greg.
function lab_vinyl_flake()
	if not IsEventDone( EVLabCircusFlake ) then
		PlayDialog( Greg, "M5_GREG_1442" )
		SendEvidenceToMicroscope( ETCactusVinylFlake )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabCircusFlake, true, ETCactusVinylFlake, Greg, nil, "lab_vinyl_flake" )




-- 3.1010
-- Player shows Four Narrow Tread Marks to Greg.
function lab_circus_tread()
	if not IsEventDone( EVLabCircusTread ) then
		PlayDialog( Greg, "M5_GREG_1441" )
		SendEvidenceToComputer( ETTreadMarksCirque )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabCircusTread, true, ETTreadMarksCirque, Greg, nil, "lab_circus_tread" )





-- 3.1020
-- Player shows Drift Wood to Greg.
function lab_drift_wood()
	if not IsEventDone( EVLabDriftwoodHair ) then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "M5_GREG_1443" )
		ChangeRoom( MainlabDefaultRoom )	
		AddEvidenceDescriptionText( EIDriftwod, "_TB_E4679" )
	else
		send_to_greg_again()
	end

end

AddEvent( EVLabDriftwoodHair, true, EIDriftwod, Greg, nil, "lab_drift_wood" )




-- 3.1030
-- Player shows Drift Wood Hair to Greg.
-- NU TREBUIE FACUT SEARCH DUPA ADN ( crash - se incurca sample-urile )
function lab_drift_wood_hair()
	if not IsEventDone( EVLabDriftWood ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M5_GREG_1444" )
		PlayReenactment( "Art\\Reenactments\\Movie\\rcns_headstruck01a.xmv", "Art\\Reenactments\\Pictures\\rcns_headstruck01a.tga", "_TB_Z1802", nil, "M5_GREG_1445" )    -- NOTE: rcns_headstruck01a.bik
--		PlayDialog( Greg, "M5_GREG_1445" )
		PlayDialog( Greg, "M5_GREG_1446" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidence( ETDNAHairDriftwood )
		AddEvidenceDescriptionText( ETDNAHairDriftwood, "_TB_E2939" )
		SendEvidenceToComputer( ETDNAHairDriftwood )
		SendEvidenceToMicroscope( ETSmallHairDriftwood )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabDriftWood, true, ETSmallHairDriftwood, Greg, nil, "lab_drift_wood_hair" )





-- 4.1000
-- Player acquires Human Toe Print Result (Before Deposit Slip - 13.000) with Searching.
function lab_humnan_toe_print_before()
	SetComputerSearchResult ( "", true )
end

AddComputerEvent( EVToeSearchBefore1, true, nil, EIHumanToe, nil, "lab_humnan_toe_print_before" )


function lab_humnan_toe_match_before_cond()
	return not IsEventDone( EVDepositSlipBefore )
end

function lab_humnan_toe_match_before()
	if not IsEventDone( EVToeResultBefore ) then
		AddEvidenceDescriptionText( ETHumanToeBeforeVirtual, "_TB_B308", true )
	end
	SetComputerMatchResult ( ETHumanToeBeforeVirtual )
	
	NewEvent( EVHumanToeBefore, nil )
	
end

AddComputerEvent( EVToeResultBefore, true, EIHumanToe, OCircusToe3, "lab_humnan_toe_match_before_cond", "lab_humnan_toe_match_before" )



function human_toe_match_before()
	PlayDialog( nil, "M5_GRISSOM_1448" )
	AddVictim( Dominic, "Domenic Petrenko", "Art\\Reenactments\\Pictures\\black.tga" )
	UpdateCaseFile( Dominic, VICTIM_CRIMESCENE, "_TB_E1835", 100 )
	AddEvidenceDescriptionText( EIHumanToe, "_TB_E1834" )                 -- HumanToePrints trebuiesc declarate - Vezi si AddEvent
	
	NewEvent( EVCaseFileDominic, nil )	

end

AddEvent( EVHumanToeBefore, false, EVHumanToeBefore, nil, nil, "human_toe_match_before" )





-- 4.1050
-- Player acquires Human Toe Print Result (After Deposit Slip - 13.0000) with Searching.
function lab_humnan_toe_print_after_cond()
	return IsEventDone( EVDepositSlipBefore )
end

function lab_humnan_toe_print_after()
	if not IsEventDone( EVCompHumanToe ) then
		AddEvidenceDescriptionText( ETHumanToeAfterVirtual, "_TB_B308", true )
	end
	SetComputerMatchResult ( ETHumanToeAfterVirtual  )

	NewEvent( EVHumanToeAfter, nil )

end

AddComputerEvent( EVCompHumanToe, true, EIHumanToe, OCircusToe3, "lab_humnan_toe_print_after_cond", "lab_humnan_toe_print_after" )



function human_toe_match_after()
	PlayDialog( nil, "M5_GRISSOM_1448" )
	PlayDialog( nil, "M5_GRISSOM_1450" )
	
	AddVictim( Dominic, "Domenic Petrenko", "Art\\Reenactments\\Pictures\\black.tga" )
	UpdateCaseFile( Dominic, VICTIM_CRIMESCENE, "_TB_E3042"  )
	AddEvidenceDescriptionText( EIHumanToe, "_TB_E3050" )                 -- HumanToePrints trebuiesc declarate - Vezi si AddEvent

	NewEvent( EVCaseFileDominic, nil )

end

AddEvent( EVHumanToeAfter, false, EVHumanToeAfter, nil, nil, "human_toe_match_after" )





-- 4.2000
-- Player acquires Driftwood Hair (Result) with Searching.
function micro_driftwood_hair()
	SetMicroscopeMatchResult( ETSmallHairDriftwood )

	if not IsEventDone( EVMicroDriftwoodHair ) then
		PlayDialog( nil, "M5_GRISSOM_1451" )
	end

end

AddMicroscopeEvent( EVMicroDriftwoodHair, true, ETSmallHairDriftwood, OHair2, nil, "micro_driftwood_hair" )




-- 13.0000                    -- Nu se pot executa ambele   13.0000 & 13.00007
-- Player shows Deposit slip to Greg (before 4.1000).
function lab_deposit_slip_before_cond()
	return not IsEventDone( EVToeResultBefore )
end

function lab_deposit_slip_before()
	if not IsEventDone( EVDepositSlipBefore ) then
		PlayDialog( Greg, "M5_GREG_1497" )
	else
		send_to_greg_again ()
	end
	
	if IsQuestionAsked( Brass, "_TB_Q779") and IsQuestionAsked(Arnold, "_TB_Q781") and IsEventDone( EVToeDNAOffBloodDNA ) and IsQuestionAsked( Brass, "_TB_Q777" ) then
		NewEvent( EVRemoveQuestOffice, nil )
	end

end

AddEvent( EVDepositSlipBefore, true, EDDepositSlip, Greg, "lab_deposit_slip_before_cond", "lab_deposit_slip_before" )




-- 13.0007        -- Nu se pot executa ambele   13.0000 & 13.00007
-- Player shows Deposit slip to Greg (after 4.1000).
function lab_deposit_slip_after_cond()
	return IsEventDone( EVToeResultBefore )
end

function lab_deposit_slip_after()
	if not IsEventDone( EVDepositSlipAfter ) then
		PlayDialog( Greg, "M5_GREG_1497" )
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList( Grissom )
		PlayDialog( Grissom, "M5_GRISSOM_1498" )
		PlayDialog( nil, "M5_GREG_1499" )
		PlayDialog( Grissom, "M5_GRISSOM_1500" )
		ChangeRoom( MainlabDefaultRoom )
		PlayDialog( Greg, "M5_GREG_1496" )
		UpdateCaseFile( Dominic, INFORMATION, "_TB_E4260" )
		AddEvidenceDescriptionText( EDDepositSlip, "_TB_E4680" )
	else
		send_to_greg_again()
	end

	if IsQuestionAsked( Brass, "_TB_Q779") and IsQuestionAsked(Arnold, "_TB_Q781") and IsEventDone( EVToeDNAOffBloodDNA ) and IsQuestionAsked( Brass, "_TB_Q777" ) then
		NewEvent( EVRemoveQuestOffice, nil )
	end

end

AddEvent( EVDepositSlipAfter, true, EDDepositSlip, Greg, "lab_deposit_slip_after_cond", "lab_deposit_slip_after" )





-- 13.3000
-- Player shows Newspaper lining to Greg.
function lab_newspaper_lining()
	if not IsEventDone( EVLabNewsShow ) then
		PlayDialog( Greg, "M5_GREG_1501" )
		AddEvidenceDescriptionText( EDNewspaper, "_TB_E4681" )
	else
		send_to_greg_again()
	end	

end

AddEvent( EVLabNewsShow, true, EDNewspaper, Greg, nil, "lab_newspaper_lining" )




-- 13.4000
-- Player shows Office cart tracks to Greg.
function lab_cart_tracks()
	if not IsEventDone( EVLabOfficeTracks ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M5_GREG_1502" )
		ChangeRoom( MainlabDefaultRoom )
		SendEvidenceToComputer( ETCartTrackMarks )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabOfficeTracks, true, ETCartTrackMarks, Greg, nil, "lab_cart_tracks" )




-- 13.5000
-- Player shows Office Blood Swabbable (collectable) to Greg.
function lab_office_blood()
	if not IsEventDone( EVOfficeBlood ) then
		send_to_comp_dna()
		SendEvidenceToComputer( ETWipedBlood )
	else
		send_to_greg_again ()
	end	

end

AddEvent( EVOfficeBlood, true, ETWipedBlood, Greg, nil, "lab_office_blood" )




-- 14.1000 
-- Player acquires Human Toe DNA <-> Office Blood DNA with Matching.
--function comp_DNA_match1_cond()
--	return IsEventDone( EVLabHumanToe ) and IsEventDone( EVOfficeBlood )
--end

function comp_DNA_match1()
	if not IsEventDone( EVToeDNAOffBloodDNA ) then
		AddEvidenceDescriptionText( ETDNAMatch1, "_TB_B391", true )
	end
	SetComputerMatchResult ( ETDNAMatch1 )

	NewEvent( EVDNAMatch1, nil )

	if IsQuestionAsked( Brass, "_TB_Q779") and IsQuestionAsked(Arnold, "_TB_Q781") and IsQuestionAsked( Brass, "_TB_Q777" ) and ( IsEventDone( EVDepositSlipBefore ) or IsEventDone( EVDepositSlipAfter )) then	
		NewEvent( EVRemoveQuestOffice, nil )
	end

end

AddComputerEvent( EVToeDNAOffBloodDNA, true, ETHumanToeDNA, ETWipedBlood, nil, "comp_DNA_match1" )

function DNAmatch1()
	PlayDialog( nil, "M5_GRISSOM_1503" )

	AddEvidenceDescriptionText( ETWipedBlood, "_TB_E4670" )
	AddEvidenceDescriptionText( ETHumanToeDNA, "_TB_E4669" )
end

AddEvent( EVDNAMatch1, false, EVDNAMatch1, nil, nil, "DNAmatch1" )		





-- 17.1000
-- Player shows Vinyl Jacket Sleeve Flake to Greg.
function lab_jacket_flake()
	if not IsEventDone( EVLabJacketSleeve ) then
		send_to_microscope()
		SendEvidenceToMicroscope( ETJacketVinylSleeveFlake )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabJacketSleeve, true, ETJacketVinylSleeveFlake, Greg, nil, "lab_jacket_flake" )




-- 17.1010
-- Player shows Poloriod of Cobra Snake to Greg.
function lab_polaroid_cobra()
	if not IsEventDone( EVPolaroidPhoto ) then
		PlayDialog( Greg, "M5_GREG_1521" )
		SendEvidenceToMicroscope( EDPhotoSnake )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVPolaroidPhoto, true, EDPhotoSnake, Greg, nil, "lab_polaroid_cobra" )




-- 17.1011
-- Player shows Poloriod Finger Print to Greg.
function lab_polaroid_print()
	if not IsEventDone( EVPolaroidPrint ) then
		PlayDialog( Greg, "M5_GREG_1522" )
		SendEvidenceToComputer( ETPhotoFingerprint )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVPolaroidPrint, true, ETPhotoFingerprint, Greg, nil, "lab_polaroid_print" )




-- 18.1000
-- Player acquires Polaroid prints (Result) with Searching.
function comp_polaroid_print_search()
	SetComputerSearchResult ( "", true )
end

AddComputerEvent( nil, true, nil, ETPhotoFingerprint, nil, "comp_polaroid_print_search" )

--function comp_polaroid_print_search_cond()
--	return IsEventDone( EVPolaroidPrint )
--end

function comp_polaroid_print_match()
	if not IsEventDone( EVPhotoPrintsResult1 ) then
		AddEvidenceDescriptionText( ETPrintMatch1, "_TB_B308", true )
	end
	SetComputerMatchResult ( ETPrintMatch1 )

	NewEvent( EVPolaroidPrintsMatch, nil)

--	PlayDialog( nil, "M5_GRISSOM_1523" )
--	AddEvidenceDescriptionText( ETPhotoFingerprint, "_TB_E1962" )

--	NewEvent( EVCaseFileDominic, nil )
	

end

AddComputerEvent( EVPhotoPrintsResult1, true, ETPhotoFingerprint, OCircusToe3, nil, "comp_polaroid_print_match" )

function polaroid_print_match()
	PlayDialog( nil, "M5_GRISSOM_1523" )
	AddEvidenceDescriptionText( ETPhotoFingerprint, "_TB_E1962" )

	NewEvent( EVCaseFileDominic, nil )
	
end

AddEvent( EVPolaroidPrintsMatch, nil, EVPolaroidPrintsMatch, nil, nil, "polaroid_print_match" )





-- 18.2000
function case_file_dominic()
	return
	UpdateCaseFile( Dominic, INFORMATION, "_TB_E4671" )
end

AddEvent( EVCaseFileDominic, false, EVCaseFileDominic, nil, nil, "case_file_dominic" )




-- 19.1000
-- Player acquires Cobra Polaroid Result (before newspaper) with Searching. 
function comp_polaroid_search_before_cond()
	return not HasEvidence( EDNewspaper )
end

function comp_polaroid_search_before()
	if not IsEventDone( EVPhotoNewspaper ) then
		PlayDialog( nil, "M5_GRISSOM_1526" )	
	end

end

AddMicroscopeEvent( EVPhotoNewspaper, true, nil, EDPhotoSnake, "comp_polaroid_search_before_cond", "comp_polaroid_search_before" )




--19.1010
-- Player acquires Cobra Polaroid Result (after newspaper) with Searching. 
function comp_polaroid_search_after_cond()
	return HasEvidence( EDNewspaper )
end

function comp_polaroid_search_after()
	if not IsEventDone( EVCompPhotoSearch ) then
--		PlayDialog( nil, "M5_GRISSOM_1527" )
		PlayDialog( nil, "M5_GRISSOM_1528" )
		AddEvidenceDescriptionText( EDPhotoSnake, "_TB_E4663" )
	end	

end

AddMicroscopeEvent( EVCompPhotoSearch, true, nil, EDPhotoSnake, "comp_polaroid_search_after_cond", "comp_polaroid_search_after" )




-- 25.1000
-- Player shows Digested Food to Greg.
function lab_digested_food()
	if not IsEventDone( EVLabDigestedFood ) then
		PlayDialog( Greg, "M5_GREG_1588" )
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList( Grissom )
		PlayDialog( Grissom, "M5_GRISSOM_1589" )
		ChangeRoom( MainlabDefaultRoom )
		PlayDialog( Greg, "M5_GREG_1590" )
		AddEvidence( ETDNAFood1 )
		AddEvidenceDescriptionText( ETDNAFood1, "_TB_E2066" )	
		AddEvidence( ETDNAFood2 )
		AddEvidenceDescriptionText( ETDNAFood2, "_TB_E2065" )
		AddEvidenceDescriptionText( ETSwabStomachDragon, "_TB_E5521" )
		SendEvidenceToComputer( ETDNAFood1 )
		SendEvidenceToComputer( ETDNAFood2 )
	else
		send_to_greg_again ()
	end	

end

AddEvent( EVLabDigestedFood, true, ETSwabStomachDragon, Greg, nil, "lab_digested_food" )




-- 26.1000
-- Player acquires Food DNA 2 (Result) with Searching.
function comp_DNA_search2()
	SetComputerSearchResult ( "", true )
end

AddComputerEvent( nil, true, nil, ETDNAFood2, nil, "comp_DNA_search2" )

--function comp_DNA_match2_cond()
--	return IsEventDone( EVLabDigestedFood )
--end

function comp_DNA_match2()
	if not IsEventDone( EVDNA2Match ) then
		AddEvidenceDescriptionText( ETDNAMatch2, "_TB_B231", true )
	end
	SetComputerMatchResult ( ETDNAMatch2 )

	if not IsEventDone( EVDNA2Match ) then
		PlayDialog( nil, "M5_GRISSOM_1591" )
		AddEvidenceDescriptionText( ETDNAFood2, "_TB_E2070" )
	end

end

AddComputerEvent( EVDNA2Match, true, ETDNAFood2, ODNA1, nil, "comp_DNA_match2" )




-- 31.1000
-- Player shows Operating Table Skid Mark to Greg.
function lab_table_skid_mark()
	if not IsEventDone( EVLabFuneralTreads ) then 
		PlayDialog( Greg, "M5_GREG_1622" )
		SendEvidenceToComputer( ETSkidMarkFuneralHome )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabFuneralTreads, true, ETSkidMarkFuneralHome, Greg, nil, "lab_table_skid_mark" )




-- 31.1010
-- Player shows Body bag blood DNA (after Luminol) to Greg.
function lab_body_bag_sample()
	if not IsEventDone( EVLabBodyBagDNA ) then 
		PlayDialog( Greg, "M5_GREG_1623" )
		SendEvidenceToComputer( ETBloodBagSample )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabBodyBagDNA, true, ETBloodBagSample, Greg, nil, "lab_body_bag_sample" )




-- 31.1030
-- Player shows Body Bag Vinyl Fragment to Greg.
function lab_body_bag_frgment()
	if not IsEventDone( EVLabFuneralFlake ) then
		send_to_microscope()
		SendEvidenceToMicroscope( ETVinylFragBag )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabFuneralFlake, true, ETVinylFragBag, Greg, nil, "lab_body_bag_frgment" )




-- 31.1040
-- Player shows Keychain Drive to Greg.
function lab_keychain_drive()
	if not IsEventDone( EVLabKeychain ) then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "M5_GREG_1624" )
		ChangeRoom( MainlabDefaultRoom )	
		AddEvidenceDescriptionText( EIKeys, "_TB_E4682" )
	else
		send_to_greg_again()
	end	

end

AddEvent( EVLabKeychain, true, EIKeys, Greg, nil, "lab_keychain_drive" )




-- 31.1050
-- Player shows Hand Written Page 1 to Greg ( before Keychain drive ).
function lab_hand_page1_before_cond()
	return not IsEventDone( EVLabKeychain )
end

function lab_hand_page1_before()
	if not IsEventDone( EVLabHandPage1Before ) then
		PlayDialog( Greg, "M5_GREG_1626" )
	else
		send_to_greg_again()
	end

end

AddEvent( EVLabHandPage1Before, true, EDLedgerNoteFuneral, Greg, "lab_hand_page1_before_cond", "lab_hand_page1_before" )




-- 31.1070
-- Player shows Hand Written Page 2 to Greg ( before Keychain drive ).
function lab_hand_page2_before_cond()
	return not IsEventDone( EVLabKeychain )
end

function lab_hand_page2_before()
	if not IsEventDone( EVLabHandPage2Before ) then 
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M5_GREG_1628" )
		ChangeRoom( MainlabDefaultRoom )
	else
		send_to_greg_again()
	end

end

AddEvent( EVLabHandPage2Before, true, EDHandwrittenPage, Greg, "lab_hand_page2_before_cond", "lab_hand_page2_before" )




-- 31.1075
-- Player shows Hand Written Page 2 to Greg ( after Keychain drive).
function lab_hand_page2_after_cond()
	return IsEventDone( EVLabKeychain )
end

function lab_hand_page2_after()
	if not IsEventDone( EVLabHandPage2After ) then 
		PlayDialog( Greg, "M5_GREG_1629" )
		AddEvidenceDescriptionText( EDHandwrittenPage, "_TB_E4683" )
		SendEvidenceToComputer( EDHandwrittenPage )
	else
		PlayDialog( Greg, "M5_GREG_1629" )
	end

end

AddEvent( EVLabHandPage2After, true, EDHandwrittenPage, Greg, "lab_hand_page2_after_cond", "lab_hand_page2_after" )




-- 31.1200
-- Player shows Hand Written Page 1 to Greg ( after Keychain drive).
function lab_hand_page1_after_cond()
	return IsEventDone( EVLabKeychain )
end

function lab_hand_page1_after()
	if not IsEventDone( EVLabHandPage1After ) then 
		PlayDialog( Greg, "M5_GREG_1629" )
		AddEvidenceDescriptionText( EDLedgerNoteFuneral, "_TB_E4683" )
		SendEvidenceToComputer( EDLedgerNoteFuneral )
	else
		PlayDialog( Greg, "M5_GREG_1629" )
	end

end

AddEvent( EVLabHandPage1After, true, EDLedgerNoteFuneral, Greg, "lab_hand_page1_after_cond", "lab_hand_page1_after" )




-- 32.1000
-- Player acquires Rubber Skid mark <-> Narrow Tread Mark with Matching.
--function comp_treads_match1_cond()
--	return IsEventDone( EVLabCircusTread ) and IsEventDone( EVLabFuneralTreads )
--end

function comp_treads_match1()
	if not IsEventDone( EVCompTreadsCircusFuneral ) then
		AddEvidenceDescriptionText( ETTireMatch1, "_TB_B234", true )
	end
	SetComputerMatchResult( ETTireMatch1 )

	if not IsEventDone( EVCompTreadsCircusFuneral ) then
		PlayDialog( nil, "M5_GRISSOM_1630" )

		AddEvidenceDescriptionText( ETSkidMarkFuneralHome, "_TB_E2137" )
		AddEvidenceDescriptionText( ETTreadMarksCirque, "_TB_E2136" )
	end

end

AddComputerEvent( EVCompTreadsCircusFuneral, true, ETSkidMarkFuneralHome, ETTreadMarksCirque, nil, "comp_treads_match1" )




-- 32.1010
-- Player acquires Bodybag Blood DNA <-> Food DNA 1 with Matching.
--function comp_DNA_match3_cond()
--	return IsEventDone( EVLabBodyBagDNA ) and IsEventDone( EVLabDigestedFood )
--end

function comp_DNA_match3()
	if not IsEventDone( EVCompMatch2 ) then
		AddEvidenceDescriptionText( ETDNAMatch3, "_TB_B218", true )
	end
	SetComputerMatchResult( ETDNAMatch3 )

	if not IsEventDone( EVCompMatch2 ) then
		PlayDialog( nil, "M5_GRISSOM_1631" )

		AddEvidenceDescriptionText( ETBloodBagSample, "_TB_E4661" )
		AddEvidenceDescriptionText( ETDNAFood1, "_TB_E4660" )
	end

end

AddComputerEvent( EVCompMatch2, true, ETBloodBagSample, ETDNAFood1, nil, "comp_DNA_match3" )




-- 32.2000
-- Player acquires Bodybag Blood DNA <-> Driftwood Hair DNA with Matching.
--function comp_DNA_match4_cond()
--	return IsEventDone( EVLabBodyBagDNA ) and IsEventDone( EVLabDriftWood )
--end

function comp_DNA_match4()
	if not IsEventDone( EVCompMatch3 ) then
		AddEvidenceDescriptionText( ETDNAMatch4, "_TB_B218", true )
	end
	SetComputerMatchResult( ETDNAMatch4 )

	if not IsEventDone( EVCompMatch3 ) then
		PlayDialog( nil, "M5_GRISSOM_2655" )

		AddEvidenceDescriptionText( ETDNAHairDriftwood, "_TB_E4660" )
		AddEvidenceDescriptionText( ETBloodBagSample, "_TB_E4659" )
	end

end

AddComputerEvent( EVCompMatch3, true, ETBloodBagSample, ETDNAHairDriftwood, nil, "comp_DNA_match4" )




-- 32.2500
-- Player acquires Driftwood Hair DNA <-> Food 1 DNA with Matching.
--function comp_DNA_match5_cond()
--	return IsEventDone( EVLabDriftWood ) and IsEventDone( EVLabDigestedFood )
--end

function comp_DNA_match5()
	if not IsEventDone( EVCompMatch5 ) then
		AddEvidenceDescriptionText( ETDNAMatch5, "_TB_B218", true )
	end
	SetComputerMatchResult( ETDNAMatch5 )

	if not IsEventDone( EVCompMatch5 ) then
		PlayDialog( nil, "M5_GRISSOM_2655" )

		AddEvidenceDescriptionText( ETDNAFood1, "_TB_E4659" )
		AddEvidenceDescriptionText( ETDNAHairDriftwood, "_TB_E4664" )
	end

end

AddComputerEvent( EVCompMatch5, true, ETDNAHairDriftwood, ETDNAFood1, nil, "comp_DNA_match5" )




-- 32.3000
-- Player acquires Handwritten Page 1 (Result) with Searching.
--function comp_hand_page1_cond()
--	return IsEventDone( EVLabHandPage1Before ) or IsEventDone( EVLabHandPage1After )
--end

function comp_hand_page1()
	if not IsEventDone( EVCompSearch1 ) then
		AddEvidenceDescriptionText( EDLedgerNoteFuneralVirtual, "_TB_B303", true )
	end
	SetComputerSearchResult( "", true, EDLedgerNoteFuneralVirtual )
	
	if not IsEventDone( EVCompSearch1 ) then
		PlayDialog( nil, "M5_GRISSOM_1638" )
		PlayDialog( nil, "M5_GRISSOM_2502" )
		PlayDialog( nil, "M5_GRISSOM_1639" )
		PlayDialog( nil, "M5_GRISSOM_2700" )
		AddEvidenceDescriptionText( EDLedgerNoteFuneral, "_TB_E466" )
		UpdateCaseFile( Dominic, INFORMATION, "_TB_E4667" )

		if IsEventDone( EVCompSearch2 ) then
			NewEvent( EVLabGregDialog1, nil )
		end
	end

end

AddComputerEvent( EVCompSearch1, true, nil, EDLedgerNoteFuneral, nil, "comp_hand_page1" )

function greg_dialog1()
	PlayDialog( Grissom, "M5_GRISSOM_1640" )
	PlayDialog( Grissom, "M5_GRISSOM_2504" )
	PlayDialog( Grissom, "M5_GRISSOM_2505" )
end

AddEvent( EVLabGregDialog1, false, EVLabGregDialog1, nil, nil, "greg_dialog1" )




-- 32.4000
--Player acquires Hand Written Page 2 (Result) with Searching.
--function comp_hand_page2_cond()
--	return IsEventDone( EVLabHandPage2Before ) or IsEventDone( EVLabHandPage2After )
--end

function comp_hand_page2()
	if not IsEventDone( EVCompSearch2 ) then
		AddEvidenceDescriptionText( EDHandwrittenPageVirtual, "_TB_B304", true )
	end
	SetComputerSearchResult( "", true, EDHandwrittenPageVirtual )

	if not IsEventDone( EVCompSearch2 ) then
		PlayDialog( nil, "M5_GRISSOM_1642" )
		AddEvidenceDescriptionText( EDHandwrittenPage, "_TB_E4666" )

		if IsEventDone( EVCompSearch1 ) then
			NewEvent( EVLabGregDialog1, nil )
		end
	end

end

AddComputerEvent( EVCompSearch2, true, nil, EDHandwrittenPage, "comp_hand_page2_cond", "comp_hand_page2" )




-- 33.1000
-- Player acquires Body Bag Flake <-> Plastic Flake with Matching.
function comp_vinyl_match1()
	if not IsEventDone( EVCompSearch3 ) then
		AddEvidenceDescriptionText( ETVinylCompare, "_TB_B236", true )
	end
	SetMicroscopeMatchResult( ETVinylCompare )

	if not IsEventDone( EVCompSearch3 ) then
		PlayDialog( nil, "M5_GRISSOM_1644" )
		AddEvidenceDescriptionText( ETVinylFragBag, "_TB_E2140" )
		AddEvidenceDescriptionText( ETCactusVinylFlake, "_TB_E4666" )
	end

end

AddMicroscopeEvent( EVCompSearch3, true, ETVinylFragBag, ETCactusVinylFlake, nil, "comp_vinyl_match1" )





-------------------
-- Search
function circus_thread_search()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETTreadMarksCirque, nil, "circus_thread_search" )

function curtain_thread_search()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETCartTrackMarks, nil, "curtain_thread_search" )

function funeral_thread_search()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETSkidMarkFuneralHome, nil, "funeral_thread_search" )


-- Body bag
function body_bag_DNA()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETBloodBagSample, nil, "body_bag_DNA" )

-- Hair Driftwood
function hair_driftwood_DNA()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETDNAHairDriftwood, nil, "hair_driftwood_DNA" )

-- Dna Food1
function food1_DNA()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETDNAFood1, nil, "food1_DNA" )

-- Human toe DNA
function human_toe_DNA()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETHumanToeDNA, nil, "human_toe_DNA" )

-- Wiped blood
function wiped_blood_DNA()
	SetComputerSearchResult( "", true )
end
AddComputerEvent( nil, true, nil, ETWipedBlood, nil, "wiped_blood_DNA" )



-- DNAHairDriftwood to Greg
function lab_greg_driftwood_DNA()
	send_to_greg_again ()
end
AddEvent( nil, true, ETDNAHairDriftwood, Greg, nil, "lab_greg_driftwood_DNA" )

-- HumanToeDNA to Greg
function lab_greg_toe_DNA()
	send_to_greg_again ()
end
AddEvent( nil, true, ETHumanToeDNA, Greg, nil, "lab_greg_toe_DNA" )

-- EIJacket to Greg
function lab_greg_jacket()
	send_to_greg_again ()
end
AddEvent( nil, true, EIJacket, Greg, nil, "lab_greg_jacket" )

-- PaperCirque to Greg
function lab_greg_office_paper()
	send_to_greg_again ()
end
AddEvent( nil, true, EDPaperCirque, Greg, nil, "lab_greg_office_paper" )

-- DNAFood1 to Greg
function lab_greg_DNAFood1()
	send_to_greg_again ()
end
AddEvent( nil, true, ETDNAFood1, Greg, nil, "lab_greg_DNAFood1" )

-- DNAFood2 to Greg
function lab_greg_DNAFood2()
	send_to_greg_again ()
end
AddEvent( nil, true, ETDNAFood2, Greg, nil, "lab_greg_DNAFood2" )



---------------
-- Grissom questions
function lab_griss_quest()
	DisplayQuestionList( Grissom )
end
AddEvent( nil, true, nil, MainlabCSICloseup1, nil, "lab_griss_quest" )