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_micro_false()
	SetMicroscopeMatchResult(nil)
	mot_a_match1 ()
end
AddMicroscopeEvent(nil, true, nil, MICROSCOPE_DEFAULT_MATCH_EVENT, nil, "match_micro_false")

function match_false()
	SetComputerSearchResult("", false)
end
AddComputerEvent(nil, true, nil, COMPUTER_DEFAULT_SEARCH_EVENT, nil, "match_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_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


-- 5.1 

function laboratory_entry()
	ChangeRoom( MainLabRoom )
	FadeIn()
	if not IsEventDone(EVEnterLab)then

	PlayMovie( Greg, "greg_working.xmv", true)
--	PlayMovie( Greg, "greg_to_back.xmv" )

--	SetIdleMovie( Greg, "greg_back_idle.xmv" )
--	SetTalkMovie( Greg, "greg_back_talk.xmv" )
	ChangeRoom( MainLabRoom )
		
	PlayDialog(Sara,"M2_SARAHEXPO_08")
	PlayDialog(Greg,"M2_GREGEXPO_01")
	PlayDialog(Sara,"M2_SARAHEXPO_09")
	PlayDialog(Greg,"M2_GREGEXPO_02")
	else 

		if not HasEvidence(ERagHangar) or (IsEventDone (EVEnterLab2) and not HasEvidence (EGasShed)) or IsEventDone (EVEnterLab3) then
			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
	end
end 

AddEvent( EVEnterLab, true, nil, Laboratory, nil, "laboratory_entry" )
-- evidente pt care Greg nu are nimic de zis
AddEvent( nil, true, EPrintGray, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, EPrintStan, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, ENoteHangar, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, EBillHangar, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, ERapRitchie, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, ERapStan, Greg, nil, "send_to_greg_again" )
AddEvent( nil, true, EBottleShed, Greg, nil, "send_to_greg_again" )
-- 5.2.1

function lab_headspace_sample()
	if not IsEventDone (EVHeadspace) then
	PlayDialog( Greg, "M2_GREGINIT_02" )
	AddEvidenceDescriptionText(EHeadspaceSample, "TEXT2015")
	NewEvent( nil, EVLab1 )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVHeadspace, true, EHeadspaceSample, Greg, nil, "lab_headspace_sample" )

-- 5.2.2

function lab_burn_scrap()
	if not IsEventDone (EVGregBurntScrap) then
	PlayDialog( Greg, "M2_GREGINIT_07" )
	AddEvidenceDescriptionText(EScrapHouse, "TEXT2009")
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregBurntScrap, true, EScrapHouse, Greg, nil, "lab_burn_scrap" )

-- 5.2.3

function lab_lighter()
	if not IsEventDone (EVGregAntiqueLighter) then
	PlayDialog( Greg, "M2_GREGINIT_08" )
	AddEvidenceDescriptionText(ELighter, "TEXT2153")
	UpdateCaseFile(Jason, VICTIM_CRIMESCENE, "TEXT2237", 400)
	else
		send_to_greg_again ()
	end

end

AddEvent( EVGregAntiqueLighter, true, ELighter, Greg, nil, "lab_lighter" )

-- 5.2.4

function lab_rag_house()
	if not IsEventDone (EVRaghouse) then

	PlayDialog( Greg, "M2_GREGINIT_05" ) 
	AddEvidenceDescriptionText(ERagHouse, "TEXT2021")
	UpdateCaseFile(Jason, INFORMATION, "TEXT2234")
--	NewEvent( nil, EVLab1 )
	NewEvent( nil, EVLab2 )
	SendEvidenceToMicroscope(ERagHouse)
	else
		send_to_greg_again ()
	end
end

AddEvent( EVRaghouse, true, ERagHouse, Greg, nil, "lab_rag_house" )

-- 5.2.5

function lab_cloured_glass()
	if not IsEventDone (EVGlass) then

	PlayDialog( Greg, "M2_GREGINIT_04" )
	AddEvidenceDescriptionText(EBottleShard, "TEXT2051")
--	NewEvent( nil, EVLab1 )
	NewEvent( nil, EVLab2 )
	else
		send_to_greg_again ()
	end
end

AddEvent( EVGlass, true, EBottleShard, Greg, nil, "lab_cloured_glass" )

-- 5.3

function lab1_cond()
	return IsEventDone (EVRaghouse) and IsEventDone (EVGlass) and IsEventDone (EVHeadspace)
end
function lab1()
	PlayDialog( Greg, "M2_GREGINIT_13" )
