------------------------------------------------------------------------------------
-- Main laboratory Office
function fadein_laboratory()
	if not IsEventDone( EVLabEnter ) then
		ChangeRoom( MainlabDefaultRoom )	
		FadeIn()	
		PlayDialog( Greg, "m1_greg_1245" )
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "m1_greg_2643" )
		ChangeRoom( MainlabDefaultRoom )
	else
		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
	if IsEventDone ( EVPickCoffeeFingerprint )
		then SetActive ( EHOTSPOT_coffee_FPrint, false )
	end
	if IsEventDone ( EVZoomedSpring ) 
		then ChangeLink ( EHOTSPOT_Spring, nil )
	end
	if IsEventDone ( EVLookSpringTrailer )
		then ChangeLink ( EHOTSPOT_trailerSpring, nil )
	end
end

AddEvent( EVLabEnter, true, nil, Laboratory, nil, "fadein_laboratory" )
---------------------------------------------------
--DEFAULT-URI...

function comp_activate()
	ActivateComputer() 
end
AddEvent( nil, true, nil, LabComputerHotspot, nil, "comp_activate" )
---------------------------------------------------
function micro_activate()
	ActivateMicroscope() 
end
AddEvent( nil, true, nil, LabMicroscopeHotspot, nil, "micro_activate" )
---------------------------------------------------
function send_to_comp_fingerprint ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1249")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1250")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1251")
	end

end

function send_to_comp_dna ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1252")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1253")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1254")
	end

end

function send_to_comp_tiretread ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1255")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1256")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1257")
	end
end

function send_to_comp_shoeprint ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1258")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1259")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1260")
	end
end

function send_to_microscope ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1264")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1265")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1266")
	end

end

function send_to_greg_again ()
		T = Random (3)
	if T == 1 then
		PlayDialog (Greg, "M0_GREG_1267")
	end
	if T == 2 then
		PlayDialog (Greg, "M0_GREG_1268")
	end
	if T == 3 then
		PlayDialog (Greg, "M0_GREG_1269")
	end

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

---------------------------------------------------
function comp_default_match()
	SetComputerMatchResult( nil )
	T = Random (3)
		if T == 1 then
			PlayDialog (Katy, "M1_CAT_1239")
		end
		if T == 2 then
			PlayDialog (Katy, "M1_CAT_1240")
		end
		if T == 3 then
			PlayDialog (Katy, "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 (Katy, "M1_CAT_1241")
	end
	if T == 2 then
		PlayDialog (Katy, "M1_CAT_1242")
	end
	if T == 3 then
		PlayDialog (Katy, "M1_CAT_1243")
	end
end
AddMicroscopeEvent( nil, true, nil, MICROSCOPE_DEFAULT_MATCH_EVENT, nil, "micro_default_match" )

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


--SPRING Casino

-- 3.3111    Spring from Casino (inainte de a folosi lupa )
function lab_spring_casino1_cond()
	return not IsEventDone( EVZoomedSpring ) and not IsEventDone( EVZoomedSpringCasinoLab )  
end
	
function lab_spring_casino1()
	if not IsEventDone ( EVShowedSpringCasino1 )
		then
		PlayDialog( Greg, "m1_greg_218")
		else
		send_to_greg_again ()
	end
end

AddEvent( EVShowedSpringCasino1, true, EIBrokenSpring, Greg, "lab_spring_casino1_cond", "lab_spring_casino1" )



-- 3.3111    Spring from Casino (dupa ce s-a folosit lupa )
function lab_spring_casino2_cond()
	return IsEventDone( EVZoomedSpring) or IsEventDone( EVZoomedSpringCasinoLab )
end
	
function lab_spring_casino2()
	if not IsEventDone ( EVShowedSpringCasino2 )
		then
		PlayDialog( Greg, "m1_greg_219")
		else
		send_to_greg_again ()
	end
end

AddEvent( EVShowedSpringCasino2, true, EIBrokenSpring, Greg, "lab_spring_casino2_cond", "lab_spring_casino2" )

--END SPRING Casino
--------------------------------------------------------------------


-- 3.7000    Chemical substance from casino
function lab_chemical_substance()
	if not IsEventDone ( EVLabShowChemicalSubst )
		then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "m1_greg_222")
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Katy )
		PlayDialog( Katy, "m1_cat_223")
		AddEvidenceDescriptionText( ETSubstFountain, "_TB_E2229" ) -- _TB_E2229=Most likely a lubricant used in the stunt to help the motorcycle slide under the truck.
		ChangeRoom( MainlabDefaultRoom )
		else
		send_to_greg_again ()
	end
end

AddEvent( EVLabShowChemicalSubst, true, ETSubstFountain, Greg, nil, "lab_chemical_substance" )



-- 3.8000   Bike tread from casino

function lab_bike_tread_casino()
	if not IsEventDone ( EVGregBikeTread )
		then
		SendEvidenceToComputer ( ETMotorcycleTyreTread )
		send_to_comp_tiretread ()
		else
		send_to_greg_again ()
	end
end

 AddEvent( EVGregBikeTread, true, ETMotorcycleTyreTread, Greg, nil, "lab_bike_tread_casino" )
-------------------------------------------------------------------------------------

