-- Circus 
-- Conditie intrare: 
function fadein_circus()
		PlayIntroMovie( "Art\\Movie\\Flyin\\intro_circus01a.xmv" )


	FadeIn()

		PlayDialog( Arnold, "M5_ARNOLD_1416" )
		ChangeRoom( CircusGrissom )
		EndDisplayQuestionList( Grissom )
		PlayDialog( Grissom, "M5_GRISSOM_1417" )
		ChangeRoom( CircusArnold )
		PlayDialog( Arnold, "M5_ARNOLD_1418" )
		ChangeRoom( CircusGrissom )
		EndDisplayQuestionList( Grissom )
		PlayDialog( Grissom, "M5_GRISSOM_2021" )
		ChangeRoom( CircusArnold )
		PlayDialog( Arnold, "M5_ARNOLD_2023" )
		ChangeRoom( CircusGrissom )
		EndDisplayQuestionList( Grissom )
		SetBackRoom( CircusGrissom, CircusPanoRoom ) 
		PlayDialog( Grissom, "M5_GRISSOM_2024" )
		AddSuspect( Arnold,"Arnold Ziegler","Art\\Reenactments\\Pictures\\arnold_ziegler.tga")
		ChangeLink( HPanoSandyArea, CircusTracks )

	ChangeRoom( CircusPanoRoom )

end

AddEvent( EVCircusEnter, false, nil, CircusArnold, nil, "fadein_circus" )


function circus_enter()
	if not IsEventDone( EVCircusIntro ) then
		ChangeRoom( CircusArnold )
	end

	if IsEventDone( EVCircusIntro ) and (not IsQuestionAsked( WarrantSuspects, QIDArnoldInt1 )) then
		ChangeRoom( CircusPanoRoom )
		FadeIn()
		EndDisplayQuestionList()
		EndDisplayQuestionList(Arnold)
	end

	if IsEventDone( EVCircusIntro ) and IsQuestionAsked( Brass, "_TB_Q779" ) then
		SetVisible( OArnoldCircus, false)
		SetActive( HPanoArnold, false)
		FadeIn()
		ChangeRoom( CircusPanoRoom )
		EndDisplayQuestionList(Arnold)
		EndDisplayQuestionList()
	end
	
end

AddEvent( EVCircusIntro, true, nil, Circus, nil, "circus_enter" )




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

-- 2.1210 Enter DragonPen

function dragon_penCU()
	ChangeLink( HCircusLogHair, TOOLS )
	PlayDialog( nil, "M5_GRISSOM_1429" )
end

AddEvent( nil, false, nil, CircusDragonPen, nil, "dragon_penCU" )


-- 2.1220 Enter ToeBloodCU

function toeblood_CU()
	UpdateCaseFile( KomodoDragon, VICTIM_CRIMESCENE, "_TB_E4420", 100 )