end

AddEvent( EVLearnJet, false, nil, EVLab1 , "lab1_cond", "lab1" )

-- 5.4


function lab2_cond()
	return IsEventDone (EVRaghouse) and IsEventDone (EVGlass) 
end
function lab2()
--	PlayDialog( Greg, "M2_GREGINIT_14" )

PlayReenactment( "Art\\Reenactments\\Movie\\reenact2.xmv", "Art\\Reenactments\\Pictures\\reenact2.tga", "TEXT2342", nil, "REENACT2" )	

	UpdateCaseFile( Jason, INFORMATION, "TEXT2231")
	NewEvent( nil, EVLab1 )
end

AddEvent( nil, false, nil, EVLab2 , "lab2_cond", "lab2" )

-- 5.4.1

function lab_shard()
	if not IsEventDone (EVGregOursideGlass) then

	PlayDialog(Greg, "M2_GREGINIT_09")
	PlayDialog(Sara, "M2_SARAH_43")
	AddEvidenceDescriptionText(EShard, "TEXT2057")
	SendEvidenceToMicroscope(EShard)
	else
		send_to_greg_again ()
	end
end

AddEvent(EVGregOursideGlass, true, EShard, Greg, nil, "lab_shard")

function match_shard_true()
	SetMicroscopeMatchResult(EShard)
end
AddMicroscopeEvent(nil, true, OGlass5, EShard, nil, "match_shard_true")



-- 5.4.2

function lab_cast_outside()
	if not IsEventDone (EVGregPlaster) then
	PlayDialog(Greg, "M2_GREGINIT_10")
	AddEvidenceDescriptionText(EPlaster, "TEXT2063")
	SendEvidenceToComputer(EPlaster)
	else
		send_to_greg_again ()
	end
end

AddEvent(EVGregPlaster, true, EPlaster, Greg, nil, "lab_cast_outside")

-- 5.5.1

function lab_paper_print()
	if not IsEventDone (EVGegPaperPrint) then
	SendEvidenceToComputer(EDeskBurntNotePrint)
	else
		send_to_greg_again ()
	end

end

AddEvent(EVGegPaperPrint, true, EDeskBurntNotePrint, Greg, nil, "lab_paper_print")


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

AddComputerEvent(nil, true, nil, EDeskBurntNotePrint, nil, "search_burned_print")

function match_burned_print ()
	if not IsEventDone (EVPaperPrint) then
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2460" , true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2461", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2462", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2463", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2464", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2465", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2466", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2467", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2468", true )
		AddEvidenceDescriptionText(EDeskBurntNotePrint1, "TEXT2469", true )
	end
	SetComputerMatchResult(EDeskBurntNotePrint1)
	
	if not IsEventDone (EVPaperPrint) then
	
	AddEvidence(ERapRitchie)
	AddEvidenceDescriptionText(ERapRitchie, "TEXT2104")
	PlayDialog(Sara, "M2_SARAHINIT_04")
	AddEvidenceDescriptionText(EDeskBurntNotePrint, "TEXT2003")
		if not IsQuestionAsked (Jason, "TEXT2323") then
			AddSuspect(Richie, "James Ritchie", "Art\\Reenactments\\Pictures\\ritchie.tga")
		end
	UpdateCaseFile(Richie, SUSPECT_CRIMESCENE, "TEXT2291", 200)
	UpdateCaseFile(Richie, INFORMATION, "TEXT2288")
	end
end

AddComputerEvent(EVPaperPrint, true, OPrint7, EDeskBurntNotePrint, nil, "match_burned_print")

-- 5.6.1  It's not possible anymore

-- 9.1

function laboratory_entry2_cond()
	return HasEvidence(ERagHangar)
end


function laboratory_entry2()
	
	if not IsEventDone(EVEnterLab2)then
	PlayDialog(Greg,"M2_GREGENTER_03")
	PlayDialog(Sara,"M2_SARAHEXPO_11")
	end
end 

AddEvent( EVEnterLab2, false, nil, Laboratory, "laboratory_entry2_cond", "laboratory_entry2")

-- 9.1.1

function lab_hangar_rag()
	if not IsEventDone (EVRaghangar) then
	SendEvidenceToMicroscope (ERagHangar)
	else
		send_to_greg_again ()
	end
end

AddEvent(EVRaghangar, true, ERagHangar, Greg, nil, "lab_hangar_rag")


