Convert MovePart and Sound

--MOVEPART & SOUND CONVERTER (Code by Gam73)
--Paste & run in the command line

for _,TimelineFolder in ipairs(workspace:GetDescendants()) do
    if TimelineFolder:IsA("Folder") and TimelineFolder.Name == "Timelines" then
        local SoundFolder = Instance.new("Folder",TimelineFolder.Parent) --Stores converted sounds
        SoundFolder.Name = "SoundObjectFolder"
        for _,OBJ in ipairs(TimelineFolder:GetDescendants()) do
            if OBJ:IsA("ObjectValue") then
                if OBJ:GetAttribute("XFrame_Function") == "MovePart" then --MOVEPART
                    OBJ:SetAttribute("XFrame_Function","SetProperties")
                    OBJ:SetAttribute("Property_Origin",CFrame.new(OBJ:GetAttribute("Translation")))
                    OBJ:SetAttribute("XFrame_ApplyToDescendants",false)

                    if OBJ:GetAttribute("UseLocalSpace") then
                        OBJ:SetAttribute("Operator","*")
                    else
                        OBJ:SetAttribute("Operator","+")
                    end

                    if OBJ:GetAttribute("EasingDirection") then
                        OBJ:SetAttribute("Tween_EasingDirection",OBJ:GetAttribute("EasingDirection"))
                    else
                        OBJ:SetAttribute("Tween_EasingDirection","InOut")
                    end

                    if OBJ:GetAttribute("EasingStyle") then
                        OBJ:SetAttribute("Tween_EasingStyle",OBJ:GetAttribute("EasingStyle"))
                    else
                        OBJ:SetAttribute("Tween_EasingStyle","Linear")
                    end

                    --Clear old attributes
                    OBJ:SetAttribute("UseLocalSpace",nil)
                    OBJ:SetAttribute("Translation",nil)
                    OBJ:SetAttribute("EasingDirection",nil)
                    OBJ:SetAttribute("EasingStyle",nil)

                elseif OBJ:GetAttribute("XFrame_Function") == "Sound" then --SOUND
                    OBJ:SetAttribute("XFrame_Function","SetProperties")
                    OBJ:SetAttribute("Property_Playing",true)

                    local SoundObject = Instance.new("Sound")
                    SoundObject.Name = OBJ.Name .. " SoundObject"
                    if OBJ.Value then
                        SoundObject.Parent = OBJ.Value
                    else
                        SoundObject.Parent = SoundFolder
                    end
                    SoundObject.PlaybackSpeed = OBJ:GetAttribute("Pitch")
                    SoundObject.Volume = OBJ:GetAttribute("Volume")
                    SoundObject.SoundId = "rbxassetid://"..tostring(OBJ:GetAttribute("SoundId"))

                    OBJ.Value = SoundObject

                    --Clear old attributes
                    OBJ:SetAttribute("Pitch",nil)
                    OBJ:SetAttribute("Volume",nil)
                    OBJ:SetAttribute("SoundId",nil)

                elseif OBJ:GetAttribute("Property_CFrame") and OBJ:GetAttribute("Operator") == "+" then --Convert to Property_Origin
                    OBJ:SetAttribute("Property_Origin",OBJ:GetAttribute("Property_CFrame"))
                    OBJ:SetAttribute("Operator","*")
                    OBJ:SetAttribute("Property_CFrame",nil)
                end
            end
        end
    end
end