-- 3
function fadein_laboratory()
	ChangeRoom( MainLabEstab )
	FadeIn()

			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( EVLabIntro, 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 )
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, "M4_NICK_2012" )
	end
	if T == 2 then
		PlayDialog( nil, "M4_NICK_2013" )
	end
	if T == 3 then
		PlayDialog( nil, "M4_NICK_2014" )
	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, "M4_NICK_2015" )
	end
	if T == 2 then
		PlayDialog( nil, "M4_NICK_2016" )
	end
	if T == 3 then
		PlayDialog( nil, "M4_NICK_2017" )
	end
end

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




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.1.1 + 3.1.2
function lab_pool_blood()
	if not IsEventDone( EVLabSeatBlood ) then
		PlayDialog( Greg, "M3_GREGEXPO_01" )
		PlayDialog( Nick, "M3_NICKEXPO_05" )
		PlayDialog( Greg, "M3_GREGEXPO_02" )
		PlayDialog( Nick, "M3_NICKEXPO_06" )
		PlayDialog( Greg, "M3_GREGEXPO_03" )
		AddEvidenceDescriptionText( ETBloodPoll, "TEXT3064" )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabPoolBlood, true, ETBloodPoll, Greg, nil, "lab_pool_blood" )

function lab_seat_blood()
	if not IsEventDone( EVLabPoolBlood ) then
		PlayDialog( Greg, "M3_GREGEXPO_01" )
		PlayDialog( Nick, "M3_NICKEXPO_05" )
		PlayDialog( Greg, "M3_GREGEXPO_02" )
		PlayDialog( Nick, "M3_NICKEXPO_06" )
		PlayDialog( Greg, "M3_GREGEXPO_03" )
		AddEvidenceDescriptionText( ETSeatBlood, "TEXT3112" )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabSeatBlood, true, ETSeatBlood, Greg, nil, "lab_seat_blood" )


-- 3.1.3
function lab_red_thread_iron()
	if not IsEventDone( EVAnalyzedRedThread ) then
		PlayDialog( Greg, "M3_GREGINIT_03")
		AddEvidenceDescriptionText( ETThreadCrime, "TEXT3082" )
		SendEvidenceToMicroscope( ETThreadCrime )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVAnalyzedRedThread, true, ETThreadCrime, Greg, nil, "lab_red_thread_iron" )


-- 3.1.4
function lab_paper_pad()
	if not IsEventDone( EVLabPaperPad ) then
		PlayDialog( Greg, "M3_GREGINIT_11")
		AddEvidenceDescriptionText( EDPaperPad, "TEXT3070" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabPaperPad, true, EDPaperPad, Greg, nil, "lab_paper_pad" )


-- 3.1.5
function lab_officer_gun()
	if not IsEventDone( EVLabGunOfficer ) then
		PlayDialog( Greg, "M3_GREGINIT_13")
		AddEvidenceDescriptionText( EIOfficerGun, "TEXT3124" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabGunOfficer, true, EIOfficerGun, Greg, nil, "lab_officer_gun" )


-- 3.1.6
function lab_id_car()
	if not IsEventDone( EVLabIdCar ) then
		PlayDialog( Greg, "M3_GREGINIT_15")
		SendEvidenceToComputer( EDIdCar )
		AddEvidenceDescriptionText( EDIdCar, "TEXT3077" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabIdCar, true, EDIdCar, Greg, nil, "lab_id_car" )


-- 3.2.1
function lab_gun_prints_show()
	if not IsEventDone( EVLabGunPrints ) then
		SendEvidenceToComputer( ETGunPrint )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabGunPrints, true, ETGunPrint, Greg, nil, "lab_gun_prints_show" )


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

AddComputerEvent( nil, true, nil, ETGunPrint, nil, "comp_gun1_prints_search" )

function comp_gun_prints()
	if not IsEventDone( EVCompGun1Search ) then
		AddEvidenceDescriptionText( ETGunPrint, "TEXT3057" )
		AddEvidenceDescriptionText( ETGunPrint, "TEXT3058" )
	end
	SetComputerMatchResult ( ETGunPrint )	

	if not IsEventDone( EVCompGun1Search ) then
		PlayDialog( nil, "M3_NICKINIT_01")
	end

