function fadein_brass_office()
	FadeIn()
	ChangeRoom( BrassRoom01 )
		T = Random (3)
	if T == 1 then
		PlayDialog (Brass, "M0_BRASS_1299")
	end
	if T == 2 then
		PlayDialog (Brass, "M0_BRASS_1300")
	end
	if T == 3 then
		PlayDialog (Brass, "M0_BRASS_1301")
	end

	DisplayQuestionList (Brass)
end

AddEvent( nil, true, nil, BrassOffice, nil, "fadein_brass_office" )

function brass_questions ()
	DisplayQuestionList (Brass)
end	

AddEvent( nil, true, nil, HBrass, nil, "brass_questions" )

-- Can you get me a warrant/interrogation?

function brass_question_TB_Q1149()
	DisplayQuestionList (Warrant)
end

AddQuestion ( Brass, true, nil, "_TB_Q1149", nil, nil, "brass_question_TB_Q1149" )

-- Suspect?
function brass_question_TB_Q1150()
	if not HasQuestion (WarrantSuspects) then
		PlayDialog (Brass, "M0_BRASS_1288")
	else
		DisplayQuestionList (WarrantSuspects)
	end
end

AddQuestion ( Warrant, true, nil, "_TB_Q1150", nil, nil, "brass_question_TB_Q1150" )

-- Location?

function brass_question_TB_Q1151()
	if not HasQuestion (WarrantLocations) then
		PlayDialog (Brass, "M0_BRASS_1289")
	else
		DisplayQuestionList (WarrantLocations)
	end

end

AddQuestion ( Warrant, true, nil, "_TB_Q1151", nil, nil, "brass_question_TB_Q1151" )

-- 3.0
function brass_question_TB_Q971_cond()
	return IsQuestionAsked(Edward, "_TB_Q970")
end

function brass_question_TB_Q971()
	PlayDialog( Brass, "M3_BRASS_2142" )
	ChangeRoom (BrassRoom02)
	PlayDialog( Brass, "M3_BRASS_2645" )
	ChangeRoom( BrassRoom01 )
end

AddQuestion ( Brass, false, nil, "_TB_Q971", nil, "brass_question_TB_Q971_cond", "brass_question_TB_Q971" )

-- 9.1
function brass_question_TB_Q981_cond()
	return IsEventDone(EVGregArrowhead)
end

function brass_question_TB_Q981()
	ChangeRoom (BrassRoom02)
	PlayDialog( Brass, "M3_BRASS_2178" )
	ChangeRoom( BrassRoom01 )
	SetVisible(OJohn, true)
	SetActive(HPanoJohn, true)
	
end

AddQuestion ( Brass, false, nil, "_TB_Q981", nil, "brass_question_TB_Q981_cond", "brass_question_TB_Q981" )

-- 9.2
function brass_question_TB_Q982_cond()
	return IsEventDone(EVCompXrayTrue)
end
function brass_question_TB_Q982()
	
	PlayDialog( Brass, "M3_BRASS_2179" )
	ChangeRoom( BrassRoom02 )
	PlayDialog( Brass, "M3_BRASS_2646" )
	PlayDialog( nil, "M3_SARA_2180" )
	PlayDialog( Brass, "M3_BRASS_2181" )
	ChangeRoom( BrassRoom01 )
	AddLocation( PsychicParlor	)
	AddSuspect(Stella, "Madame Lazora", "Art\\Reenactments\\Pictures\\black.tga")

end

AddQuestion ( Brass, false, nil, "_TB_Q982", nil, "brass_question_TB_Q982_cond", "brass_question_TB_Q982" )
-- Psyhic Parlor

function play_random_location ()
	T = Random (3)
	if T == 1 then
		PlayDialog (Brass, "M0_BRASS_1287")
	end
	if T == 2 then
		PlayDialog (Brass, "M0_BRASS_1286")
	end
	if T == 3 then
		PlayDialog (Brass, "M0_BRASS_1285")
	end

end

function brass_question_TB_L44_cond()
	return IsQuestionAsked(Brass,"_TB_Q982" ) and not IsQuestionAsked (Stella, "_TB_Q991")
end
function brass_question_TB_L44()
	play_random_location ()
end

AddQuestion ( WarrantLocations, true, nil, "_TB_L44", nil, "brass_question_TB_L44_cond", "brass_question_TB_L44" )
-- Madame Lazora