--	PlayDialog( nil, "M5_GRISSOM_1430" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_komodoemerge01a.xmv", "Art\\Reenactments\\Pictures\\rnct_komodoemerges01a.tga", "_TB_Z1800", nil, "M5_GRISSOM_1430" ) --"rnct_komodoemerge01a.bik"
end

AddEvent( nil, false, nil, CircusToeEstab, nil, "toeblood_CU" )


-- 2.1230 

function toe_pick()
	SetActive( HCircusToeCU, false )
	SetActive( HCircusToe, false )
	SetActive( HCircusToeEstab, false )
	SetVisible( OCircusToeEstab, false )
	SetVisible( OCircusToeCU, false )
	SetVisible( OCircusToe, false )
	AddEvidence( EIHumanToe )
	AddEvidenceDescriptionText( EIHumanToe, "_TB_E1796" )
	PlayDialog( nil, "M5_GRISSOM_1431" )
end

AddEvent( nil, false, gloves, HCircusToeCU, nil, "toe_pick" )


-- 2.1240 Cobra Cage CU - before SnakePhoto from CircusOffice

function cobra_cageCU_cond()
	return not HasEvidence( EDPhotoSnake )
end

function cobra_cageCU()
	PlayDialog( nil, "M5_GRISSOM_1432" )
end

AddEvent( EVCobraCage, false, nil, CircusSnake,"cobra_cageCU_cond", "cobra_cageCU" )


-- 2.1241 Cobra Cage CU - after SnakePhoto from CircusOffice

function cobra_cageCU_cond2()
	return HasEvidence( EDPhotoSnake )
end

function cobra_cageCU2()
	if not IsEventDone( EVCobraCage ) then
		PlayDialog( nil, "M5_GRISSOM_1432" )
	end
		PlayDialog( nil, "M5_GRISSOM_1433" )
end

AddEvent( nil, false, nil, CircusSnake,"cobra_cageCU_cond2", "cobra_cageCU2" )


-- 2.1250 Cast Tread Marks

function circus_treadmarks()
	SetVisible( OCircusTracksCU, true )
	PlaySound( nil, "CASTPOUR" )
	SetVisible( OCircusTracksCU, false )
	SetActive( HPanoSandyArea, false )
	SetActive( HCircusTracksCU, false )
	AddEvidence( ETTreadMarksCirque )
	AddEvidenceDescriptionText( ETTreadMarksCirque , "_TB_E1795" )
end

AddEvent( nil, false, cast, HCircusTracksCU,nil, "circus_treadmarks" )


-- 2.1260 Cactus vinyl pick
function circusvinyl_magnify()
	ZoomToRoom( CircusVinyl );
end
AddEvent( nil, true, magnifier, HCircusCactus, nil, "circusvinyl_magnify" )

function cactus_vinylMAG()
	PlayDialog( nil, "M5_GRISSOM_1434" )
end

AddEvent( nil, false, nil, CircusVinyl,nil, "cactus_vinylMAG" )


function cactus_vinyl_pick()
	SetActive( HCircusVinylCU, false )
	SetActive( HCircusCactus, false )
	SetActive( HPanoCactus, false )
	SetVisible( OCircusVinylCU, false )
	SetVisible( OCircusCactus, false )
	AddEvidence( ETCactusVinylFlake )
	AddEvidenceDescriptionText( ETCactusVinylFlake , "_TB_E1798" )
end

AddEvent( nil, false, gloves, HCircusVinylCU,nil, "cactus_vinyl_pick" )
AddEvent( nil, false, tweezers, HCircusVinylCU,nil, "cactus_vinyl_pick" )

	


-- 2.1265 Driftwood Pick

--function driftwood_pick_cond()
--	return HasEvidence( ETSmallHairDriftwood )
--end
 
function driftwood_pick()
	SetActive( HCircusLogCU, false )
	SetActive( HCircusLogEstab, false )
	SetVisible( OCircusLogCU, false )
	SetVisible( OCircusLogEstab1, false )
	SetVisible( OCircusLogMagnified, false )
	SetVisible( OCircusLogHair, false )
	SetActive( HCircusLogMagnified, false )
	SetActive( HCircusLogHair, false )
	AddEvidence( EIDriftwod )
	AddEvidenceDescriptionText( EIDriftwod, "_TB_E1807" )
end

AddEvent( nil, false, gloves, HCircusLogCU,"driftwood_pick_cond", "driftwood_pick" )




-- 2.1270 DriftWood Hair Pick

function driftwood_hairpick()
	SetActive( HCircusLogMagnified, false )
	SetActive( HCircusLogHair, false )
	SetVisible( OCircusLogMagnified, false )
	SetVisible( OCircusLogHair, false )
	
	SetVisible( EOBJ_driftwoodHair_Zoom, false )              -- pt popup
	SetActive( EHOTSPOT_circusLog_H, false )                  -- pt popup
	SetActive( EHOTSPOT_driftwoodHair, false )                -- pt popup
	
	AddEvidence( ETSmallHairDriftwood )
	AddEvidenceDescriptionText( ETSmallHairDriftwood, "_TB_E1800" )
end

AddEvent( EVCircusHair, false, tweezers, HCircusLogMagnified,nil, "driftwood_hairpick" )


-- 2.1280 Hair Magnified

function hair_magnified()
	ZoomToRoom( CircusLogHairMag )
end

AddEvent( nil, true, magnifier,  HCircusLogHair,nil, "hair_magnified" )

function hair_magnified_diag()
	PlayDialog( nil, "M5_GRISSOM_1435" )
end

AddEvent( nil, false, magnifier,  HCircusLogHair,nil, "hair_magnified_diag" )


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

-- Display Arnold Questions -- trebuie schimbat CircusArnold cu Arnold
function circus_arnold_quest_room()
	if not IsEventDone( EVFirstDisplay ) then
		return
	else
--		DisplayQuestionList( Arnold )
		if not DisplayQuestionList( Arnold ) then
			PlayDialog ( Arnold, "M5_ARNOLD_2457")
		end
	end
end

AddEvent( EVFirstDisplay, true, nil, CircusArnold, nil, "circus_arnold_quest_room" )


function circus_arnold_quest()
--	DisplayQuestionList( Arnold )
	if not DisplayQuestionList( Arnold ) then
		PlayDialog ( Arnold, "M5_ARNOLD_2457")
	end

end

AddEvent( nil, true, nil, Arnold, nil, "circus_arnold_quest")



-- Display Grissom Questions ( pe HOTSPOT )

function circus_grissom_quest()
	DisplayQuestionList( Grissom )
end

AddEvent( nil, true, nil, HCircusGrissomCU, nil, "circus_grissom_quest" )

function circus_grissom_room()
	if not IsEventDone( EVGrissomCircusFirst ) then
		return
	else
		DisplayQuestionList( Grissom )
	end
end
AddEvent( EVGrissomCircusFirst, true, nil, CircusGrissom, nil, "circus_grissom_room" )