--------------- tire



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

--AddComputerEvent(nil, true, nil, ETConstructionTireTread, nil, "search_tire")

function match_tire_false()
	SetComputerMatchResult(nil)
	mot_a_match ()
end
AddComputerEvent(nil, true, nil, COMPUTER_DEFAULT_MATCH_EVENT, nil, "match_tire_false")


function match_false()
	SetComputerSearchResult("", false)
end
AddComputerEvent(nil, true, nil, COMPUTER_DEFAULT_SEARCH_EVENT, nil, "match_false")

function match_micro_false()
	SetMicroscopeMatchResult(nil)
	mot_a_match1 ()
end
AddMicroscopeEvent(nil, true, nil, MICROSCOPE_DEFAULT_MATCH_EVENT, nil, "match_micro_false")

function mot_a_match ()
		T = Random (3)
	if T == 1 then
		PlayDialog (nil, "M3_SARA_2451")
	end
	if T == 2 then
		PlayDialog (nil, "M3_SARA_2450")
	end
	if T == 3 then
		PlayDialog (nil, "M3_SARA_2449")
	end
end

function mot_a_match1 ()
		T = Random (3)
	
	if T == 1 then
		PlayDialog (nil, "M3_SARA_2452")
	end
	if T == 2 then
		PlayDialog (nil, "M3_SARA_2453")
	end
	if T == 3 then
		PlayDialog (nil, "M3_SARA_2454")
	end

end









----------------------------------
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_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_tire ()
		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_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


-- Main laboratory Office
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

end

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

-------------------------------------------------------------------------
-- 5.1

function laboratory_arrowhead()
	if not IsEventDone (EVGregArrowhead) then
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2155")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2156")
	ChangeRoom( MainlabDefaultRoom )
	AddEvidenceDescriptionText(EIArrowhead, "_TB_E4880")
	else
		send_to_greg_again ()
	end
end

AddEvent( EVGregArrowhead, true, EIArrowhead, Greg, nil, "laboratory_arrowhead" )

-- 5.12

function laboratory_skull_glass()
	if not IsEventDone (EVGregSkullGlass) then
	PlayDialog(Greg, "M3_GREG_2157")
	SendEvidenceToMicroscope(EISkullGlass)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregSkullGlass, true, EISkullGlass, Greg, nil, "laboratory_skull_glass" )

function microscope_skull_glass()

-- 6.2
	if not IsEventDone (EVMicroscopeSkullGlass) then
	PlayDialog(Sara, "M3_SARA_2165")
	PlayDialog(Sara, "M3_SARA_2660")
	AddEvidenceDescriptionText(EISkullGlass, "_TB_E4389")
	end
end

AddMicroscopeEvent(EVMicroscopeSkullGlass, true, nil, EISkullGlass, nil, "microscope_skull_glass")


-- 5.13

function laboratory_victim_fiber()
	if not IsEventDone (EVGregVictimFiber) then
	PlayDialog(Greg, "M3_GREG_2158")
	SendEvidenceToMicroscope(ETVictimDirtyFiber)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregVictimFiber, true, ETVictimDirtyFiber, Greg, nil, "laboratory_victim_fiber" )


function microscope_victim_fiber()
-- 6.1	
	
	
	if not IsEventDone (EVMicroscopeVictimFiber) then
	
	PlayDialog(Sara, "M3_SARA_2164")	
	AddEvidenceDescriptionText(ETVictimDirtyFiber, "_TB_E4390")

	end
end

AddMicroscopeEvent(EVMicroscopeVictimFiber, true, nil, ETVictimDirtyFiber, nil, "microscope_victim_fiber")



-- 5.14

function laboratory_soil()
	if not IsEventDone (EVGregSoil) then
	PlayDialog(Greg, "M3_GREG_2159")
