'
' This example illustrates how to create a simple actionsource, access the actionsource 
' from the model and mute one of the source items. The modified actionsource is then used 
' to create an action clip.
'
NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
' These commands were cut and pasted from scripting history
' and modified to work in a script.
' The commands create a simple actionsource from some animation on
' the nulls position
set oNull = GetPrim( "Null" )
strPosParams = oNull & ".kine.local.posx," & oNull & ".kine.local.posy," & oNull & ".kine.local.posz"
Translate oNull, -8.153, 7.015, -0.702, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 1.000
Translate oNull, 8.350, -8.935, 0.894, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 50.000
Translate oNull, 9.413, 8.935, -0.894, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 100.000
StoreAction oRoot, strPosParams, 2, "StoredFcvAction", True, 1, 100
' Get the actionsource from the model
set oActionSource = oRoot.Sources("StoredFcvAction")
' Find animation source item with posx and mute it
for each oSourceItem in oActionSource.SourceItems
	if InStr(1,CStr(oSourceItem.Target),"posx",vbTextCompare)<>0 then
		LogMessage "muting " & oSourceItem.Target
		oSourceItem.Active = False
		exit for
	end if
next
' Apply actionsource with muted posx
ApplyAction oActionSource, oNull
' Output of above script:
'INFO : muting null.kine.local.posx