-- 3
-- function fadein_casino()
--	ChangeRoom( CasinoIntro )
--	FadeIn()
--end

--AddEvent( nil, true, nil, Casino, nil, "fadein_casino" )

-- 3.2

function casino_intro1()
	if IsEventDone(FirstTimeCasino) then
		ChangeRoom( CasinoPanoRoom )
		if IsEventDone (EVOpenBarell) and (not HasEvidence (EIStickySubstPens) or not HasEvidence (EIDirtPens)) then
			ChangeRoom( CasinoPanoRoom )
		else
			--SetVisible( OPanoBody, false )
			SetVisible( WarrickPanoCrouch, false )
			SetVisible( WarrickPanoStand, true )
			SetActive( HPanoBody, false)
			SetActive( HPanoBarrelDown, true)
			SetActive( HPanoWarrickCrouch, false)
			SetActive( HPanoWarrickStand, true)
		end
		FadeIn()
	else
		ChangeRoom( CasinoIntro )
		FadeIn()
		PlayDialog( Warrick, "M5_WARR_08" )
		PlayDialog( Trainer, "M5_TRAIN_01" )	
		PlayDialog( Warrick, "M5_WARR_09" )
		ChangeRoom( CasinoPanoRoom )
		SetActive(HPanoBarrelDown, false)
		SetActive(HPanoWarrickCrouch, false)
	end
end

AddEvent( FirstTimeCasino, true, nil, Casino , nil, "casino_intro1" )

--function casino_intro2()
  --    if IsEventDone(FirstTimeCasino) then
--	ChangeRoom( CasinoPanoRoom )
--	FadeIn()
--	end

--end

--AddEvent( nil, true, nil, Casino , nil, "casino_intro2" )

-- 3.2.1

function trainer_closeup()
--	DisplayQuestionList(Trainer)
	if not DisplayQuestionList(Trainer) then
		PlayDialog(Trainer, "M5_TRAIN_50")
	end

end

AddEvent( nil, true, nil, CasinoTrainer, nil, "trainer_closeup" )

function trainer_dialog()
--	DisplayQuestionList(Trainer)
	if not DisplayQuestionList(Trainer) then
		PlayDialog(Trainer, "M5_TRAIN_50")
	end

end

AddEvent( nil, true, nil, Trainer, nil, "trainer_dialog" )


-- 3.3.1
function enter_tire()
	SetVisible(OCasinoTread, false)
end
AddEvent( nil, false, nil, CasinoTread , nil, "enter_tire" )


function casino_smuged_tread()
	SetVisible(OCasinoTread, true)
	PlaySound (nil, "CASTPOUR")
	SetVisible(OCasinoTread, false)
	PlayDialog( nil, "M5_WARR_10" )
	AddEvidence(ETTireCasino)
	AddEvidenceDescriptionText(ETTireCasino, "TEXT4011")
	SetActive(HCasinoTread, false)
	SetActive(HPanoTire, false)
end

AddEvent( nil, false, cast, HCasinoTread , nil, "casino_smuged_tread" )


-- 3.4.1


function casino_phone_prints()
	PlayDialog( nil, "M5_WARR_11" )
	AddEvidence(ETPhonePrints)
	AddEvidenceDescriptionText(ETPhonePrints, "TEXT4017")
	SetActive(OCasinoPayphone, false) -- nu e obiectul prints definit
	SetActive(HCasinoPayphone, false)
	SetActive(HPanoPhone, false)
end

AddEvent( nil, false, fingerdust, OCasinoPayphone , nil, "casino_phone_prints" )

-- 3.5.1

function casino_intro_barell()
 	PlayDialog( nil, "M5_WARR_86" )
end
AddEvent( EVLookBarell, false, nil, CasinoBarrel , nil, "casino_intro_barell" )

-- 3.5.2
function casino_tool_barell()
	PlayDialog( nil, "M5_WARR_12" )
-- 3.6 trebuie film
--	PlayReenactment( "Art\\Reenactments\\Movie\\warrick_open_barrel.xmv", "Art\\Reenactments\\Pictures\\sophia.tga", "TEXT4318", nil, "M5_WARR_12" )
	PlayIntroMovie("Art\\Reenactments\\Movie\\warrick_open_barrel.xmv") 
---------------------------------------------------------------------
-- CSI LOCATION ADDED - MORGUE	 
	 AddCSILocation(Morgue)