-- 3.8500  Yellow liquid from casino
function lab_yellow_liquid()
	if not IsEventDone ( EVLabShowYellowLiq )
		then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "m1_greg_224" )
		AddEvidenceDescriptionText( ETYellowLiquid, "_TB_E2230" )   -- _TB_E2230=Greg's analysis confirms the substance to be urine.
		UpdateCaseFile( Ace, INFORMATION, "_TB_E1832" )              -- _TB_E1832=Ace seems to have wet his pants at the time of the stunt.
		PlayDialog( Greg, "m1_greg_2049" )
		ChangeRoom( MainlabDefaultRoom )
		else
		send_to_greg_again ()
	end
end

AddEvent( EVLabShowYellowLiq, true, ETYellowLiquid, Greg, nil, "lab_yellow_liquid" )



-- 3.9000   Sticker from casino
function lab_sticker()
	if not IsEventDone ( EVLabShowServiceSticker )
		then
		PlayDialog( Greg, "m1_greg_225" )
		UpdateCaseFile( Ace, INFORMATION, "_TB_E2232" )    -- _TB_E2232=The servicing sticker on Ace's motorcycle suggests it was serviced at Vegas Motorcycle.
		AddEvidenceDescriptionText( EIServiceSticker, "_TB_E2231" )   -- _TB_E2231=Analyzed by Greg to reveal the name of a motorcycle shop -- Vegas Motorcycle.
		else
		send_to_greg_again ()
	end
end

AddEvent( EVLabShowServiceSticker, true, EIServiceSticker, Greg, nil, "lab_sticker" )



-- 3.9060    Cable lubricant from casino
function lab_cable_lubricant()
	if not IsEventDone ( EVLabShowThrottleCable )
		then
		PlayDialog( Greg, "m1_greg_226" )
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "m1_greg_2050" )
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Katy )
		PlayDialog( Katy, "m1_cat_2106")
		AddEvidenceDescriptionText( ETThrottleCableSubst, "_TB_E2233" )   -- _TB_E2233=It is a standard, uncontaminated lubricating substance; may rule out satobage of the throttle cable as the cause of the accident.
		ChangeRoom( MainlabDefaultRoom )
		else
		send_to_greg_again ()
	end
end

AddEvent( EVLabShowThrottleCable, true, ETThrottleCableSubst, Greg, nil, "lab_cable_lubricant" )
--------------------------------------------------------------------------------------------------
--SPRING Trailer

-- 7.5000   Spring from Trailer ( inainte de a folosi lupa )
function lab_spring_trailer1_cond()
	return not IsEventDone( EVLookSpringTrailer ) and not IsEventDone( EVZoomedSpringTrailerLab )  
end
	
function lab_spring_trailer1()
	if not IsEventDone ( EVShowedSpringTrailer1 )	
		then
		PlayDialog( Greg, "m1_greg_216")
		else
		send_to_greg_again ()
	end
end

AddEvent( EVShowedSpringTrailer1, true, EISpringFragment, Greg, "lab_spring_trailer1_cond", "lab_spring_trailer1" )



-- 7.5100    Spring from Trailer (dupa ce s-a folosit lupa )
function lab_spring_trailer2_cond()
	return IsEventDone( EVLookSpringTrailer ) or IsEventDone( EVZoomedSpringTrailerLab ) 
end
	
function lab_spring_trailer2()
	if not IsEventDone ( EVShowedSpringTrailer2 )
		then
		PlayDialog( Greg, "m1_greg_217")
		else
		send_to_greg_again ()
	end
end

AddEvent( EVShowedSpringTrailer2, true, EISpringFragment, Greg, "lab_spring_trailer2_cond", "lab_spring_trailer2" )

--END SPRING Trailer
----------------------------------------------------------------------------------------------------
--ASAMBLAREA SPRINGULUI


-- 7.5350   Assembled Spring to Greg (ianinte de a folosi lupa )
function lab_assembled_spring_before_cond()
	return not IsEventDone( EVZoomedAssembledSpringLab ) 
end
	
function lab_assembled_spring_before()
	if not IsEventDone ( EVAssembledSpringBefore )
		then
		PlayDialog( Greg, "m1_greg_220")
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Katy )
		PlayDialog( Katy, "m1_cat_2105")
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EIAssembledSpring, "_TB_E4632" )   -- _TB_E4632=Defects in springs can sometimes cause them to snap under severe stress.
		else
		send_to_greg_again ()
	end	
end

AddEvent( EVAssembledSpringBefore, true, EIAssembledSpring, Greg, "lab_assembled_spring_before_cond", "lab_assembled_spring_before" )

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

-- 7.5500   Assembled Spring to Greg (dupa ce s-a folosit lupa )
function lab_assembled_spring_after_cond()
	return IsEventDone( EVZoomedAssembledSpringLab )  
end
	
function lab_assembled_spring_after()
	if not IsEventDone ( EVAssembledSpring )
		then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "m1_greg_221")
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EIAssembledSpring, "_TB_E4633" )   -- _TB_E4633=Greg migth be able to match the toolmarks on the spring to a clamping or cutting tool.
		PlayDialog( Greg, "m1_greg_2051")
		else
		send_to_greg_again ()
	end
end

AddEvent( EVAssembledSpring, true, EIAssembledSpring, Greg, "lab_assembled_spring_after_cond", "lab_assembled_spring_after" )