PlayReenactment( "Art\\Reenactments\\Movie\\rcns_decompose01a.xmv", "Art\\Reenactments\\Pictures\\rcns_decompose01a.tga", "_TB_Z2918", nil, "M3_GREG_2160" )	
	PlayDialog(Greg, "M3_GREG_2161")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2162")
	ChangeRoom( MainlabDefaultRoom )
	UpdateCaseFile(Skeleton, VICTIM_CRIMESCENE, "_TB_E4881")
	AddEvidenceDescriptionText(ETConstructionSiteSoil, "_TB_E4882")
	else
		send_to_greg_again ()
	end


end

AddEvent( EVGregSoil, true, ETConstructionSiteSoil, Greg, nil, "laboratory_soil" )

-- 5.155

function laboratory_xray()
	if not IsEventDone (EVGregXray) then
	PlayDialog(Greg, "M3_GREG_2163")
	SendEvidenceToComputer(EDXRay)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregXray, true, EDXRay, Greg, nil, "laboratory_xray" )


function computer_xray_cond ()
	return not IsEventDone (EVGregSoil) and not IsEventDone (EVMicroscopeSkullGlass)
end

	-- 7.2
function computer_xray()
	if not IsEventDone (EVCompXrayFalse1) then
	AddEvidenceDescriptionText (EDXRay1, "_TB_B340" , true)
	end

	SetComputerSearchResult("", true, EDXRay1)
	
	if not IsEventDone (EVCompXrayFalse1) then
		PlayDialog(Sara, "M3_SARA_2168")
		PlayDialog(Sara, "M3_SARA_2661")
	end
end

AddComputerEvent( EVCompXrayFalse1, true, nil, EDXRay,"computer_xray_cond", "computer_xray"  )

function computer_xray_cond2()
	return ( IsEventDone (EVGregSoil) and not IsEventDone (EVMicroscopeSkullGlass)) 
end

function computer_xray2()
	if not IsEventDone (EVCompXrayFalse2) then
	AddEvidenceDescriptionText (EDXRay2, "_TB_B341" , true)
	end

	SetComputerSearchResult("", true, EDXRay2 )
	if not IsEventDone (EVCompXrayFalse2) then
	PlayDialog(Sara, "M3_SARA_2170")
	end
end

AddComputerEvent( EVCompXrayFalse2, true, nil, EDXRay, "computer_xray_cond2", "computer_xray2"  )

function computer_xray_cond3()
	return (not IsEventDone (EVGregSoil) and IsEventDone (EVMicroscopeSkullGlass)) 
end

function computer_xray3()
	if not IsEventDone (EVCompXrayFalse3) then
	AddEvidenceDescriptionText (EDXRay2, "_TB_B341" , true)
	end

	SetComputerSearchResult("", true, EDXRay2)
	if not IsEventDone (EVCompXrayFalse3) then
		PlayDialog(Sara, "M3_SARA_2172")
	end
end

AddComputerEvent( EVCompXrayFalse3, true, nil, EDXRay, "computer_xray_cond3", "computer_xray3"  )

function computer_xray_cond4()
	return (IsEventDone (EVGregSoil) and IsEventDone (EVMicroscopeSkullGlass)) 
end
function computer_xray4()
	if not IsEventDone (EVCompXrayTrue) then
		AddEvidenceDescriptionText (EDXRay3, "_TB_B343", true)
	end

	SetComputerSearchResult("", true, EDXRay3)
	if not IsEventDone (EVCompXrayTrue) then
	PlayDialog(Sara, "M3_SARA_2174")
	UpdateCaseFile(Skeleton, INFORMATION, "_TB_E4832")
	AddEvidenceDescriptionText(EDXRay, "_TB_E4834")
	AddEvidenceDescriptionText(EDXRay, "_TB_E4841")
	SetCharacterName(Skeleton, "Freddy Sloan")
	end
end

AddComputerEvent( EVCompXrayTrue, true, nil, EDXRay,"computer_xray_cond4", "computer_xray4"  )


-- 5.6 Dried Tire to Greg

