How to convert this from Hopperbin to Workspace?

Basically, what I'm asking is, how do I convert this to the Workspace? And instead of clicking on the part, you press E, and the part floats until you press E again. Basically, I'm trying to mimic the Source Engine's pick up function with this script.

local PartNames = {"Cube", "Crate", "Box"}
local DistanceLimit = 10 --You must be within so many studs to pick up a part.


--Variables
local MovingObject = false
local Plyr = game.Players.LocalPlayer
local Tool = script.Parent


--General Functions
Move = (function (Mouse, Obj)
    local BodyPosition, CharTorso = Instance.new("BodyPosition",Obj), Plyr.Character.Torso; 
    BodyPosition.maxForce = Vector3.new(Obj.Size.X*5000,Obj.Size.Y*5000,Obj.Size.Z*5000)
    MovingObject = true
    while (MovingObject and (CharTorso.Position-Obj.Position).magnitude < DistanceLimit) do
        BodyPosition.position = (CFrame.new(CharTorso.Position, Mouse.Hit.p) * CFrame.new(0,0,-DistanceLimit + 3)).p
        wait(0.1)
    end
    MovingObject = false
    BodyPosition:Destroy()
end)

--Event Handlers
Tool.Selected:connect(function (Mouse)
    Mouse.Button1Down:connect(function ()
        if MovingObject then 
            MovingObject = false 
            return 
        end
        local MouseTarget = Mouse.Target;
        if not MouseTarget or not PartNames[MouseTarget.Name] or MouseTarget.Anchored 
            or (Plyr.Character.Torso.Position-MouseTarget.Position).magnitude > DistanceLimit then 
            return 
        end
        Move(Mouse, MouseTarget);
    end)
end)

Tool.Deselected:connect(function ()
    MovingObject = false
end)

--Convert table from {"names"} to {names = true} for convenience
for i=1, #PartNames do
    PartNames[PartNames[i]] = true
    PartNames[i] = nil
end