RigEdit Virus

-- Arch_Mage 2017

local UIS = game:GetService("UserInputService")

local toolbar = plugin:CreateToolbar("RigEdit")
local activateButton = toolbar:CreateButton("Edit Rig","Opens a rig for editing.","rbxassetid://1273824119")
local Mouse = plugin:GetMouse()

for i,v in pairs(game.CoreGui:children()) do
    if v.Name == "RigEditUI" or v.Name == "JointAdornment" or v.Name == "JointHandles" then v:Destroy() end
end

local GUI = script.Parent
GUI.Parent = game.CoreGui
GUI.Enabled = false

local settingsChanged = Instance.new("BindableEvent")

local globalStep = plugin:GetSetting("Step") or 1
plugin:SetSetting("Step",globalStep)

local mainFrame = GUI:WaitForChild("Frame")
local toolsFrame = mainFrame:WaitForChild("Tools")

local toolTip = toolsFrame:WaitForChild("ToolTip")

local optionsFrame = mainFrame:WaitForChild("Options")
local stepBox = optionsFrame:WaitForChild("StepBox")

local lastStepText = stepBox.Text
stepBox.Changed:connect(function()
    if tonumber(stepBox.Text) then
        globalStep = tonumber(stepBox.Text)
        plugin:SetSetting("Step",globalStep)
        settingsChanged:Fire()
        lastStepText = stepBox.Text
    elseif stepBox.Text ~= "" then
        stepBox.Text = lastStepText
    end
end)

local relFrame = optionsFrame:WaitForChild("RelFrame")

local globalAlign = plugin:GetSetting("Align") or "Part0"
plugin:SetSetting("Align",globalAlign)

local toolTips = {
    CreateJoint = "Select parts and create joints.",
    CreateWeld = "Select parts and create welds.",
    Reset = "Select joints and reset them.",
    Default = toolTip.Text
}

local curHover
for i,v in pairs(relFrame:children()) do
    v.MouseEnter:connect(function()
        curHover = v
        v.TextColor3 = Color3.fromRGB(170,170,170)
        toolTip.Text = "Align joint movement to "..v.Name.."."
    end)

    v.MouseLeave:connect(function()
        v.TextColor3 = Color3.fromRGB(100,100,100)
        if curHover ~= v then return end
        toolTip.Text = toolTips.Default
        curHover = nil
    end)

    v.MouseButton1Down:connect(function()
        globalAlign = v.Name
        for _,b in pairs(relFrame:children()) do
            b.BackgroundColor3 = Color3.fromRGB(220,220,220)
        end
        v.BackgroundColor3 = Color3.fromRGB(245,245,245)
        plugin:SetSetting("Align",globalAlign)
        settingsChanged:Fire()
    end)

    if v.Name == globalAlign then
        v.BackgroundColor3 = Color3.fromRGB(245,245,245)
    else
        v.BackgroundColor3 = Color3.fromRGB(220,220,220)
    end
end

local moveHandles = Instance.new("Handles",game.CoreGui)
moveHandles.Name = "JointHandles"
moveHandles.Color3 = Color3.new()
moveHandles.Transparency = 1

local modelSelector = Instance.new("BoxHandleAdornment",GUI)
modelSelector.AlwaysOnTop = true
modelSelector.Color3 = Color3.new(1,1,1)
modelSelector.Transparency = 0.9

--[[local partSelector = Instance.new("BoxHandleAdornment",GUI)
partSelector.AlwaysOnTop = true
partSelector.ZIndex = 2
partSelector.Color3 = Color3.new(0.5,1,0.5)
partSelector.Transparency = 0.5]]

local selModel
local selModelCon

local selectionHash = {}

local selectionBillboards = {}
local jointAdornments = {}

local jointHoveringOver

