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, "M2_WARRICK_1395" )
	end
	if T == 2 then
		PlayDialog( nil, "M2_WARRICK_1393" )
	end
	if T == 3 then
		PlayDialog( nil, "M2_WARRICK_1394" )
	end

end

AddComputerEvent( nil, true, nil, COMPUTER_DEFAULT_MATCH_EVENT, nil, "comp_default_match" )


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

end

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

	if IsEventDone( EVAsylumPrints1 ) then
		SetActive( EOBJ_asylumBottle1_FPrint, false )
--		SetActive( HOTSPOT, false )                               -- trebuie declarat HOTSPOT-ul
	end
	if IsEventDone( EVAsylumPrints2 ) then
		SetActive( EOBJ_asylumBottle2_FPrint, false )
--		SetActive( HOTSPOT, false )                              -- trebuie declarat HOTSPOT-ul
	end
	if IsEventDone( EVResPowder ) then
		SetActive( EHOTSPOT_porkchop, 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" )



-- 3.1000
-- Player shows PANTS STAIN to Greg.
function lab_pants_stain()
	if not IsEventDone( EVLabPantsStainAnalyzed ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M2_GREG_23" )
--		PlayDialog( Greg, "M2_GREG_2671" )
		PlayReenactment("Art\\Reenactments\\Movie\\rcns_ulcer01a.xmv", "Art\\Reenactments\\Pictures\\ulcer.tga", "_TB_Z395", nil, "M2_GREG_2671" )
		ChangeRoom( MainlabDefaultRoom )
		SendEvidenceToComputer( ETVictimPantsStain )
		if IsEventDone( EVLabReaceipt1Analyzed ) then
			NewEvent( EVPantsDescription, nil )
		end
		AddEvidenceDescriptionText( ETVictimPantsStain, "_TB_E428" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabPantsStainAnalyzed, true, ETVictimPantsStain, Greg, nil, "lab_pants_stain" )


--------------------------------------------------------------------------------------------------
-- 7.1000
-- Player shows RESTAURANT RECEIPT 2 to Greg
function lab_resturant_receipt2()
	if not IsEventDone( EVLabReceipt2 ) then
		PlayDialog( Greg, "M2_GREG_42" )
	else
		send_to_greg_again()
	end
	
end

AddEvent( EVLabReceipt2, true, EDEggplantReceipts, Greg, nil, "lab_resturant_receipt2" )



-- 7.1100
-- Player shows RESTAURANT RECEIPT 3 to Greg
function lab_resturant_receipt3()
	if not IsEventDone( EVLabReceipt3 ) then
		PlayDialog( Greg, "M2_GREG_42" )
	else
		send_to_greg_again()
	end
end

AddEvent( EVLabReceipt3, true, EDBakedAlaskaReceipt, Greg, nil, "lab_resturant_receipt3" )



-- 7.2500
-- Player shows RESTAURANT RECEIPT 1 to Greg
function lab_resturant_receipt1()
	if not IsEventDone( EVLabReaceipt1Analyzed ) then
		if IsEventDone( EVLabPantsStainAnalyzed ) then
			NewEvent( EVPantsDescription, nil )
		end
		
		if not IsEventDone( EVLabCreditCard ) then
			PlayDialog( Greg, "M2_GREG_43" )
		end

		if IsEventDone ( EVLabCreditCard ) then
			PlayDialog( Greg, "M2_GREG_44" )
		end
	else
		send_to_greg_again()
	end
	
end

AddEvent( EVLabReaceipt1Analyzed, true, EDAsparagusReceipt, Greg, nil, "lab_resturant_receipt1" )


function lab_pants_description()
	AddEvidenceDescriptionText( EDAsparagusReceipt, "_TB_E3560" )
end

AddEvent( EVPantsDescription, false, EVPantsDescription, nil, nil, "lab_pants_description" )

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


-- 7.4000
-- Player shows ALLEY FOOD to Greg.
function lab_alley_food()
	if not IsEventDone( EVAlleyFoodAnalyzed ) then
		PlayDialog( Greg, "M2_GREG_45" )
		AddEvidenceDescriptionText( EIDiscardedFood, "_TB_E418" )
	
		if IsEventDone( EVLabPowderAnalyzed) then
			NewEvent( EVAlleyFoodDescription, nil )
		end
	else
		send_to_greg_again()
	end
	
end

AddEvent( EVAlleyFoodAnalyzed, true, EIDiscardedFood, Greg, nil, "lab_alley_food" )



-- 7.4900
-- Player shows POWDER from FOOD to Greg.
function lab_powder_food()
	if not IsEventDone( EVLabPowderAnalyzed ) then
		ChangeRoom( MainlabGregCloseup2 )
--------------------------------------------------------------------------------
-- 7.4945. Ce se intampla???
--------------------------------------------------------------------------------
		PlayDialog( Greg, "M2_GREG_185" )
	
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList( Warrick )
		PlayDialog( Warrick, "M2_WARRICK_46" )

		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M2_GREG_355" )

		ChangeRoom( MainlabDefaultRoom )
		PlayDialog( Warrick, "M2_WARRICK_356" )

		AddEvidenceDescriptionText( ETDiscFoodSubstance, "_TB_E419" )

		if IsEventDone( EVAlleyFoodAnalyzed ) then
			NewEvent( EVAlleyFoodDescription, nil )
		end
	else
		send_to_greg_again()
	end
	
end

AddEvent( EVLabPowderAnalyzed, true, ETDiscFoodSubstance, Greg, nil, "lab_powder_food" )

function alley_food_description()
	AddEvidenceDescriptionText( EIDiscardedFood, "_TB_E1174" )
end

AddEvent( EVAlleyFoodDescription, false, EVAlleyFoodDescription, nil, nil, "alley_food_description" )



-- 7.5100
-- Player shows BLOODY CLOTH FRAGMENT to Greg.
function lab_bloody_cloth()
	if not IsEventDone( EVLabBloodyCloth ) then
		PlayDialog( Greg, "M2_GREG_76" )
		AddEvidenceDescriptionText( EISnaggedClothFrag, "_TB_E859" )
		SendEvidenceToComputer( EISnaggedClothFrag )
	else
		send_to_greg_again ()
	end 
	
end

AddEvent( EVLabBloodyCloth, true, EISnaggedClothFrag, Greg, nil, "lab_bloody_cloth" )

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


-- 9.0000
-- Player shows CREDIT CARD SLIP to Greg.
function lab_credit_card()
	if not IsEventDone( EVLabCreditCard1 ) then
		PlayDialog( Greg, "M2_GREG_44" )
		SendEvidenceToComputer( EDCardSlipRestOwner )
	else
		PlayDialog( Greg, "M2_GREG_44" )
	end	
	
end

AddEvent( EVLabCreditCard1, true, EDCardSlipRestOwner, Greg, nil, "lab_credit_card" )




-- 9.0004
--Player acquires Credit Card Info (Result) with Searching.
--function comp_credit_card_cond()
--	return IsEventDone( EVLabCreditCard1 )
--end

function comp_credit_card()
	if not IsEventDone( EVLabCreditCard ) then
		AddEvidenceDescriptionText( EDCardSlipRestOwnerVirtual, "_TB_B17", true )
	end
	SetComputerSearchResult( "", true, EDCardSlipRestOwnerVirtual )

	if not IsEventDone( EVLabCreditCard ) then
		PlayDialog( Warrick, "M2_WARRICK_48" )
		AddEvidenceDescriptionText( EDCardSlipRestOwner, "_TB_E3553" )
		AddLocation( Condo )	
	end
end

AddComputerEvent( EVLabCreditCard, true, nil, EDCardSlipRestOwner, nil, "comp_credit_card" )




-- 10.3000
-- Player shows Markus van der Hellen's Fingerprint to Greg.
function lab_markus_fingerprins()
	if not IsEventDone( EVMarkusPrints ) then
		send_to_comp_fingerprint() 
		SendEvidenceToComputer( ETFingerprintsMarkus )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVMarkusPrints, true, ETFingerprintsMarkus, Greg, nil, "lab_markus_fingerprins" )



-- 10.3100
-- Player shows Markus van der Hellen's DNA to Greg.
function lab_markus_dna()
	if not IsEventDone( EVLabDNAMarkus ) then
		send_to_comp_dna ()
		SendEvidenceToComputer( ETDNASampleMarkus )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabDNAMarkus, true, ETDNASampleMarkus, Greg, nil, "lab_markus_dna" )



