-- 13.2 Q1

function leda_question_4200_cond()
	return IsQuestionAsked(Brass, "TEXT4195")
end

function leda_question_4200()
	PlayDialog( Leda, "M5_LEDA_02A" )
-- PlayMovie()
	PlayMovie ( Leda, "20_leda_from_stand.xmv" )
	PlayMovie ( Leda, "20_leda_type.xmv" )
	PlayMovie ( Leda, "20_leda_type.xmv" )
	PlayMovie ( Leda, "20_leda_to_stand.xmv" )
	PlayDialog( Leda, "M5_LEDA_02B" )
	NewEvent(nil, EVFinishLeda)

end

AddQuestion ( Leda, false, nil, "TEXT4200", nil, nil, "leda_question_4200" )

-- Q2

function leda_question_4201()
	PlayDialog( Leda, "M5_LEDA_03A" )
	PlayMovie ( Leda, "20_leda_from_stand.xmv" )
	PlayMovie ( Leda, "20_leda_type.xmv" )
	PlayMovie ( Leda, "20_leda_to_stand.xmv" )
	SetIdleMovie ( Leda, "20_leda_idle.xmv" )
	SetTalkMovie ( Leda, "20_leda_talk.xmv" )
	PlayDialog( Leda, "M5_LEDA_03C" )
	AddSuspect(Leda, "Leda Callisto", "Art\\Reenactments\\Pictures\\leda.tga")
	UpdateCaseFile(Leda, SUSPECT_VICTIM, "TEXT4160", 100)
end

AddQuestion ( Leda, false, nil, "TEXT4201", nil, nil, "leda_question_4201" )


-- Q3
function leda_question_4202_cond()
	return IsQuestionAsked(Leda, "TEXT4201")
end


function leda_question_4202()
	PlayDialog( Leda, "M5_LEDA_04" )
end

AddQuestion ( Leda, false, nil, "TEXT4202", nil, "leda_question_4202_cond", "leda_question_4202" )

-- Q4

function leda_question_4203_cond()
	return IsQuestionAsked(Leda, "TEXT4202")
end


function leda_question_4203()
	PlayDialog( Leda, "M5_LEDA_05" )
---------------------------------------------------------------
-- LOCATION ADDED - DOCOFFICE
     AddLocation(DocOffice)
---------------------------------------------------------------
      AddSuspect(DrWilk, "Dr. Wilkinson", "Art\\Reenactments\\Pictures\\drwilkinson.tga")
	UpdateCaseFile(DrWilk, SUSPECT_VICTIM, "TEXT4171", 200)
 	UpdateCaseFile(DrWilk, INFORMATION, "TEXT4172")
	NewEvent(nil, EVFinishLeda)
end

AddQuestion ( Leda, false, nil, "TEXT4203", nil, "leda_question_4203_cond", "leda_question_4203" )