How to convert this from Hopperbin to Workspace?

Asked by

10 years ago

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.

01local PartNames = {"Cube", "Crate", "Box"}
02local DistanceLimit = 10 --You must be within so many studs to pick up a part.
03 
04 
05--Variables
06local MovingObject = false
07local Plyr = game.Players.LocalPlayer
08local Tool = script.Parent
09 
10 
11--General Functions
12Move = (function (Mouse, Obj)
13    local BodyPosition, CharTorso = Instance.new("BodyPosition",Obj), Plyr.Character.Torso; 
14    BodyPosition.maxForce = Vector3.new(Obj.Size.X*5000,Obj.Size.Y*5000,Obj.Size.Z*5000)
15    MovingObject = true
16    while (MovingObject and (CharTorso.Position-Obj.Position).magnitude < DistanceLimit) do
17        BodyPosition.position = (CFrame.new(CharTorso.Position, Mouse.Hit.p) * CFrame.new(0,0,-DistanceLimit + 3)).p
18        wait(0.1)
19    end
20    MovingObject = false
21    BodyPosition:Destroy()
22end)
23 
24--Event Handlers
25Tool.Selected:connect(function (Mouse)
26    Mouse.Button1Down:connect(function ()
27        if MovingObject then
28            MovingObject = false
29            return
30        end
31        local MouseTarget = Mouse.Target;
32        if not MouseTarget or not PartNames[MouseTarget.Name] or MouseTarget.Anchored 
33            or (Plyr.Character.Torso.Position-MouseTarget.Position).magnitude > DistanceLimit then
34            return
35        end
36        Move(Mouse, MouseTarget);
37    end)
38end)
39 
40Tool.Deselected:connect(function ()
41    MovingObject = false
42end)
43 
44--Convert table from {"names"} to {names = true} for convenience
45for i=1, #PartNames do
46    PartNames[PartNames[i]] = true
47    PartNames[i] = nil
48end
 View all 48 lines...

How to convert this from Hopperbin to Workspace?

1 answer

Answer this question