function laboratory_dried_tire()
	if not IsEventDone (EVGregDriedTire) then
	SendEvidenceToComputer(ETConstructionTireTread)
	send_to_comp_tire()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregDriedTire, true, ETConstructionTireTread, Greg, nil, "laboratory_dried_tire" )

function match_tire_site_false()
	SetComputerSearchResult("", false)
	if not IsEventDone(EVNoFindTireSite) then
		PlayDialog( nil, "M3_SARA_2166")
	end
end
AddComputerEvent(EVNoFindTireSite, true, nil, ETConstructionTireTread, nil, "match_tire_site_false")


-- 5.7

function laboratory_victim_dna()
	if not IsEventDone(EVGregVictimDna) then
	SendEvidenceToComputer(ETMorgueVictimDNA)
	send_to_comp_dna ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregVictimDna, true, ETMorgueVictimDNA, Greg, nil, "laboratory_victim_dna" )


AddComputerEvent(nil, true, nil, ETMorgueVictimDNA, nil, "search_tire")


-- 12.0

function laboratory_psychic_fiber()
		if not IsEventDone(EVGregPsychicFiber) then
		PlayDialog(Greg, "M3_GREG_2228")
		SendEvidenceToMicroscope(ETPsychicParlorCarpetFiber)
		else
		send_to_greg_again ()
		end

end

AddEvent( EVGregPsychicFiber, true, ETPsychicParlorCarpetFiber, Greg, nil, "laboratory_psychic_fiber" )

-- 18.1

function laboratory_axe()
	if not IsEventDone(EVGregAxe) then
	PlayDialog(Greg, "M3_GREG_2254")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2255")
	ChangeRoom( MainlabDefaultRoom )
	AddEvidenceDescriptionText(EIHandAxe, "_TB_E4885")
	UpdateCaseFile(Adam, INFORMATION, "_TB_E4883")
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregAxe, true, EIHandAxe, Greg, nil, "laboratory_axe" )

-- 18.2

function laboratory_rejection_letter()
	if not IsEventDone(EVGregRejectionLetter) then
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2256")
	ChangeRoom( MainlabDefaultRoom )
	SendEvidenceToComputer(EDRejectionLetter)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregRejectionLetter, true, EDRejectionLetter, Greg, nil, "laboratory_rejection_letter" )

function computer_rejection_letter()
	if not IsEventDone (EVComputerRejectionLetter) then
		AddEvidenceDescriptionText (EDRejectionLetter1, "_TB_B359" , true)
	end

	SetComputerSearchResult("", true, EDRejectionLetter1)
	if not IsEventDone (EVComputerRejectionLetter) then

	PlayDialog(nil, "M3_SARA_2264")
	PlayDialog(nil, "M3_SARA_2621")
	PlayDialog(nil, "M3_SARA_2620")
	AddEvidenceDescriptionText(EDRejectionLetter, "_TB_E4876")
	
	end
end

AddComputerEvent( EVComputerRejectionLetter, true, nil, EDRejectionLetter, nil, "computer_rejection_letter" )

-- 18.3 

function laboratory_statue()
	if not IsEventDone (EVGregStatue) then
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2257")
	ChangeRoom( MainlabDefaultRoom )
	PlayDialog(Sara, "M3_SARA_2258")
	PlayDialog(Greg, "M3_GREG_2259")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2260")
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2261")
	ChangeRoom( MainlabDefaultRoom )
	SendEvidenceToComputer(EIStatue)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregStatue, true, EIStatue, Greg, nil, "laboratory_statue" )

AddComputerEvent(nil, true, nil, EIStatue, nil, "search_tire")

-- 18.5

function laboratory_data_tape()
	if not IsEventDone (EVGregDataTape) then
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2262")
	ChangeRoom( MainlabDefaultRoom )
	PlayDialog(Greg, "M3_GREG_2619")
	SendEvidenceToComputer(EIDatatape)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregDataTape, true, EIDatatape, Greg, nil, "laboratory_data_tape" )

-- data tape catre PC