end

AddComputerEvent( EVCompGun1Search, true, ETGunPrint, OPrints2, nil, "comp_gun_prints" )





-- 3.2.2
function lab_head_cast()
	if not IsEventDone( EVLabHeadCast ) then
		PlayDialog( Greg, "M3_GREGINIT_12")
		AddEvidenceDescriptionText( ETHeadCast, "TEXT3052" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabHeadCast, true, ETHeadCast, Greg, nil, "lab_head_cast" )


-- 3.2.3
function lab_tire_iron()
	if not IsEventDone( EVLabTireIron ) then
		PlayDialog( Greg, "M3_GREGINIT_14")
		AddEvidenceDescriptionText( EITireIron, "TEXT3227" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabTireIron, true, EITireIron, Greg, nil, "lab_tire_iron" )


-- 3.2.4 + 3.2.5 - 3.2.10 Trebuie Play-at un Film si in plus declarat Officer Garvey (caracter)!!! 3.2.11
--function lab_computer_id_car_cond()
--	return IsEventDone( EVLabIdCar )
--end

function lab_computer_id_car()
	if not IsEventDone( EVCompID ) then
		AddEvidenceDescriptionText( EDIdCarVirtual, "TEXT3468", true )
	end
	SetComputerSearchResult( "", true, EDIdCarVirtual )

	NewEvent( EVIdCardDialog, nil )	

end

AddComputerEvent( EVCompID, true, nil, EDIdCar, nil, "lab_computer_id_car" )


function card_dialog()
	PlayDialog( nil, "M3_NICKINIT_02")
	PlayReenactment( "Art\\Reenactments\\Movie\\reenact2.xmv", "Art\\Reenactments\\Pictures\\reenact2.tga", "TEXT3013", nil, "reenact2" )
	AddEvidenceDescriptionText( EDIdCar, "TEXT3076" )
	UpdateCaseFile( OfficerGarvey, INFORMATION, "TEXT3410" )
	if HasEvidence( EIOldGun ) then 
		PlayDialog( nil, "M3_NICKINIT_04" )
	else
		PlayDialog( nil, "M3_NICKINIT_05" )
	end
end
AddEvent( EVIdCardDialog, false, EVIdCardDialog, nil, nil, "card_dialog" )


-- 6.1
function lab_bullet()
	if not IsEventDone( EVLabBullet ) then
		PlayDialog( Greg, "M3_GREGINIT_16")
		AddEvidenceDescriptionText( EIBullet, "TEXT3233" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabBullet, true, EIBullet, Greg, nil, "lab_bullet" )

-- 6.2
function lab_old_gun()
	if not IsEventDone( EVLabOldGun ) then
		PlayDialog( Greg, "M3_GREGINIT_04")
		AddEvidenceDescriptionText( EIOldGun, "TEXT3088" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabOldGun, true, EIOldGun , Greg, nil, "lab_old_gun" )


-----------------------------
-- 17.1.1
function lab_laskin_thread()
	if not IsEventDone( EVLaskinThreadAnalyzed ) then 
		PlayDialog( Greg, "M3_GREGINIT_05")
		AddEvidenceDescriptionText( ETThreadJohn, "TEXT3118" )
		PlayDialog( Greg, "M3_GREGENTER_02")
		SendEvidenceToMicroscope( ETThreadJohn )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLaskinThreadAnalyzed, true, ETThreadJohn, Greg, nil, "lab_laskin_thread" )

-- 17.2.1 search pe computer
function lab_sodacan_class_prints_show()
	if not IsEventDone( EVLabSodaClassPrints ) then
		SendEvidenceToComputer( ETSodaPrintLab )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabSodaClassPrints, true, ETSodaPrintLab, Greg, nil, "lab_sodacan_class_prints_show" )

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

AddComputerEvent( nil, true, nil, ETSodaPrintLab, nil, "comp_class_soda_prints_search" )