-- 11.1000
-- Markus DNA <-> Pants Stain DNA with Matching
function comp_dna_compare1()
	SetComputerMatchResult( nil )
	if not IsEventDone( EVCompMatch1 ) then
		PlayDialog( nil, "M2_WARRICK_59" )
		UpdateCaseFile( Markus, INFORMATION, "_TB_E4703" )
	end

end

AddComputerEvent( EVCompMatch1, true, ETDNASampleMarkus, ETVictimPantsStain, nil, "comp_dna_compare1" )



-- 12.1720
-- Player acquires Partial Assembled Bottle Print with Assembly
function lab_glass_print1()
	if not IsEventDone( EVLabGlassPrint1 ) then
		if IsEventDone( EVLabGlassPrint2 ) then
			NewEvent( EVAssembledPartialPrint, nil )
		end
		send_to_greg_again ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabGlassPrint1, true, ETFingerprintStraightGlass, Greg, nil, "lab_glass_print1" )

function lab_glass_print2()
	if not IsEventDone( EVLabGlassPrint2 ) then
		if IsEventDone( EVLabGlassPrint1 ) then
			NewEvent( EVAssembledPartialPrint, nil )
		end
		send_to_greg_again ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabGlassPrint2, true, ETFingerprintPointedGlass, Greg, nil, "lab_glass_print2" )

