-- Main laboratory
function fadein_laboratory()
	ChangeRoom( MainlabDefaultRoom )
	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

	if IsEventDone (EVAcquireGunPowder) then
		SetActive (EHOTSPOT_gun, false)
	end
end

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

---------------------------------------------------
--DEFAULT-URI...

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 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
---------------------------------------------------

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 (Nick, "M4_NICK_2012")
	end
	if T == 2 then
		PlayDialog (Nick, "M4_NICK_2013")
	end
	if T == 3 then
		PlayDialog (Nick, "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 (Nick, "M4_NICK_2015")
	end
	if T == 2 then
		PlayDialog (Nick, "M4_NICK_2016")
	end
	if T == 3 then
		PlayDialog (Nick, "M4_NICK_2017")
	end
end
AddMicroscopeEvent( nil, true, nil, MICROSCOPE_DEFAULT_MATCH_EVENT, nil, "micro_default_match" )

--END DEFAULT-uri...
---------------------------------------------------

------------------------------------------------------------------------------
--4.1000
function show_gun_barrel_powder_Greg ()
	if not IsEventDone ( EVShowGunBarrelPowderGreg )
		then
		ChangeRoom ( MainlabGregCloseup1 )
		PlayDialog ( Greg, "M4_GREG_1786" )
		AddEvidenceDescriptionText ( ETSampleGunPowder, "_TB_E4321" )
		ChangeRoom ( MainlabDefaultRoom )
		else
		send_to_greg_again ()
	end
end
AddEvent ( EVShowGunBarrelPowderGreg, true, ETSampleGunPowder, Greg, nil, "show_gun_barrel_powder_Greg" )
------------------------------------------------------------------------------

--4.1010
function show_prop_gun_Greg ()
	if not IsEventDone ( EVShowPropGunGreg )
		then
		ChangeRoom ( MainlabGregCloseup2 )
		PlayDialog ( Greg, "M4_GREG_1787" )
		AddEvidenceDescriptionText ( EIPropGun, "_TB_E4322" )
		ChangeRoom ( MainlabDefaultRoom )
		else
		send_to_greg_again ()
	end
end
AddEvent ( EVShowPropGunGreg, true, EIPropGun, Greg, nil, "show_prop_gun_Greg" )
------------------------------------------------------------------------------
--4.1020
function show_squib_prop_Greg_cond ()
	return not IsQuestionAsked ( Harrison, "_TB_Q879" )
end
function show_squib_prop_Greg ()
	if not IsEventDone ( EVShowSquibProp )
		then
		PlayDialog ( Greg, "M4_GREG_1788" )
		PlayReenactment( "Art\\Reenactments\\Movie\\rcns_electricity01a.xmv", "Art\\Reenactments\\Pictures\\rcns_electricity01a_tb.tga", "_TB_Z2214", nil, "M4_GREG_1789" )
		PlayDialog ( Greg, "M4_GREG_1790" )
		if IsQuestionAsked ( Harrison, "_TB_Q878" )
			then
-- se folseste in InterroHarrison.lua pentru a-mi scoate o intrebare ce ar putea aparea duplicat
			NewEvent ( EVRemoveQ879, nil )
		end
		AddEvidenceDescriptionText ( EISquibProp, "_TB_E4745" )
		else
		send_to_greg_again ()
	end
end
AddEvent ( EVShowSquibProp, true, EISquibProp, Greg, "show_squib_prop_Greg_cond", "show_squib_prop_Greg" )
------------------------------------------------------------------------------
--4.1050

function show_victim_blood_Greg ()
	if not IsEventDone ( EVShowVictimBloodGreg )
		then
		SendEvidenceToComputer ( ETMerylRegisBloodSample )
		send_to_comp_dna ()
		else
		send_to_greg_again ()
	end
end
AddEvent ( EVShowVictimBloodGreg, true, ETMerylRegisBloodSample, Greg, nil, "show_victim_blood_Greg" )

function show_victim_blood_Greg1 ()
	if not IsEventDone ( EVShowVictimBloodGreg )
		then
		SendEvidenceToComputer ( ETBloodSampleMorgue )
		send_to_comp_dna ()
		else
		send_to_greg_again ()
	end
end
AddEvent ( EVShowVictimBloodGreg1, true, ETBloodSampleMorgue, Greg, nil, "show_victim_blood_Greg1" )

--------------------
function search_victim_blood()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETMerylRegisBloodSample, nil, "search_victim_blood")
AddComputerEvent(nil, true, nil, ETBloodSampleMorgue, nil, "search_victim_blood")

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

-- 6.1000
-- Player shows Bullet Fragments to Greg ( Before fragments magnify, before prop bullets).
function lab_fragments1_cond ()
	return not IsEventDone ( EVAcquireFragMorgue ) and not IsEventDone( EVLabPropRound )
end

function lab_fragments1()
	if not IsEventDone ( EVLabShowBulletFragBefore )
		then
		ChangeRoom ( MainlabGregCloseup1 )
		PlayDialog ( Greg, "M4_GREG_1798" )
		ChangeRoom ( MainlabDefaultRoom )
		else
