-- Funeral Home
function fadein_funeral()
	if not IsEventDone( EVFuneralIntro ) then
		PlayIntroMovie( "Art\\Movie\\Flyin\\city_funeral01a.xmv" )
	end
	FadeIn()
	if not IsEventDone( EVFuneralIntro ) then
   --   	ChangeRoom( FuneralEstab )
		PlayDialog( Grissom, "M5_GRISSOM_1745" )
		ChangeRoom( FuneralVictor1 )
		PlayDialog( Victor, "M5_VICTOR_1458" )
		ChangeRoom( FuneralGrissom1 )
		PlayDialog( Grissom, "M5_GRISSOM_1459" )
		ChangeRoom( FuneralVictor1 )
		SetBackRoom( FuneralVictor1, FuneralEstab )
		PlayDialog( Victor, "M5_VICTOR_1460" )
		SetActive( HFuneralBackroomEstab, false )
	      SetActive( HFuneralCoffinEstab, false )
		SetActive( HFuneralFreezerEstab, false )
		EndDisplayQuestionList()
		SetCharacterPicture( Victor, "Art\\Reenactments\\Pictures\\victor_kaufman.tga" )
	   else
	     ChangeRoom( FuneralEstab )
	
	     ChangeLink( HFuneralBackKeysestab, FuneralBackKeys )
	     ChangeLink( HFuneralBackGarbageRip, FuneralBackRipMag )
	 	
	   end
       
end

AddEvent( EVFuneralIntro, true, nil, Funeral, nil, "fadein_funeral" )

-- Display Questions Victor

function displ_quest_victor()
--	DisplayQuestionList( Victor )
	if not DisplayQuestionList( Victor ) then
		PlayDialog ( Victor, "M5_VICTOR_1697")
	end

end

AddEvent( nil, true, nil, FuneralVictor1, nil, "displ_quest_victor" )
AddEvent( nil, true, nil, HFuneralVictor1, nil, "displ_quest_victor" )

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

-- 30.1070 Enter Coffin CU

function enter_coffins_CU()
	PlayDialog( nil, "M5_GRISSOM_1607" )
end

AddEvent( nil, false, nil, FuneralCoffin, nil, "enter_coffins_CU" )

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

-- 30.1080 Enter Degree CU

function enter_degreeCU()
	PlayDialog( nil, "M5_GRISSOM_1608" )
	SetActive( HFuneralBackCertificateEstab, false)
end

AddEvent( nil, false, nil, FuneralBackCertificate, nil, "enter_degreeCU" )


-- 30.1090 Enter Open Ledger CU

function enter_openledgerCU()
	PlayDialog( nil, "M5_GRISSOM_1609" )
end

AddEvent( nil, false, nil, FuneralBackLedgerOpen, nil, "enter_openledgerCU" )


-- 30.1200 Pick Ledger Note

function pick_ledgernote()
	SetActive( HFuneralBackLedgerCU, false )
	SetActive( HFuneralBackLedgerOpen, false )
	SetActive( HFuneralBackLedgerEstab, false )
	SetVisible( OFuneralBackLedgerOpen1, false )
	SetVisible( OFuneralBackLedgerOpen2, false )
	AddEvidence( EDLedgerNoteFuneral )
	AddEvidenceDescriptionText( EDLedgerNoteFuneral, "_TB_E2100" )
	PlayDialog( nil, "M5_GRISSOM_1610" )
end

AddEvent( nil, false, gloves, HFuneralBackLedgerOpen, nil, "pick_ledgernote" )


-- 30.1210 Open Drawer

function open_drawer()
	-- Sound "drawer_open_01.swa"
	PlayDialog( nil, "M5_GRISSOM_1611" )
end

AddEvent( nil, false, nil, FuneralBackDrawerOpen, nil, "open_drawer" )


-- 30.1220 Pick Handwritten Page ( Drawer )

function pick_handpaper()
	AddEvidence( EDHandwrittenPage )
	AddEvidenceDescriptionText( EDHandwrittenPage, "_TB_E2103")
	SetVisible( OFuneralBackReceiptClosed, false )
	SetVisible( OFuneralBackReceiptOpen, false )
	SetActive( HFuneralBackReceiptClosed, false )
	SetActive( HFuneralBackReceiptOpen, false )
	SetActive( HFuneralBackDrawerEstab, false )
end

AddEvent( nil, false, gloves, HFuneralBackReceiptClosed, nil, "pick_handpaper" )


-- 30.1230 Pick Keys

function pick_keys()
	AddEvidence( EIKeys )
	AddEvidenceDescriptionText( EIKeys, "_TB_E3016")
	SetVisible( OFuneralBackKeysEstab, false )
	SetVisible( OFuneralBackKeys, false )
	SetActive( HFuneralBackKeys, false )
	SetActive( HFuneralBackKeysEstab, false )
end

AddEvent( nil, false, gloves, HFuneralBackKeys, nil, "pick_keys" )


-- 30.1240 Enter OPTable CU

function enter_OPtableCU()
	PlayDialog( nil, "M5_GRISSOM_1613" )
end

AddEvent( nil, false, nil, FuneralBackTrack, nil, "enter_OPtableCU" )


-- 30.1250 Collect SkidMarkFuneralHome

function funeral_skidmark()
	AddEvidence( ETSkidMarkFuneralHome )
	AddEvidenceDescriptionText( ETSkidMarkFuneralHome, "_TB_E2106")
	SetActive( HFuneralBackTrackEstab, false )
	SetActive( HFuneralBackTrack, false )