function computer_data_tape()
	if not IsEventDone (EVComputerDataTape) then
		AddEvidenceDescriptionText (EIDatatape1, "_TB_B358" , true)
	end
	SetComputerSearchResult("", true, EIDatatape1)
	if not IsEventDone (EVComputerDataTape) then
	PlayDialog(nil, "M3_SARA_2265")
	PlayDialog(nil, "M3_SARA_2687")
	PlayDialog(Greg, "M3_GREG_2266")
	AddEvidenceDescriptionText(EIDatatape, "_TB_E4879")
	AddEvidence(EDReportPhoto)
	AddEvidenceDescriptionText(EDReportPhoto, "_TB_E3763")
	SendEvidenceToMicroscope(EDReportPhoto)	
	end
end

AddComputerEvent( EVComputerDataTape, true, nil, EIDatatape, nil, "computer_data_tape" )

-- photo catre Greg 

AddEvent( nil, true, EDReportPhoto, Greg, nil, "send_to_greg_again" )

-- photo catre PC
function computer_photo_cond()
	return (IsEventDone(EVComputerDataTape)and not IsQuestionAsked(John, "_TB_Q983") and not HasEvidence(EIWatch))
end

function computer_photo()
	if not IsEventDone (EVLookPhoto1) then
		AddEvidenceDescriptionText(EDReportPhoto, "_TB_E5148")
	end
end


AddMicroscopeEvent(EVLookPhoto1, true, nil, EDReportPhoto, "computer_photo_cond",  "computer_photo")



function computer_photo_cond2()
	return (IsEventDone(EVComputerDataTape)and IsQuestionAsked(John, "_TB_Q983") and not HasEvidence(EIWatch))
end

function computer_photo2()
	if not IsEventDone (EVLookPhoto2 ) then
		PlayDialog (Sara, "M3_SARA_2267")
	end
end


AddMicroscopeEvent(EVLookPhoto2, true, nil, EDReportPhoto, "computer_photo_cond2",  "computer_photo2")





function computer_photo_cond3()
	return (IsEventDone(EVComputerDataTape)and IsQuestionAsked(John, "_TB_Q983") and HasEvidence(EIWatch))
end

function computer_photo3()
	if not IsEventDone (EVMicroscopPhoto) then	
		PlayDialog (Sara, "M3_SARA_2316")
		ShowMicrofilm ("mf\\reportphoto_microFilm")
		UpdateCaseFile(John, SUSPECT_CRIMESCENE, "_TB_E4875", 200)
		PlayDialog (Sara, "M3_SARA_2317")
		AddEvidenceDescriptionText(EDReportPhoto, "_TB_E4874")
		AddEvidenceDescriptionText(EIWatch, "_TB_E5359")
	end

end

AddMicroscopeEvent(EVMicroscopPhoto, true, nil, EDReportPhoto, "computer_photo_cond3",  "computer_photo3")

-- 23.10

function laboratory_adam_dna()
	if not IsEventDone (EVGregAdamDNA) then
	SendEvidenceToComputer(ETAdamDNA)
	send_to_comp_dna ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregAdamDNA, true, ETAdamDNA, Greg, nil, "laboratory_adam_dna" )

AddComputerEvent(nil, true, nil, ETAdamDNA, nil, "search_tire")


-- Adam ADN catre PC

function match_Dna_statue()
	if not IsEventDone (EVComputerAdamDna) then
		AddEvidenceDescriptionText(ETAdamDNA1, "_TB_B363" , true)
	end
	SetComputerMatchResult(ETAdamDNA1)
	if not IsEventDone (EVComputerAdamDna) then
	PlayDialog(nil, "M3_SARA_2292")
	AddEvidenceDescriptionText(ETAdamDNA, "_TB_E4444")
	AddEvidenceDescriptionText(EIStatue, "_TB_E4877")
	end
end
AddComputerEvent(EVComputerAdamDna, true,ETAdamDNA ,EIStatue , nil, "match_Dna_statue")



-- 26.10