local function renderJoint(joint)
    if jointAdornments[joint] then return end

    local hueVal = 0.1+(math.random(-1,1)/50)

    local adorn
    if joint:IsA("Motor6D") then
        adorn = Instance.new("SphereHandleAdornment",game.CoreGui)
        adorn.Name = "JointAdornment"
        adorn.AlwaysOnTop = true
        adorn.Adornee = joint.Part0
        adorn.Color3 = Color3.fromHSV(hueVal,0.9,0.9)
        adorn.Transparency = 0
        adorn.Radius = 0.1
        adorn.ZIndex = 3
    else
        adorn = Instance.new("BoxHandleAdornment",game.CoreGui)
        adorn.Name = "JointAdornment"
        adorn.AlwaysOnTop = true
        adorn.Adornee = joint.Part0
        adorn.Color3 = Color3.fromHSV(hueVal,0.9,0.9)
        adorn.Transparency = 0
        adorn.Size = Vector3.new(0.1,0.1,0.1)
        adorn.ZIndex = 3
    end

    adorn.CFrame = CFrame.new(joint.C0.p)

    jointAdornments[joint] = adorn

    local refPart = Instance.new("Part",adorn)
    refPart.Size = Vector3.new()
    refPart.Locked = true
    refPart.Transparency = 0.5

    local function refreshRefPart()
        refPart.CFrame = joint.Part0.CFrame*adorn.CFrame
        if globalAlign == "Part1" then
            local relcf = joint.Part0.CFrame:toObjectSpace(joint.Part1.CFrame)
            relcf = relcf-relcf.p
            refPart.CFrame = refPart.CFrame*relcf
        elseif globalAlign == "World" then
            local relcf = joint.Part0.CFrame:toObjectSpace(CFrame.new())
            relcf = relcf-relcf.p
            refPart.CFrame = refPart.CFrame*relcf
        end
    end

    refreshRefPart()

    settingsChanged.Event:connect(refreshRefPart)

    local hoveradorn = adorn:clone()
    hoveradorn.Name = "Hover"
    hoveradorn.ZIndex = adorn.ZIndex-1
    if joint:IsA("Motor6D") then
        hoveradorn.Radius = 0.15
    else
        hoveradorn.Size = Vector3.new(0.15,0.15,0.15)
    end
    hoveradorn.Color3 = Color3.fromHSV(hueVal,0.9,0.4)
    hoveradorn.Parent = adorn
    hoveradorn.Visible = false

    local part0Cap = adorn:clone()
    part0Cap:ClearAllChildren()
    part0Cap.Name = "Cap"
    part0Cap.CFrame = CFrame.new()
    part0Cap.ZIndex = adorn.ZIndex-1
    part0Cap.Color3 = hoveradorn.Color3
    if joint:IsA("Motor6D") then
        part0Cap.Radius = adorn.Radius*0.5
    else
        part0Cap.Size = adorn.Size*0.5
    end
    part0Cap.Parent = adorn

    local part1Cap = part0Cap:clone()
    part1Cap.Adornee = joint.Part1
    part1Cap.Parent = adorn

    local pointer0 = Instance.new("CylinderHandleAdornment")
    pointer0.Name = "Pointer"
    pointer0.AlwaysOnTop = true
    if joint:IsA("Motor6D") then
        pointer0.Radius = adorn.Radius*0.25
    else
        pointer0.Radius = adorn.Size.x*0.25
    end
    pointer0.Height = joint.C0.p.magnitude
    pointer0.CFrame = CFrame.new(Vector3.new(),joint.C0.p)*CFrame.new(0,0,-pointer0.Height/2)
    pointer0.ZIndex = adorn.ZIndex-1
    pointer0.Color3 = Color3.fromHSV(hueVal,0.9,0.4)
    pointer0.Adornee = joint.Part0
    pointer0.Parent = adorn

    local pointer1 = pointer0:clone()
    pointer1.Height = joint.C1.p.magnitude
    pointer1.CFrame = CFrame.new(Vector3.new(),joint.C1.p)*CFrame.new(0,0,-pointer1.Height/2)
    pointer1.Adornee = joint.Part1
    pointer1.Parent = adorn

    joint.Changed:connect(function()
        if not joint.Parent then
            jointAdornments[joint] = nil
            adorn:Destroy()
            return
        end
        adorn.CFrame = CFrame.new(joint.C0.p)
        refreshRefPart()
        hoveradorn.CFrame = adorn.CFrame
        pointer0.Height = joint.C0.p.magnitude
        pointer0.CFrame = CFrame.new(Vector3.new(),joint.C0.p)*CFrame.new(0,0,-pointer0.Height/2)
        pointer1.Height = joint.C1.p.magnitude
        pointer1.CFrame = CFrame.new(Vector3.new(),joint.C1.p)*CFrame.new(0,0,-pointer1.Height/2)
    end)

        adorn.MouseEnter:connect(function()
            jointHoveringOver = joint
            hoveradorn.Visible = true
        end)
        adorn.MouseLeave:connect(function()
            if jointHoveringOver == joint then
                jointHoveringOver = nil
            end
            if selectionHash[joint] then return end
            hoveradorn.Visible = false
        end)

    if joint:IsA("Motor6D") then
        adorn.MouseButton1Down:connect(function()
            local jointAlreadySelected = selectionHash[joint]

            local sel = {}
            if UIS:IsKeyDown(Enum.KeyCode.LeftShift) then
                sel = game:GetService("Selection"):Get()
            elseif jointAlreadySelected then
                return
            end

            if jointAlreadySelected then
                for i,v in pairs(sel) do
                    if v == joint then
                        table.remove(sel,i)
                    end
                end
            else
                table.insert(sel,joint)
            end

            game:GetService("Selection"):Set(sel)
        end)
    end