---------------------------------------------------------------------
	SetActive( HPanoBarrelDown, true)
 	SetActive( HPanoBarrelUp, false)
	SetActive( HPanoBody, true )

	SetVisible( WarrickPanoStand, false )
	SetVisible( WarrickPanoCrouch, true )
	SetActive( HPanoWarrickCrouch, true)
	SetActive( HPanoWarrickStand, false)
--	SetVisible( OPanoBody, true )
	ChangeRoom(CasinoPanoRoom)

	PlayDialog( nil, "M5_WARR_13" )

	 AddVictim(Victim, "Unknown victim", "Art\\Reenactments\\Pictures\\sophia.tga") 
	 UpdateCaseFile(Victim, VICTIM_CRIMESCENE, "TEXT4150", 500)
end

AddEvent( EVOpenBarell, false, ircam, HBarrelIR , nil, "casino_tool_barell" )

-- evenimentul care nu permite iesire din camera pana cand nu sunt luate toate probele de pe cadavru
function remain_casino()
	if HasEvidence (EIStickySubstPens) and HasEvidence (EIDirtPens) then	
		OpenLocationsMenu()	
	else
		if IsEventDone (EVOpenBarell) then
			PlayDialog( nil, "M5_WARR_20" )
		else
			OpenLocationsMenu()
		end
	end		
end


AddEvent( nil, true, Casino, nil, nil, "remain_casino" )
-- 3.8.1

function casino_facial_redness()
	PlayDialog( nil, "M5_WARR_14" )
		
end

AddEvent( nil, false, nil, CasinoFace, nil, "casino_facial_redness" )


-- 3.8.3

function casino_gambling_chips()
	AddEvidence(EIMouthChips)
	AddEvidenceDescriptionText(EIMouthChips, "TEXT4125")
	SetVisible(OCasinoChipsClose, false)
	SetActive(HCasinoChipsClose, false)
	SetVisible(OCasinoChipsFar, false)
	SetActive(HCasinoFace, false)
	
end

AddEvent( nil, false, gloves, HCasinoChipsClose , nil, "casino_gambling_chips" )


-- 3.9

function casino_folds_pants()
--	PlayDialog( nil, "M5_WARR_15" )
-- si textul Warr_15 ar trebui sa intre in reenactment...
--	PlayDialog( nil, "M5_WARR_16" )
	PlayReenactment( "Art\\Reenactments\\Movie\\reenact1.xmv", "Art\\Reenactments\\Pictures\\reenact1.tga", "TEXT4316", nil, "REENACT1" )	
end

AddEvent( EVIntroPants, false, nil, CasinoPants , nil, "casino_folds_pants" )

--function casino_folds_pants2_cond()
--	return not HasEvidence(EIStickySubstPens) 
--end

--function casino_folds_pants2()
--	PlayDialog( nil, "M5_WARR_20" )
--end

--AddEvent( nil, true, nil, CasinoPants , "casino_folds_pants2_cond", "casino_folds_pants2" )

-- 3.10

function casino_stain1()
	PlayDialog( nil, "M5_WARR_17" )
	AddEvidence(EIDirtPens)
	AddEvidenceDescriptionText(EIDirtPens, "TEXT4023")
	SetActive(HCasinoDirt, false)
	SetActive(HCasinoDirtClose1, false)
	SetActive(HCasinoDirtClose2, false)
	if HasEvidence(EIStickySubstPens) then
		SetActive(HCasinoPants, false)
	end
	
end

AddEvent( nil, false, adhesive, HCasinoDirtClose1 , nil, "casino_stain1" )
AddEvent( nil, false, adhesive, HCasinoDirtClose2 , nil, "casino_stain1" )
-- 3.11

function casino_stain2()
	PlayDialog( nil, "M5_WARR_18" )
	AddEvidence(EIStickySubstPens)
	AddEvidenceDescriptionText(EIStickySubstPens, "TEXT4029")
	SetActive(HCasinoSap, false)
	SetActive(HCasinoSapClose, false)
	if HasEvidence(EIDirtPens) then
		SetActive(HCasinoPants, false)
	end
	

end

AddEvent( nil, false, adhesive, HCasinoSapClose , nil, "casino_stain2" )

-- 3.14

function casino_elephant()
	PlayDialog( nil, "M5_WARR_83" )
	SetActive(HCasinoElephantCU, false)
	SetActive(HPanoElephant, false)
		
end

AddEvent( nil, false, nil, HCasinoElephantCU , nil, "casino_elephant" )



IncludeFile( "Script\\Gamelogic\\TrainerQuestions.lua" )