-- 8.1
function fadein_garden()
	ChangeRoom( GardenWarrick )
	FadeIn()
	PlayDialog( nil, "M5_WARR_24" )
	ChangeRoom( GardenPanoRoom )
end

AddEvent( EVEnterDesert,false, nil, Garden, nil, "fadein_garden" )

function fadein_garden2_cond()
	return IsEventDone(EVEnterDesert)
end

function fadein_garden2()
	
	ChangeRoom( GardenPanoRoom )
	FadeIn()
end

AddEvent( nil,true, nil, Garden, "fadein_garden2_cond", "fadein_garden2" )


-- 8.3
function enter_grass()
	PlayDialog( nil, "M5_WARR_25" )
	SetActive(HGardenGrass, false)
	SetActive(HGardenGrassFar, false)
	if (HasEvidence(EIDirtGarden) and HasEvidence(ETTireGarden)) then
	SetActive(HGardenPanoPrints, false)
	end

end
AddEvent( EVEnterGrass, false, nil, GardenGrass , nil, "enter_grass" )


-- 8.4 

function enter_tire_desert()
	PlayDialog( nil, "M5_WARR_26" )
end
AddEvent( nil, false, nil, GardenTread , nil, "enter_tire_desert" )

-- 8.4.1
function pick_tire_desert()
	AddEvidence(ETTireGarden)
	AddEvidenceDescriptionText(ETTireGarden, "TEXT4053")
	SetActive(HGardenTread, false)
	SetActive(HGardenTreadFar, false)
	if (HasEvidence(EIDirtGarden) and IsEventDone(EVEnterGrass)) then
	SetActive(HGardenPanoPrints, false)
	end

end
AddEvent( nil, false, efoil, HGardenTread , nil, "pick_tire_desert" )


-- 8.5
function enter_dirt_desert()
	PlayDialog( nil, "M5_WARR_27" )
end
AddEvent( nil, false, nil, GardenDirt , nil, "enter_dirt_desert" )

-- 8.5.1

function pick_dirt_desert()
	AddEvidence(EIDirtGarden)
	AddEvidenceDescriptionText(EIDirtGarden, "TEXT4059")
	SetActive(HGardenDirt, false)
	SetActive(HGardenDirtFar, false)
	if (HasEvidence(ETTireGarden) and IsEventDone(EVEnterGrass)) then
	SetActive(HGardenPanoPrints, false)
	end

end
AddEvent( nil, false, tweezers, HGardenDirt , nil, "pick_dirt_desert" )


-- 8.7

 function click_door_desert()
	PlayDialog( nil, "M5_WARR_84" )
	SetActive(HGardenShedDoor, false)
	SetActive(HGardenPanoShed, false)
end
AddEvent( nil, false, nil, HGardenShedDoor , nil, "click_door_desert" )

-- 8.8.1
function click_tissue_desert_cond()
	return not HasEvidence(ETHairGarden)
end
function click_tissue_desert()
	PlayDialog( nil, "M5_WARR_28" )
end
AddEvent( nil, true, gloves, HGardenHairFar , "click_tissue_desert_cond", "click_tissue_desert" )
AddEvent( nil, true, tweezers, HGardenHairFar , "click_tissue_desert_cond", "click_tissue_desert" )

-- 8.8.2

function view_hair_desert()
	if not IsEventDone (EVUseMagnifyHair) then
	PlayDialog( nil, "M5_WARR_29" )
	end
	ZoomToRoom(GardenTissue)
end

AddEvent( EVUseMagnifyHair, true, magnifier, HGardenHairFar , "click_tissue_desert_cond", "view_hair_desert" )

-- 8.8.3

function pick_hair_desert()
	AddEvidence(ETHairGarden)
	AddEvidenceDescriptionText(ETHairGarden, "TEXT4065")
	SetVisible(OGardenHairClose, false)
	SetVisible(OGardenHairFar, false)
	SetActive(HGardenHairClose, false)
	
end

AddEvent( nil, false, tweezers, HGardenHairClose , nil, "pick_hair_desert" )

-- 8.8.4
function pick_tissue_desert_cond()
	return HasEvidence(ETHairGarden)
end
function pick_tissue_desert()
	AddEvidence(EITissueGarden)
	AddEvidenceDescriptionText(EITissueGarden, "TEXT4071")
	SetVisible(OGardenTissue, false)
	SetActive(HGardenHairFar, false)
	SetActive(HGardenGarbageFar, false)
	SetActive(HGardenPanoGarbage, false)
end
AddEvent( nil, true, gloves, HGardenHairFar , "pick_tissue_desert_cond", "pick_tissue_desert" )