function play_random_suspect ()
	T = Random (9)
	if T == 1 then
		PlayDialog (Brass, "M0_BRASS_1279")
	end
	if T == 2 then
		PlayDialog (Brass, "M0_BRASS_1280")
	end
	if T == 3 then
		PlayDialog (Brass, "M0_BRASS_1278")
	end
	if T == 4 then
		PlayDialog (Brass, "M0_BRASS_1277")
	end
	if T == 5 then
		PlayDialog (Brass, "M0_BRASS_1276")
	end
	if T == 6 then
		PlayDialog (Brass, "M0_BRASS_1275")
	end
	if T == 7 then
		PlayDialog (Brass, "M0_BRASS_1274")
	end
	if T == 8 then
		PlayDialog (Brass, "M0_BRASS_1273")
	end
	if T == 9 then
		PlayDialog (Brass, "M0_BRASS_1281")
	end
end


function brass_question_TB_C56_cond()
	return IsQuestionAsked(Brass,"_TB_Q982" ) 
end


function brass_question_TB_C56()
	play_random_suspect ()	
end

AddQuestion ( WarrantSuspects, true, nil, "_TB_C56", nil, "brass_question_TB_C56_cond", "brass_question_TB_C56" )

-- Elliot

function brass_question_TB_Q1200_cond()
	return IsQuestionAsked(Edward,"_TB_Q965" ) 
end


function brass_question_TB_Q1200()
	play_random_suspect ()	
end

AddQuestion ( WarrantSuspects, true, nil, "_TB_Q1200", nil, "brass_question_TB_Q1200_cond", "brass_question_TB_Q1200" )




-- John Montana
function brass_question_TB_C59_cond()
	return IsQuestionAsked(John,"_TB_Q983" )and (not IsEventDone(EVMicroscopeFiber)or not IsEventDone(EVComputerAdn) or (not IsQuestionAsked(John,"_TB_Q1022" ) and IsEventDone(EVMicroscopeBatGlass)) or (IsQuestionAsked(John,"_TB_Q1022" ) and not IsEventDone(EVMicroscopeBatGlass)))
end
function brass_question_TB_C59()
	play_random_suspect ()	
end

AddQuestion ( WarrantSuspects, true, nil, "_TB_C59", nil, "brass_question_TB_C59_cond", "brass_question_TB_C59" )




-- 13.1
function brass_question_TB_Q996_cond()
	return (IsQuestionAsked(Edward, "_TB_Q966") and IsEventDone(EVCompXrayTrue))
end

function brass_question_TB_Q996()
	
	PlayDialog( Brass, "M3_BRASS_2229" )
	ChangeRoom( BrassRoom02 )

	PlayMovie( Brass, "brass_2_to_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_atcomp_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_atcomp_talk.xmv" )

	PlayDialog( Brass, "M3_BRASS_2525" )
	
	PlayMovie( Brass, "brass_2_from_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_talk.xmv" )

	PlayDialog( Brass, "M3_BRASS_2720" )
	ChangeRoom( BrassRoom01 )
	AddSuspect(Adam, "Adam Kilborn", "Art\\Reenactments\\Pictures\\black.tga")
	UpdateCaseFile(Edward, INFORMATION, "_TB_E4771")
	UpdateCaseFile(Adam, SUSPECT_CRIMESCENE, "_TB_E4770", 200)
end

AddQuestion ( Brass, false, nil, "_TB_Q996", nil, "brass_question_TB_Q996_cond", "brass_question_TB_Q996" )
-- 13.11
function brass_question_TB_Q1008A_cond()
	return IsQuestionAsked(Brass, "_TB_Q996") and not IsQuestionAsked(Brass, "_TB_Q1007")
end

function brass_question_TB_Q1008A()
	
	play_random_suspect ()
end

AddQuestion ( WarrantSuspects, true, nil, "_TB_Q1008", nil, "brass_question_TB_Q1008A_cond", "brass_question_TB_Q1008A", QIDAdamInterroNo )


-- 13.2
function brass_question_TB_Q997_cond()
	return IsQuestionAsked(Brass, "_TB_Q996")
end

function brass_question_TB_Q997()
	ChangeRoom( BrassRoom02 )
	PlayMovie( Brass, "brass_2_to_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_atcomp_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_atcomp_talk.xmv" )

	PlayDialog( Brass, "M3_BRASS_2230" )
	
	PlayMovie( Brass, "brass_2_from_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_talk.xmv" )

	PlayDialog( Brass, "M3_BRASS_2721" )
	ChangeRoom( BrassRoom01 )
	AddLocation( Apartment	)
	UpdateCaseFile(Adam, INFORMATION, "_TB_E4790")
