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, "M1_CAT_1239" )
	end
	if T == 2 then
		PlayDialog( nil, "M1_CAT_1240" )
	end
	if T == 3 then
		PlayDialog( nil, "M1_CAT_1241" )
	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, "M1_CAT_1241" )
	end
	if T == 2 then
		PlayDialog( nil, "M1_CAT_1242" )
	end
	if T == 3 then
		PlayDialog( nil, "M1_CAT_1243" )
	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

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




-- 4.1
function lab_intro()
	FadeIn()
-- Prima intrare in Laborator
	if not IsEventDone( EVLabIntro ) then
		PlayDialog( Katy, "M6_CATH_10" )
		PlayDialog( Greg, "M6_GREG_01" )
		ChangeRoom( MainLabEstab )
	else
		T = Random (3)
		if T == 1 then
			PlayDialog (Greg, "M0_GREG_1305")
		end
		if T == 2 then
			PlayDialog (Greg, "M0_GREG_1306")
		end
		if T == 3 then
			PlayDialog (Greg, "M0_GREG_1307")
		end

		ChangeRoom( MainLabEstab )
	end
end

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


-- 4.1.1    Paint_sample din Garden
function lab_paint_scraps()
	if not IsEventDone( EVLabPaintScraps ) then
		PlayDialog( Greg, "M6_GREG_02")
		PlayDialog( Katy, "M6_CATH_11" )
		AddEvidenceDescriptionText( ETScrapPaint, "TEXT5032" )  -- TEXT5032=Paint type commonly used on L-160 trucks.
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLabPaintScraps, true, ETScrapPaint, Greg, nil, "lab_paint_scraps" )


-- 4.1.2    Drag the Insects from the Garden over Greg
function lab_garden_insects()
	if not IsEventDone( EVInsectAnalyzed ) then
		PlayDialog( Greg, "M6_GREG_03")
		PlayDialog( Katy, "M6_CATH_12" )
		PlayDialog( Greg, "M6_GREG_04")
		PlayDialog( Katy, "M6_CATH_13" )
		PlayDialog( Greg, "M6_GREG_05")

		SendEvidenceToMicroscope( EIBugGardens )
		AddEvidenceDescriptionText( EIBugGardens, "TEXT5050" )  -- TEXT5050=Larva of cochliomyia hominivorax--a 'human eater.'

		if IsEventDone( EVBottleAnalyzed ) and IsEventDone( EVTireTreadsCompared ) then
			NewEvent( EVGrissomAbducted, nil )
		end
	else
		send_to_greg_again ()
	end

end

AddEvent( EVInsectAnalyzed, true, EIBugGardens, Greg, nil, "lab_garden_insects" )


--------------------------------------------------------------------
--------------------------------------------------------------------
-- 4.2      Evidentele trebuiesc analizate pe Computer 
--------------------------------------------------------------------

-- 4.2.1     Drag the footprint over the comp
function lab_footprint_cast_show()
	if not IsEventDone( EVLabFootprintShow ) then
		SendEvidenceToComputer( ETFootPrint )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabFootprintShow, true, ETFootPrint, Greg, nil, "lab_footprint_cast_show" )


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

AddComputerEvent( nil, true, nil, ETFootPrint, nil, "comp_footprint_search" )


function comp_footprint_match()
	if not IsEventDone( EVCompMatch1 ) then
		AddEvidenceDescriptionText( ETFootPrint, "TEXT5038" )    -- TEXT5038=Size and type matches shoes worn by Grissom.
	end
	SetComputerMatchResult( ETFootPrint )

	if not IsEventDone( EVCompMatch1 ) then
		PlayDialog( nil, "M6_CATH_14" )
		UpdateCaseFile( Grissom, VICTIM_CRIMESCENE, "TEXT5213", 200 )   --TEXT5213=Shoe print analysis suggests he likely arrived at the Desert Gardens.
	end

end

AddComputerEvent( EVCompMatch1, true, ETFootPrint, OGrissom, nil, "comp_footprint_match" )


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

function lab_gardentreadupdate()
	AddEvidenceDescriptionText( ETTireGardens, "TEXT5044" )   -- TEXT5044=90% similarity to L-160 trucks.
end