function assembled_partial_print()
	PlayDialog( nil, "M2_WARRICK_75" )

	AddEvidence( ETPartialFpBottle )
	AddEvidenceDescriptionText( ETPartialFpBottle, "_TB_E946" )
	RemoveEvidence( ETFingerprintPointedGlass )
	RemoveEvidence( ETFingerprintStraightGlass )
	-- Cele 2 amprente partiale trebuiesc sterse din menu
	SetActive( EHOTSOT_GlassAll_FPrint, false )

--	if IsEventDone( EVLabSprayPrint ) then
--		NewEvent( EVLabPunkerFinal, nil)
--	end	

end

AddEvent( EVAssembledPartialPrint, false, EVAssembledPartialPrint, nil, nil, "assembled_partial_print" )

function assembled_prints_glass_show()
	if not IsEventDone( EVAssembledPrintGlass ) then
		if IsEventDone( EVLabSprayPrint ) then
			NewEvent( EVLabPunkerFinal, nil)
		end
		send_to_greg_again ()
	else
		send_to_greg_again ()
	end	

end

AddEvent( EVAssembledPrintGlass, true, ETPartialFpBottle, Greg, nil, "assembled_prints_glass_show" )




-- 12.1740
-- Player acquires Broken Bottle 1 <-> Broken Bottle 2 with Assembly
function lab_glass1()
	send_to_greg_again ()
end

AddEvent( EVLabGlass1, true, EIPointedGlassFrag, Greg, nil, "lab_glass1" )

function lab_glass2()
	send_to_greg_again ()
end

AddEvent( EVLabGlass2, true, EIStraightGlassFrag, Greg, nil, "lab_glass2" )

--function assembled_glass()
--	AddEvidence( EIAssembledBottleFrag )
--	AddEvidenceDescriptionText( EIAssembledBottleFrag, "_TB_E4240" )

--	AddEvidenceDescriptionText( EIPointedGlassFrag, "_TB_E299" )
--	AddEvidenceDescriptionText( EIStraightGlassFrag, "_TB_E965" )
	-- Cele 2 amprente partiale trrbuiesc sterse din menu
--end

--AddEvent( EVAssembledGlass, false, EVAssembledGlass, nil, nil, "assembled_glass" )





-- 12.2000
-- Player shows ASYLUM BLOWFLY to Greg.
function lab_asylum_blowfly()
	if not IsEventDone( EVLabAsylumLarva ) then
		send_to_microscope ()
		SendEvidenceToMicroscope( EILarvaAsylum )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabAsylumLarva, true, EILarvaAsylum, Greg, nil, "lab_asylum_blowfly" )





-- 12.5000
-- Player acquires Asylum Blowfly <-> Blowfly Samples with Matching.
function micro_asylum_blowfly()
	if not IsEventDone( EVMicroBlowflyMatch ) then
		AddEvidenceDescriptionText( EILarvaVirtual, "_TB_B78", true )
	end
	SetMicroscopeMatchResult( EILarvaVirtual )

	if not IsEventDone( EVMicroBlowflyMatch ) then	
		PlayDialog( nil, "M2_WARRICK_385" )
		if IsQuestionAsked( Richard, "_TB_Q45" ) then
			NewEvent( EVRemoveQuestion1, nil )
		end
		UpdateCaseFile( Victim, VICTIM_CRIMESCENE, "_TB_E1443", 400 )             -- Trebuie adugata victima
		AddEvidenceDescriptionText( EILarvaAsylum, "_TB_E996" )
	end

end

AddMicroscopeEvent( EVMicroBlowflyMatch, true, EILarvaAsylum, OLarva5, nil, "micro_asylum_blowfly" )

function remove_question1()
	RemoveQuestion( Brass, QIDSuspiciousThug1 )
	RemoveQuestion( Brass, QIDSuspiciousThug2 )