-- fara lighter fluid si fara uv

function laboratory_bat1_cond()
	return not IsEventDone (EVBurnedBat) and 	not IsEventDone (EVBurnedBat1) and 	not IsEventDone (EVBurnedBat2) 
end

function laboratory_bat1()
	if not IsEventDone (EVLookBatFirst) then
	PlayDialog(Greg, "M3_GREG_2303")
	else
		send_to_greg_again ()
	end

end

AddEvent( EVLookBatFirst, true, EIBaseballBat, Greg, "laboratory_bat1_cond", "laboratory_bat1" )

-- dupa uv si fara lighter fluid

function laboratory_bat2_cond()
	return (IsEventDone (EVBurnedBat) or IsEventDone (EVBurnedBat1) or IsEventDone (EVBurnedBat2)) and not IsEventDone (EVSawLighterFluid) 
end



function laboratory_bat2()
	if not IsEventDone (EVGregBat) then
	PlayDialog(Greg, "M3_GREG_2303")
	PlayDialog(Greg, "M3_GREG_2304")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2305")
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2306")
	ChangeRoom( MainlabCSICloseup1 )
	

	PlayDialog(Sara, "M3_SARA_2307")

	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_bonfire.xmv", "Art\\Reenactments\\Pictures\\rnct_bonfire.tga", "_TB_Z2915", nil, "M3_SARA_2308" )
	PlayDialog(Sara, "M3_SARA_2309")
	ChangeRoom( MainlabDefaultRoom )
	AddEvidenceDescriptionText(EIBaseballBat, "_TB_E4887")
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregBat, true, EIBaseballBat, Greg, "laboratory_bat2_cond", "laboratory_bat2" )

-- dupa uv si lighter fluid
function laboratory_bat3_cond()
	return (IsEventDone (EVBurnedBat) or IsEventDone (EVBurnedBat1) or IsEventDone (EVBurnedBat2)) and IsEventDone (EVSawLighterFluid) and not IsEventDone (EVGregBat) 	
end



function laboratory_bat3()
	if not IsEventDone (EVGregBat) then
	PlayDialog(Greg, "M3_GREG_2303")
	PlayDialog(Greg, "M3_GREG_2304")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2305")
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2306")
	ChangeRoom( MainlabCSICloseup1 )
	

--	PlayDialog(Sara, "M3_SARA_2307")

	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_bonfire.xmv", "Art\\Reenactments\\Pictures\\rnct_bonfire.tga", "_TB_Z2915", nil, "M3_SARA_2307" )

	ChangeRoom( MainlabDefaultRoom )
	PlayDialog(Greg, "M3_GREG_2310")
	PlayDialog(Sara, "M3_SARA_2311")
	ChangeRoom( MainlabGregCloseup1 )
	PlayDialog(Greg, "M3_GREG_2312")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2313")
	ChangeRoom( MainlabDefaultRoom )
	AddEvidenceDescriptionText(EIBaseballBat, "_TB_E4887")
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregBat, true, EIBaseballBat, Greg, "laboratory_bat3_cond", "laboratory_bat3" )
-- 26.5


function laboratory_bat_glass()
	if not IsEventDone (EVGregBatGlass) then
	PlayDialog(Greg, "M3_GREG_2314")
	SendEvidenceToMicroscope(EISpeckGlass)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregBatGlass, true, EISpeckGlass, Greg, nil, "laboratory_bat_glass" )


function microscope_bat_glass()

	if not IsEventDone (EVLookBatGlass) then
	PlayDialog(nil, "M3_SARA_2318")
	AddEvidenceDescriptionText(EISpeckGlass, "_TB_E3847")
	end
end

AddMicroscopeEvent(EVLookBatGlass, true, nil, EISpeckGlass, nil, "microscope_bat_glass")