--END ASAMBLARE SPRING
----------------------------------------------------------------------------------------------------

-- 8.1000   Wire stripper   
-- Inainte de a gasi urmele de pe Assembled Spring
function lab_wire_stripper_before_cond()
	return not IsEventDone( EVZoomedAssembledSpringLab ) 

end

function lab_wire_stripper_before()
	if not IsEventDone ( EVLabShowWireStripper )
		then
		PlayDialog( Greg, "m1_greg_255" )
		else
		send_to_greg_again ()
	end
end

AddEvent( EVLabShowWireStripper, true, EIWireStripping, Greg, "lab_wire_stripper_before_cond", "lab_wire_stripper_before" )


-- Dupa ce analizezi Spring-ul asamblat cu lupa
function lab_wire_stripper_after_cond()
	return IsEventDone( EVZoomedAssembledSpringLab ) 

end

function lab_wire_stripper_after()
	if not IsEventDone ( EVLabShowStripper )
		then
		PlayDialog( Greg, "m1_greg_256" )
		UpdateCaseFile( David, SUSPECT_CRIMESCENE, "_TB_E2246", 100 )    -- _TB_E2246=Cutting edge from his wire strippers do not match the marks found on the return spring.
		AddEvidenceDescriptionText( EIWireStripping, "_TB_E2245" )       -- _TB_E2245=Cutting edge does not match the tool marks found on the return spring.
		else
		send_to_greg_again ()
	end
end

AddEvent( EVLabShowStripper, true, EIWireStripping, Greg, "lab_wire_stripper_after_cond", "lab_wire_stripper_after" )
	


------------------------------------------------------------------------------------
-- 8.3000   Cofee prints

function lab_cofee_print()
	if not IsEventDone ( EVGregCoffePrint )
		then
		SendEvidenceToComputer ( ETCoffeeCupPrint )
		send_to_comp_fingerprint ()
 		else
		send_to_greg_again ()
	end
end
AddEvent( EVGregCoffePrint, true, ETCoffeeCupPrint, Greg, nil, "lab_cofee_print" )

function search_coffee_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETCoffeeCupPrint, nil, "search_coffee_print")


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

-- 8.3500   Cofee cup
function lab_cofee_cup()
	if not IsEventDone ( EVCofeeCupAnalyzed )
		then
		PlayDialog( Greg, "m1_greg_2107" )
		PlayDialog( Katy, "m1_cat_2109")
		PlayDialog( Greg, "m1_greg_2108" )	
			if IsEventDone( EVDarkStainAnalyzed ) then
				NewEvent( EVCofeeUpdate, nil)
			end
		AddEvidenceDescriptionText( EIStyrofoam, "_TB_E4634" )       -- _TB_E4634=Nothing unusual about the cup or the contents.
		else
		send_to_greg_again ()
	end			
end
AddEvent( EVCofeeCupAnalyzed, true, EIStyrofoam, Greg, nil, "lab_cofee_cup" )



-- 8.4000  Smashed Beta Type
function lab_smashed_type()
	if not IsEventDone ( EVLabVideoTape )
		then
		PlayDialog( Greg, "m1_greg_257" )
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "m1_greg_2644" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EIVideoTape, "_TB_E591" )       -- _TB_E591=4 still-frame images were extracted from the beta tape.
		AddEvidence( EDImage1 )
		SendEvidenceToMicroscope ( EDImage1 )
		AddEvidenceDescriptionText( EDImage1, "_TB_E782" )          -- _TB_E782=Image recovered from smashed beta tape.
		AddEvidence( EDImage2 )
		SendEvidenceToMicroscope ( EDImage2 )
		AddEvidenceDescriptionText( EDImage2, "_TB_E783" )          -- _TB_E783=Image recovered from smashed beta tape.
		AddEvidence( EDImage3 )
		SendEvidenceToMicroscope ( EDImage3 )
		AddEvidenceDescriptionText( EDImage3, "_TB_E784" )          -- _TB_E784=Image recovered from smashed beta tape.
		AddEvidence( EDImage4 )
		SendEvidenceToMicroscope ( EDImage4 )
		AddEvidenceDescriptionText( EDImage4, "_TB_E785" )          -- _TB_E785=Image recovered from smashed beta tape.
		else
		send_to_greg_again ()
	end
end

AddEvent( EVLabVideoTape, true, EIVideoTape, Greg, nil, "lab_smashed_type" )


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

-- 11.1000    Drag the Image 1 over the Microscope
function lab_image1_micro()
	PlayDialog( nil, "m1_cat_270")
	AddEvidenceDescriptionText( EDImage1, "_TB_E786" )     -- _TB_E786=To be too distorted for obtain any useful information.

end

AddMicroscopeEvent( nil, false, nil, EDImage1, nil, "lab_image1_micro" )



-- 11.2000
function lab_image2_micro()
	PlayDialog( nil, "m1_cat_271")
	AddEvidenceDescriptionText( EDImage2, "_TB_E787" )     -- _TB_E787=Although clear, the photo provides no useful information.

end

AddMicroscopeEvent( nil, false, nil, EDImage2, nil, "lab_image2_micro" )