end

AddQuestion ( Brass, false, nil, "_TB_Q997", nil, "brass_question_TB_Q997_cond", "brass_question_TB_Q997" )

-- 13.3

function brass_question_TB_Q1005A_cond()
	return (IsQuestionAsked(Brass, "_TB_Q997") and not IsQuestionAsked(Brass, "_TB_Q1004"))
end

function brass_question_TB_Q1005A()
	play_random_location ()
end

AddQuestion ( WarrantLocations, true, nil, "_TB_Q1005", nil, "brass_question_TB_Q1005A_cond", "brass_question_TB_Q1005A" )



-- 15
function brass_question_TB_Q1003_cond()
	return IsQuestionAsked(Adam, "_TB_Q999")
end

function brass_question_TB_Q1003()
	
	PlayDialog( Brass, "M3_BRASS_2243" )
	UpdateCaseFile(Adam, INFORMATION, "_TB_E4791")
end

AddQuestion ( Brass, false, nil, "_TB_Q1003", nil, "brass_question_TB_Q1003_cond", "brass_question_TB_Q1003" )

-- 15.1
function brass_question_TB_Q1004_cond()
	return IsQuestionAsked(Adam, "_TB_Q1000")
end

function brass_question_TB_Q1004()
	
	ChangeRoom( BrassRoom02 )
	PlayDialog( Brass, "M3_BRASS_2244" )
	
	PlayMovie( Brass, "brass_2_to_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_atcomp_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_atcomp_talk.xmv" )
	
	PlayDialog( Brass, "M3_BRASS_2722" )
	
	PlayMovie( Brass, "brass_2_from_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_talk.xmv" )
	
	PlayDialog( Brass, "M3_BRASS_2723" )
	PlayDialog( nil, "M3_SARA_2245" )
	PlayDialog( Brass, "M3_BRASS_2246" )
	ChangeRoom( BrassRoom01 )
	UpdateCaseFile(Adam, INFORMATION, "_TB_E4792")
	UpdateCaseFile(Skeleton, INFORMATION, "_TB_E4793")
end

AddQuestion ( Brass, false, nil, "_TB_Q1004", nil, "brass_question_TB_Q1004_cond", "brass_question_TB_Q1004" )

-- 15.5  Vista Court
function brass_question_TB_Q1005_cond()
	return IsQuestionAsked(Brass, "_TB_Q1004")
end

function brass_question_TB_Q1005()
	
	ChangeRoom( BrassRoom02 )
	PlayDialog( Brass, "M3_BRASS_2247" )
	ChangeRoom( BrassRoom01 )
	--SetActive( HApartmentAdam0, false)	
	--SetVisible( OAdam,  false)	

end

AddQuestion ( WarrantLocations, false, nil, "_TB_Q1005", nil, "brass_question_TB_Q1005_cond", "brass_question_TB_Q1005", QIDWarrantVista )

-- 21.1  
function brass_question_TB_Q1007_cond()
	return IsQuestionAsked(Stella, "_TB_Q995")
end

function brass_question_TB_Q1007()
	
	ChangeRoom( BrassRoom02 )
	PlayDialog( Brass, "M3_BRASS_2268" )
	
	PlayMovie( Brass, "brass_2_to_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_atcomp_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_atcomp_talk.xmv" )
	
	PlayDialog( Brass, "M3_BRASS_2724" )
	
	PlayMovie( Brass, "brass_2_from_comp.xmv" )

	SetIdleMovie( Brass, "brass_2_idle.xmv" )
	SetTalkMovie( Brass, "brass_2_talk.xmv" )
	
	PlayDialog( Brass, "M3_BRASS_2725" )
	ChangeRoom( BrassRoom01 )
	UpdateCaseFile(Skeleton, INFORMATION, "_TB_E4794")
	RemoveQuestion(Brass, QIDAdamInterroNo)
end

AddQuestion ( Brass, false, nil, "_TB_Q1007", nil, "brass_question_TB_Q1007_cond", "brass_question_TB_Q1007" )

-- 21.1 Adam First 
function brass_question_TB_Q1008_cond()
	return IsQuestionAsked(Brass, "_TB_Q1007")
end

