'
'       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"