-- 11.3000
function lab_image3_micro()
	PlayDialog( nil, "m1_cat_273")
	AddEvidenceDescriptionText( EDImage3, "_TB_E788" )     -- _TB_E788=Too distorted to obtain any useful information.

end

AddMicroscopeEvent( nil, false, nil, EDImage3, nil, "lab_image3_micro" )



-- 11.3500
-- Daca cel putin o conditie nu este indeplinita

-- la microscop
function micro_image4_before_micro_cond()
	return ( not IsEventDone( EVLandingSkid ) or not IsEventDone( EVAvoidanceSkid ) or ( not IsEventDone( EVCombinedSpringTrailerCasinoLab ) and not IsEventDone ( EVCombinedSpringCasinoTrailerLab ) ) )
end

function comp_image4_before_micro()
	PlayDialog( nil, "m1_cat_1413")

end

AddMicroscopeEvent( nil, false, nil, EDImage4, "micro_image4_before_micro_cond", "comp_image4_before_micro" )



-- 11.4000
-- Daca sunt indeplinite toate conditiile
function lab_image4_after_micro_cond()
	return IsEventDone( EVLandingSkid ) and IsEventDone( EVAvoidanceSkid ) and ( IsEventDone( EVCombinedSpringTrailerCasinoLab ) or IsEventDone ( EVCombinedSpringCasinoTrailerLab ) ) 

end

function lab_image4_after_micro()
	PlayDialog( nil, "m1_cat_274")
	ShowMicrofilm ( "mf\\tape4Image_microFilm" )
---------------------------------------------------------------------------------------------------
	-- Adaugat filmuletul cu zoom-ul pe motor
---------------------------------------------------------------------------------------------------
	PlayDialog( nil, "m1_cat_275")
	AddEvidenceDescriptionText( EDImage4, "_TB_E789" )   -- _TB_E789=Clear unobstructed photo of the motorcycle prior to crashing. It shows the return spring already broken before the motorcycle hit the landing pad.
-----------------------------------------------------------------------------------------------------
	-- In Microscope se schimba status-ul pt EDImage4
-----------------------------------------------------------------------------------------------------
	if IsEventDone( EVKomawaAfter ) then
		NewEvent( EVKomawaFinal, nil )
	end

end

AddMicroscopeEvent( EVImage4Final, false, nil, EDImage4, "lab_image4_after_micro_cond", "lab_image4_after_micro" )

--------------------------------------------------------------------------------------------------------------------------
-- cand dau imaginile lui Greg sa-mi spuna ca nu are nimic de zis...

function show_image1_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDImage1, Greg, nil, "show_image1_greg" )

function show_image2_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDImage2, Greg, nil, "show_image2_greg" )

function show_image3_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDImage3, Greg, nil, "show_image3_greg" )

function show_image4_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDImage4, Greg, nil, "show_image4_greg" )

function show_threat_letter_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDThreatLetter, Greg, nil, "show_threat_letter_greg" )

function show_receipts_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EDReceipts, Greg, nil, "show_receipts_greg" )

function show_envelope_greg()
	send_to_greg_again ()
end

AddEvent( nil, true, EIVegasMotoEnvelope, Greg, nil, "show_envelope_greg" )
---------------------------------------------------------------------------------------------------
-- 13.1000
-- Show Greg COUNTER FINGERPRINT

function lab_counter_print()
	if not IsEventDone ( EVGregCounterPrint )
		then
		SendEvidenceToComputer ( ETCounterFingerprint )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent( EVGregCounterPrint, true, ETCounterFingerprint, Greg, nil, "lab_counter_print" )


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

----------------------------------------------------------------------------------------------------
-- 13.3001
-- Show Greg VEGAS MOTO TYRETREAD

function lab_garage_tread()
	if not IsEventDone ( EVGregGarageTread )
		then
		SendEvidenceToComputer ( ETVegasMotoTyreTread )
		send_to_comp_tiretread ()
		else
		send_to_greg_again ()
	end
end

AddEvent( EVGregGarageTread, true, ETVegasMotoTyreTread, Greg, nil, "lab_garage_tread" )


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


-----------------------------------------------------------------------------------
-- 13.3200   Compare BIKE TREAD <-> GARAGE TREAD on the comp

function lab_compare_tiretreads()
	if not IsEventDone ( EVLabTireCompare )
		then
		AddEvidenceDescriptionText( ETMotorcycleTyreTreadVirtual, "_TB_B124", true )
	end
	SetComputerMatchResult( ETMotorcycleTyreTreadVirtual )
	if not IsEventDone ( EVLabTireCompare )
		then
		PlayDialog( nil, "m1_cat_287" )
		AddEvidenceDescriptionText( ETVegasMotoTyreTread, "_TB_E1449" )    -- _TB_E1449=Matches the tread from Ace's crashed motorcycle.
		UpdateCaseFile( Ace, INFORMATION, "_TB_E2237" )                    -- _TB_E2237=Computer tread match suggests his motorcycle was recently at Vegas Motorcycle shop.
		AddEvidenceDescriptionText( ETMotorcycleTyreTread, "_TB_E1448" )   -- _TB_E1448=Tread is a match to the tread print found outside of Vegas Motorcycle.
	end	