end

AddEvent( EVRemoveQuestion1, false, EVRemoveQuestion1, nil, nil, "remove_question1" )





-- 13.1000
-- Player shows HANDLEBAR FINGERPRINT to Greg.
function lab_handlebar_fingerprint()
	if not IsEventDone( EVLabWhellchairPrints ) then
		send_to_comp_fingerprint ()
		SendEvidenceToComputer( ETFingerprintWheelchair )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabWhellchairPrints, true, ETFingerprintWheelchair, Greg, nil, "lab_handlebar_fingerprint" )



-- 13.1200
-- Player acquires Markus Prints <-> Handlebar Prints with Matching.
function comp_fingerprints_compare1()
	SetComputerMatchResult( nil )
	if not IsEventDone( EVCompMatch2 ) then
		PlayDialog( nil, "M2_WARRICK_61" )
		UpdateCaseFile( Markus, INFORMATION, "_TB_E4704" )
	end

end

AddComputerEvent( EVCompMatch2, true, ETFingerprintsMarkus, ETFingerprintWheelchair, nil, "comp_fingerprints_compare1" )



-- 13.2000
-- Player shows FADED SERIAL NUMBER to Greg.
function lab_serial_number()
	if not IsEventDone( EVLabSerialNumber ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M2_GREG_77" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EISerialNoImpression, "_TB_E453" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabSerialNumber, true, EISerialNoImpression, Greg, nil, "lab_serial_number" )



-- 13.2900
-- Player shows PUDDLE LIQUID to Greg.
function lab_puddle_liquid()
	if not IsEventDone( EVLabPuddleLiquid ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M2_GREG_78" )
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList( Warrick )
		PlayDialog( Warrick, "M2_WARRICK_1322" )                -- nil <-> Warrick (pe versiunea asta crapa )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( ETAsylumFloorLiqSample, "_TB_E803" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabPuddleLiquid, true, ETAsylumFloorLiqSample, Greg, nil, "lab_puddle_liquid" )



-- 13.4000  &  15.1000
-- Player shows MUDDY FOOTPRINT to Greg.
function lab_muddy_footprint_show()
	if not IsEventDone( EVLabMuddyPrint ) then
		send_to_comp_shoeprint ()
		SendEvidenceToComputer( ETMuddyFootprintAsylum )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabMuddyPrint, true, ETMuddyFootprintAsylum, Greg, nil, "lab_muddy_footprint_show" )




-- 13.5000
-- Player shows DUSTY FOOTPRINT to Greg.
function lab_dusty_footprint()
	if not IsEventDone( EVLabDustyPrint ) then
		send_to_comp_shoeprint ()
		SendEvidenceToComputer( ETDustyFootprintAsylum )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabDustyPrint, true, ETDustyFootprintAsylum, Greg, nil, "lab_dusty_footprint" )



-- 13.7000
-- Player shows GRAFFITI PAINT to Greg.
function lab_graffiti_paint()
	if not IsEventDone( EVLabGraffitiPaint ) then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "M2_GREG_91" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( ETSprayPaintAsylum, "_TB_E804" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabGraffitiPaint, true, ETSprayPaintAsylum, Greg, nil, "lab_graffiti_paint" )




-- 15.1000
-- Player acquires Muddy Footprint Search (Result) with Searching
function comp_muddy_footprint_search()
	SetComputerSearchResult( "", true )
end

AddComputerEvent( nil, true, nil, ETMuddyFootprintAsylum, nil, "comp_muddy_footprint_search" )


function comp_muddy_footprint_match()
	if not IsEventDone( EVCompMuddyFootprint ) then
		AddEvidenceDescriptionText( ETMuddyFootprintVirtual, "_TB_B77", true )
	end
	SetComputerMatchResult( ETMuddyFootprintVirtual )

	if not IsEventDone( EVCompMuddyFootprint ) then
		PlayDialog( nil, "M2_WARRICK_80" )
		AddEvidenceDescriptionText( ETMuddyFootprintAsylum, "_TB_E995" )
	end

end

AddComputerEvent( EVCompMuddyFootprint, true, ETMuddyFootprintAsylum, OFootPrint1, nil, "comp_muddy_footprint_match" )




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


-- 18.0002
-- Player shows Punker Print (Final Assembled) to Greg.
function lab_punker_print()
	if not IsEventDone( EVLabPunkerPrint ) then
		send_to_comp_fingerprint ()
		SendEvidenceToComputer( ETCombFpAsylumGang )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabPunkerPrint, true, ETCombFpAsylumGang, Greg, nil, "lab_punker_print" )