function match_micro_rag_true()
	SetMicroscopeMatchResult(ERagHangar)
	if not IsEventDone (EVCompRags) then
	AddEvidenceDescriptionText(ERagHangar, "TEXT2027")
	PlayDialog(Greg, "M2_GREGINIT_06")
	-- 13.4.2 microscop
	-- PlayDialog(Sara, "M2_SARAH_53")
	-- NewEvent(nil, EVMicroscopNailRag)
	UpdateCaseFile(JasonSuspect, SUSPECT_VICTIM, "TEXT2305", 100)
	UpdateCaseFile(JasonSuspect, SUSPECT_CRIMESCENE, "TEXT2306", 500)
	end
end
AddMicroscopeEvent(EVCompRags, true, ERagHouse, ERagHangar, nil, "match_micro_rag_true")



-- 13.1 


function laboratory_entry3_cond()
	return HasEvidence(EGasShed)
end


function laboratory_entry3()
	
	if not IsEventDone(EVEnterLab3)then
	PlayDialog(Greg,"M2_GREGENTER_04")
	end
end 

AddEvent( EVEnterLab3, false, nil, Laboratory, "laboratory_entry3_cond", "laboratory_entry3")


-- 13.1

function lab_shed_gas()
	if not IsEventDone (EVLabShedGas) then

	PlayDialog(Greg, "M2_GREGINIT_11")
	NewEvent(nil, EVMolotovMaterials)
	else
		send_to_greg_again ()
	end

end

AddEvent(EVLabShedGas, true, EGasShed, Greg, nil, "lab_shed_gas")

-- 13.1.2

function lab_thread_nail()
	if not IsEventDone (EVLabThreadNail) then
	PlayDialog(Greg, "M2_GREGINIT_12")
	AddEvidenceDescriptionText(ERagThread, "TEXT2159")
	SendEvidenceToMicroscope(ERagThread)
--	PlayDialog(Sara, "M2_SARAH_52")
--	NewEvent(nil, EVMicroscopNailRag)
	NewEvent(nil, EVMolotovMaterials)
	else
		send_to_greg_again ()
	end
end

AddEvent(EVLabThreadNail, true, ERagThread, Greg, nil, "lab_thread_nail")

function match_thread_true()
	SetMicroscopeMatchResult(ERagThread)
end
AddMicroscopeEvent(nil, true, OThread5, ERagThread, nil, "match_thread_true")



-- 13.2 


function materials_cond()
 return (IsEventDone(EVLabShedGas) and IsEventDone (EVLabThreadNail))
end

function materials()
	UpdateCaseFile(JasonSuspect, SUSPECT_CRIMESCENE, "TEXT2307", 200)
	AddEvidenceDescriptionText(EGasShed, "TEXT2045")
end

AddEvent(nil, false, nil, EVMolotovMaterials, "materials_cond", "materials")

-- 13.3.1

function lab_shed_print()
		if not IsEventDone (EVGregDoorPrint) then
		SendEvidenceToComputer(EPrintShed)
		else
			send_to_greg_again ()
		end
end

AddEvent(EVGregDoorPrint, true, EPrintShed, Greg, nil, "lab_shed_print")


function search_overlapping_print()
	SetComputerSearchResult("", true)
	if not IsEventDone (EVSearchOverlapp) then
	PlayDialog(Sara, "M2_SARAHINIT_05")
	AddEvidence(EPrintGray)
	AddEvidenceDescriptionText(EPrintGray, "TEXT2110")
	AddEvidence(EPrintStan)
	AddEvidenceDescriptionText(EPrintStan, "TEXT2110")
	SendEvidenceToComputer(EPrintGray)
	SendEvidenceToComputer(EPrintStan)
	end
end

AddComputerEvent(EVSearchOverlapp, true, nil, EPrintShed, nil, "search_overlapping_print")
-- 13.3.2 
function search_print_gray()
	SetComputerSearchResult("", true)
	
end

AddComputerEvent(nil, true, nil, EPrintGray, nil, "search_print_gray")

function match_print_gray ()
	if not IsEventDone (EVSearchGreg) then 
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2510", true )
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2511", true )
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2512", true )
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2513", true )
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2514", true )
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2515", true )
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2516", true )
		AddEvidenceDescriptionText(EPrintGray1, "TEXT2517", true )
	end

	SetComputerMatchResult(EPrintGray1)

	if not IsEventDone (EVSearchGreg) then 
	PlayDialog(Sara, "M2_SARAHINIT_06")
	AddEvidenceDescriptionText(EPrintGray, "TEXT2111")
	end