end
AddComputerEvent(EVLabTireCompare, true, ETMotorcycleTyreTread ,ETVegasMotoTyreTread , nil, "lab_compare_tiretreads")

----------------------------------------------------------------------------------------------------------
-- 14.2000    Search for the COUNTER PRINT on the Computer
function search_counter_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETCounterFingerprint, nil, "search_counter_print")


function match_counter()
	if not IsEventDone ( EVLabCounterPrint )
		then
		AddEvidenceDescriptionText( ETCounterFingerprintVirtual, "_TB_B121", true )	
	end
	SetComputerMatchResult( ETCounterFingerprintVirtual )
	if not IsEventDone ( EVLabCounterPrint )
		then
		AddEvidenceDescriptionText( ETCounterFingerprint, "_TB_E2259" )     -- _TB_E2259=Fingerprint identified as belonging to producer Cory Muzotti.

-- ar trebui sa-mi apara cazierul lui Corry Muzzoti de unde sa aflu ca a avut antecedente
--		UpdateCaseFile( Corry, INFORMATION, "_TB_E4631" )                   -- _TB_E4631=He has a criminal record on file; has been previously charged with fraud and blackmail.
		if not IsEventDone( EVLabEnvelopePrints ) then  
		 	NewEvent( EVCorryUpdate, nil )            
		end		
	end	
end
AddComputerEvent(EVLabCounterPrint, true, OCounterPrint5, ETCounterFingerprint, nil, "match_counter")

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


function lab_corryupdate()
	PlayDialog( nil, "m1_cat_285" )
	UpdateCaseFile( Corry, INFORMATION, "_TB_E2787" )      -- _TB_E2787=Has a rap sheet record, including charges for fraud and blackmail.
end

AddEvent( EVCorryUpdate, false, EVCorryUpdate, nil, nil, "lab_corryupdate" )


----------------------------------------------------------------------------------------------------------
-- 14.3000    Search for the BIKE TREAD on the Computer

function search_tire()
	SetComputerSearchResult("", true)

end
AddComputerEvent(EVCompSearchBikeTire, true, nil, ETMotorcycleTyreTread, nil, "search_tire")

function match_tire()
	if not IsEventDone( EVLabTireCompare) then
		AddEvidenceDescriptionText ( ETMotorcycleTyreTreadVirtual, "_TB_B122", true )   
	end	
	SetComputerMatchResult(ETMotorcycleTyreTreadVirtual)
	if not IsEventDone( EVLabTireCompare) then
		PlayDialog( nil, "M1_CAT_2114" )
		AddEvidenceDescriptionText ( ETMotorcycleTyreTread, "_TB_E628" )   -- _TB_E628=Search returns a match to Tiremaster GS-645/Double Tread Stunt Tires.
	end	
end
AddComputerEvent(nil, true, OTireTread3, ETMotorcycleTyreTread, nil, "match_tire")



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


-- 14.3500    Search for the GARAGE TREAD on the Computer

function search_tire_garage()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETVegasMotoTyreTread, nil, "search_tire_garage")

function match_tire_garage()
	if not IsEventDone( EVLabTireCompare) then
		AddEvidenceDescriptionText ( ETVegasMotoTyreTread, "_TB_E628" )   -- _TB_E628=Search returns a match to Tiremaster GS-645/Double Tread Stunt Tires.
	end
	if not IsEventDone( EVLabTireCompare) then
		AddEvidenceDescriptionText ( ETVegasMotoTyreTreadVirtual, "_TB_B123", true ) 
	end
	SetComputerMatchResult(ETVegasMotoTyreTreadVirtual)
end
AddComputerEvent(nil, true, OGarageTread2, ETVegasMotoTyreTread, nil, "match_tire_garage")




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

-- 23.1000   Player shows ENCRYPTED EMAIL DISK to Greg.
function lab_encrypted_mail()
	if not IsEventDone ( EVGregDataDisk )
		then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "m1_greg_327" )
		ChangeRoom( MainlabDefaultRoom )
		SendEvidenceToComputer ( EDDataDisk )
		else
		send_to_greg_again ()
	end
end

AddEvent( EVGregDataDisk, true, EDDataDisk, Greg, nil, "lab_encrypted_mail" )



-- 23.4000   Player uses the computer ( search ) for the ENCRYPTED EMAIL DISK .


function lab_encrypted_mail_comp()
	if not IsEventDone ( EVLabEncryptedMail )
		then
		AddEvidenceDescriptionText ( EDDataDiskVirtual, "_TB_B142", true )
	end
	SetComputerSearchResult ( "", true, EDDataDiskVirtual )
	if not IsEventDone ( EVLabEncryptedMail )
		then
		PlayDialog( nil, "m1_cat_397" )
		PlayDialog( nil, "m1_cat_2029" )
		UpdateCaseFile( Corry, SUSPECT_VICTIM, "_TB_E4233", 350 )    -- _TB_E4233=Suspicous e-mail message was sent from his office computer to Leslie Handleman.
		AddEvidenceDescriptionText( EDDataDisk, "_TB_E793" )         -- _TB_E793=Suspicious and incriminating message from the Cory Muzotti to Leslie Handleman; makes mention of something called a 'Komawa.'
	end
end

AddComputerEvent( EVLabEncryptedMail, true, nil, EDDataDisk, nil, "lab_encrypted_mail_comp" )