--		if ((not IsEventDone ( EVAcquireFragMorgue ) or IsEventDone ( EVLabShowBulletFragAfter )) and not IsEventDone ( EVLabShowBulletFragAftAfter ) ) or ( IsEventDone ( EVAcquireFragMorgue ) and not IsEventDone( EVLabPropRound ) and IsEventDone ( EVLabShowBulletFragAfter ) ) or IsEventDone ( EVLabShowBulletFragAftAfter )
--			then
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabShowBulletFragBefore, true, EIBulletFragMorgue, Greg, "lab_fragments1_cond", "lab_fragments1" )



-- 6.2000
-- Player shows Bullet Fragments to Greg ( After fragments magnify, before prop bullets).
function lab_fragments2_cond()
	return IsEventDone ( EVAcquireFragMorgue ) and (not IsEventDone( EVLabPropRound ))
end

function lab_fragments2()
	if not IsEventDone ( EVLabShowBulletFragAfter )
		then
		PlayDialog ( Greg, "M4_GREG_1799" )
		NewEvent( EVFragmentUpdate, nil )	
		else
		send_to_greg_again ()
	end		
end

AddEvent ( EVLabShowBulletFragAfter, false, EIBulletFragMorgue, Greg, "lab_fragments2_cond", "lab_fragments2" )

-- 6.9900
function fragment_update()
	AddEvidenceDescriptionText ( EIBulletFragMorgue, "_TB_E4742" )
end

AddEvent ( EVFragmentUpdate, false, EVFragmentUpdate, nil, nil, "fragment_update" )




-- 6.3000
-- Player shows Bullet Fragments to Greg ( Before fragments magnify, after prop bullets).
function lab_fragments3_cond()
	return (not IsEventDone ( EVAcquireFragMorgue )) and IsEventDone( EVLabPropRound )
end

function lab_fragments3()
	if not IsEventDone ( EVLabShowBulletFragBefAfter )
		then
		PlayDialog ( Greg, "M4_GREG_1800" )
--		PlayDialog ( Nick, "M4_NICK_1801" )
		NewEvent( EVFragmentUpdate2, nil )
		else
			send_to_greg_again ()
	end			
end

AddEvent ( EVLabShowBulletFragBefAfter, true, EIBulletFragMorgue, Greg, "lab_fragments3_cond", "lab_fragments3" )

function fragment_update2()
	NewEvent( EVFragmentUpdate, nil )
	AddEvidenceDescriptionText ( EIBulletFragMorgue, "_TB_E4743" )
	AddEvidenceDescriptionText ( EIBulletFragMorgue, "_TB_E4744" )
end

AddEvent ( EVFragmentUpdate2, false, EVFragmentUpdate2, nil, nil, "fragment_update2" )




-- 6.4000
-- Player shows Bullet Fragments to Greg ( After fragments magnify, after prop bullets).
function lab_fragments4_cond()
	return IsEventDone ( EVAcquireFragMorgue ) and IsEventDone( EVLabPropRound )
end

function lab_fragments4()
	if not IsEventDone ( EVLabShowBulletFragAftAfter )
		then
		PlayDialog ( Nick, "M4_NICK_1801" )
		NewEvent( EVFragmentUpdate2, nil )
			if not IsEventdone ( EVLabShowBulletFragBefAfter )
				then
				PlayDialog ( Greg, "M4_GREG_1800" )
			end
		else
		send_to_greg_again ()
	end		
end

AddEvent ( EVLabShowBulletFragAftAfter, true, EIBulletFragMorgue, Greg, "lab_fragments4_cond", "lab_fragments4" )




-- 9.1000
-- Player shows Wound Impression to Greg.
function lab_wound_impression()
	if not IsEventDone ( EVLabShowWoundImpression )
		then
		PlayDialog ( Greg, "M4_GREG_1815" )
		ChangeRoom ( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Nick )
		PlayDialog ( Nick, "M4_NICK_1816" )
		ChangeRoom ( MainlabDefaultRoom )
		AddEvidenceDescriptionText ( EIWoundImpression, "_TB_E4323" )
		SetActive ( HPanoDummyUp, true )
		SetVisible ( OPanoDummyUp, true )
		ChangeLink ( HTheatreLaserDummyUp, nil )
		else
		send_to_greg_again ()
	end			
end

AddEvent ( EVLabShowWoundImpression, true, EIWoundImpression, Greg, nil, "lab_wound_impression" )




-- 11.1000
-- Player shows Cross Trainer Shoes to Greg.
function lab_trainer_shoes()
	if not IsEventDone ( EVLabTrainerShoes )
		then
		SendEvidenceToComputer( EICrossShoePropRoom )
		send_to_comp_shoeprint ()
		else
		send_to_greg_again ()
	end		
end

AddEvent ( EVLabTrainerShoes, true, EICrossShoePropRoom, Greg, nil, "lab_trainer_shoes" )




-- 11.1010
-- Player shows Box of Rounds Print to Greg.
function lab_box_print()
	if not IsEventDone ( EVLabBoxPrint )
		then
		SendEvidenceToComputer( ETFingerprintBox )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabBoxPrint, true, ETFingerprintBox, Greg, nil, "lab_box_print" )





-- 11.1020
-- Player shows Photos of Victim to Greg.
function lab_victim_photos()
	if not IsEventDone ( EVLabVictimPhotos )
		then
		ChangeRoom ( MainlabGregCloseup2 )
		PlayDialog ( Greg, "M4_GREG_1826" )
		ChangeRoom ( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Nick )
		PlayDialog ( Nick, "M4_NICK_1827" )
		ChangeRoom ( MainlabDefaultRoom )
		SendEvidenceToMicroscope ( EDPhotos )
		else
		send_to_greg_again ()
	end		