function comp_class_soda_prints_match1()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompClassPrintsComp2 ) and IsEventDone( EVCompClassPrintsComp3 ) and IsEventDone( EVCompClassPrintsComp4 ) and IsEventDone( EVCompClassPrintsComp5 ) then
		NewEvent( EVCompClassPrints1, nil )
	end
		
end

AddComputerEvent( EVCompClassPrintsComp1, true, ETSodaPrintLab, OPrints1, nil, "comp_class_soda_prints_match1" )

function comp_class_soda_prints_match2()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompClassPrintsComp1 ) and IsEventDone( EVCompClassPrintsComp3 ) and IsEventDone( EVCompClassPrintsComp4 ) and IsEventDone( EVCompClassPrintsComp5 ) then
		NewEvent( EVCompClassPrints1, nil )
	end
		
end

AddComputerEvent( EVCompClassPrintsComp2, true, ETSodaPrintLab, OPrints2, nil, "comp_class_soda_prints_match2" )

function comp_class_soda_prints_match3()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompClassPrintsComp2 ) and IsEventDone( EVCompClassPrintsComp1 ) and IsEventDone( EVCompClassPrintsComp4 ) and IsEventDone( EVCompClassPrintsComp5 ) then
		NewEvent( EVCompClassPrints1, nil )
	end
		
end

AddComputerEvent( EVCompClassPrintsComp3, true, ETSodaPrintLab, OPrints3, nil, "comp_class_soda_prints_match3" )

function comp_class_soda_prints_match4()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompClassPrintsComp2 ) and IsEventDone( EVCompClassPrintsComp3 ) and IsEventDone( EVCompClassPrintsComp1 ) and IsEventDone( EVCompClassPrintsComp5 ) then
		NewEvent( EVCompClassPrints1, nil )
	end
		
end

AddComputerEvent( EVCompClassPrintsComp4, true, ETSodaPrintLab, OPrints4, nil, "comp_class_soda_prints_match4" )

function comp_class_soda_prints_match5()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompClassPrintsComp2 ) and IsEventDone( EVCompClassPrintsComp3 ) and IsEventDone( EVCompClassPrintsComp1 ) and IsEventDone( EVCompClassPrintsComp4 ) then
		NewEvent( EVCompClassPrints1, nil )
	end
		
end

AddComputerEvent( EVCompClassPrintsComp5, true, ETSodaPrintLab, OPrints5, nil, "comp_class_soda_prints_match5" )


function class_soda_prints_match()
	AddEvidenceDescriptionText( ETSodaPrintLab, "TEXT3215" )	
end

AddEvent( EVCompClassPrints1, false, EVCompClassPrints1, nil, nil, "class_soda_prints_match" )


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

-- Riley soda prints
function lab_sodacan_riley_prints_show()
	if not IsEventDone( EVLabSodaRileyPrints ) then 
		SendEvidenceToComputer( ETSodaPrintRiley )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabSodaRileyPrints, true, ETSodaPrintRiley, Greg, nil, "lab_sodacan_riley_prints_show" )

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

AddComputerEvent( nil, true, nil, ETSodaPrintRiley, nil, "comp_riley_soda_prints_search" )

function comp_riley_soda_prints_match1()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompSodaPrintsComp2 ) and IsEventDone( EVCompSodaPrintsComp3 ) and IsEventDone( EVCompSodaPrintsComp4 ) and IsEventDone( EVCompSodaPrintsComp5 ) then
		NewEvent( EVCompSodaPrints1, nil )
	end
		
end

AddComputerEvent( EVCompSodaPrintsComp1, true, ETSodaPrintRiley, OPrints1, nil, "comp_riley_soda_prints_match1" )

function comp_riley_soda_prints_match2()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompSodaPrintsComp1 ) and IsEventDone( EVCompSodaPrintsComp3 ) and IsEventDone( EVCompSodaPrintsComp4 ) and IsEventDone( EVCompSodaPrintsComp5 ) then
		NewEvent( EVCompSodaPrints1, nil )
	end
		
end