-- 18.0005	
-- Player acquires Punker Print (Final Assembled) with Assembly.	
function finger_print_assembled_final()
	if not IsEventDone( EVLabSprayPrint ) then
		if IsEventDone( EVAssembledPrintGlass ) then
			NewEvent( EVLabPunkerFinal, nil)
		end
		send_to_greg_again ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabSprayPrint, true, ETPartialFpSprayCan, Greg, nil, "finger_print_assembled_final" )


function lab_final_assembled_print()
	AddEvidence( ETCombFpAsylumGang )
	AddEvidenceDescriptionText( ETCombFpAsylumGang, "_TB_E1007" )
	-- Cele 2 amprente partiale trebuiesc sterse din menu
	SendEvidenceToComputer( ETCombFpAsylumGang )

	RemoveEvidence( ETPartialFpSprayCan )
	RemoveEvidence( ETPartialFpBottle )
	
end

AddEvent( EVLabPunkerFinal, false, EVLabPunkerFinal, nil, nil, "lab_final_assembled_print" )





-- 18.1000
-- Player acquires Punker Print Rap Sheet with Searching
function comp_punker_print_search()
	SetComputerSearchResult( "", true )
end

AddComputerEvent( nil, true, nil, ETCombFpAsylumGang, nil, "comp_punker_print_search" )


function comp_punker_print_match()
	if not IsEventDone( EVCompMatch3 ) then
		AddEvidenceDescriptionText( ETCombFpVirtual, "_TB_B50", true )
	end
	SetComputerMatchResult( ETCombFpVirtual )

	if not IsEventDone( EVCompMatch3 ) then
		PlayDialog( nil, "M2_WARRICK_429" )
		AddEvidenceDescriptionText( ETCombFpAsylumGang, "_TB_E3554" )
		AddSuspect( Richard, "Susspicious Thug", "Art\\Reenactments\\Pictures\\black.tga" )
		UpdateCaseFile( Richard, SUSPECT_CRIMESCENE, "_TB_E480", 100 )
		UpdateCaseFile( Richard, INFORMATION, "_TB_E364" )  
	end

end

AddComputerEvent( EVCompMatch3, true, ETCombFpAsylumGang, OCombPrint2, nil, "comp_punker_print_match" )




-- 18.2000
-- Player shows SPRAY CAN to Greg.
function lab_spray_can()
	if not IsEventDone( EVLabSprayCan ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M2_GREG_92" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EISprayCan, "_TB_E3554" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabSprayCan, true, EISprayCan, Greg, nil, "lab_spray_can" )




-- 18.40000
-- Player shows CIGARETTE BUTT 1 to Greg.
function lab_cigarette1()
	if not IsEventDone( EVLabCigarette1 ) then 
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "M2_GREG_93" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EICigaretteHideout, "_TB_E813" )
		SendEvidenceToComputer( EICigaretteHideout )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabCigarette1, true, EICigaretteHideout, Greg, nil, "lab_cigarette1" )




-- 18.5000
-- Player shows PAD OF PAPER to Greg.
function lab_paper_pad()
	if not IsEventDone( EVLabPaper ) then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "M2_GREG_97" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EDHideoutPaper, "_TB_E808" )
		AddLocation( PawnShop )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabPaper, true, EDHideoutPaper, Greg, nil, "lab_paper_pad" )




-- 21.1000
-- Player shows CIGARETTE BUTT 2 to Greg.
function lab_cigarette2()
	if not IsEventDone( EVLabCigarette2 ) then
		PlayDialog( Greg, "M2_GREG_104" )
		AddEvidenceDescriptionText( EICigarettePawnShop, "_TB_E811" )
		SendEvidenceToComputer( EICigarettePawnShop )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabCigarette2, true, EICigarettePawnShop, Greg, nil, "lab_cigarette2" )




-- 22.1000
-- Player acquires Cigarette DNA 1 <-> Cigarette DNA 2 with Matching
-- Trebuie declarata noua evidenta
function comp_cigarette_compare_DNA()
	if not IsEventDone( EVLabComp1 ) then
		AddEvidenceDescriptionText( EICigaretteVirtual, "_TB_B164", true )
	end
	SetComputerMatchResult( EICigaretteVirtual )

	if not IsEventDone( EVLabComp1 ) then
		PlayDialog( nil, "M2_WARRICK_98" )

--    	Object LANE JACKSON is added to location Pawn
		SetVisible( ORichard, true)                                          -- trebuiesc decomentate la final
