function fadein_digsite()
	if not IsEventDone(EVEnterDigSite) then
		PlayIntroMovie("Art\\Movie\\Flyin\\intro_digsite01a.xmv")
	end
-- Nandu: mutat FadeIn dupa activare/dezactivare obiecte -- altfel se mai vad la inceput
	-- initial HS-urile si obiectele nu sunt disponibile
	if not IsEventDone(EVEnterDigSite) then
		ChangeLink (HDigSiteSkeletonJaw, nil)
		SetVisible(ODigSiteTireCast, false)

		-- John
		SetVisible(OJohn, false)
		SetActive(HPanoJohn, false)

		-- cutia
		SetVisible(OPanoBox, false)
		SetVisible(OPanoBat, false)
		SetVisible(OPanoWatch, false)
		SetActive(HPanoBox, false)

		-- Hspoturi panoramice
		SetActive(HPanoDigHole, false)
		SetActive(HPanoMudPatch, false)
		SetActive(HPanoTree, false)

		-- cuib
		SetActive(HDigSiteNestEstab, false)

		ChangeRoom( DigSiteSara1 )
		FadeIn()
		PlayDialog(Sara, "M3_SARA_2125")
		ChangeRoom( DigSitePanoRoom )
	else 
		ChangeRoom( DigSitePanoRoom )
		FadeIn()
	end
end

AddEvent( EVEnterDigSite, true, nil, DigSite, nil, "fadein_digsite" )

IncludeFile("Script\\Gamelogic\\Eliot_questions.lua" )
IncludeFile("Script\\Gamelogic\\John_questions.lua" )

function elliot_question()
--	DisplayQuestionList(Edward)
	if not DisplayQuestionList(Edward) then
		PlayDialog(Edward, "M3_LANS_2409")
	end

end

AddEvent( nil, true, nil, DigSiteEdward1, nil, "elliot_question" )
AddEvent( nil, true, nil, DigSiteEdward2, nil, "elliot_question" )
AddEvent( nil, true, nil, HDigSiteEdward1, nil, "elliot_question" )
AddEvent( nil, true, nil, HDigSiteEdward2, nil, "elliot_question" )


function john_question()
--	DisplayQuestionList(John)
	if not DisplayQuestionList(John) then
		PlayDialog(John, "M3_MONTANA_2407")
	end

end

AddEvent( nil, true, nil, DigSiteJohn1, nil, "john_question" )
AddEvent( nil, true, nil, HDigSiteJohn1, nil, "john_question" )
AddEvent( nil, true, nil, HDigSiteJohn2, nil, "john_question" )

-- 2.31

function digsite_bones()
	PlayDialog(nil, "M3_SARA_2132")
end

AddEvent( EVEnterHole, false, nil, DigSiteHole, nil, "digsite_bones" )

-- 2.32

function digsite_enter_skull()
	PlayDialog(nil, "M3_SARA_2133")
-- doar hotspotul de la ochi trebuie sa ramana si am facut inactiv HDigSiteSkeleton
	SetActive(HDigSiteSkeleton, false)
end

AddEvent( nil, false, nil, DigSiteSkullEstab, nil, "digsite_enter_skull" )


-- 2.33
function digsite_zoom_glass()
	ZoomToRoom( DigSiteCheek )
end
AddEvent( nil, true, magnifier, HDigSiteGlassPiecesEstab, nil, "digsite_zoom_glass" )

function digsite_pick_glass()
	SetActive(HDigSiteGlassPiecesEstab, false)
	SetActive(HDigSiteSkeletonCheekGlass, false)	

-- Nandu: added the object
	SetVisible( ODigSiteSkeletonCheekGlass, false )
	SetVisible( ODigSiteGlassPiecesEstab, false )

	if IsEventDone (EVLookTeeth) then
		SetActive(HDigSiteSkeletonEstab1, false)
	end
	