AddEvent( EVGardenTreadUpdate, false, EVGardenTreadUpdate, Greg, nil, "lab_gardentreadupdate" )

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

-- 4.2.2 Drag the tire_tred_cast (from garden) over the comp (before has evidence ETTireTruck)
function lab_garden_tire_show()
	if not IsEventDone( EVLabTireGardenShow ) then
		SendEvidenceToComputer( ETTireGardens )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabTireGardenShow, true, ETTireGardens, Greg, nil, "lab_garden_tire_show" )


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

AddComputerEvent( nil, true, nil, ETTireGardens, nil, "comp_tire_search" )


function comp_tire_match1()
	if not IsEventDone( EVGardenTireTreadAnalyzedBefore ) then
		AddEvidenceDescriptionText( ETTireGardensVirtual, "TEXT5251", true )
		AddEvidenceDescriptionText( ETTireGardensVirtual, "TEXT5252", true )
	end
	SetComputerMatchResult( ETTireGardensVirtual )
	
	if not IsEventDone( EVGardenTireTreadAnalyzedBefore ) then
		PlayDialog( nil, "M6_CATH_15" )
		if not IsEventDone( EVGardenTireTreadAnalyzed ) then
			NewEvent( EVGardenTreadUpdate, Greg )
		end
	end


end

AddComputerEvent( EVGardenTireTreadAnalyzedBefore, true, ETTireGardens, OTire4, nil, "comp_tire_match1" )




-- 4.2.3 Drag the tire_tred_cast over the comp ( after has evidence ETTireTrack )
function lab_truck_tire_show()
	if not IsEventDone( EVLabTruck ) then
		SendEvidenceToComputer( ETTireTruck )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabTruck, true, ETTireTruck, Greg, nil, "lab_truck_tire_show" )



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

AddComputerEvent( nil, true, nil, ETTireTruck, nil, "comp_tire_truck_search" )


function comp_tire_match2()
	if not IsEventDone( EVGardenTireTreadAnalyzed ) then
		AddEvidenceDescriptionText( ETTireTruckVirtual, "TEXT5251", true )
		AddEvidenceDescriptionText( ETTireTruckVirtual, "TEXT5252", true )
	end
	SetComputerMatchResult( ETTireTruckVirtual )
	
	if not IsEventDone( EVGardenTireTreadAnalyzed ) then
		PlayDialog( nil, "M6_CATH_16" )
		if not IsEventDone( EVGardenTireTreadAnalyzedBefore ) then
			NewEvent( EVGardenTreadUpdate, Greg )
		end

	end


end

AddComputerEvent( EVGardenTireTreadAnalyzed, true, ETTireTruck, OTire1, nil, "comp_tire_match2" )





-- 4.2.4 Compare ETTireGardens and ETTireTruck on the comp
function lab_compare_tiretreads()
	if not IsEventDone( EVTireTreadsCompared ) then
		AddEvidenceDescriptionText( ETTireGardens, "TEXT5045" )   -- TEXT5045=Matches tread lifted from Dr. Wilkinson's truck.
		AddEvidenceDescriptionText( ETTireTruck, "TEXT5141" )	-- TEXT5141=Matches tread lifted recently from Desert Gardens.
	end
	SetComputerMatchResult( ETTireTruck )

	if not IsEventDone( EVTireTreadsCompared ) then
		PlayDialog( nil, "M6_CATH_17" )
		UpdateCaseFile( Leda, SUSPECT_VICTIM, "TEXT5227", 200 )   -- TEXT5227=Leda has access to Wilkinson's truck, which was at the Desert Gardens a second time.
		if IsEventDone( EVBottleAnalyzed ) and IsEventDone( EVInsectAnalyzed ) then
			NewEvent( EVGrissomAbducted, nil )
		end
	end

end

AddComputerEvent( EVTireTreadsCompared, true, ETTireTruck, ETTireGardens, nil, "lab_compare_tiretreads" ) 

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

-- 4.3.1    Drag the Insects from the Garden over Microscope
function lab_garden_insects_microscope()
	if not IsEventDone( EVMicroInsect ) then
		PlayDialog( nil, "M6_CATH_126")
	end
end

AddMicroscopeEvent( EVMicroInsect, true, nil, EIBugGardens, nil, "lab_garden_insects_microscope" )