--    	Object RING is added to location Pawn Shop.
--    	Object JACKET is added to location Pawn Shop.
		SetActive( HPawnShopJacketSidewalk, true )
		SetActive( HPawnShopRichardEstab, true )

		AddEvidenceDescriptionText( EICigarettePawnShop, "_TB_E814" )
		AddEvidenceDescriptionText( EICigaretteHideout, "_TB_E815" )
	end

end

AddComputerEvent( EVLabComp1, true, EICigaretteHideout, EICigarettePawnShop, nil, "comp_cigarette_compare_DNA" )


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

-- 24.1000
-- Player shows JACKET VOMIT to Greg.
function lab_jacket_vomit()
	if not IsEventDone( EVLabJacketVomit ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M2_GREG_105" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( ETSwabJacket, "_TB_E462" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabJacketVomit, true, ETSwabJacket, Greg, nil, "lab_jacket_vomit" )




-- 24.2000
-- Player shows RING to Greg.
function lab_ring_show()
	if not IsEventDone( EVLabRing ) then
		PlayDialog( Greg, "M2_GREG_106" )
		AddEvidenceDescriptionText( EIRing, "_TB_E463" )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabRing, true, EIRing, Greg, nil, "lab_ring_show" )




-- 24.3000   & 25.1000
-- Player shows JACKET CAT HAIR to Greg.
function lab_jacket_hair_show()
	if not IsEventDone( EVLabJacketHair ) then
		PlayDialog( Greg, "M2_GREG_152" )
		PlayReenactment("Art\\Reenactments\\Movie\\rcns_hair01a.xmv", "Art\\Reenactments\\Pictures\\hair.tga", "_TB_Z397", nil, "M2_GREG_362" )
		PlayDialog( Greg, "M2_GREG_363" )
		SendEvidenceToMicroscope( ETJacketHair )
	else
		send_to_greg_again ()
	end

end
AddEvent( EVLabJacketHair, true, ETJacketHair, Greg, nil, "lab_jacket_hair_show" )


-- 25.1000
function lab_jacket_cat_hair()
	if not IsEventDone( EVMicroJacketHair ) then
		AddEvidenceDescriptionText( ETHairVirtual, "_TB_B185", true )
	end
	SetMicroscopeMatchResult( ETHairVirtual )

	if not IsEventDone( EVMicroJacketHair ) then
		PlayDialog( nil, "m2_warrick_108" )
		AddEvidenceDescriptionText( ETJacketHair, "_TB_E817" )
	end

end

AddMicroscopeEvent( EVMicroJacketHair, true, ETJacketHair, OHair3, nil, "lab_jacket_cat_hair" )


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

-- 32.0000
-- Player shows BURNED REPORT to Greg.
function lab_burned_report()
	if not IsEventDone( EVLabBurnedReport ) then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "M2_GREG_182" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EDBurnedPages, "_TB_E469" )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabBurnedReport, true, EDBurnedPages, Greg, nil, "lab_burned_report" )




-- 32.0500
-- Player acquires Condo Hair (Result) with Matching
-- Player shows JACKET CAT HAIR to Greg.
function lab_condo_hair_show()
	SendEvidenceToMicroscope( ETCatHair )
end
AddEvent( nil, false, ETCatHair, Greg, nil, "lab_condo_hair_show" )

function micro_condo_hair_match()
	if not IsEventDone( EVLabCatHair ) then
		AddEvidenceDescriptionText( ETHairVirtual2, "_TB_B185", true )
	end
	SetMicroscopeMatchResult( ETHairVirtual2 )

	if not IsEventDone( EVLabCatHair ) then
		AddEvidenceDescriptionText( ETCatHair, "_TB_E1520" )
	end

end

AddMicroscopeEvent( EVLabCatHair, true, ETCatHair, OHair3, nil, "micro_condo_hair_match" )





-- 32.1000
-- Player shows FIREPLACE LARVA to Greg.
function lab_condo_larva()
	if not IsEventDone( EVLabFireLarva ) then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "M2_GREG_181" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EILarvaCondo, "_TB_E398" )
		SendEvidenceToComputer( EILarvaCondo )
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabFireLarva, true, EILarvaCondo, Greg, nil, "lab_condo_larva" )




-- 32.1500
-- Player acquires Victim's DNA <-> Clair DNA with Matching
function comp_compare1_DNA()
	SetComputerMatchResult( nil )

	if not IsEventDone( EVCompPrints3 ) then
		PlayDialog( nil, "M2_WARRICK_153" )
	end

end