end

AddEvent ( EVLabVictimPhotos, true, EDPhotos, Greg, nil, "lab_victim_photos" )




-- 11.1050
-- Player shows Blank Round to Greg.
function lab_blank_round()
	if not IsEventDone ( EVLabShowBlankRound )
		then
		PlayDialog ( Greg, "M4_GREG_1828" )	
		AddEvidenceDescriptionText ( EIBlankRound, "_TB_E4324" )
		else
		send_to_greg_again ()
	end		
end

AddEvent ( EVLabShowBlankRound, true, EIBlankRound, Greg, nil, "lab_blank_round" )




-- 11.1060
-- Player shows Prop Round to Greg.
function lab_prop_round()
	if not IsEventDone ( EVLabPropRound )
		then
		PlayDialog ( Greg, "M4_GREG_1829" )
		ChangeRoom ( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Nick )
		PlayDialog ( Nick, "M4_NICK_1830" )
		ChangeRoom ( MainlabDefaultRoom )
		AddEvidenceDescriptionText ( EIPropRounds, "_TB_E4325" )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabPropRound, true, EIPropRounds, Greg, nil, "lab_prop_round" )




-- 11.1070
-- Player shows Water Puddle to Greg.
function lab_water_puddle()
	if not IsEventDone ( EVLabWaterPuddle )
		then
		PlayDialog ( Greg, "M4_GREG_1831" )
-- 	SpecialLinks...
		SendEvidenceToComputer( ETWaterPuddleSample)
		else
		send_to_greg_again ()
	end
end

AddEvent ( EVLabWaterPuddle, true, ETWaterPuddleSample, Greg, nil, "lab_water_puddle" )


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

-- 12.1000
-- Player acquires Cross Trainer (Result) with Searching.

function search_cross_trainer()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, EICrossShoePropRoom, nil, "search_cross_trainer")

function match_cross_trainer()
	if not IsEventDone( EVMatchCrossTrainer ) 
		then
		AddEvidenceDescriptionText ( EICrossShoePropRoomVirtual, "_TB_B253", true )	
	end
	SetComputerMatchResult( EICrossShoePropRoomVirtual )
	if not IsEventDone( EVMatchCrossTrainer ) 
		then
		AddEvidenceDescriptionText ( EICrossShoePropRoom, "_TB_E2452" )	
	end	
end
AddComputerEvent( EVMatchCrossTrainer, true, OSneakerShoe5, EICrossShoePropRoom, nil, "match_cross_trainer")
------------------------------------------------------------------------------

-- 12.2000
-- Player acquires Water Puddle (Result) with Searching.	
-- este un Special Link la care inca se lucreaza...


function comp_water_puddle_search()
	if not IsEventDone ( EVSpecialLink1 )
		then
		AddEvidenceDescriptionText ( ETWaterPuddleSampleVirtual, "_TB_B314", true )
	end
	SetComputerSearchResult( "", true, ETWaterPuddleSampleVirtual )
	if not IsEventDone (EVSpecialLink1) 
		then
		PlayDialog ( nil, "M4_NICK_1832" )
		AddEvidenceDescriptionText ( ETWaterPuddleSample, "_TB_E4740" )
	end
end

AddComputerEvent ( EVSpecialLink1, true, nil, ETWaterPuddleSample, nil, "comp_water_puddle_search" )





-- 13.0000
-- Player acquires Photo Mag (First) with Searching.
-- este de facut pe Microscope

function comp_photo_first_search_cond()
	return not IsEventDone( EVAcquireUVLightBruising ) and not IsEventDone( EVAcquireMorgueUVLightBruising )            -- Morgue: fol uv 
end

function comp_photo_first_search()
	PlayDialog ( nil, "M4_NICK_1833" )
end

AddMicroscopeEvent ( nil, false, nil, EDPhotos, "comp_photo_first_search_cond", "comp_photo_first_search" )




-- 13.1000
-- Player acquires Photo Mag (Final) with Searching.
function comp_photo_final_search_cond()
	return IsEventDone( EVAcquireUVLightBruising ) or IsEventDone ( EVAcquireMorgueUVLightBruising )       -- Morgue: fol uv 
end

function comp_photo_final_search()
	PlayDialog ( nil, "M4_NICK_1834" )
	ShowMicrofilm ( "mf\\newPhoto_microFilm" )

--	Vezi 13.1100

	PlayDialog ( nil, "M4_NICK_1835" )
	UpdateCaseFile( Victim, INFORMATION, "_TB_E4737" )

end

AddMicroscopeEvent ( EVMicroPhotoFinal, false, nil, EDPhotos, "comp_photo_final_search_cond", "comp_photo_final_search" )




-- 16.1000
-- Player shows Detonator Fingerprint to Greg.
function lab_detonator_print()
	if not IsEventDone ( EVLabDetonatorPrint )
		then
		SendEvidenceToComputer( ETDetonatorFingerprint )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent ( EVLabDetonatorPrint, true, ETDetonatorFingerprint, Greg, nil, "lab_detonator_print" )