-- 11.1.1 Drag the Plastic Laminate over Greg

function lab_plastic_laminate()
	if not IsEventDone( EVLabWeddingPhoto ) then
		PlayDialog( Greg, "M6_GREG_06")
		PlayDialog( Katy, "M6_CATH_45")
		PlayDialog( Greg, "M6_GREG_07")
		PlayDialog( Katy, "M6_CATH_46")
		AddEvidenceDescriptionText( EILaminate, "TEXT5086" )   -- TEXT5086=Enhancement shows wedding photo of Leda.
		UpdateCaseFile( Leda, INFORMATION, "TEXT5229" )   -- TEXT5229=Was married before. Her maiden name might not be Callisto.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabWeddingPhoto, true, EILaminate, Greg, nil, "lab_plastic_laminate" )


-- 11.1.2 + 11.1.3 Drag the Swab Stain over Greg 
function lab_greaseledaupdate()
	AddEvidenceDescriptionText( ETGreaseLeda, "TEXT5056" )   -- TEXT5056=Contains a unique mix of calcium gloconate gel and aloe vera. Ideal for hydrochloric acid burns.
end

AddEvent( EVGraseLedaUpdate, false, EVGraseLedaUpdate, Greg, nil, "lab_greaseledaupdate" )

function lab_swab_stain_conditionA()
	return not IsEventDone( EVLigatureBefore )
end

function lab_swab_stainA()
	if not IsEventDone( EVSwabStainAnalyzedBefore ) then
		PlayDialog( Greg, "M6_GREG_08")
		PlayDialog( Katy, "M6_CATH_47")
		if not IsEventDone( EVSwabStainAnalyzedAfter) then
			NewEvent( EVGraseLedaUpdate, Greg )
		end
	else
		send_to_greg_again ()
	end
end

AddEvent( EVSwabStainAnalyzedBefore, true, ETGreaseLeda, Greg, "lab_swab_stain_conditionA", "lab_swab_stainA" )


function lab_swab_stain_conditionB()
	return IsEventDone( EVLigatureBefore ) or IsEventDone( EVLigatureAfter )
end

function lab_swab_stainB()
	if not IsEventDone( EVSwabStainAnalyzedAfter ) then
		PlayDialog( Greg, "M6_GREG_09")
		PlayDialog( Katy, "M6_CATH_48")
		if not IsEventDone( EVSwabStainAnalyzedBefore) then
			NewEvent( EVGraseLedaUpdate, Greg )
		end
	else
		send_to_greg_again ()
	end
end

AddEvent( EVSwabStainAnalyzedAfter, true, ETGreaseLeda, Greg, "lab_swab_stain_conditionB", "lab_swab_stainB" )



-- 11.1.4 Drag the Patial Note over Greg 

function lab_partial_note()
	if not IsEventDone( EVLabSuicideNote ) then
		PlayDialog( Greg, "M6_GREG_10")
		PlayDialog( Katy, "M6_CATH_49")
		PlayDialog( Greg, "M6_GREG_11")
		PlayDialog( Katy, "M6_CATH_50")
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabSuicideNote, true, EDNote, Greg, nil, "lab_partial_note" )


-- 11.1.5 Drag the Bottle over Greg

function lab_bottle()
	if not IsEventDone( EVBottleAnalyzed ) then
		PlayDialog( Greg, "M6_GREG_12")
		PlayDialog( Katy, "M6_CATH_51")
		PlayDialog( Greg, "M6_GREG_13A")
		PlayReenactment( "Art\\Reenactments\\Movie\\impact_camera1.xmv", "Art\\Reenactments\\Pictures\\impactcamera1.tga", "TEXT5325", nil, "IMPACTCAMERA1" )
		PlayDialog( Katy, "M6_GREG_13B")
		AddEvidenceDescriptionText( EIBottle, "TEXT5080" )   -- TEXT5080=Contains chloroform, which could be used to render a person unconscious.
		UpdateCaseFile( Leda, SUSPECT_CRIMESCENE, "TEXT5222",200 )   -- TEXT5222=Chloroform from apartment could be used to render someone unconscious.

		if IsEventDone( EVInsectAnalyzed ) and IsEventDone( EVTireTreadsCompared ) then
			NewEvent( EVGrissomAbducted, nil )
		end
	else
		send_to_greg_again ()
	end