--------------------------------------------------------------------------------------------------
-- 23.6000
-- Player shows Greg DOORWAY FINGERPRINTS

function lab_door_fingerprints()
	if not IsEventDone ( EVGregDoorFingerprint )
		then
		SendEvidenceToComputer ( ETDoorwayPrints )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent( EVGregDoorFingerprint, true, ETDoorwayPrints, Greg, nil, "lab_door_fingerprints" )

--------------------------------------------------------------------------------------------------
-- PLAYER acquires Doorway Prints with SEARCHING --Search for the Doorway Print on the Computer

function search_doorway_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETDoorwayPrints, nil, "search_doorway_print")

----------------------------------------------------------------------------------------------------------
-- 23.7000   Player shows DARK STAIN to Greg.
function lab_dark_stain()
	if not IsEventDone ( EVDarkStainAnalyzed )
		then
		PlayDialog( Greg, "m1_greg_328" )
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Katy )
		PlayDialog( Katy, "m1_cat_426" )
		ChangeRoom( MainlabDefaultRoom )
			if IsEventDone( EVCofeeCupAnalyzed ) then
				NewEvent( EVCofeeUpdate, nil)
			end
		AddEvidenceDescriptionText( ETDarkStainSample, "_TB_E794" )      -- _TB_E794=Stain identified as a decaf latte.
		else
		send_to_greg_again ()
	end
end

AddEvent( EVDarkStainAnalyzed, true, ETDarkStainSample, Greg, nil, "lab_dark_stain" )

function lab_cofeeupdate()
	PlayDialog( nil, "m1_cat_249" )
	UpdateCaseFile( David, SUSPECT_VICTIM, "_TB_E2243", 150 )    -- _TB_E2243=Coffee stain suggests he may have been in the producer's office recently. Coffee splatter suggests it might have been a violent discussion about the show.
	AddEvidenceDescriptionText( EIStyrofoam, "_TB_E796" )        -- _TB_E796=Same brand of coffee in the cup as found on the wall of the producer's office.
	AddEvidenceDescriptionText( ETDarkStainSample, "_TB_E795" )  -- _TB_E795=Stain contents match the coffee in the Stunt Director's mobile trailer.

end

AddEvent( EVCofeeUpdate, false, EVCofeeUpdate, nil, nil, "lab_cofeeupdate" )

--------------------------------------------------------------------------------------------------------
-- Player shows Greg ENGINE FINGERPRINT

function lab_engine_fingerprints()
	if not IsEventDone ( EVGregEngineFingerprint )
		then
		SendEvidenceToComputer ( ETEngineFingerprint )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent( EVGregEngineFingerprint, true, ETEngineFingerprint, Greg, nil, "lab_engine_fingerprints" )

------------------------------------------------------------
-- PLAYER acquires Engine Prints with SEARCHING --Search for the Engine Print on the Computer

function search_engine_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent(nil, true, nil, ETEngineFingerprint, nil, "search_engine_print")


----------------------------------------------------------------------------------------------------------
-- 24.1000   Compare DOORWAY PRINTS <-> ENGINE PRINT on the computer

function lab_compare_prints1()
	if not IsEventDone ( EVLabComparePrints1 )
		then
		AddEvidenceDescriptionText( ETEngineFingerprintVirtual, "_TB_B143", true )
	end
	SetComputerMatchResult( ETEngineFingerprintVirtual )
	if not IsEventDone ( EVLabComparePrints1 )
		then
		PlayDialog( nil, "m1_cat_2118" )
		AddEvidenceDescriptionText( ETEngineFingerprint, "_TB_E798" )   -- _TB_E798=Matches the door handle print found inside the Muzotti's office.
		AddEvidenceDescriptionText( ETDoorwayPrints, "_TB_E797" )       -- _TB_E797=Matches the print lifted from the motorcycle engine.
	
		if IsEventDone( EVLabComparePrints3 ) or IsEventDone( EVLabComparePrints2 ) 
			then
			NewEvent( EVPrintsCompared, nil )
		end
	end
end

AddComputerEvent( EVLabComparePrints1, true, ETEngineFingerprint, ETDoorwayPrints, nil, "lab_compare_prints1" )


---------------------------------------------------------------------------------------------------------
-- 24.2000   Compare DOORWAY PRINTS <-> COFFEE PRINT on the computer

function lab_compare_prints2()
	if not IsEventDone ( EVLabComparePrints2 )
		then
		AddEvidenceDescriptionText( ETDoorwayPrintsVirtual, "_TB_B144", true )    
	end
	SetComputerMatchResult( ETDoorwayPrintsVirtual )
	if not IsEventDone ( EVLabComparePrints2 )
		then
		PlayDialog( nil, "m1_cat_2118" )
		AddEvidenceDescriptionText( ETCoffeeCupPrint, "_TB_E1229" )   -- _TB_E1229=Matches the prints lifted from Muzotti's office door handle.
		AddEvidenceDescriptionText( ETDoorwayPrints, "_TB_E799" )    -- _TB_E799=Matches the prints lifted from the McLadden's coffee cup.
		AddEvidenceDescriptionText( ETDoorwayPrints, "_TB_E1437" )     -- _TB_E1437=Doorway print matches David McLadden
		if not IsEventDone( EVLabComparePrints3 ) or not IsEventDone( EVLabComparePrints1 ) then
			NewEvent( EVPrintsCompared, nil )
		end
	end