-- 16.1010
-- Player shows Orchestra Detonator to Greg.
function lab_orchestra_detonator()
	if not IsEventDone ( EVLabShowDetonator )
		then
		PlayDialog ( Greg, "M4_GREG_1840" )
		AddEvidenceDescriptionText ( EIDetonator, "_TB_E4327" )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabShowDetonator, true, EIDetonator, Greg, nil, "lab_orchestra_detonator" )




-- 17.1000
-- Player acquires Detonator Print (Result) with Searching.

function search_detonator_fingerprint()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETDetonatorFingerprint, nil, "search_detonator_fingerprint")

function match_detonator_fingerprint()
	if not IsEventDone( EVCompDetPrint ) 
		then
		AddEvidenceDescriptionText ( ETDetonatorFingerprintVirtual, "_TB_B259", true )
	end
	SetComputerMatchResult( ETDetonatorFingerprintVirtual )
	if not IsEventDone( EVCompDetPrint ) 
		then
		PlayDialog ( nil, "M4_NICK_1841" )
		UpdateCaseFile( Harrison, INFORMATION, "_TB_E2477" )
		AddEvidenceDescriptionText ( ETDetonatorFingerprint, "_TB_E2478" )

	end	
end
AddComputerEvent( EVCompDetPrint, true, ODetonFingerPrint3, ETDetonatorFingerprint, nil, "match_detonator_fingerprint")





--?? functia aceasta nu o sa mi se execute daca este facuta prima deoarece este vorba de acelasi eveniment
-- o sa mearga daca o face Catalin ;)
--19.1650
function show_squib_prop_after_Greg_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q879" )
end
function show_squib_prop_after_Greg ()
	if not IsEventDone ( EVShowSquibPropAfter )
		then
		PlayDialog ( Greg, "M4_GREG_1788" )
		PlayReenactment( "Art\\Reenactments\\Movie\\rcns_electricity01a.xmv", "Art\\Reenactments\\Pictures\\rcns_electricity01a_tb.tga", "_TB_Z2214", nil, "M4_GREG_1789" )
		PlayDialog ( Greg, "M4_GREG_1790" )
		ChangeRoom ( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Nick )
		PlayDialog ( Nick, "M4_NICK_1791" )
		ChangeRoom ( MainlabDefaultRoom )
		PlayDialog ( Nick, "M4_NICK_1887" )
		AddEvidenceDescriptionText ( EISquibProp, "_TB_E4745" )
		if not IsQuestionAsked ( Harrison, "_TB_Q1202" )
			then
			SetVisible ( OPanoPointerDown, false )
			SetVisible ( OPanoDummyDown, true )
			SetActive ( HPanoDummyDown, true )
			SetVisible ( OPanoDummyUp, false )
			SetActive ( HPanoDummyUp, false )
			ChangeLink ( HTheatreLaserDummyDown, nil )
		end
		else
		send_to_greg_again ()
	end	
end
AddEvent ( EVShowSquibPropAfter, true, EISquibProp, Greg, "show_squib_prop_after_Greg_cond", "show_squib_prop_after_Greg" )
------------------------------------------------------------------------------




-- 20.1000
-- Player shows Multipurpose Tool to Greg.
function lab_multipurpose_tool()
	if not IsEventDone ( EVLabShowSuperTool )
		then
		ChangeRoom ( MainlabGregCloseup1 )
		PlayDialog ( Greg, "M4_GREG_1895" )
		ChangeRoom ( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Nick )
		PlayDialog ( Nick, "M4_NICK_1896" )
		ChangeRoom ( MainlabDefaultRoom )
		AddEvidenceDescriptionText ( EISuperTool, "_TB_E4746" )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabShowSuperTool, true, EISuperTool, Greg, nil, "lab_multipurpose_tool" )




-- 24.1000
-- Player shows Balcony Sneaker Print to Greg.
function lab_balcony_sneaker_print()
	if not IsEventDone ( EVLabSneakerPrint )
		then
		SendEvidenceToComputer( ETSneakerShoeprint )
		send_to_comp_shoeprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent ( EVLabSneakerPrint, true, ETSneakerShoeprint, Greg, nil, "lab_balcony_sneaker_print" )





-- 24.2000
-- Player shows Balcony Shoe Print to Greg.
function lab_balcony_shoe_print()
	if not IsEventDone ( EVLabShoePrint )
		then
		SendEvidenceToComputer( ETLoaferShoeprint )
		send_to_comp_shoeprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent ( EVLabShoePrint, true, ETLoaferShoeprint, Greg, nil, "lab_balcony_shoe_print" )




-- 24.2010
-- Player shows Balcony Dark Powder to Greg.
function lab_balcony_dark_powder()
	if not IsEventDone ( EVShowGregDarkPowder )
		then
		PlayDialog ( Greg, "M4_GREG_1905" )
		ChangeRoom ( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Nick )
		PlayDialog ( Nick, "M4_NICK_1906" )
		ChangeRoom ( MainlabDefaultRoom )
		AddEvidenceDescriptionText ( ETBalconySubst, "_TB_E4747" )  
		else
		send_to_greg_again ()
	end
end

AddEvent ( EVShowGregDarkPowder, true, ETBalconySubst, Greg, nil, "lab_balcony_dark_powder" )