-- nu exista obiectul 	
--SetVisible(ODigSiteSkeletonCheekGlass, true)
--SetVisible(ODigSiteSkeleton, true)
--SetVisible(ODigSiteSkeleton1, true)
--SetVisible(ODigSiteSkeleton2, true)
--SetVisible(ODigSiteSkeleton3, true)
	
	PlayDialog(nil, "M3_SARA_2134")

	AddEvidence(EISkullGlass)
	AddEvidenceDescriptionText(EISkullGlass, "_TB_E3404")
end

AddEvent( nil, false, tweezers, HDigSiteSkeletonCheekGlass, nil, "digsite_pick_glass" )

-- 2.34


function digsite_teeth()
	SetActive(HDigSiteTeethEstab, false)
	SetActive(HDigSiteSkeletonJaw, false)
	if HasEvidence (EISkullGlass) then
		SetActive(HDigSiteSkeletonEstab1, false)
	end
	
--	Trebuie facut efectul de indepartare a pamantului
--	Nandu: aici nu se foloseste efectul: doar la mana
	PlayDialog(nil, "M3_SARA_2135")
end

-- Nandu: no brush
--AddEvent( EVLookTeeth, false, brush, HDigSiteSkeletonJaw, nil, "digsite_teeth" )
AddEvent( EVLookTeeth, false, nil, HDigSiteSkeletonJaw, nil, "digsite_teeth" )

-- 2.35


function digsite_dirty_arm()
--	Trebuie facut efectul de indepartare a pamantului
-- Nandu: s-a facut - mai trebuie vazut daca nu trebuie facut obiectul vizibil 
-- 	  din script (ar trebui sa fie vizibil din efect)
	SetActive (ODigSiteSkeletonArmCU, false)
	PlayDialog(nil, "M3_SARA_2136")
	ChangeLink ( HDigSiteSkeletonArmCU, DigSiteHand )
end

AddEvent( EVBrushArm, false, brush, ODigSiteSkeletonArmCU, nil, "digsite_dirty_arm" )

-- 2.36
function digsite_zoom_finger_cond()
	return IsEventDone(EVBrushArm)
end

function digsite_zoom_finger()
-- Nandu: zoom
--	ChangeRoom(DigSiteFinger, true)
	ZoomToRoom(DigSiteFinger)
	if not IsEventDone(EVEnterFinger) then
		PlayDialog(nil, "M3_SARA_2137")
	end
end

--AddEvent( EVEnterFinger, true, magnifier, HDigSiteSkeletonArmCU, "digsite_zoom_finger_cond", "digsite_zoom_finger" )
AddEvent( EVEnterFinger, true, magnifier, HDigSiteSkeletonFingerCU, "digsite_zoom_finger_cond", "digsite_zoom_finger" )

-- 2.361

function digsite_pick_fiber()
	AddEvidence(ETVictimDirtyFiber)
	AddEvidenceDescriptionText(ETVictimDirtyFiber, "_TB_E3403")
	SetActive(HDigSiteSkeletonArmCU, false)
	SetActive(HDigSiteSkeletonFingerCU, false)
	SetActive(HDigSiteSkeletonEstab2, false)
	
--	trebuie facut vizibil firul pana in momentul in care-l iei
	SetVisible(ODigSiteSkeletonFingerCU, false)
-- Nandu: si pe planul apropiat
	SetVisible( ODigSiteSkeletonFingerCloth, false )
	SetActive( HDigSiteSkeletonFingerCloth, false)
-- Nandu: si pentru morga... in caz ca a fost luat de aici...
	

end

AddEvent( nil, false, tweezers, HDigSiteSkeletonFingerCloth, nil,"digsite_pick_fiber" )

-- 2.37

function digsite_arrow()
	PlayDialog(nil, "M3_SARA_2138")
end

AddEvent( nil, false, nil, DigSiteDarkSoil, nil, "digsite_arrow" )

-- 2.38

