'/// AddRandomAnim 1.0 for XSI 3.5+
'/// By Homam Bahnassi - In|Framez 2003
'--------------------------------------

set oSelection = Application.Selection

AddRandomAnim oSelection, , 0

function AddRandomAnim(oObjectsCollection, aParams, iSeed)
if oObjectsCollection.Count = 0 then
	logmessage "AddRandomAnim: Objects required..."
	AddRandomAnim = false
	exit function
end if

if typename(aParams) <> "Error" then
	on error resume next
	for each oObj in oObjectsCollection
		for iParam = lbound(aParams) to ubound(aParams)
			dOrigin = GetValue (oObj & "." & aParams(iParam))
			if err.number = 5 then
				logmessage aParams(iParam) & " is not a valid parameter"
				AddRandomAnim = false
				exit function
			end if
			SetExpr oObj & "." & aParams(iParam), dOrigin & "+rand_0_1(" & int(iSeed) & ")"
		next
	next
	on error goto 0
else
	for each oObj in oObjectsCollection
		for each oParam in oObj.Parameters
			if oParam.Marked = true then
				dOrigin = GetValue (oParam)
				SetExpr oParam, dOrigin & "+rand_0_1(" & int(iSeed) & ")"
			end if
		next
	next
end if
AddRandomAnim = true
end function