-- 24.2030
-- Player shows Balcony Water Stain to Greg.
-- aici avem un Special Event
function lab_balcony_water_stain()
	if not IsEventDone ( EVShowGregWaterStain )
		then
		ChangeRoom ( MainlabGregCloseup1 )
		PlayDialog ( Greg, "M4_GREG_1907" )
		ChangeRoom ( MainlabDefaultRoom )
		SendEvidenceToComputer( ETBalconyWaterStain )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVShowGregWaterStain, true, ETBalconyWaterStain, Greg, nil, "lab_balcony_water_stain" )



--------------------------------------------------------------------------------------------------------------------------
-- 25.1000
-- Player acquires Sneaker Print (Result) with Searching.
function search_balcony_sneaker_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETSneakerShoeprint, nil, "search_balcony_sneaker_print")

function match_balcony_sneaker_print()
	if not IsEventDone( EVCompSneakerPrint ) 
		then
		AddEvidenceDescriptionText ( ETSneakerShoeprintVirtual, "_TB_B270", true )
	end	
	SetComputerMatchResult( ETSneakerShoeprintVirtual )
	if not IsEventDone( EVCompSneakerPrint ) 
		then
		AddEvidenceDescriptionText ( ETSneakerShoeprint, "_TB_E2612" )
	end	
end
AddComputerEvent( EVCompSneakerPrint, true, OSneakerShoeprint5, ETSneakerShoeprint, nil, "match_balcony_sneaker_print")


--------------------------------------------------------------------------------------------------------------------------
-- 25.1020
-- Player acquires Shoe Print (Result) with Searching.
function search_balcony_loafer_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETLoaferShoeprint, nil, "search_balcony_loafer_print")

function match_balcony_loafer_print()
	if not IsEventDone( EVCompShoePrint ) 
		then
		AddEvidenceDescriptionText ( ETLoaferShoeprintVirtual, "_TB_B271", true )
	end	
	SetComputerMatchResult( ETLoaferShoeprintVirtual )
	if not IsEventDone( EVCompShoePrint ) 
		then
		AddEvidenceDescriptionText ( ETLoaferShoeprint, "_TB_E2613" )
	end	
end
AddComputerEvent( EVCompShoePrint, true, OLoaferShoeprint2, ETLoaferShoeprint, nil, "match_balcony_loafer_print")


--------------------------------------------------------------------------------------------------------------------------
-- 25.1030
-- Player acquires Sneaker Print <-> Cross Trainer with Matching.

function comp_match1()
	if not IsEventDone ( EVCompMatch1 )
		then
		AddEvidenceDescriptionText ( ETSneakerShoeprintVirtual, "_TB_B272", true )
	end
	SetComputerMatchResult( ETSneakerShoeprintVirtual )
	if not IsEventDone ( EVCompMatch1 )
		then
		PlayDialog ( nil, "M4_NICK_1908" )
		AddEvidenceDescriptionText ( EICrossShoePropRoom, "_TB_E2616" )
		AddEvidenceDescriptionText ( ETSneakerShoeprint, "_TB_E2615" )
	end
end

AddComputerEvent( EVCompMatch1, true, EICrossShoePropRoom, ETSneakerShoeprint, nil, "comp_match1" )



---------------------------------------------------------------------------------------------------------------------------
-- 25.1051
-- Player acquires Balcony Water (Result) with Searching.	(before Thermos Result)
-- este un Special Link la care inca se lucreaza...

function comp_balcony_water_search_before_thermos_cond ()
	return not IsEventDone (EVSpecialLink3)
end
function comp_balcony_water_search_before_thermos()
	if not IsEventDone ( EVSpecialLink2 )
		then
		AddEvidenceDescriptionText ( ETBalconyWaterStainVirtual, "_TB_B273", true )
	end
	SetComputerSearchResult( "", true, ETBalconyWaterStainVirtual )
	PlayDialog ( nil, "M4_NICK_1909" )
--	AddEvidenceDescriptionText ( ETBalconyWaterStain, "_TB_E4740" )
end

AddComputerEvent ( EVSpecialLink2, true, nil, ETBalconyWaterStain, "comp_balcony_water_search_before_thermos_cond", "comp_balcony_water_search_before_thermos" )

-- Player acquires Balcony Water (Result) with Searching.	(after Thermos Result)
function comp_balcony_water_search_after_thermos_cond ()
	return IsEventDone (EVSpecialLink3)
end
function comp_balcony_water_search_after_thermos()
	if not IsEventDone ( EVSpecialLink21 )
		then
		AddEvidenceDescriptionText ( ETBalconyWaterStainVirtual, "_TB_B273", true )
	end
	SetComputerSearchResult( "", true, ETBalconyWaterStainVirtual )
	PlayDialog ( nil, "M4_NICK_1909" )
	PlayDialog ( nil, "M4_NICK_1910" )
	NewEvent( EVWaterUpdate, nil)
--	AddEvidenceDescriptionText ( ETBalconyWaterStain, "_TB_E4740" )
end

AddComputerEvent ( EVSpecialLink21, true, nil, ETBalconyWaterStain, "comp_balcony_water_search_after_thermos_cond", "comp_balcony_water_search_after_thermos" )

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

-- 29.1000
-- Player shows Panties to Greg ( before Vag Fluid ).
-- deocamdata functia de mai jos nu se executa din cauza conditionarii din Carter Home...
-- trebuie refacut.