end

AddEvent( EVBottleAnalyzed, true, EIBottle, Greg, nil, "lab_bottle" )


-- 11.1.6 Drag the Newspaper over Greg

function lab_newspaper()
	if not IsEventDone( EVLabNewspAnalyzed ) then
		PlayDialog( Greg, "M6_GREG_14")
		SendEvidenceToComputer( EDNews )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabNewspAnalyzed, true, EDNews, Greg, nil, "lab_newspaper" )


-- 11.1.7 Drag the Larger Key over Greg ( after 9.1 Q2 )

function lab_largerkeyA_condition()
	return IsQuestionAsked( DrWilk, "TEXT5183" )
end

function lab_largerkeyA()
	if not IsEventDone( EVLargerKeyAnalyzedA ) then
		PlayDialog( Greg, "M6_GREG_15")
		PlayDialog( Katy, "M6_CATH_52")
		UpdateCaseFile( Leda, SUSPECT_CRIMESCENE, "TEXT5230",300 )   -- TEXT5230=May have taken Dr. Wilkinson's truck again.	
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLargerKeyAnalyzedA, true, EIKeyLarge, Greg, "lab_largerkeyA_condition", "lab_largerkeyA" )


-- 11.1.8 Drag the Larger Key over Greg ( before 9.1 Q2 )

function lab_largerkeyB_condition()
	return not IsQuestionAsked( DrWilk, "TEXT5183" )
end

function lab_largerkeyB()
	if not IsEventDone( EVLargerKeyAnalyzedB ) then 
		PlayDialog( Greg, "M6_GREG_16")
		AddEvidenceDescriptionText( EIKeyLarge, "TEXT5062" )   -- TEXT5062=Key type matches the kinds used in L-160 trucks.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLargerKeyAnalyzedB, true, EIKeyLarge, Greg, "lab_largerkeyB_condition", "lab_largerkeyB" )


-- 11.1.9 Drag the Smaller Key over Greg

function lab_smallerkey()
	if not IsEventDone( EVSmallKeyAnalyzed ) then
		PlayDialog( Greg, "M6_GREG_17")
		AddEvidenceDescriptionText( EIKeySmall, "TEXT5068" )
	else
		send_to_greg_again ()
	end  
end

AddEvent( EVSmallKeyAnalyzed, true, EIKeySmall, Greg, nil, "lab_smallerkey" )


-- 11.1.10 Drag the Casino Chips over Greg ( before 13.1.4 )

function lab_casinochipsA_condition()
	return not IsEventDone( EVSophiaChipsAnalyzed )
end

function lab_casinochipsA()
	if not IsEventDone( EVCasinoChipsAnalyzed ) then
		PlayDialog( Greg, "M6_GREG_18")
		AddEvidenceDescriptionText( EICasinoChips, "TEXT5074" )   -- TEXT5074=There is nothing special about the casino chips.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVCasinoChipsAnalyzed, true, EICasinoChips, Greg, "lab_casinochipsA_condition", "lab_casinochipsA" )


-- 11.1.11 Drag the Casino Chips over Greg ( after 13.1.4 )

function lab_casinochipsB_condition()
	return IsEventDone( EVSophiaChipsAnalyzed )
end

function lab_casinochipsB()
	if not IsEventDone( EVLabCasinoChipsAfter ) then
		PlayDialog( Greg, "M6_GREG_19")
		AddEvidenceDescriptionText( EICasinoChips, "TEXT5075" )   -- TEXT5075=They're the same kind of chips as those found in Sophia's mouth.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabCasinoChipsAfter, true, EICasinoChips, Greg, "lab_casinochipsB_condition", "lab_casinochipsB" )


-- 11.1.12

function lab_phone()
	if not IsEventDone( EVLabPhone ) then
		PlayDialog( Greg, "M6_GREG_20")
		AddEvidenceDescriptionText( EIPhone, "TEXT5104" )   -- TEXT5104=A prepaid cell phone with no registered owner. The memory has been cleared.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabPhone, true, EIPhone, Greg, nil, "lab_phone" )

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

