I'm trying to change text based on director position and trying to show current director position but can not work.
Any help with this?
'--------------------------------------------------------
Dim output As xpOutputFramebuffer
Dim dir As xpSceneDirector
Dim scene As xpScene
dim txt1 as xpBaseObject
dim txt2 as xpBaseObject
engine.GetOutputFramebuffer(0, output)
output.GetSceneOnLayer(0, scene)
scene.GetSceneDirectorByName("MyDir", dir)
scene.GetObjectByName("Text1", txt1)
scene.GetObjectByName("Text2", txt2)
dim i as integer
i = dir.Position
if i > 0 then
txt1.text = "My Text 001"
else
txt1.text = "My Text 002"
end if
txt2.text = dir.Position
'-------------------------------