function lab_panties_before_vag_fluid_cond()
	return IsEventDone ( EVAcquiredPanties ) and not IsEventDone ( EVCarterAcquireFluid )
end

function lab_panties_before_vag_fluid()
	PlayDialog ( Greg, "M4_GREG_1927" )
	ChangeRoom ( MainlabGregCloseup2 )
	PlayDialog ( Greg, "M4_GREG_1928" )
	ChangeRoom ( MainlabDefaultRoom )

	AddEvidenceDescriptionText ( EIPanties, "_TB_E2651" )


--	SendEvidenceToComputer( EIPanties )

end

AddEvent ( EVLabPanties1, false, EIPanties, Greg, "lab_panties_before_vag_fluid_cond", "lab_panties_before_vag_fluid" )

-----------------------------------------------------------
-- 29.1000
-- Player shows Panties to Greg ( after Vag Fluid ).

function lab_panties_after_vag_fluid_cond()
	return IsEventDone ( EVCarterAcquireFluid )
end

function lab_panties_after_vag_fluid()
	if not IsEventDone ( EVLabPanties2 )
		then
		PlayDialog ( Greg, "M4_GREG_1927" )
		ChangeRoom ( MainlabGregCloseup2 )
		PlayDialog ( Greg, "M4_GREG_1928" )
		ChangeRoom ( MainlabDefaultRoom )
		SendEvidenceToComputer( EIPanties )
		AddEvidenceDescriptionText ( EIPanties, "_TB_E2651" )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabPanties2, true, EIPanties, Greg, "lab_panties_after_vag_fluid_cond", "lab_panties_after_vag_fluid" )

function search_panties_blood()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, EIPanties, nil, "search_panties_blood")


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



-- 29.1030
-- Player shows Threatening Letter to Greg
function lab_threatening_letter()
	if not IsEventDone ( EVLabThreatLetter )
		then
		ChangeRoom ( MainlabGregCloseup2 )
		PlayDialog ( Greg, "M4_GREG_1929" )
		ChangeRoom ( MainlabDefaultRoom )
		AddEvidenceDescriptionText ( EDThreatLetter, "_TB_E4748" )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabThreatLetter, true, EDThreatLetter, Greg, nil, "lab_threatening_letter" )



--------------------------------------------------------------------------------------------------------------------------
-- 29.1040
-- Player shows Letter Prints to Greg.
function lab_letter_prints()
	if not IsEventDone ( EVLabLettrePrints )
		then
		SendEvidenceToComputer( ETFingerprintLetter )
		PlayDialog ( Greg, "M4_GREG_1930" )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabLettrePrints, true, ETFingerprintLetter, Greg, nil, "lab_letter_prints" )


-- Player acquires Letter Prints (Result) with Searching.

function search_letter_fingerprint()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETFingerprintLetter, nil, "search_letter_fingerprint")


--------------------------------------------------------------------------------------------------------------------------
-- 30.1000
-- Player acquires Victim Blood DNA <-> Panties DNA with Matching.

function comp_match2()
	if not IsEventDone ( EVCompMatch2 ) and not IsEventDone ( EVCompMatch20 )
		then
		AddEvidenceDescriptionText ( EIPantiesVirtual, "_TB_B280", true )
	end
	SetComputerMatchResult( EIPantiesVirtual )
	if not IsEventDone ( EVCompMatch2 ) and not IsEventDone ( EVCompMatch20 )
		then
		PlayDialog ( nil, "M4_NICK_1931" )
		AddEvidenceDescriptionText ( EIPanties, "_TB_E2660" )
		AddEvidenceDescriptionText ( ETMerylRegisBloodSample, "_TB_E2659" )
		AddEvidenceDescriptionText ( ETBloodSampleMorgue, "_TB_E2659" )
	end
end

AddComputerEvent( EVCompMatch2, true, EIPanties, ETMerylRegisBloodSample, nil, "comp_match2" )
AddComputerEvent( EVCompMatch20, true, EIPanties, ETBloodSampleMorgue, nil, "comp_match2" )


--------------------------------------------------------------------------------------------------------------------------
-- 30.2000
-- Player acquires Letter Prints <-> Prop Room Print with Matching.

function comp_match3()
	if not IsEventDone ( EVMatcLetterPropPrints )
		then
		AddEvidenceDescriptionText ( ETFingerprintBoxVirtual, "_TB_B295", true )
	end
	SetComputerMatchResult( ETFingerprintBoxVirtual )
	if not IsEventDone ( EVMatcLetterPropPrints )
		then
		PlayDialog ( nil, "M4_NICK_1932" )
		AddEvidenceDescriptionText ( ETFingerprintLetter, "_TB_E4735" )
		AddEvidenceDescriptionText ( ETFingerprintBox, "_TB_E4736" )
	end
end

AddComputerEvent( EVMatcLetterPropPrints, true, ETFingerprintLetter, ETFingerprintBox, nil, "comp_match3" )


--------------------------------------------------------------------------------------------------------------------------
-- 32.2000
-- Player shows Heather's prints to Greg.
function lab_heather_prints()
	if not IsEventDone ( EVLabHeatherPrints )
		then
		SendEvidenceToComputer( ETFingerprintHeather )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabHeatherPrints, true, ETFingerprintHeather, Greg, nil, "lab_heather_prints" )