function digsite_pick_soil()
	AddEvidence(ETConstructionSiteSoil)
	AddEvidenceDescriptionText(ETConstructionSiteSoil, "_TB_E3402")
	SetActive( HDigSiteDarkSoil, false)
	SetVisible( ODigSiteDarkSoil, false )
	SetActive(HDigSiteSkeletonEstab3, false)
end

AddEvent( nil, false, asmount, HDigSiteDarkSoil, nil,"digsite_pick_soil" )

-- 2.4105

function digsite_soil()
	PlayDialog(nil, "M3_SARA_2140")
end

AddEvent( nil, false, nil, DigSiteArrowHeadCU, nil, "digsite_soil" )
-- 2.41

function digsite_pick_arrow()
	AddEvidence(EIArrowhead)
	AddEvidenceDescriptionText(EIArrowhead, "_TB_E3407")
	SetVisible(ODigSiteArrowHeadCU, false)
	SetActive(HDigSiteArrowHeadCU, false)
	SetVisible(ODigSiteArrowHeadEstab, false)
	SetActive(HDigSiteArrowHeadEstab, false)
	if HasEvidence(ETConstructionTireTread) then
		SetActive(HPanoMudPatch, false)
	end
end

AddEvent( nil, false, gloves, HDigSiteArrowHeadCU, nil,"digsite_pick_arrow" )


-- 3.05

function digsite_tire()
	PlayDialog(nil, "M3_SARA_2139")
	
end

AddEvent( nil, false, nil, DigSiteTireCU, nil, "digsite_tire" )
-- 3.1

function digsite_pick_tire()
	AddEvidence(ETConstructionTireTread)
	AddEvidenceDescriptionText(ETConstructionTireTread, "_TB_E4385")
	SetVisible(ODigSiteTireCast, true)
	PlaySound (nil, "CASTPOUR")
	SetVisible(ODigSiteTireCast, false)
	SetActive(HDigSiteTireCast, false)
	SetActive(HDigSiteTireEstab, false)
	if HasEvidence(EIArrowhead) then
		SetActive(HPanoMudPatch, false)
	end
end

AddEvent( nil, false, cast, HDigSiteTireCast, nil,"digsite_pick_tire" )
-- 2.42

function digsite_tree_first()
	if not HasEvidence (ETTrailerRoofDriedSubst) then
	PlayDialog(nil, "M3_SARA_2141")
	end
end

AddEvent( nil, false, nil, DigSiteTree, nil, "digsite_tree_first" )

-- 25.15 

function digsite_box_first()
	PlayDialog(nil, "M3_SARA_2296")
end

AddEvent( nil, false, nil, DigSiteBox, nil, "digsite_box_first" )

-- 25.5 

function digsite_bat_first()
	PlayDialog(nil, "M3_SARA_2297")
end

AddEvent( nil, false, nil, DigSiteBat, nil, "digsite_bat_first" )

-- 25.51 

function digsite_bat_glass()
	PlayDialog(nil, "M3_SARA_2298")
	ZoomToRoom (DigSiteBatHeadCU)
end

AddEvent( EVFindBatGlass, false, magnifier, HDigSiteSpecGlass, nil, "digsite_bat_glass" )


-- 25.52 
function digsite_bat_glass_pick_cond()
	return IsEventDone(EVFindBatGlass)
end
function digsite_bat_glass_pick()
	PlayDialog(nil, "M3_SARA_2299")

	AddEvidence(EISpeckGlass)
	AddEvidenceDescriptionText(EISpeckGlass, "_TB_E3811")
	SetVisible(ODigSiteBatHeadGlass, false)
	SetActive(HDigSiteBatHeadGlass, false)

	SetVisible(ODigSiteSpecGlass, false)
	SetActive(HDigSiteSpecGlass, false)
	SetActive (EHOTSPOT_baseballHead, false)
	SetVisible(EOBJ_baseballBat_Glass, false)
end