AddComputerEvent( EVCompPrints3, true, ETDNAVictim, ETDNASampleRebecca, nil, "comp_compare1_DNA" )




-- 32.1550
-- Player acquires Fireplace Larva DNA <-> Clair DNA with Matching. 
function comp_compare2_DNA()
	SetComputerMatchResult( nil )
	if not IsEventDone( EVCompDNA2Compare ) then
		PlayDialog( nil, "M2_WARRICK_153" )
	end

end

AddComputerEvent( EVCompDNA2Compare, true, EILarvaCondo, ETDNASampleRebecca, nil, "comp_compare2_DNA" )




-- 32.1580
-- Player acquires Victim's DNA <-> Pants Stain DNA (no match) with Matching. 
function comp_compare3_DNA()
	SetComputerMatchResult( nil )
	if not IsEventDone( EVCompDNA3Compare ) then
		PlayDialog( nil, "M2_WARRICK_153" )
	end

end

AddComputerEvent( EVCompDNA3Compare, true, ETDNAVictim, ETVictimPantsStain, nil, "comp_compare3_DNA" )




-- 32.1600
-- Player acquires Fireplace Larva DNA <-> Pants Stain DNA with Matching
function comp_compare4_DNA()
	SetComputerMatchResult( nil )
	if not IsEventDone( EVCompDNA4Compare ) then
		PlayDialog( nil, "M2_WARRICK_153" )
	end

end

AddComputerEvent( EVCompDNA4Compare, true, EILarvaCondo, ETVictimPantsStain, nil, "comp_compare4_DNA" )




-- 32.1700
-- Player acquires Fireplace Larva DNA <-> Victim's DNA (Result) with Matching. 
function comp_compare5_DNA()
	if not IsEventDone( EVCompDNA1Compare ) then
		AddEvidenceDescriptionText( ETDNACompareVirtual2, "_TB_B164", true )
	end
	SetComputerMatchResult( ETDNACompareVirtual2 )

	if not IsEventDone( EVCompDNA1Compare ) then
		PlayDialog( nil, "M2_WARRICK_154" )
		AddEvidenceDescriptionText( ETDNAVictim, "_TB_E1056" )
		AddEvidenceDescriptionText( EILarvaCondo, "_TB_E1057" )
		UpdateCaseFile( Rebecca, SUSPECT_VICTIM, "_TB_E1066", 300 )
	end

	if IsEventDone( EVMicroHairCompare ) and IsQuestionAsked( Brass, "_TB_Q36" ) and IsQuestionAsked( Markus, "_TB_Q29" ) and IsQuestionAsked( Markus, "_TB_Q30" ) then
		NewEvent( EVRebeccaRemove, nil )
	end

end

AddComputerEvent( EVCompDNA1Compare, true, EILarvaCondo, ETDNAVictim, nil, "comp_compare5_DNA" )

function rebecca_remove()
	RemoveQuestion(WarrantSuspects, QIDRebeccaRemove1 )
end
AddEvent( EVRebeccaRemove, true, EVRebeccaRemove, nil, nil, "rebecca_remove" )


-- 34.1000
-- Player acquires Jacket Hair <-> Condo Hair with Matching
function micro_jacket_condo_match()
	if not IsEventDone( EVMicroHairCompare ) then
		AddEvidenceDescriptionText( ETHairVirtual3, "_TB_B64", true )
	end
	SetMicroscopeMatchResult( ETHairVirtual3 )

	if not IsEventDone( EVMicroHairCompare ) then
		PlayDialog( nil, "m2_warrick_155" )
		AddEvidenceDescriptionText( ETCatHair, "_TB_E472" )
		AddEvidenceDescriptionText( ETJacketHair, "_TB_E473" )
	end

	if IsEventDone( EVCompDNA1Compare) and IsQuestionAsked( Brass, "_TB_Q36" ) and IsQuestionAsked( Markus, "_TB_Q29" ) and IsQuestionAsked( Markus, "_TB_Q30" ) then
		NewEvent( EVRebeccaRemove, nil )
	end

end

AddMicroscopeEvent( EVMicroHairCompare, true, ETJacketHair, ETCatHair, "micro_jacket_condo_match_cond", "micro_jacket_condo_match" )


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

-- 37.1000
-- Player acquires Clair DNA <-> Pants Stain DNA with Matching.
function comp_compare6_DNA()
	if not IsEventDone( EVCompPrints1 ) then
		AddEvidenceDescriptionText( ETDNACompareVirtual3, "_TB_B164", true )
	end
	SetComputerMatchResult( ETDNACompareVirtual3 )

	if not IsEventDone( EVCompPrints1 ) then
		PlayDialog( nil, "M2_WARRICK_156" )
		AddEvidenceDescriptionText( ETVictimPantsStain, "_TB_E474" )
		AddEvidenceDescriptionText( ETDNASampleRebecca, "_TB_E475" )
		UpdateCaseFile( Rebecca, SUSPECT_VICTIM, "_TB_E1269", 700 )
	end