end

AddEvent( nil, false, adhesive, HFuneralBackTrack, nil, "funeral_skidmark" )


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

-- 30.1260 Enter Garbage Can CU

function enter_garbagecanCU()
	PlayDialog( nil, "M5_GRISSOM_1614" )
end

AddEvent( EVGarbageCanCU, false, nil, FuneralBackGarbage, nil, "enter_garbagecanCU" )


-- 30.1270 Enter Body Bag Stain CU

function enter_bodybagstainCU()
	PlayDialog( nil, "M5_GRISSOM_1615" )
	AddEvidence( ETVinylFragBag )
	AddEvidenceDescriptionText( ETVinylFragBag, "_TB_E2114" )
end

AddEvent( nil, false, nil, FuneralBackGarbageBlood, nil, "enter_bodybagstainCU" )


-- 30.1280 Bag Stain Luminol

function bagstain_luminol()
	SetActive( OGarbageLuminolEffect, false )
--	PlayDialog( nil, "M5_GRISSOM_1616" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_bodybag01a.xmv", "Art\\Reenactments\\Pictures\\rnct_bodybag01a.tga", "_TB_Z1766", nil, "M5_GRISSOM_1616" ) --"rnct_bodybag01a.bik"
end

AddEvent( EVLuminolStainBag, false, luminol, OGarbageLuminolEffect, nil, "bagstain_luminol" )


-- 30.1290 Swab Blood Bag

function bagstain_blood_cond()
	return IsEventDone( EVLuminolStainBag )
end

function bagstain_blood()
	SetActive( HFuneralBackGarbageBlood, false )
	SetActive( HFuneralBackGarbageRipLeft, false )
	AddEvidence( ETBloodBagSample )
	AddEvidenceDescriptionText( ETBloodBagSample, "_TB_E2113" )
end

AddEvent( nil, false, swab, HFuneralBackGarbageBlood, "bagstain_blood_cond", "bagstain_blood" )




-- 30.1400 Body Bag Vinyl pick

--Nandu: magnifier effect
function bodybagvinyl_magnify()
	ZoomToRoom( FuneralBackGarbageMag );
end

AddEvent( nil, true, magnifier, HFuneralBackGarbageRip, nil, "bodybagvinyl_magnify" )

function bodybagvinyl_pick()
	SetActive( HFuneralBackGarbageRip, false )
	SetActive( HFuneralBackGarbageRipRight, false )
	SetActive( HFuneralBackRipTool, false )
	SetVisible( OFuneralBackGarbageRip, false )
	SetVisible( OFuneralBackRipMag, false )
	AddEvidence( ETVinylFragBag )
	AddEvidenceDescriptionText( ETVinylFragBag, "_TB_E2114" )
end

AddEvent( nil, false, tweezers, HFuneralBackRipTool, nil, "bodybagvinyl_pick" )



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

-- 30.1500 Enter Fridge Door prewarrant 

function fridgedoor_prewar_cond()
	return not IsQuestionAsked( WarrantLocations,"_TB_Q823" )
end

function fridgedoor_prewar()
	PlayDialog( nil, "M5_GRISSOM_1617" )
end

AddEvent( nil, false, nil, FuneralBackDoor, "fridgedoor_prewar_cond", "fridgedoor_prewar" )


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

-- 37.1000 Enter Cooler Door CU

function enter_fridge_doorCU()
	PlayDialog( nil, "M5_GRISSOM_1670" )
end

AddEvent( nil, false, nil, FuneralFreezerClosed, nil, "enter_fridge_doorCU" )


-- 37.1010 Cooler Door Opened

function cooler_door_opened()
	PlayDialog( nil, "M5_GRISSOM_1671" )
end

AddEvent( nil, false, nil, FuneralFreezerOpened, nil, "cooler_door_opened" )


-- 37.1020 Enter Coffin CU

function enter_coffinCU()
	PlayDialog( nil, "M5_GRISSOM_1672" )
end

AddEvent( nil, false, nil, FuneralFreezerBody, nil, "enter_coffinCU" )


-- 37.1020 Coffin Ernie

function enter_coffinernie()
	PlayDialog( nil, "M5_GRISSOM_1673" )
	PlayDialog( nil, "M5_GRISSOM_1674" )
	AddVictim( Ernie,"Ernie Rowntree","Art\\Reenactments\\Pictures\\ernie_rowntree.tga")
	SetCharacterPicture( Ernie, "Art\\Reenactments\\Pictures\\ernie_rowntree.tga" )
end

AddEvent( EVErnieFound, false, nil, FuneralFreezerUp, nil, "enter_coffinernie" )


-- Final Questions Victor

function display_questions_victor()
	DisplayQuestionList( Victor )
--	if not HasQuestion(Victor) then
--		PlayDialog ( Victor, "M5_VICTOR_1697")
--	end

end

AddEvent( nil, true, nil, Victor, nil, "display_questions_victor" )


-- Questions Grissom

function display_questions_grissom()
	DisplayQuestionList( Grissom )
end

AddEvent( nil, true, nil, HFuneralBackGrissom, nil, "display_questions_grissom" )        -- in back room
AddEvent( nil, true, nil, HFuneralFreezerGrissomCU, nil, "display_questions_grissom" )   -- in freezer
AddEvent( nil, true, nil, HFuneralGrissom1, nil, "display_questions_grissom" )   -- in funeral
AddEvent( nil, true, nil, FuneralGrissom1, nil, "display_questions_grissom" )