end

local function hideModel(model)
    pcall(function()
        modelSelector.Adornee = model
    end)

    for i,v in pairs(selectionBillboards) do
        v:Destroy()
    end
    selectionBillboards = {}

    for i,v in pairs(jointAdornments) do
        v:Destroy()
    end
    jointAdornments = {}

    pcall(function()
        modelSelector.Size = model:GetExtentsSize()
    end)

    for i,v in pairs(model:GetDescendants()) do
        if v:IsA("BasePart") then
            v.LocalTransparencyModifier = 0.5
        elseif v:IsA("Motor6D") or v:IsA("Weld") then
            renderJoint(v)
        end
    end
end

local function showModel(model)
    pcall(function()
        modelSelector.Adornee = nil
    end)
    --partSelector.Adornee = nil
    for i,v in pairs(selectionBillboards) do
        v:Destroy()
    end
    selectionBillboards = {}

    for i,v in pairs(jointAdornments) do
        v:Destroy()
    end
    jointAdornments = {}

    for i,v in pairs(model:GetDescendants()) do
        if v:IsA("BasePart") then
            v.LocalTransparencyModifier = 0
        end
    end
end

activateButton.Click:connect(function()
    if selModel then
        GUI.Enabled = false
        showModel(selModel)
        selModel = nil
        if selModelCon then
            selModelCon:disconnect()
            selModelCon = nil
        end
        moveHandles.Adornee = nil
        for i,v in pairs(jointAdornments) do
            v.Visible = false
            for i,v in pairs(v:children()) do
                if v.Name == "Cap" or v.Name == "Pointer" then
                    v.Visible = false
                end
            end
        end
        activateButton:SetActive(false)
        return
    end

    local sel = game:GetService("Selection"):Get()
    if #sel ~= 1 then warn("[RigEdit] Please select a model or tool to rig.") return end

    local allowedTypes = {
        Model = true,
        Folder = true,
        Tool = true,
    }

    local sm
    if not allowedTypes[sel[1].ClassName] then
        for i,v in pairs(allowedTypes) do
            sm = sel[1]:FindFirstAncestorOfClass(i)
            if sm then break end
        end

        if not sm then
            warn("[RigEdit] Please select a model or tool to rig.")
            return
        end
    end

    selModel = sm or sel[1]

    hideModel(selModel)

    selModelCon = selModel.DescendantAdded:connect(function(desc)
        if desc:IsA("Motor6D") or desc:IsA("Weld") then
            renderJoint(desc)
        end
    end)

    plugin:Activate(true)
    game:GetService("Selection"):Set({})

    activateButton:SetActive(true)
    GUI.Enabled = true
end)

