'

'	This example shows how to add user data to an ActionSource

'

' First build a simple scene 

NewScene , false

set oCone = ActiveSceneRoot.AddGeometry( "Cone", "MeshSurface" )

SelectObj oCone

Translate , 0, 0.7, 0, siRelative, siView, siObj, siXYZ

SaveKey oCone & ".kine.local.posx", 1

SetValue "PlayControl.Key", 100

Translate , 0, 1, 0, siRelative, siView, siObj, siXYZ

SaveKey oCone & ".kine.local.posx", 100

set oAction = StoreAction( , oCone & ".kine.local.posx", 2, "MyActionIsTheBest", True, 1, 100, False, False )

' Add a CustomProperty nested under the ActionSource

set oActionPSet = oAction.AddProperty( "CustomProperty", , "ActionPSet" )

oActionPSet.AddParameter3 "Foo", siString

' Add a UserDataBlob nested under the ActionSource

set oActionUserDataBlob = oAction.AddProperty( "UserDataBlob" )

LogMessage "There are " & oAction.Properties.Count & " Properties under this Action Source"

' Expected result:

'INFO : "There are 2 Properties under this Action Source"