function match_micro_true1()
	if not IsEventDone (EVMicroscopeBatGlass) then
		AddEvidenceDescriptionText(EISkullGlass1, "_TB_B371" , true)
	end
	SetMicroscopeMatchResult(EISkullGlass1)
	if not IsEventDone (EVMicroscopeBatGlass) then
	
	PlayDialog(nil, "M3_SARA_2319")
	AddEvidenceDescriptionText(EISkullGlass, "_TB_E3849")
	AddEvidenceDescriptionText(EISpeckGlass, "_TB_E3850")

	end
end
AddMicroscopeEvent(EVMicroscopeBatGlass, true, EISkullGlass, EISpeckGlass, nil, "match_micro_true1")


-- 26.6

function laboratory_watch()
	if not IsEventDone (EVGregWatch) then
	PlayDialog(Greg, "M3_GREG_2315")
	AddEvidenceDescriptionText(EIWatch, "_TB_E3839")
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregWatch, true, EIWatch, Greg, nil, "laboratory_watch" )

-- 30.999
function laboratory_old_carpet_fiber()
	if not IsEventDone (EVGregOldCarpet) then
	SendEvidenceToMicroscope(ETTrailerOldCarpetFiber)
	send_to_microscope ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregOldCarpet, true, ETTrailerOldCarpetFiber, Greg, nil, "laboratory_old_carpet_fiber" )

-- 31.1

function laboratory_new_carpet_fiber()
	if not IsEventDone (EVGregNewCarpet) then
	SendEvidenceToMicroscope(ETTrailerNewCarpetFiber)
	send_to_microscope ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregNewCarpet, true, ETTrailerNewCarpetFiber, Greg, nil, "laboratory_new_carpet_fiber" )

-- 31.2

function laboratory_blood_wall()
	if not IsEventDone (EVGregBloodWall) then
	PlayDialog(Greg, "M3_GREG_2351")
	SendEvidenceToComputer(ETTrailerWallBlood)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregBloodWall, true, ETTrailerWallBlood, Greg, nil, "laboratory_blood_wall" )

AddComputerEvent(nil, true, nil, ETTrailerWallBlood, nil, "search_tire")



-- 31.3

function laboratory_shovel()
	if not IsEventDone (EVGregShovelBlood) then
	PlayDialog(Greg, "M3_GREG_2352")
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregShovelBlood, true, ETShovelBlood, Greg, nil, "laboratory_shovel" )

-- 31.4

function laboratory_egg_yolk()
	if not IsEventDone (EVGregYolk) then
	PlayDialog(Greg, "M3_GREG_2353")
	ChangeRoom( MainlabDefaultRoom )
	SetActive(HDigSiteNestEstab, true)
	else
		send_to_greg_again ()
	end
end

AddEvent( EVGregYolk, true, ETTrailerRoofDriedSubst, Greg, nil, "laboratory_egg_yolk" )

-- 31.5

function laboratory_office_tire()
	if not IsEventDone (EVGregOfficeTire) then
	SendEvidenceToComputer(ETTrailerOfficeTread)
	send_to_comp_tire ()
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregOfficeTire, true, ETTrailerOfficeTread, Greg, nil, "laboratory_office_tire" )

AddComputerEvent(nil, true, nil, ETTrailerOfficeTread, nil, "search_tire")

function match_tire()
	if not IsEventDone (EVFindTreadOfficeTrailer) then
		AddEvidenceDescriptionText(ETTrailerOfficeTread1, "_TB_B382", true)
	end
	SetComputerMatchResult(ETTrailerOfficeTread1)
	if not IsEventDone (EVFindTreadOfficeTrailer) then
		AddEvidenceDescriptionText(ETTrailerOfficeTread, "_TB_E4846")
	end

end
AddComputerEvent(EVFindTreadOfficeTrailer, true, OTireTread1, ETTrailerOfficeTread, nil, "match_tire")


-- 31.7

