I've not tested but something like this will probably work.
dim optiontext as xpTextObject
dim director1 as xpSceneDirector
dim director2 as xpSceneDirector
Self.GetObjectByName("OPTION", optiontext)
Self.GetSceneDirectorByName("DIR1", director1)
Self.GetSceneDirectorByName("DIR2", director2)
if optiontext.text = "1" then
director1.playrange(0, director1.duration)
end if
if optiontext.text = "2" then
director2.playrange(0, director2.duration)
end if
#XPression