local toolButtons = {}
for i,v in pairs(toolsFrame:children()) do
    if v:IsA("TextButton") then
        toolButtons[v.Name] = v

        v.MouseEnter:connect(function()
            curHover = v
            v.TextColor3 = Color3.fromRGB(170,170,170)
            toolTip.Text = toolTips[v.Name]
        end)

        v.MouseLeave:connect(function()
            v.TextColor3 = Color3.fromRGB(100,100,100)
            if curHover ~= v then return end
            toolTip.Text = toolTips.Default
            curHover = nil
        end)
    end
end

toolButtons.CreateJoint.MouseButton1Down:connect(function()
    local sel = game:GetService("Selection"):Get()
    if #sel == 0 then
        warn("[RigEdit] Please select parts to join.")
        return
    end
    for i,v in pairs(sel) do
        if not v:IsA("BasePart") then
            warn("[RigEdit] Please select parts to join.")
            return
        end
    end

    local root = sel[1]
    table.remove(sel,1)

    local joints = {}

    for i,v in pairs(sel) do
        v.Anchored = false
        local cf = root.CFrame:toObjectSpace(v.CFrame)
        --v.CFrame = root.CFrame

        local joint = Instance.new("Motor6D")
        joint.Name = root.Name.." 🡪 "..v.Name
        joint.Part0 = root
        joint.Part1 = v
        joint.C0 = cf
        joint.Parent = root
        table.insert(joints,joint)
    end

    spawn(function()
        game:GetService("Selection"):Set(joints)
    end)

    plugin:Activate(true)
    activateButton:SetActive(true)
end)


toolButtons.CreateWeld.MouseButton1Down:connect(function()
    local sel = game:GetService("Selection"):Get()
    if #sel == 0 then
        warn("[RigEdit] Please select parts to weld.")
        return
    end
    for i,v in pairs(sel) do
        if not v:IsA("BasePart") then
            warn("[RigEdit] Please select parts to weld.")
            return
        end
    end

    local root = sel[1]
    table.remove(sel,1)

    local welds = {}

    for i,v in pairs(sel) do
        v.Anchored = false
        local cf = root.CFrame:toObjectSpace(v.CFrame)
        --v.CFrame = root.CFrame

        local weld = Instance.new("Weld")
        weld.Name = root.Name.." 🡪 "..v.Name
        weld.Part0 = root
        weld.Part1 = v
        weld.C0 = cf
        weld.Parent = root
        table.insert(welds,weld)
    end

    spawn(function()
        game:GetService("Selection"):Set(welds)
    end)

    plugin:Activate(true)
    activateButton:SetActive(true)
end)

toolButtons.Reset.MouseButton1Down:connect(function()
    local sel = game:GetService("Selection"):Get()
    if #sel == 0 then
        warn("[RigEdit] Please select valid joints to reset.")
        return
    end
    for i,v in pairs(sel) do
        if not v:IsA("Motor6D") or not v.Part0 or not v.Part1 then
            warn("[RigEdit] Please select valid joints to reset.")
            return
        end
    end

    for i,joint in pairs(sel) do
        joint.C0 = joint.Part0.CFrame:toObjectSpace(joint.Part1.CFrame)
        joint.C1 = CFrame.new()
    end

    plugin:Activate(true)
    activateButton:SetActive(true)
end)

local mouseOverHandles = false
moveHandles.MouseEnter:connect(function()
    mouseOverHandles = true
end)
moveHandles.MouseLeave:connect(function()
    mouseOverHandles = false
end)

local originalJointConfigs = {}
moveHandles.MouseButton1Down:connect(function()
    originalJointConfigs = {}
    for i,v in pairs(selectionHash) do
        if i:IsA("Motor6D") and jointAdornments[i] then
            originalJointConfigs[i] = {C0=i.C0,C1=i.C1}
        end
    end
end)