-- Player acquires Heather Prints (Result) with Searching.

function search_heather_fingerprint()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETFingerprintHeather, nil, "search_heather_fingerprint")



-- 36.2000
-- Player shows Soap with Holes to Greg (before rifle).
function lab_soap_before_cond()
	return IsEventDone( EVAcquireSoap ) and (not IsQuestionAsked( Harrison, "_TB_Q877" ))
end

function lab_soap_before()
	if not IsEventDone ( EVLabShowSoapBefore )
		then
		PlayDialog ( Greg, "M4_GREG_1954" )
		else
		send_to_greg_again ()
	end	
end

AddEvent ( EVLabShowSoapBefore, true, EISoap, Greg, "lab_soap_before_cond", "lab_soap_before" )


function lab_soap_after_cond()
	return IsEventDone( EVAcquireSoap ) and IsQuestionAsked( Harrison, "_TB_Q877" )
end

function lab_soap_after()
	if not IsEventDone ( EVLabSoap )
		then
		PlayDialog ( Greg, "M4_GREG_1955" )
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Nick )
		PlayDialog ( Nick, "M4_NICK_1956" )
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog ( Greg, "M4_GREG_1957" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText ( EISoap, "_TB_E4749" )
		if IsEventDone( EVLabPliers ) and IsEventDone( EVLabThermos ) then
			NewEvent( EVLabUpdate, nil )
		end
		else
		send_to_greg_again ()
	end
end

AddEvent ( EVLabSoap, true, EISoap, Greg, "lab_soap_after_cond", "lab_soap_after" )

function lab_update()
	PlayDialog ( Nick, "M4_NICK_1961" )
end

AddEvent ( EVLabUpdate, false, EVLabUpdate, nil, nil, "lab_update" )



-- 36.2040
-- Player shows Pliers to Greg.
function lab_pliers()
	if not IsEventDone ( EVLabPliers )
		then
		PlayDialog ( Greg, "M4_GREG_1958" )
		AddEvidenceDescriptionText ( EIPliersTool, "_TB_E3267" )
		if IsEventDone( EVLabSoap ) and IsEventDone( EVLabThermos ) then
			NewEvent( EVLabUpdate, nil )
		end
		else
		send_to_greg_again ()
	end
end

AddEvent ( EVLabPliers, true, EIPliersTool, Greg, nil, "lab_pliers" )




-- 36.2060
-- Player shows Thermos to Greg.
function lab_thermos()
	if not IsEventDone ( EVLabThermos )
		then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog ( Greg, "M4_GREG_1959" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText ( EIThermos, "_TB_E2718" )
		AddEvidenceDescriptionText ( EIThermos, "_TB_E4750" )
		SendEvidenceToComputer( EIThermos )
		if IsEventDone( EVLabSoap ) and IsEventDone( EVLabPliers ) then
			NewEvent( EVLabUpdate, nil )
		end
		else 
		send_to_greg_again ()
	end
end

AddEvent ( EVLabThermos, true, EIThermos, Greg, nil, "lab_thermos" )




-- 36.2080
-- Player shows Brown Shoes to Greg.
function lab_brown_shoes()
	if not IsEventDone ( EVLabBrownShoes )
		then
		PlayDialog ( Greg, "M4_GREG_1960" )
		SendEvidenceToComputer( EILoafers )
		else 
		send_to_greg_again ()
	end
end

AddEvent ( EVLabBrownShoes, true, EILoafers, Greg, nil, "lab_brown_shoes" )



--------------------------------------------------------------------------------------------------------------------------
-- 36.2200
-- Player acquires Brown Shoe Print (result) with Searching.

function search_brown_shoes()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, EILoafers, nil, "search_brown_shoes")

function match_brown_shoes()
	if not IsEventDone( EVMatchBrownShoes ) 
		then
		AddEvidenceDescriptionText ( EILoafersVirtual, "_TB_B290", true )
	end	
	SetComputerMatchResult( EILoafersVirtual )
	if not IsEventDone( EVMatchBrownShoes ) 
		then
		AddEvidenceDescriptionText ( EILoafers, "_TB_E2724" )	
	end	
end
AddComputerEvent( EVMatchBrownShoes, true, OLoaferShoes1, EILoafers, nil, "match_brown_shoes")


------------------------------------------------------------------------------
-- 36.2210
-- Player acquires Shoe Print <-> Brown shoe Print with Matching.

function comp_match4()
	if not IsEventDone ( EVMatchShoeBrownPrints )
		then
		AddEvidenceDescriptionText ( ETLoaferShoeprintVirtual, "_TB_B291", true )
	end
	SetComputerMatchResult( ETLoaferShoeprintVirtual )
	if not IsEventDone ( EVMatchShoeBrownPrints )
		then
		PlayDialog ( nil, "M4_NICK_1962" )
		AddEvidenceDescriptionText ( ETLoaferShoeprint, "_TB_E4739" )
		AddEvidenceDescriptionText ( EILoafers, "_TB_E4738" )
	end
end

AddComputerEvent( EVMatchShoeBrownPrints, true, ETLoaferShoeprint, EILoafers, nil, "comp_match4" )





-- 37.3000
-- Player acquires Thermos Water Sample (After Balcony Result) with Searching.
-- depinde de special Link...
function comp_thermos_sample_search_cond()
	return IsEventDone( EVSpecialLink2 ) 
end

function comp_thermos_sample_search()
	if not IsEventDone ( EVSpecialLink3 )
		then
		AddEvidenceDescriptionText ( EIThermosVirtual, "_TB_B318", true )
	end
	SetComputerSearchResult( "", true, EIThermosVirtual )
	if not IsEventDone ( EVSpecialLink3 ) then
		PlayDialog ( nil, "M4_NICK_1963" )
		PlayDialog ( nil, "M4_NICK_1964" )
		NewEvent( EVWaterUpdate, nil)
	end

end

AddComputerEvent ( EVSpecialLink3, true, nil, EIThermos, "comp_thermos_sample_search_cond", "comp_thermos_sample_search" )

function water_update()
	AddEvidenceDescriptionText ( ETBalconyWaterStain, "_TB_E4733" )
end

AddEvent ( EVWaterUpdate, false, EVWaterUpdate, nil, nil, "water_update" )



--------------------------------------------------------------------------------------------------------------------
-- 41.1000
-- Player acquires Clayton print <-> Letter Print with Matching.

function lab_clayton_print()
	SendEvidenceToComputer( ETFingerprintClayton )
end
AddEvent ( EVLabClaytonPrints, false, ETFingerprintClayton, Greg, nil, "lab_clayton_print" )

-- Player searches Clayton prints on Computer

function search_Clayton_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent( nil, true, nil, ETFingerprintClayton, nil, "search_Clayton_print" )

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

function comp_match5()
	if not IsEventDone ( EVMatchClaytonLetterPrints )
		then
		AddEvidenceDescriptionText ( ETFingerprintClaytonVirtual, "_TB_B296", true )
	end
	SetComputerMatchResult( ETFingerprintClaytonVirtual )
	if not IsEventDone ( EVMatchClaytonLetterPrints )
		then
		if not IsEventDone ( EVMatchClaytonPropPrints ) 
			then
			PlayDialog ( nil, "M4_NICK_1972" )
		end
		AddEvidenceDescriptionText ( ETFingerprintLetter, "_TB_E4253" )
		AddEvidenceDescriptionText ( ETFingerprintClayton, "_TB_E4252" )
		UpdateCaseFile( Regis, INFORMATION, "_TB_E4254" )
	end
end

AddComputerEvent( EVMatchClaytonLetterPrints, true, ETFingerprintLetter, ETFingerprintClayton, nil, "comp_match5" )


------------------------------------------------------------------------------------------------------------------------
-- Player searches Box fingerprints on Computer

function search_box_fingerprint()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETFingerprintBox, nil, "search_box_fingerprint")


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



