' ------------------------------------------------------------
'	Copyright (c) 2005 , by Michail Maximov (grifgont.ru)
'	Copy kinematic parameters from one object and store it as action to another.
'
'	Select one object then select another.
'-------------------------------------------------------------

DeselectAll
call PickElement( "object", "Select object", "Select object",_
       sel, ButtonPressed, ModifierPressed) 
if ButtonPressed <> 0 Then 
call PickElement( "object", "Select object", "Select object",_
       selr, ButtonPressed, ModifierPressed) 
if ButtonPressed <> 0 Then 
call PickElement( "object", "Select object", "Select object",_
       object, ButtonPressed, ModifierPressed) 
if ButtonPressed <> 0 Then 
call PickElement( "object", "Select object", "Select object",_
       objectr, ButtonPressed, ModifierPressed) 
if ButtonPressed <> 0 Then 
     CopyAllAnimation2 object
 CopyAllAnimation2 objectr
     else 
       end if
      end if
     end if
    end if
PasteAllAnimation sel
PasteAllAnimation selr
SelectObj sel
SetMarking sel.Kinematics.Local.Parameters
StoreAction sel,, 2, "StoredFcvAction", False, 1, 100, False, False, True, 1
SelectObj selr
SetMarking selr.Kinematics.Local.Parameters
StoreAction selr,, 2, "StoredFcvAction", False, 1, 100, False, False, True, 1