function brass_question_TB_Q1008()
	
	PlayDialog( Brass, "M3_BRASS_2269" )
	EndDisplayQuestionList(Brass)
	ChangeRoom(InterroAdam1)
	PlayDialog( Adam, "M3_KILBORN_2270" )
	ChangeRoom(InterroSara1)
	PlayDialog( Sara, "M3_SARA_2271" )
	ChangeRoom( InterroAdamEstab )
end

AddQuestion ( WarrantSuspects, false, nil, "_TB_Q1008", nil, "brass_question_TB_Q1008_cond", "brass_question_TB_Q1008", QIDAdamInteroFirst )

function click_on_adam_interro ()
--	DisplayQuestionList ( Adam )
	if not DisplayQuestionList ( Adam ) then
		PlayDialog(Adam, "M3_KILBORN_2406")
	end
end
AddEvent ( nil, true, nil, Adam, nil, "click_on_adam_interro" )

function click_on_adam_interro_room ()
	DisplayQuestionList ( Adam )
--	if not HasQuestion(Adam) then
--		PlayDialog(Adam, "M3_KILBORN_2406")
--	end
end
AddEvent ( nil, true, nil, InterroAdamEstab, nil, "click_on_adam_interro_room" )


function brass_question_TB_Q1008_condB()
	return (IsQuestionAsked(Brass, "_TB_Q1007") and IsQuestionAsked(WarrantSuspects, QIDAdamInteroFirst))
end


function brass_question_TB_Q1008B()
	T = Random (2)
	if T == 1 then
		PlayDialog (Brass, "M0_BRASS_1293")
	end
	if T == 2 then
		PlayDialog (Brass, "M0_BRASS_1294")
	end
	EndDisplayQuestionList(Brass)
	ChangeRoom(InterroAdamEstab)
	
end

AddQuestion ( WarrantSuspects, true, nil, "_TB_Q1008", nil, "brass_question_TB_Q1008_condB", "brass_question_TB_Q1008B" )
IncludeFile("Script\\Gamelogic\\AdamInterro_questions.lua" )

-- 29.1  Trailer Office
function brass_question_TB_Q1021_cond()
	return IsQuestionAsked(John, "_TB_Q1020")
end

function brass_question_TB_Q1021()
	
	ChangeRoom( BrassRoom02 )
	PlayDialog( Brass, "M3_BRASS_2342" )
	ChangeRoom( BrassRoom01 )
	AddLocation( Trailer	)
end

AddQuestion ( WarrantLocations, false, nil, "_TB_Q1021", nil, "brass_question_TB_Q1021_cond", "brass_question_TB_Q1021" )

-- 35.11
--trebuie conditiile puse
function brass_question_TB_Q1023a_cond()
	return (not IsQuestionAsked(John,"_TB_Q1022" ) and IsEventDone(EVMicroscopeFiber)and IsEventDone(EVComputerAdn)and not IsEventDone(EVMicroscopeBatGlass))
end


function brass_question_TB_Q1023a()
	PlayDialog( Brass, "M3_BRASS_2364" )
end

AddQuestion ( WarrantSuspects, true, nil, "_TB_Q1023", nil, "brass_question_TB_Q1023a_cond", "brass_question_TB_Q1023a" )

function brass_question_TB_Q1023_cond()
	return (IsQuestionAsked(John,"_TB_Q1022" ) and IsEventDone(EVMicroscopeFiber)and IsEventDone(EVComputerAdn)and IsEventDone(EVMicroscopeBatGlass))
end


function brass_question_TB_Q1023()
	SetActive(HPanoJohn, false)
	SetVisible(OJohn, false)
	if not IsQuestionAsked(WarrantSuspects, QIDJohnInterro) then
		PlayDialog( Brass, "M3_BRASS_2365" )
	else
		T = Random (2)
	if T == 1 then
		PlayDialog (Brass, "M0_BRASS_1293")
	end
	if T == 2 then
		PlayDialog (Brass, "M0_BRASS_1294")
	end

	end
	EndDisplayQuestionList(Brass)
	ChangeRoom(InterroJohnEstab)
	
end

AddQuestion ( WarrantSuspects, true, nil, "_TB_Q1023", nil, "brass_question_TB_Q1023_cond", "brass_question_TB_Q1023", QIDJohnInterro )

function john_question_interro()
	DisplayQuestionList(John)
	if not HasQuestion(John) then
		PlayDialog(John, "M3_MONTANA_2407")
	end

end

AddEvent( nil, true, nil, John, nil, "john_question_interro" )

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

end

AddEvent( nil, true, nil, InterroJohnEstab, nil, "john_question_interro_room" )



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