AddEvent( nil, false, tweezers, HDigSiteBatHeadGlass, "digsite_bat_glass_pick_cond", "digsite_bat_glass_pick" )

-- 25.53 

function digsite_bat_end()
	PlayDialog(nil, "M3_SARA_2300")
	
end

AddEvent( nil, false, nil, DigSiteBatHandle, nil, "digsite_bat_end" )

-- 25.54 

function digsite_bat_end_uv()
	if not IsEventDone (EVBurnedBat) and not IsEventDone (EVBurnedBat1) then
	PlayDialog(nil, "M3_SARA_2301")
	SetActive (EHOTSPOT_baseballHandle1, false)
	end

end

AddEvent( EVBurnedBat, false, uv, HDigSiteBatHandle1, nil, "digsite_bat_end_uv" )
AddEvent( EVBurnedBat1, false, uv, HDigSiteBatHandle2, nil, "digsite_bat_end_uv" )
-- 25.55 

function digsite_watch()
	PlayDialog(nil, "M3_SARA_2302")

end

AddEvent( nil, false, nil, DigSiteWatch, nil, "digsite_watch" )

-- 25.6 
function digsite_watch_pick()
	AddEvidence(EIWatch)
	AddEvidenceDescriptionText(EIWatch, "_TB_E3815")
 
	SetVisible(ODigSiteWatchCU1, false)
	SetVisible(ODigSiteWatchCU2, false)
	SetVisible(ODigSiteBatWatch, false)
	SetVisible(OPanoWatch, false)
	
	SetActive(HDigSiteWatchCU, false)
	SetActive(HDigSiteBatWatch, false)
	
	if HasEvidence(EIBaseballBat) then
			SetActive(HPanoBox, false)
	end
end

AddEvent( nil, false, gloves, HDigSiteWatchCU, nil, "digsite_watch_pick" )


-- 25.7

--function digsite_bat_pick_cond()
--	return (HasEvidence(EISpeckGlass) and IsEventDone(EVBurnedBat))
--end
function digsite_bat_pick()
	AddEvidence(EIBaseballBat)
	AddEvidenceDescriptionText(EIBaseballBat, "_TB_E3816")
 
	SetVisible(ODigSiteBatHandle1, false)
	SetVisible(ODigSiteBatHandle2, false)
	SetVisible(ODigSiteBatCU1, false)
	SetVisible(ODigSiteBatCU2, false)
	SetVisible(ODigSiteBatBox1, false)
	SetVisible(ODigSiteBatBox2, false)
	SetVisible(OPanoBat, false)
--   pt ciob 
	SetVisible(ODigSiteSpecGlass, false)
	SetActive(HDigSiteSpecGlass, false)

	SetActive(HDigSiteBatHandle1, false)
	SetActive(HDigSiteBatHandle2, false)
	SetActive(HDigSiteBatCU2, false)
	SetActive(HDigSiteBatBox1, false)
	SetActive(HDigSiteBatBox2, false)
	if HasEvidence(EIWatch) then
			SetActive(HPanoBox, false)
	end
end

AddEvent( nil, false, gloves, HDigSiteBatHandle1, "digsite_bat_pick_cond", "digsite_bat_pick" )
AddEvent( nil, false, gloves, HDigSiteBatHandle2, "digsite_bat_pick_cond", "digsite_bat_pick" )

-- 31.6
function digsite_nest_pick()
	AddEvidence(EINest)
	AddEvidenceDescriptionText(EINest, "_TB_E4449")
	PlayDialog(nil, "M3_SARA_2363")
 
	SetVisible(ODigSiteNestCU, false)
	SetVisible(ODigSiteNestEstab, false)
	SetVisible(OPanoNest, false)
		
	SetActive(HDigSiteNest, false)
	SetActive(HDigSiteNestEstab, false)
	SetActive(HPanoTree, false)
	
end

AddEvent( nil, false, gloves, HDigSiteNest, nil, "digsite_nest_pick" )