end

AddComputerEvent( EVCompPrints1, true, ETDNASampleRebecca, ETVictimPantsStain, nil, "comp_compare6_DNA" )




-- 37.2000
-- Player acquires Clair Prints <--> Handlebar Prints (Result) with Matching. 
function comp_compare_prints1()
	if not IsEventDone( EVCompPrints2 ) then
		AddEvidenceDescriptionText( ETFingerprintMatch1, "_TB_B164", true )
	end
	SetComputerMatchResult( ETFingerprintMatch1 )

	if not IsEventDone( EVCompPrints2 ) then
		PlayDialog( nil, "M2_WARRICK_165" )
		AddEvidenceDescriptionText( ETFingerprintRebecca, "_TB_E1068" )
		AddEvidenceDescriptionText( ETFingerprintWheelchair, "_TB_E1069" )              
		UpdateCaseFile( Rebecca, SUSPECT_CRIMESCENE, "_TB_E1270", 1000 ) 
	end

end

AddComputerEvent( EVCompPrints2, true, ETFingerprintRebecca, ETFingerprintWheelchair, nil, "comp_compare_prints1" )



---------------------------------------------------------------------------------------------------------------
-- Player shows Victim's DNA to Greg
function lab_victima_DNA()
	if not IsEventDone( EVLabVictimDNA ) then
		send_to_comp_dna ()
		SendEvidenceToComputer( ETDNAVictim )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabVictimDNA, true, ETDNAVictim, Greg, nil, "lab_victima_DNA" )


-- Player shows Clair's DNA to Greg
function lab_clair_DNA()
	if not IsEventDone( EVLabClairDNA ) then
		send_to_comp_dna ()
		SendEvidenceToComputer( ETDNASampleRebecca )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabClairDNA, true, ETDNASampleRebecca, Greg, nil, "lab_clair_DNA" )

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

AddComputerEvent( nil, true, nil, ETDNASampleRebecca, nil, "lab_clair_DNA_search" )

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

AddComputerEvent( nil, true, nil, ETFingerprintRebecca, nil, "lab_clair_prints_search" )


-- Player shows Clair's Prints to Greg
function lab_clair_Prints()
	if not IsEventDone( EVLabClairPrints ) then
		send_to_comp_fingerprint ()
		SendEvidenceToComputer( ETFingerprintRebecca )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabClairPrints, true, ETFingerprintRebecca, Greg, nil, "lab_clair_Prints" )

-- Player shows Jacket to Greg
function lab_jacket_show()
	send_to_greg_again ()
end

AddEvent( nil, true, EIJacket, Greg, nil, "lab_jacket_show" )

-- Player shows EDNotePawnShop to Greg
function lab_pawn_note_show()
	send_to_greg_again ()
end

AddEvent( nil, true, EDNotePawnShop, Greg, nil, "lab_pawn_note_show" )

-- Player shows EIAssembledBottleFrag to Greg
function lab_assembled_bottle_show()
	send_to_greg_again ()
end

AddEvent( nil, true, EIAssembledBottleFrag, Greg, nil, "lab_assembled_bottle_show" )


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

AddComputerEvent( nil, true, nil, ETDustyFootprintAsylum, nil, "comp_dusty_prints_search" )


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

AddComputerEvent( nil, true, nil, ETFingerprintWheelchair, nil, "comp_wheel_prints_search" )


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

AddComputerEvent( nil, true, nil, ETDNAVictim, nil, "lab_victim_DNA_search" )



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

AddComputerEvent( nil, true, nil, ETVictimPantsStain, nil, "lab_pants_DNA_search" )



-- Markus
function lab_markus_DNA_search()
	SetComputerSearchResult( "", true )
end

AddComputerEvent( nil, true, nil, ETDNASampleMarkus, nil, "lab_markus_DNA_search" )

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

AddComputerEvent( nil, true, nil, ETFingerprintsMarkus, nil, "comp_markus_prints_search" )



---------------------------------------------------------------------------------------------------------------------------
-- Warrick Hints
function lab_warrick()
	DisplayQuestionList( Warrick )
end

AddEvent( nil,true, nil, MainlabCSICloseup1, nil, "lab_warrick" )