-- 41.2000
-- Player acquires Clayton print <-> Prop Room Print with Matching.


function comp_match6()
	if not IsEventDone ( EVMatchClaytonPropPrints )
		then
		AddEvidenceDescriptionText ( ETFingerprintBoxVirtual, "_TB_B281", true )
	end
	SetComputerMatchResult( ETFingerprintBoxVirtual )
	if not IsEventDone ( EVMatchClaytonPropPrints )
		then
		if not IsEventDone ( EVMatchClaytonLetterPrints ) 
			then
			PlayDialog ( nil, "M4_NICK_1972" )
		end
		AddEvidenceDescriptionText ( ETFingerprintBox, "_TB_E4256" )
		AddEvidenceDescriptionText ( ETFingerprintClayton, "_TB_E4255" )
		UpdateCaseFile( Regis, SUSPECT_VICTIM, "_TB_E4258", 200 )
	end
end

AddComputerEvent( EVMatchClaytonPropPrints, true, ETFingerprintBox, ETFingerprintClayton, nil, "comp_match6" )

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

-- Analiza in pop up
-- detonator

function lab_acquire_detonator_fingerprint ()
	SetActive ( EOBJ_detonator_FPrint, false )
	AddEvidence ( ETDetonatorFingerprint )
	AddEvidenceDescriptionText ( ETDetonatorFingerprint, "_TB_E2468" )
	SetActive ( EHOTSPOT_detonator_FPrint, false )
	
end
AddEvent ( EVAquiredDetonatorFingerprint1, false, fingerdust, EOBJ_detonator_FPrint, nil, "lab_acquire_detonator_fingerprint" )
--------------------------------------------------------------------------------------

-- gun powder

function lab_acquire_gun_powder_swab ()
	PlayDialog ( nil, "M4_NICK_1761" )	
	AddEvidence ( ETSampleGunPowder )
	AddEvidenceDescriptionText ( ETSampleGunPowder, "_TB_E2785" )
	SetActive (EHOTSPOT_gun, false)
end
AddEvent ( nil, false, swab, EHOTSPOT_gun, nil, "lab_acquire_gun_powder_swab" )

-- EIBulletFragMorgue

function lab_study_frag_morgue ()
	ZoomToRoom ( MainlabBulletsZoom )
	PlayDialog ( nil, "M4_NICK_1796" )
	AddEvidenceDescriptionText ( EIBulletFragMorgue, "_TB_E4355" )
	SetActive (EHOTSPOT_bullets, false)
end
AddEvent ( EVAcquireFragMorgue, false, magnifier, EHOTSPOT_bullets, nil, "lab_study_frag_morgue" )