end
AddComputerEvent(EVSearchGreg, true, OPrint5, EPrintGray, nil, "match_print_gray")
-- 13.3.3
function search_print_stan()
	SetComputerSearchResult("", true)
	
end

AddComputerEvent(nil, true, nil, EPrintStan, nil, "search_print_stan")

function match_print_stan ()

	if not IsEventDone (EVPrinStanLab) then 
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2475", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2476", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2477", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2478", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2479", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2480", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2481", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2482", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2483", true )
		AddEvidenceDescriptionText(EPrintStan1, "TEXT2484", true )
	end
	SetComputerMatchResult(EPrintStan1)

	if not IsEventDone (EVPrinStanLab) then 
	PlayDialog(Sara, "M2_SARAHINIT_07")
	AddEvidence(ERapStan)
	AddEvidenceDescriptionText(EPrintStan, "TEXT2117")
	AddEvidenceDescriptionText(ERapStan, "TEXT2484")
	AddSuspect(Stan, "Stan Ginns", "Art\\Reenactments\\Pictures\\stan.tga")
	UpdateCaseFile(Stan, SUSPECT_VICTIM, "TEXT2265", 300)
	UpdateCaseFile(Stan, SUSPECT_VICTIM, "TEXT2266", 200)
	end
end

AddComputerEvent(EVPrinStanLab, true, OPrint6, EPrintStan, nil, "match_print_stan")

-- 13.3.4

function lab_small_shoe()
	if not IsEventDone (EVgregSmallShoe) then

	SendEvidenceToComputer(ESmallShoeCast)
	else
			send_to_greg_again ()
	end
end

AddEvent(EVgregSmallShoe, true, ESmallShoeCast, Greg, nil, "lab_small_shoe")

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

AddComputerEvent(nil, true, nil, ESmallShoeCast, nil, "search_shoe_small")


function match_small_shoe_true()
	if not IsEventDone (EVPrinSmallShoe) then 
		AddEvidenceDescriptionText(ESmallShoeCast1, "TEXT2491", true )
	end
	SetComputerMatchResult(ESmallShoeCast1)

	if not IsEventDone (EVPrinSmallShoe) then 
	PlayDialog(nil, "M2_SARAHINIT_08")
	AddEvidenceDescriptionText(ESmallShoeCast, "TEXT2491")
	end
end
AddComputerEvent(EVPrinSmallShoe, true, OSmallShoe5, ESmallShoeCast, nil, "match_small_shoe_true")


-- 13.3.5
function lab_large_shoe()
	if not IsEventDone (EVGregLargeShoe) then
		SendEvidenceToComputer(ELargeShoeCast)
	else
			send_to_greg_again ()
	end

end

AddEvent(EVGregLargeShoe, true, ELargeShoeCast, Greg, nil, "lab_large_shoe")

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

AddComputerEvent(nil, true, nil, ELargeShoeCast, nil, "search_shoe_large")


function match_large_shoe_true()
	if not IsEventDone (EVStanShoe) then 
		AddEvidenceDescriptionText(ELargeShoeCast, "TEXT2526")
	end
	SetComputerMatchResult(ELargeShoeCast)
	if not IsEventDone (EVStanShoe) then 
		PlayDialog(nil, "M2_SARAHINIT_09")
		
	end
end
AddComputerEvent(EVStanShoe, true, OLargeShoe5, ELargeShoeCast, nil, "match_large_shoe_true")


--13.4.2

function match_thread_true1()
	PlayDialog(Sara, "M2_SARAH_52")
end
AddMicroscopeEvent(nil, false, nil, ERagThread, nil, "match_thread_true1")



function match_rag_true1()
	PlayDialog(Sara, "M2_SARAH_53")
end
AddMicroscopeEvent(nil, false, nil, ERagHouse, nil, "match_rag_true1")

function match_thread_ragtrue()
	SetMicroscopeMatchResult(ERagThread)
	if not IsEventDone (EVMicroGreasyRag) then
		PlayDialog(Sara, "M2_SARAH_54")
	end
end
AddMicroscopeEvent(EVMicroGreasyRag, true, ERagHouse, ERagThread, nil, "match_thread_ragtrue")


function match_thread_ragtrue2()
	SetMicroscopeMatchResult(ERagThread)
	if not IsEventDone (EVMicroGreasyRag2) then
		PlayDialog(Sara, "M2_SARAH_54")
	end
end
AddMicroscopeEvent(EVMicroGreasyRag2, true, ERagHangar, ERagThread, nil, "match_thread_ragtrue2")