-- 11.2.1 Drag the Newspaper Print over the comp ( search )
function lab_newsp_prints_show()
	if not IsEventDone( EVLabNewspPrints ) then
		SendEvidenceToComputer( ETNewsPrints )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabNewspPrints, true, ETNewsPrints, Greg, nil, "lab_newsp_prints_show" )


function lab_newsp_prints_search()
	if not IsEventDone( EVNewspaperPrintAnalyzed ) then
		AddEvidenceDescriptionText( ETNewsPrints, "TEXT5152" )
	end
	SetComputerSearchResult( "", false )
	
	if not IsEventDone( EVNewspaperPrintAnalyzed ) then
		PlayDialog( nil, "M6_CATH_53")
	end
end

AddComputerEvent( EVNewspaperPrintAnalyzed, true, nil, ETNewsPrints, nil, "lab_newsp_prints_search" )


-- 11.2.2 Drag the Photo Album Fingerprints over the comp
function lab_photoalb_prints_show()
	if not IsEventDone( EVLabPhotoPrints ) then
		SendEvidenceToComputer( ETSmudgePrint )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabPhotoPrints, true, ETSmudgePrint, Greg, nil, "lab_photoalb_prints_show" )


function comp_photoalb_prints_search()
	if not IsEventDone( EVPhotoAlbumPrintsAnalyzed ) then
		AddEvidenceDescriptionText( ETSmudgePrint, "TEXT5146" )   -- TEXT5146=The prints are a complete set. There is no match found in the AFIS system.
	end
	SetComputerSearchResult( "", false )
	if not IsEventDone( EVPhotoAlbumPrintsAnalyzed ) then
		PlayDialog( nil, "M6_CATH_54")
	end

end

AddComputerEvent( EVPhotoAlbumPrintsAnalyzed, true, nil, ETSmudgePrint, nil, "comp_photoalb_prints_search" )




-- 11.2.3 Compare the Newspaper Print and Photo Album Prints
function lab_newsp_photo_prints_comp()
	SetComputerMatchResult( nil )
	if not IsEventDone( EVCompMatch2 ) then
		PlayDialog( nil, "M6_CATH_55")
	end
end

AddComputerEvent( EVCompMatch2, false, ETNewsPrints, ETSmudgePrint, nil, "lab_newsp_photo_prints_comp" )


-- 11.2.4 Drag the Analyzed Newspaper over the comp
--function lab_newsp_analyzed_comp_condition()
--	return IsEventDone( EVLabNewspAnalyzed )
--end

function lab_newsp_analyzed_comp()
	if not IsEventDone( EVCompNews ) then
		AddEvidenceDescriptionText( EDNewsVirtual, "TEXT5274", true )
	end
	SetComputerSearchResult( "", true, EDNewsVirtual )

	if not IsEventDone( EVCompNews ) then
		PlayDialog( nil, "M6_CATH_56")
		AddEvidenceDescriptionText( EDNews, "TEXT5098" )   -- TEXT5098=Original article dealt with Sophia Benedetti being arrested on drug possession charges.
	end
end

AddComputerEvent( EVCompNews, true, nil, EDNews, nil, "lab_newsp_analyzed_comp" )



-- 11.3 Reenactment after 4.2.4 + 11.1.5 + 4.1.2

function grissom_abducted()
	PlayDialog( nil, "M6_CATH_57")
	PlayDialog( nil, "M6_GREG_21")
	PlayDialog( nil, "M6_CATH_58")
	PlayReenactment( "Art\\Reenactments\\Movie\\reenact2.xmv", "Art\\Reenactments\\Pictures\\reenact2.tga", "TEXT5328", nil, "REENACT2" )
	PlayDialog( Katy, "M6_CATH_61")
	PlayDialog( Greg, "M6_GREG_22")
	PlayDialog( Katy, "M6_CATH_62")
end

AddEvent( EVGrissomAbducted, false, EVGrissomAbducted, nil, nil, "grissom_abducted" )


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


function lab_ligatureupdate()
	AddEvidenceDescriptionText( EIStrangleSheet, "TEXT5110" )   -- TEXT5110=Analysis revealed traces of calcium gluconate gel and aloe vera.
end

AddEvent( EVLigatureUpdate, false, EVLigatureUpdate, Greg, nil, "lab_ligatureupdate" )


-- 13.1.1 Drag the Ligature over Greg ( after 11.1.2 ) 