end

AddComputerEvent( EVLabComparePrints2, true, ETDoorwayPrints, ETCoffeeCupPrint, nil, "lab_compare_prints2" )

---------------------------------------------------------------------------------------------------------
-- 24.3000   Compare ENGINE PRINT <-> COFFEE PRINT on the computer

function lab_compare_prints3()
	if not IsEventDone ( EVLabComparePrints3 )
		then
		AddEvidenceDescriptionText( ETCoffeeCupPrintVirtual, "_TB_B143", true )
	end
	SetComputerMatchResult( ETCoffeeCupPrintVirtual )
	if not IsEventDone ( EVLabComparePrints3 )
		then
		PlayDialog( nil, "m1_cat_2118" )
		AddEvidenceDescriptionText( ETCoffeeCupPrint, "_TB_E675" )       -- _TB_E675=Matches the print found on the motorcycle engine.
		AddEvidenceDescriptionText( ETEngineFingerprint, "_TB_E1237" )   -- _TB_E1237=Matches McLadden's print found on coffee cup from his trailer.

		if IsEventDone( EVLabComparePrints1 ) or IsEventDone( EVLabComparePrints2 ) then
			NewEvent( EVPrintsCompared, nil )
		end
	end
end

AddComputerEvent( EVLabComparePrints3, true, ETCoffeeCupPrint, ETEngineFingerprint, nil, "lab_compare_prints3" )

---------------------------------------------------------------------------------------------------------
-- 24.4000
function lab_prints_compared()
	PlayDialog( nil, "m1_cat_425" )
	UpdateCaseFile( David, SUSPECT_VICTIM, "_TB_E1240", 150 )   -- _TB_E1240=Fingerprints found at the producer's office suggest he was there recently, and it might have become violent.

end

AddEvent( EVPrintsCompared, false, EVPrintsCompared, nil, nil, "lab_prints_compared" )


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


-- 30.0000   Player shows LOTTERY TICKETS to Greg.
function lab_lottery_tickets()
	if not IsEventDone ( EVShowLotteryTickets )
		then
		ChangeRoom( MainlabGregCloseup1 )
		PlayDialog( Greg, "m1_greg_294" )
		PlayDialog( nil, "m1_cat_295" )
		PlayDialog( Greg, "m1_greg_296" )
		ChangeRoom( MainlabCSICloseup1 )
		EndDisplayQuestionList ( Katy )
		PlayDialog( Katy, "m1_cat_391" )
		PlayDialog( nil, "m1_greg_392" )
		ChangeRoom( MainlabDefaultRoom )
		AddEvidenceDescriptionText( EDLotteryTicket, "_TB_E4635" )    -- _TB_E4635=Nothing unusual discovered about the lottery ticket; it wasn't a winner.
		else
		send_to_greg_again ()
	end
end

AddEvent( EVShowLotteryTickets, true, EDLotteryTicket, Greg, nil, "lab_lottery_tickets" )



-- 30.0500   Player shows KOMAWA TOOL to Greg.
-- Inainte de a analiza Spring-ul (intreg ) cu lupa ( 7.5400 )
function komawa_tool_before_cond()
	return not IsEventDone( EVZoomedAssembledSpringLab ) 
end

function komawa_tool_before()
	if not IsEventDone ( EVShowVegasMotoKomawa )
		then
		PlayDialog( Greg, "m1_greg_297" )
		AddEvidenceDescriptionText( EIVegasMotoKomawa, "_TB_E4636" )   -- _TB_E4636=Specialized design allows the user to reach into tight places.
		else
		send_to_greg_again ()
	end
end

AddEvent( EVShowVegasMotoKomawa, true, EIVegasMotoKomawa, Greg, "komawa_tool_before_cond", "komawa_tool_before" )


-- Dupa ce Spring-ul a fost analizat cu lupa ( 7.5400 )
function komawa_tool_after_cond()
	return IsEventDone( EVZoomedAssembledSpringLab ) 
end

function komawa_tool_after()
	if not IsEventDone ( EVKomawaAfter )
		then
		ChangeRoom( MainlabGregCloseup2 )
		PlayDialog( Greg, "m1_greg_2018" )
		ChangeRoom( MainlabDefaultRoom )

		if IsEventDone( EVImage4Final ) then
			NewEvent( EVKomawaFinal, nil )
		end
		else
		send_to_greg_again ()
	end
end

AddEvent( EVKomawaAfter, true, EIVegasMotoKomawa, Greg, "komawa_tool_after_cond", "komawa_tool_after" )


-- 30.1500
function komawa_final()
	PlayDialog( Katy, "m1_cat_298" )

end

AddEvent( EVKomawaFinal, true, EVKomawaFinal, nil, nil, "komawa_final" )

------------------------------------------------------------------------------------------------------------
--Player shows Greg ENVELOPE PRINT

function lab_envelope_fingerprints()
	if not IsEventDone ( EVGregEnvelopeFingerprint )
		then
		SendEvidenceToComputer ( ETEnvelopeFingerprint )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end
