utility boneRenamer "Bone Renaming Script"
(
	button renameBonesButtons "Rename Bones" width:143
	button makeTestObjects "create test objects" width:143

	on renameBonesButtons pressed do
	(
		local nameMap = #( \
			dataPair "Bip01_R_" "Bip01 R ",
			dataPair "Bip01_L_" "Bip01 L ",
			dataPair "Bip01_" "Bip01 ",
			dataPair "bip01_" "Bip01 ",
			dataPair "Bip001 " "Bip01 ",
			dataPair "Bip001-" "Bip01 ",
			dataPair "Bip001" "Bip01",
			dataPair "FBX_" "Bip01 ",
			dataPair "r_" "R ",
			dataPair "l_" "L ",
			dataPair "R-" "R ",
			dataPair "L-" "L ",
			dataPair "clavicle" "Clavicle",
            dataPair "arm_a" "UpperArm",
			dataPair "arm_b" "Forearm",
			dataPair "wrist" "Hand",
			dataPair "finger" "Finger",
            dataPair "spine_a_pelvis" "Pelvis",
			dataPair "spine_b_waist" "Spine",
			dataPair "spine_bb_torso" "Spine1",
			dataPair "spine_c_chest" "Spine2",
			dataPair "spine_d_neck" "Neck",
			dataPair "spine_e_head" "Head",
            dataPair "leg_a" "Thigh",
			dataPair "leg_b" "Calf",
			dataPair "foot" "Foot",
			dataPair "toe" "Toe0"
            -- add more mappings here
        )

    	for namePair in nameMap do ( -- check name pattern

    		for obj in objects where matchPattern obj.name pattern:("*" + namePair.v1 + "*") do ( -- parse all objects that match the pattern with the name of the object
    			obj.name = substituteString obj.name namePair.v1 namePair.v2 -- replace the strings
    		)
    	)
	)
	on makeTestObjects pressed do
	(
		local nameMap = #( \
			dataPair "Bip01_R_" "Bip01 R ",
			dataPair "Bip01_L_" "Bip01 L ",
			dataPair "Bip01_" "Bip01 ",
			dataPair "bip01_" "Bip01 ",
			dataPair "Bip001 " "Bip01 ",
			dataPair "Bip001-" "Bip01 ",
			dataPair "Bip001" "Bip01",
			dataPair "FBX_" "Bip01 ",
			dataPair "r_" "R ",
			dataPair "l_" "L ",
			dataPair "R-" "R ",
			dataPair "L-" "L ",
			dataPair "clavicle" "Clavicle",
            dataPair "arm_a" "UpperArm",
			dataPair "arm_b" "Forearm",
			dataPair "wrist" "Hand",
			dataPair "finger" "Finger",
            dataPair "spine_a_pelvis" "Pelvis",
			dataPair "spine_b_waist" "Spine",
			dataPair "spine_bb_torso" "Spine1",
			dataPair "spine_c_chest" "Spine2",
			dataPair "spine_d_neck" "Neck",
			dataPair "spine_e_head" "Head",
            dataPair "leg_a" "Thigh",
			dataPair "leg_b" "Calf",
			dataPair "foot" "Foot",
			dataPair "toe" "Toe0"
            -- add more mappings here
        )

    	for namePair in nameMap do
		(
			box name:namePair.v1
		)
	)
)
openUtility boneRenamer