function lab_ligatureA_condition()
	return IsEventDone( EVSwabStainAnalyzedBefore ) or IsEventDone ( EVSwabStainAnalyzedAfter )
end

function lab_ligatureA()
	if not IsEventDone( EVLigatureAfter ) then
		PlayDialog( Greg, "M6_GREG_23")
		PlayDialog( Katy, "M6_CATH_63")
		if not IsEventDone( EVLigatureBefore ) then
			NewEvent( EVLigatureUpdate, Greg )
		end

		if IsEventDone ( EVWindowSwabAnalyzed ) and not IsEventDone ( EVLigatureBefore ) then
			NewEvent( EVLEdaKilledKylie, nil )
		end
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLigatureAfter, true, EIStrangleSheet, Greg, "lab_ligatureA_condition", "lab_ligatureA" )


-- 13.1.2 Drag the Ligature over Greg ( before 11.1.2 )

function lab_ligatureB_condition()
	return not IsEventDone( EVSwabStainAnalyzedBefore )
end

function lab_ligatureB()
	if not IsEventDone( EVLigatureBefore ) then
		PlayDialog( Greg, "M6_GREG_24")
		PlayDialog( Katy, "M6_CATH_64")		
		if not IsEventDone( EVLigatureAfter ) then
			NewEvent( EVLigatureUpdate, Greg )
		end

		if IsEventDone ( EVWindowSwabAnalyzed ) then
			NewEvent( EVLEdaKilledKylie, nil )
		end
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLigatureBefore, true, EIStrangleSheet, Greg, "lab_ligatureB_condition", "lab_ligatureB" )


-- 13.1.3 Drag the Money over Greg

function lab_money()
	if not IsEventDone( EVLabMoney ) then
		PlayDialog( Greg, "M6_GREG_25")
		AddEvidenceDescriptionText( EIMoneyKylie, "TEXT5128" )   -- TEXT5128=There appears to be nothing special about the money.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabMoney, true, EIMoneyKylie, Greg, nil, "lab_money" )


-- 13.1.4 Drag the SophiaChips over Greg ( before 11.1.10 )

function lab_sophiachips_conditionA()
	return not IsEventDone( EVCasinoChipsAnalyzed )
end

function lab_sophiachipsA()
	if not IsEventDone( EVCasinoChipsAnalyzed ) then
		PlayDialog( Greg, "M6_GREG_26")
		AddEvidenceDescriptionText( EIChipSophia, "TEXT5074" )   -- TEXT5074=There is nothing special about the casino chips.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVCasinoChipsAnalyzed, true, EIChipSophia, Greg, "lab_sophiachips_conditionA", "lab_sophiachipsA" )


-- 13.1.5 Drag the SophiaChips over Greg ( after 11.1.10 )

function lab_sophiachips_conditionB()
	return IsEventDone( EVCasinoChipsAnalyzed )
end

function lab_sophiachipsB()
	if not IsEventDone( EVLabSophiaChipsAfter ) then
		PlayDialog( Greg, "M6_GREG_27")
		AddEvidenceDescriptionText( EIChipSophia, "TEXT5075" )   -- TEXT5075=They're the same kind of chips as those found in Sophia's mouth.
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabSophiaChipsAfter, true, EIChipSophia, Greg, "lab_sophiachips_conditionB", "lab_sophiachipsB" )


---------------------------------------------------------------------------------------------------------------------------
function lab_medbottle_show()
	if not IsEventDone( EVLabMedbottlePrints ) then
		SendEvidenceToComputer( ETMedPrints )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVLabMedbottlePrints, true, ETMedPrints, Greg, nil, "lab_medbottle_show" )

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

AddComputerEvent( nil, true, nil, ETMedPrints, nil, "comp_medbottle_search" )

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


-- 13.2.1 Compare Medicine Bottle Prints and Photo Album Fingerprints on comp
function lab_medbottle()
	if not IsEventDone( EVMedPrintsPhoto ) then
		AddEvidenceDescriptionText(  ETMedPrints, "TEXT5118" )   -- TEXT5118=Matches prints found in photo album from Leda's apartment.
		AddEvidenceDescriptionText(  ETSmudgePrint, "TEXT5147" )   -- TEXT5147=Matches prints found on medicine bottle in Kylie's apartment.
	end
	SetComputerMatchResult( ETSmudgePrint )

	if not IsEventDone( EVMedPrintsPhoto ) then
		PlayDialog( nil, "M6_CATH_65")
		UpdateCaseFile( Leda, SUSPECT_VICTIM, "TEXT5221", 300 )   -- TEXT5221=Prints likely to be hers were found on the medicine bottle in Kylie's apartment.
	end