function laboratory_nest()
	if not IsEventDone (EVGregNest) then
	PlayDialog(Greg, "M3_GREG_2355")
	ChangeRoom( MainlabCSICloseup1 )
	PlayDialog(Sara, "M3_SARA_2354")
	ChangeRoom( MainlabDefaultRoom )
	AddEvidenceDescriptionText(EINest, "_TB_E4893")
	AddEvidenceDescriptionText(ETTrailerRoofDriedSubst, "_TB_E4894")
	else
		send_to_greg_again ()
	end


end

AddEvent( EVGregNest, true, EINest, Greg, nil, "laboratory_nest" )

-- 32.1

function microscope_fiber()
	if not IsEventDone (EVMicroscopeFiber) then
		AddEvidenceDescriptionText(ETVictimDirtyFiber1, "_TB_B380", true)
	end


	SetMicroscopeMatchResult(ETVictimDirtyFiber1)
	if not IsEventDone (EVMicroscopeFiber) then

	PlayDialog(nil, "M3_SARA_2357")
	AddEvidenceDescriptionText(ETTrailerOldCarpetFiber, "_TB_E3922")
	AddEvidenceDescriptionText(ETVictimDirtyFiber, "_TB_E3927")
	end
end
AddMicroscopeEvent(EVMicroscopeFiber, true, ETTrailerOldCarpetFiber, ETVictimDirtyFiber, nil, "microscope_fiber")


-- 33.1
function match_Dna_victim()
	if not IsEventDone (EVComputerAdn) then
		AddEvidenceDescriptionText(ETMorgueVictimDNA1, "_TB_B381", true)
	end
	SetComputerMatchResult(ETMorgueVictimDNA1)
	if not IsEventDone (EVComputerAdn) then
	PlayDialog(nil, "M3_SARA_2358")
	AddEvidenceDescriptionText(ETMorgueVictimDNA, "_TB_E3942")
	AddEvidenceDescriptionText(ETTrailerWallBlood, "_TB_E3941")
	end
end
AddComputerEvent(EVComputerAdn, true,ETTrailerWallBlood ,ETMorgueVictimDNA, nil, "match_Dna_victim")


-- 33.2

function match_tire_final()
	if not IsEventDone ( EVComputertire) then
		AddEvidenceDescriptionText(ETTrailerOfficeTread2, "_TB_B383", true)
	end
	SetComputerMatchResult(ETTrailerOfficeTread2)
	if not IsEventDone ( EVComputertire) then
	PlayDialog(nil, "M3_SARA_2359")
	AddEvidenceDescriptionText(ETConstructionTireTread, "_TB_E3930")
	AddEvidenceDescriptionText(ETTrailerOfficeTread, "_TB_E3931")
	end

end
AddComputerEvent(EVComputertire, true,ETConstructionTireTread ,ETTrailerOfficeTread , nil, "match_tire_final")

-- bat in pop-up

function lab_bat_end_uv()
	PlayDialog(nil, "M3_SARA_2301")
	SetActive (EHOTSPOT_baseballHandle1, false)
	SetActive (EHOTSPOT_baseballHandle, false)
end

AddEvent( EVBurnedBat2, false, uv, EHOTSPOT_baseballHandle, nil, "lab_bat_end_uv" )

-- lupa pe ciob
function zoom_to_head ()
	ZoomToRoom (MainlabBatHead)
end

AddEvent( nil, true, magnifier, EHOTSPOT_baseballHead, nil, "zoom_to_head" )

function lab_bat_glass_pick()
	PlayDialog(nil, "M3_SARA_2299")

	AddEvidence(EISpeckGlass)
	AddEvidenceDescriptionText(EISpeckGlass, "_TB_E3811")
	
	SetActive (EHOTSPOT_baseballHead, false)
	SetVisible(EOBJ_baseballBat_Glass, false)
	SetActive (EHOTSPOT_baseballBat_Glass, false)
	SetVisible(EOBJ_baseballBat_GlassH, false)
--	SetVisible(EOBJ_baseballBat_Head, false)

end

AddEvent( nil, false, tweezers, EHOTSPOT_baseballBat_Glass, nil, "lab_bat_glass_pick" )