AddComputerEvent( EVCompSodaPrintsComp2, true, ETSodaPrintRiley, OPrints2, nil, "comp_riley_soda_prints_match2" )

function comp_riley_soda_prints_match3()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompSodaPrintsComp1 ) and IsEventDone( EVCompSodaPrintsComp2 ) and IsEventDone( EVCompSodaPrintsComp4 ) and IsEventDone( EVCompSodaPrintsComp5 ) then
		NewEvent( EVCompSodaPrints1, nil )
	end
		
end

AddComputerEvent( EVCompSodaPrintsComp3, true, ETSodaPrintRiley, OPrints3, nil, "comp_riley_soda_prints_match3" )

function comp_riley_soda_prints_match4()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompSodaPrintsComp1 ) and IsEventDone( EVCompSodaPrintsComp2 ) and IsEventDone( EVCompSodaPrintsComp3 ) and IsEventDone( EVCompSodaPrintsComp5 ) then
		NewEvent( EVCompSodaPrints1, nil )
	end
		
end

AddComputerEvent( EVCompSodaPrintsComp4, true, ETSodaPrintRiley, OPrints4, nil, "comp_riley_soda_prints_match4" )

function comp_riley_soda_prints_match5()
	SetComputerMatchResult( nil )
	if IsEventDone( EVCompSodaPrintsComp1 ) and IsEventDone( EVCompSodaPrintsComp2 ) and IsEventDone( EVCompSodaPrintsComp3 ) and IsEventDone( EVCompSodaPrintsComp4 )  then
		NewEvent( EVCompSodaPrints1, nil )
	end
		
end

AddComputerEvent( EVCompSodaPrintsComp5, true, ETSodaPrintRiley, OPrints5, nil, "comp_riley_soda_prints_match5" )


function riley_soda_prints_match()
	AddEvidenceDescriptionText( ETSodaPrintRiley, "TEXT3221" )		
end

AddEvent( EVCompSodaPrints1, false, EVCompSodaPrints1, nil, nil, "riley_soda_prints_match" )




-- 19.1.1
function lab_sweater()
	if not IsEventDone( EVSweaterAnalyzed ) then
		SendEvidenceToMicroscope( EISweater )
	else
		send_to_greg_again ()
	end	
end

AddEvent( EVSweaterAnalyzed, true, EISweater, Greg, nil, "lab_sweater" ) 


function lab_dandruff()
	if not IsEventDone( EVDandruffAnalyzed ) then
		PlayDialog( Greg, "M3_GREGINIT_08")
		AddEvidenceDescriptionText( ETProfessorHair, "TEXT3191" )
		SendEvidenceToComputer( ETProfessorHair )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVDandruffAnalyzed, true, ETProfessorHair, Greg, nil, "lab_dandruff" )


-- 19.2.1
--function micro_comp_thread1_cond()
--	return IsEventDone( EVSweaterAnalyzed ) and IsEventDone( EVAnalyzedRedThread ) and IsEventDone( EVLaskinThreadAnalyzed )
--end

-- Laskin thread + Iron thread
function micro_comp_thread1()
	SetMicroscopeMatchResult( ETThreadCrime )
	if not IsEventDone( EVCompThread1 ) then
		NewEvent( EVCompThread1, nil )
	else
		PlayDialog( nil, "M3_NICK_62")
	end
end

AddMicroscopeEvent( nil, true, ETThreadCrime, ETThreadJohn, nil, "micro_comp_thread1" )

function lab_comp_thread1()
	PlayDialog( nil, "M3_NICK_62")
end

AddEvent( EVCompThread1, false, EVCompThread1, nil, nil, "lab_comp_thread1" )


-- Laskin thread + Classroom sweater
function micro_comp_thread12()
	SetMicroscopeMatchResult( ETThreadJohn)
	if not IsEventDone( EVCompThread1 ) then
		NewEvent( EVCompThread1, nil )
	else
		PlayDialog( nil, "M3_NICK_62")
	end
end

AddMicroscopeEvent( nil, true, ETThreadJohn, EISweater, nil, "micro_comp_thread12" )





