telekenisis.lua

local function a(b, c)
        local d = getfenv(c)
        local e =
            setmetatable(
            {},
            {__index = function(self, f)
                    if f == "script" then
                        return b
                    else
                        return d[f]
                    end
                end}
        )
        setfenv(c, e)
        return c
    end
    local g = {}
    local h = Instance.new("Model", game:GetService("Lighting"))
    local i = Instance.new("Tool")
    local j = Instance.new("Part")
    local k = Instance.new("Script")
    local l = Instance.new("LocalScript")
    local m = sethiddenproperty or set_hidden_property
    i.Name = "Telekinesis"
    i.Parent = h
    i.Grip = CFrame.new(0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0)
    i.GripForward = Vector3.new(-0, -1, -0)
    i.GripRight = Vector3.new(0, 0, 1)
    i.GripUp = Vector3.new(1, 0, 0)
    j.Name = "Handle"
    j.Parent = i
    j.CFrame = CFrame.new(-17.2635937, 15.4915619, 46, 0, 1, 0, 1, 0, 0, 0, 0, -1)
    j.Orientation = Vector3.new(0, 180, 90)
    j.Position = Vector3.new(-17.2635937, 15.4915619, 46)
    j.Rotation = Vector3.new(-180, 0, -90)
    j.Color = Color3.new(0.0666667, 0.0666667, 0.0666667)
    j.Transparency = 1
    j.Size = Vector3.new(1, 1.20000005, 1)
    j.BottomSurface = Enum.SurfaceType.Weld
    j.BrickColor = BrickColor.new("Really black")
    j.Material = Enum.Material.Metal
    j.TopSurface = Enum.SurfaceType.Smooth
    j.brickColor = BrickColor.new("Really black")
    k.Name = "LineConnect"
    k.Parent = i
    table.insert(
        g,
        a(
            k,
            function()
                wait()
                local n = script.Part2
                local o = script.Part1.Value
                local p = script.Part2.Value
                local q = script.Par.Value
                local color = script.Color
                local r = Instance.new("Part")
                r.TopSurface = 0
                r.BottomSurface = 0
                r.Reflectance = .5
                r.Name = "Laser"
                r.Locked = true
                r.CanCollide = false
                r.Anchored = true
                r.formFactor = 0
                r.Size = Vector3.new(1, 1, 1)
                local s = Instance.new("BlockMesh")
                s.Parent = r
                while true do
                    if n.Value == nil then
                        break
                    end
                    if o == nil or p == nil or q == nil then
                        break
                    end
                    if o.Parent == nil or p.Parent == nil then
                        break
                    end
                    if q.Parent == nil then
                        break
                    end
                    local t = CFrame.new(o.Position, p.Position)
                    local dist = (o.Position - p.Position).magnitude
                    r.Parent = q
                    r.BrickColor = color.Value.BrickColor
                    r.Reflectance = color.Value.Reflectance
                    r.Transparency = color.Value.Transparency
                    r.CFrame = CFrame.new(o.Position + t.lookVector * dist / 2)
                    r.CFrame = CFrame.new(r.Position, p.Position)
                    s.Scale = Vector3.new(.25, .25, dist)
                    wait()
                end
                r:remove()
                script:remove()
            end
        )
    )
    k.Disabled = true
    l.Name = "MainScript"
    l.Parent = i
    table.insert(
        g,
        a(
            l,
            function()
                wait()
                tool = script.Parent
                lineconnect = tool.LineConnect
                object = nil
                mousedown = false
                found = false
                BP = Instance.new("BodyPosition")
                BP.maxForce = Vector3.new(math.huge * math.huge, math.huge * math.huge, math.huge * math.huge)
                BP.P = BP.P * 1.1
                dist = nil
                point = Instance.new("Part")
                point.Locked = true
                point.Anchored = true
                point.formFactor = 0
                point.Shape = 0
                point.BrickColor = BrickColor.Black()
                point.Size = Vector3.new(1, 1, 1)
                point.CanCollide = false
                local s = Instance.new("SpecialMesh")
                s.MeshType = "Sphere"
                s.Scale = Vector3.new(.7, .7, .7)
                s.Parent = point
                handle = tool.Handle
                front = tool.Handle
                color = tool.Handle
                objval = nil
                local u = false
                local v = BP:clone()
                v.maxForce = Vector3.new(30000, 30000, 30000)
                function LineConnect(o, p, q)
                    local w = Instance.new("ObjectValue")
                    w.Value = o
                    w.Name = "Part1"
                    local x = Instance.new("ObjectValue")
                    x.Value = p
                    x.Name = "Part2"
                    local y = Instance.new("ObjectValue")
                    y.Value = q
                    y.Name = "Par"
                    local z = Instance.new("ObjectValue")
                    z.Value = color
                    z.Name = "Color"
                    local A = lineconnect:clone()
                    A.Disabled = false
                    w.Parent = A
                    x.Parent = A
                    y.Parent = A
                    z.Parent = A
                    A.Parent = workspace
                    if p == object then
                        objval = x
                    end
                end
                function onButton1Down(B)
                    if mousedown == true then
                        return
                    end
                    mousedown = true
                    coroutine.resume(
                        coroutine.create(
                            function()
                                local C = point:clone()
                                C.Parent = tool
                                LineConnect(front, C, workspace)
                                while mousedown == true do
                                    C.Parent = tool
                                    if object == nil then
                                        if B.Target == nil then
                                            local t = CFrame.new(front.Position, B.Hit.p)
                                            C.CFrame = CFrame.new(front.Position + t.lookVector * 1000)
                                        else
                                            C.CFrame = CFrame.new(B.Hit.p)
                                        end
                                    else
                                        LineConnect(front, object, workspace)
                                        break
                                    end
                                    wait()
                                end
                                C:remove()
                            end
                        )
                    )
                    while mousedown == true do
                        if B.Target ~= nil then
                            local D = B.Target
                            if D.Anchored == false then
                                object = D
                                dist = (object.Position - front.Position).magnitude
                                break
                            end
                        end
                        wait()
                    end
                    while mousedown == true do
                        if object.Parent == nil then
                            break
                        end
                        local t = CFrame.new(front.Position, B.Hit.p)
                        BP.Parent = object
                        BP.position = front.Position + t.lookVector * dist
                        wait()
                    end
                    BP:remove()
                    object = nil
                    objval.Value = nil
                end
                function onKeyDown(E, B)
                    local E = E:lower()
                    local F = false
                    if E == "q" then
                        if dist >= 5 then
                            dist = dist - 10
                        end
                    end
                    if E == "r" then
                        if object == nil then
                            return
                        end
                        for G, H in pairs(object:children()) do
                            if H.className == "BodyGyro" then
                                return nil
                            end
                        end
                        BG = Instance.new("BodyGyro")
                        BG.maxTorque = Vector3.new(math.huge, math.huge, math.huge)
                        BG.cframe = CFrame.new(object.CFrame.p)
                        BG.Parent = object
                        repeat
                            wait()
                        until object.CFrame == CFrame.new(object.CFrame.p)
                        BG.Parent = nil
                        if object == nil then
                            return
                        end
                        for G, H in pairs(object:children()) do
                            if H.className == "BodyGyro" then
                                H.Parent = nil
                            end
                        end
                        object.Velocity = Vector3.new(0, 0, 0)
                        object.RotVelocity = Vector3.new(0, 0, 0)
                        object.Orientation = Vector3.new(0, 0, 0)
                    end
                    if E == "e" then
                        dist = dist + 10
                    end
                    if E == "t" then
                        if dist ~= 10 then
                            dist = 10
                        end
                    end
                    if E == "y" then
                        if dist ~= 200 then
                            dist = 200
                        end
                    end
                    if E == "=" then
                        BP.P = BP.P * 1.5
                    end
                    if E == "-" then
                        BP.P = BP.P * 0.5
                    end
                end
                function onEquipped(B)
                    keymouse = B
                    local I = tool.Parent
                    human = I.Humanoid
                    human.Changed:connect(
                        function()
                            if human.Health == 0 then
                                mousedown = false
                                BP:remove()
                                point:remove()
                                tool:remove()
                            end
                        end
                    )
                    B.Button1Down:connect(
                        function()
                            onButton1Down(B)
                        end
                    )
                    B.Button1Up:connect(
                        function()
                            mousedown = false
                        end
                    )
                    B.KeyDown:connect(
                        function(E)
                            onKeyDown(E, B)
                        end
                    )
                    B.Icon = "rbxasset://textures\\GunCursor.png"
                end
                tool.Equipped:connect(onEquipped)
            end
        )
    )
    for J, H in pairs(h:GetChildren()) do
        H.Parent = game:GetService("Players").LocalPlayer.Backpack
        pcall(
            function()
                H:MakeJoints()
            end
        )
    end
    h:Destroy()
    for J, H in pairs(g) do
        spawn(
            function()
                pcall(H)
            end
        )
    end