end

AddComputerEvent( EVMedPrintsPhoto, true,  ETSmudgePrint, ETMedPrints, nil, "lab_medbottle" )


-- 13.2.2 Compare Medicine Bottle Prints and Newspaper Fingerprints on comp
function lab_medbottle2()
	SetComputerMatchResult( ETMedPrints )
	if not IsEventDone( EVCompMatch3 ) then
		PlayDialog( nil, "M6_CATH_124")
	end
end

AddComputerEvent( EVCompMatch3, true,  ETMedPrints, ETNewsPrints, nil, "lab_medbottle2" )


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

-- 16.1 Drag the Window Lotion Swab over Greg

function lab_window_swab()
	if not IsEventDone( EVWindowSwabAnalyzed ) then
		PlayDialog( Greg, "M6_GREG_28")
		PlayDialog( Katy, "M6_CATH_73")
		AddEvidenceDescriptionText(  ETWindowSmudge, "TEXT5134" )   -- TEXT5134=Contains calcium gluconate and aloe vera.
		UpdateCaseFile( Leda, SUSPECT_CRIMESCENE, "TEXT5238",300 )   -- TEXT5238=Was outside on the fire escape of the Hotel where Kylie was killed.
		if IsEventDone ( EVLigatureBefore ) or IsEventDone ( EVLigatureAfter ) then
			NewEvent( EVLEdaKilledKylie, nil )
		end
	else
		send_to_greg_again ()
	end
end

AddEvent( EVWindowSwabAnalyzed, true,  ETWindowSmudge, Greg, nil, "lab_window_swab" )


-- 16.2 Reenactment after 13.1.1 and 16.1

function leda_killed_kylie()
	PlayDialog( nil, "M6_CATH_74")
	PlayReenactment( "Art\\Reenactments\\Movie\\reenact4.xmv", "Art\\Reenactments\\Pictures\\reenact4.tga", "TEXT5329", nil, "M6_CATH_75", "REENACT4" )
	PlayDialog( Katy, "M6_CATH_79")
	AddEvidenceDescriptionText(  ETWindowSmudge, "TEXT5135" )   -- TEXT5135=Matches the substance found in the ligature.
	if not IsQuestionAsked( Leda, "TEXT5281" ) then
		PlayDialog( nil, "M6_CATH_80")
	end
	if IsQuestionAsked( Leda, "TEXT5285" ) then
		PlayDialog( nil, "M6_CATH_81")
	end
end

AddEvent( EVLEdaKilledKylie, false, EVLEdaKilledKylie, nil, nil, "leda_killed_kylie" )


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

-- 19.1.1 Search the Calendar Printout on the comp
function lab_calendar_show()
	if not IsEventDone( EVLabCalendarShow ) then
		SendEvidenceToComputer( EDCalendar )
	else
		send_to_greg_again ()
	end
end
AddEvent( EVLabCalendarShow, true,  EDCalendar, Greg, nil, "lab_calendar_show" )


--function lab_calendar_cond()
--	return IsEventDone( EVLabCalendarShow )
--end

function lab_calendar()
	if not IsEventDone( EVLabCalendar ) then
		AddEvidenceDescriptionText(  EDCalendar, "TEXT5158" )
	end
	SetComputerSearchResult( "", false )

	if not IsEventDone( EVLabCalendar ) then
		PlayDialog( nil, "M6_CATH_90")
	end
end

AddComputerEvent( EVLabCalendar, true,  nil, EDCalendar, nil, "lab_calendar" ) 


--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
-- HINTS
--------------------------------------------------------------------------------------

function lab_katy_hints()
	if not DisplayQuestionList( Katy ) then
		PlayDialog( Katy, "M1_CAT_1214" )
	end
end

AddEvent( nil,true, nil, MainLabKaty, nil, "lab_katy_hints" )

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