end
AddEvent( EVGregEnvelopeFingerprint, true, ETEnvelopeFingerprint, Greg, nil, "lab_envelope_fingerprints" )
------------------------------------------------------------------------------------------------------------

-- PLAYER acquires ENVELOPE PRINT with SEARCHING --Search for the Envelope Print on the Computer
-- 30.7000   Player searches ENVELOPE PRINT on the computer.

function search_envelope_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent( nil, true, nil, ETEnvelopeFingerprint, nil, "search_envelope_print")

function match_envelope_print()
	if not IsEventDone ( EVLabEnvelopePrints )
		then 
		AddEvidenceDescriptionText( ETEnvelopeFingerprintVirtual, "_TB_B160", true )   
	end
	SetComputerMatchResult( ETEnvelopeFingerprintVirtual )
	if not IsEventDone ( EVLabEnvelopePrints )
		then
		AddEvidenceDescriptionText( ETEnvelopeFingerprint, "_TB_E818" )   -- _TB_E818=Fingerprint identified as belonging to producer Cory Muzotti.

		if IsEventDone ( EVLabCounterPrint ) then
			NewEvent( EVCorryUpdate, nil )  
		end
	end
end
AddComputerEvent( EVLabEnvelopePrints, true, OEnvelopePrint4, ETEnvelopeFingerprint, nil, "match_envelope_print")
------------------------------------------------------------------------------------------------------------
-- 30.1800  Compare COUNTER PRINT <-> ENVELOPE PRINT on the computer (matching )

function lab_compare_prints4()
	if not IsEventDone ( EVLabComparePrints4 )
		then
		AddEvidenceDescriptionText( ETCounterFingerprintVirtual, "_TB_B144", true )
	end
	SetComputerMatchResult( ETCounterFingerprintVirtual )
	if not IsEventDone ( EVLabComparePrints4 )
		then
		AddEvidenceDescriptionText( ETCounterFingerprint, "_TB_E801" )   -- _TB_E801=Matches the fingerprint lifted off the cash envelope.
		AddEvidenceDescriptionText( ETEnvelopeFingerprint, "_TB_E800" )  -- _TB_E800=Matches the fingerprint lifted from the Vegas Motorcycle front counter.
		PlayDialog( nil, "m1_cat_286" )
	end		
end

AddComputerEvent( EVLabComparePrints4, true, ETCounterFingerprint, ETEnvelopeFingerprint, nil, "lab_compare_prints4" )

------------------------------------------------------------------------------------------------------------------------
--Player shows Greg KOMAWA PRINT

function lab_komawa_fingerprints()
	if not IsEventDone ( EVGregKonawaFingerprint )
		then
		SendEvidenceToComputer ( ETKomawaFingerprint )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent( EVGregKonawaFingerprint, true, ETKomawaFingerprint, Greg, nil, "lab_komawa_fingerprints" )
----------------------------------------------------------
--Player searches KOMAWA PRINT on the computer.

function search_komawa_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent( nil, true, nil, ETKomawaFingerprint, nil, "search_komawa_print")


------------------------------------------------------------------------------------------------------------
--Player shows Greg LESLIE FINGERPRINT
function lab_mechanic_fingerprints()
	if not IsEventDone ( EVGregMecanicFingerprint )
		then
		SendEvidenceToComputer ( ETLeslieFingerprint )
		send_to_comp_fingerprint ()
		else
		send_to_greg_again ()
	end
end

AddEvent( EVGregMecanicFingerprint, true, ETLeslieFingerprint, Greg, nil, "lab_mechanic_fingerprints" )
-----------------------------------------------------------
--Player searches LESLIE PRINT on the computer.

function search_leslie_print()
	SetComputerSearchResult("", true)
end
AddComputerEvent( nil, true, nil, ETLeslieFingerprint, nil, "search_leslie_print")


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

-- 31.2700   Compare the MECHANIC PRINT <-> TOOL PRINT on the Computer

function lab_compare_prints5()
	if not IsEventDone ( EVCompareMecanicToolPrints )
		then
		AddEvidenceDescriptionText( ETLeslieFingerprintVirtual, "_TB_B146", true )
	end
	SetComputerMatchResult( ETLeslieFingerprintVirtual )
	if not IsEventDone ( EVCompareMecanicToolPrints )
		then
		PlayDialog( nil, "m1_cat_2119" )
		UpdateCaseFile( Leslie, SUSPECT_CRIMESCENE, "_TB_E4388", 350 )   -- _TB_E4388=Her fingerprints were found on the special tool that was mentioned in the e-mail sent by Muzotti.
		AddEvidenceDescriptionText( ETKomawaFingerprint, "_TB_E1505" )   -- _TB_E1505=Fingerprint identified as belonging to Mechanic.
		AddEvidenceDescriptionText( ETKomawaFingerprint, "_TB_E1508" )     -- _TB_E1508=Matches the fingerprint taken from Leslie Handleman.
		AddEvidenceDescriptionText( ETLeslieFingerprint, "_TB_E1507" )   -- _TB_E1507=Matches the prints found on the Komawa tool.
	end
end

AddComputerEvent( EVCompareMecanicToolPrints, true, ETKomawaFingerprint, ETLeslieFingerprint, nil, "lab_compare_prints5" )

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