-- 19.2.2
-- RED THREAD FROM IRON> + <FADED SWEATER
--function micro_comp_thread2_cond()
--	return IsEventDone( EVSweaterAnalyzed ) and IsEventDone( EVAnalyzedRedThread )
--end

function micro_comp_thread2()
	SetMicroscopeMatchResult( EISweater )
	if not IsEventDone( EVCompThread2 ) then
		NewEvent( EVCompThread2, nil )
	end

end

AddMicroscopeEvent( nil, true, EISweater, ETThreadCrime, nil, "micro_comp_thread2" )


function lab_comp_thread2()
	PlayDialog( nil, "M3_GREGINIT_07")
	AddEvidenceDescriptionText( EISweater, "TEXT3197" )
end

AddEvent( EVCompThread2, false, EVCompThread2, nil, nil, "lab_comp_thread2" ) 


-- 23.1.1

function lab_DNARiley()
	if not IsEventDone( EVLabRileyDNA ) then
		SendEvidenceToComputer( ETDNARiley )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabRileyDNA, true, ETDNARiley, Greg, nil, "lab_DNARiley" )

-- riley DNA vs. dandruff DNA
function comp_match1()
	SetComputerMatchResult( nil )
	if not IsEventDone( EVCompMatch1 ) then
		PlayDialog( Greg, "M3_GREGINIT_09")
		AddEvidenceDescriptionText( ETDNARiley, "TEXT3203" )
		UpdateCaseFile( Riley, SUSPECT_CRIMESCENE, "TEXT3433", 200 )
	end

end

AddComputerEvent( EVCompMatch1, true, ETDNARiley, ETProfessorHair, nil, "comp_match1" )


-- 23.1.2
-- Frank DNA vs. dandruff DNA

function lab_DNAFrank()
	if not IsEventDone( EVLabFrankDNA ) then
		SendEvidenceToComputer( ETDNAFrank )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabFrankDNA, true, ETDNAFrank, Greg, nil, "lab_DNAFrank" )

function comp_match2()
	SetComputerMatchResult( ETDNAFrank )
	if not IsEventDone( EVDNAFrankAnalyzed ) then
		PlayDialog( Greg, "M3_GREGINIT_10")
		AddEvidenceDescriptionText( ETDNAFrank, "TEXT3209" )
		UpdateCaseFile( Frank, SUSPECT_CRIMESCENE, "TEXT3438", 500 )
		UpdateCaseFile( Frank, SUSPECT_VICTIM, "TEXT3439", 500 )
	end

end

AddComputerEvent( EVDNAFrankAnalyzed, true, ETDNAFrank, ETProfessorHair, nil, "comp_match2" ) 


--
function lab_tropicana_entry_2nd_condition()
	return not IsEventDone( EVMorgueNoCar ) or not IsEventDone( EVBrassNoCar )
end

function lab_tropicana_entry_2nd()
	NewEvent( EVTropicanaAfterCar, nil )

end

AddEvent( EVLabNoCar, false, nil, Laboratory, "lab_tropicana_entry_2nd_condition", "lab_tropicana_entry_2nd" )



---------------
-- Search DNA
function prof_DNA_search()
	SetComputerSearchResult( "", true )
end

AddComputerEvent( nil, true, nil, ETDNAFrank, nil, "prof_DNA_search" )

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

AddComputerEvent( nil, true, nil, ETDNARiley, nil, "riley_DNA_search" )


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

AddComputerEvent( nil, true, nil, ETProfessorHair, nil, "dandruff_DNA_search" )

-- EDWebsite to Greg
function lab_website_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDWebsite, Greg, nil, "lab_website_greg" )

-- EDWebsite to Greg
function lab_ipadderss_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDIPPrint, Greg, nil, "lab_ipadderss_greg" )

-- Nick Hints
function lab_nickCU()
	if not DisplayQuestionList( Nick ) then
		PlayDialog( Nick, "M4_NICK_1999" ) 
	end
end

AddEvent( nil,true, nil, MainLabNick, nil, "lab_nickCU" )