' select pelvis
' move character forward by changing all z position keyframes
zoffset = 10
exportFile = "TRAM_with_offset.dae"
exportFolder = CreateObject("WScript.Shell").SpecialFolders("Desktop")
exportPath = exportFolder & "\" & exportFile

set obj = selection(0) ' for a simpler object name
pxkeys = obj.posz.Source.Keys.count
logmessage "position z keys: " & pzkeys
exportShadowDaeWithZOffset

function exportShadowDaeWithZOffset
	for each k in obj.posz.Source.Keys
		logmessage "index: " & k.index & " // time: " & k.time & " // value: " & k.value
		addZOffset k.value + zoffset, k.time
	next
	
	exportDae

	' undo offset to keep original animation
	for each k in obj.posz.Source.Keys
		addZOffset k.value - zoffset, k.time
	next
end function

function addZOffset(newPZ, atFrame)
  	Translate , 0, 0, newPZ, siAbsolute, siView, siObj, siZ, True, , , , , , , , , 0
	SaveKey obj&".kine.local.posz", atFrame, , , , False
end function

function exportDae
	SelectObj obj, "TREE", True
	set oProps = ActiveProject.ActiveScene.Root.Properties
	if typename (oProps.find("ExportCrosswalkOptions")) = "Nothing" then
		CreateExportCrosswalkOptions , "ExportCrosswalkOptions"
	end if
	' sets the extension to dae
	SetValue "ExportCrosswalkOptions.Format", 1
	' set export path and file name
	SetValue "ExportCrosswalkOptions.Filename", exportPath
	' selection only
	SetValue "ExportCrosswalkOptions.ExportSelectionOnly", True
	' export
	ExportCrosswalk "ExportCrosswalkOptions"
end function