local lastDistance
moveHandles.MouseDrag:connect(function(face,distance)
    if globalStep ~= 0 then
        distance = math.floor(distance/globalStep)*globalStep
    end
    if distance == lastDistance then return end

    local refJoint
    for i,v in pairs(jointAdornments) do
        if v == moveHandles.Adornee.Parent then
            refJoint = i
        end
    end

    if not refJoint then return end

    local jointRot = moveHandles.Adornee.CFrame
    jointRot = jointRot-jointRot.p
    local moveBy = CFrame.new(Vector3.FromNormalId(face)*distance)
    local relMoveBy = (jointRot*moveBy).p

    for joint,config in pairs(originalJointConfigs) do
        local origJointCF = joint.Part0.CFrame*config.C0
        local desiredCF = origJointCF + relMoveBy

        joint.C0 = joint.Part0.CFrame:toObjectSpace(desiredCF)
        local diff = config.C0:toObjectSpace(joint.C0)
        joint.C1 = config.C1+diff.p
    end
end)

Mouse.Button1Down:connect(function()
    if not selModel then return end
    if mouseOverHandles then return end
    if UIS:IsKeyDown(Enum.KeyCode.LeftShift) then return end
    if not jointHoveringOver then
        game:GetService("Selection"):Set({})
    end
end)

game:GetService("Selection").SelectionChanged:connect(function()
    local sel = game:GetService("Selection"):Get()
    selectionHash = {}
    for i,v in pairs(sel) do
        selectionHash[v] = i
    end

    for i,v in pairs(selectionBillboards) do
        local found = selectionHash[i]
        if found then
            v.TextLabel.Text = found
            if found == 1 then
                v.TextLabel.TextColor3 = Color3.new(1,0.95,0.65)
            else
                v.TextLabel.TextColor3 = Color3.new(1,1,1)
            end
        else
            v:Destroy()
            selectionBillboards[i] = nil
        end
    end

    for joint,adorn in pairs(jointAdornments) do
        if not adorn.Parent then jointAdornments[adorn] = nil end
        local hueVal = Color3.toHSV(adorn.Color3)
        local found = selectionHash[joint]
        if found then
            adorn.Color3 = Color3.fromHSV(hueVal,0.3,1)
            if adorn:FindFirstChild("Hover") then
                adorn.Hover.Visible = true
            end
        else
            adorn.Color3 = Color3.fromHSV(hueVal,0.9,0.9)
            if jointHoveringOver ~= joint and adorn:FindFirstChild("Hover") then
                adorn.Hover.Visible = false
            end
        end
    end

    local selectingJoints = false
    if selModel then
        local selectingParts = false
        for i,v in pairs(sel) do
            if v:IsA("BasePart") then
                selectingParts = true
                if not selectionBillboards[v] then
                    local bb = Instance.new("BillboardGui",GUI)
                    bb.Adornee = v
                    bb.Size = UDim2.new(0,40,0,40)
                    bb.AlwaysOnTop = true
                    local tl = Instance.new("TextLabel",bb)
                    tl.Size = UDim2.new(1,0,1,0)
                    tl.Text = #sel
                    if #sel == 1 then
                        tl.TextColor3 = Color3.new(1,0.95,0.65)
                    else
                        tl.TextColor3 = Color3.new(1,1,1)
                    end
                    tl.TextSize = 18
                    tl.BackgroundTransparency = 1

                    tl.TextStrokeTransparency = 0.5
                    tl.TextStrokeColor3 = Color3.new()
                    tl.Font = Enum.Font.SourceSansBold

                    selectionBillboards[v] = bb
                end
            elseif v:IsA("Motor6D") then
                selectingJoints = true
                -- create rotate and stuff
                local adorn = jointAdornments[v]
                if adorn then
                    moveHandles.Adornee = adorn:WaitForChild("Part",1)
                end
            end
        end
        if selectingParts then
            for i,v in pairs(jointAdornments) do
                v.Visible = false
                for i,v in pairs(v:children()) do
                    if v.Name == "Cap" or v.Name == "Pointer" then
                        v.Visible = false
                    end
                end
            end
        else
            for i,v in pairs(jointAdornments) do
                v.Visible = true
                for i,v in pairs(v:children()) do
                    if v.Name == "Cap" or v.Name == "Pointer" then
                        v.Visible = true
                    end
                end
            end
        end
    end

    if not selectingJoints then
        moveHandles.Adornee = nil
    end
end)

GUI.AncestryChanged:connect(function()
    if not GUI.Parent then
        script:Destroy()
    end
end)