Telekinesis Script (FE)

local sandbox = function(var,func)
	local env = getfenv(func)
	local newenv = setmetatable({},{
		__index = function(self,k)
			if k=="script" then
				return var
			else
				return env[k]
			end
		end,
	})
	setfenv(func,newenv)
	return func
end
cors = {}
local _Name = "Telekinesis V4"
local uis = game:GetService("UserInputService")
local _Ins, _CF_new, _VTR_new = Instance.new, CFrame.new, Vector3.new
mas = _Ins("Model",game:GetService("Lighting"))
Tool0 = _Ins("Tool")
Part1 = _Ins("Part")
Script2 = _Ins("Script")
LocalScript3 = _Ins("LocalScript")
Tool0.Name = _Name
Tool0.Parent = mas
Tool0.Grip = _CF_new(0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1)
Tool0.GripPos = _VTR_new(0, 0, 1)
Part1.Name = "Handle"
Part1.Parent = Tool0
Part1.CFrame = _CF_new(-3.5, 5.30000019, -3.5, 1, 0, 0, 0, -1, 0, 0, 0, -1)
Part1.Orientation = _VTR_new(0, 180, 180)
Part1.Position = _VTR_new(-3.5, 5.300000190734863, -3.5)
Part1.Rotation = _VTR_new(-180, 0, 0)
Part1.Color = Color3.new(0.972549, 0.972549, 0.972549)
Part1.Transparency = 1
Part1.Size = _VTR_new(1, 1, 1)
Part1.BottomSurface = Enum.SurfaceType.Smooth
Part1.BrickColor = BrickColor.new("Institutional white")
Part1.Locked = true
Part1.TopSurface = Enum.SurfaceType.Smooth
Part1.brickColor = BrickColor.new("Institutional white")
Script2.Name = "LineConnect"
Script2.Parent = Tool0
local Sound = _Ins("Sound", game.Workspace)
Sound.SoundId = "rbxassetid://1092093337"
Sound:Play()
table.insert(cors,sandbox(Script2,function()
	wait()
	local check = script.Part2
	local part1 = script.Part1.Value
	local part2 = script.Part2.Value
	local parent = script.Par.Value
	local color = script.Color
	local line = _Ins("Part")
	line.TopSurface = 0
	line.BottomSurface = 0
	line.Reflectance = .5
	line.Name = "Laser"
	line.Locked = true
	line.CanCollide = false
	line.Anchored = true
	line.formFactor = 0
	line.Size = _VTR_new(1,1,1)
	local mesh = _Ins("BlockMesh")
	mesh.Parent = line
	while true do
		if (check.Value==nil) then break end
		if (part1==nil or part2==nil or parent==nil) then break end
		if (part1.Parent==nil or part2.Parent==nil) then break end
		if (parent.Parent==nil) then break end
		local lv = _CF_new(part1.Position,part2.Position)
		local dist = (part1.Position-part2.Position).magnitude
		line.Parent = parent
		line.BrickColor = color.Value.BrickColor
		line.Reflectance = color.Value.Reflectance
		line.Transparency = color.Value.Transparency
		line.CFrame = _CF_new(part1.Position+lv.lookVector*dist/2)
		line.CFrame = _CF_new(line.Position,part2.Position)
		mesh.Scale = _VTR_new(.25,.25,dist)
		wait()
	end
	line:remove()
	script:remove()
end))
Script2.Disabled = true
LocalScript3.Name = "MainScript"
LocalScript3.Parent = Tool0
table.insert(cors,sandbox(LocalScript3,function()
	wait()
	tool = script.Parent
	lineconnect = tool.LineConnect
	object = nil
	mousedown = false
	found = false
	BP = _Ins("BodyPosition")
	BP.maxForce = _VTR_new(math.huge*math.huge,math.huge*math.huge,math.huge*math.huge) --pwns everyone elses bodyposition
	BP.P = BP.P*3
	dist = nil
	point = _Ins("Part")
	point.Locked = true
	point.Anchored = true
	point.formFactor = 0
	point.Shape = 0
	point.BrickColor = BrickColor.Blue()
	point.Size = _VTR_new(1,1,1)
	point.CanCollide = false
	local mesh = _Ins("SpecialMesh")
	mesh.MeshType = "Sphere"
	mesh.Scale = _VTR_new(.7,.7,.7)
	mesh.Parent = point
	handle = tool.Handle
	front = tool.Handle
	color = tool.Handle
	objval = nil
	local hooked = false
	local hookBP = BP:clone()
	hookBP.maxForce = _VTR_new(30000,30000,30000)

	function LineConnect(part1,part2,parent)
		local p1 = _Ins("ObjectValue")
		p1.Value = part1
		p1.Name = "Part1"
		local p2 = _Ins("ObjectValue")
		p2.Value = part2
		p2.Name = "Part2"
		local par = _Ins("ObjectValue")
		par.Value = parent
		par.Name = "Par"
		local col = _Ins("ObjectValue")
		col.Value = color
		col.Name = "Color"
		local s = lineconnect:clone()
		s.Disabled = false
		p1.Parent = s
		p2.Parent = s
		par.Parent = s
		col.Parent = s
		s.Parent = workspace
		if (part2==object) then
			objval = p2
		end
	end

	function onButton1Down(mouse)
		if (mousedown==true) then return end
		mousedown = true
		coroutine.resume(coroutine.create(function()
			local p = point:clone()
			p.Parent = tool
			LineConnect(front,p,workspace)
			while (mousedown==true) do
				p.Parent = tool
				if (object==nil) then
					if (mouse.Target==nil) then
						local lv = _CF_new(front.Position,mouse.Hit.p)
						p.CFrame = _CF_new(front.Position+(lv.lookVector*1000))
					else
						p.CFrame = _CF_new(mouse.Hit.p)
					end
				else
					LineConnect(front,object,workspace)
					break
				end
				wait()
			end
			p:remove()
		end))
		while (mousedown==true) do
			if (mouse.Target~=nil) then
				local t = mouse.Target
				if (t.Anchored==false) then
					object = t
					dist = (object.Position-front.Position).magnitude
					break
				end
			end
			wait()
		end
		while (mousedown==true) do
			if (object.Parent==nil) then break end
			local lv = _CF_new(front.Position,mouse.Hit.p)
			BP.Parent = object
			BP.position = front.Position+lv.lookVector*dist
			wait()
		end
		BP:remove()
		object = nil
		objval.Value = nil
	end

	function onKeyDown(key,mouse)
		local key = key:lower()
		local yesh = false
		if (key=="q") then
			if (dist>=5) then
				dist = dist-5
			end
		end
		if (key=="u") then
			if (dist ~=1) then
				BX = _Ins("BodyGyro")
				BX.MaxTorque = _VTR_new(math.huge,0,math.huge)
				BX.CFrame = BX.CFrame * CFrame.Angles(0, math.rad(45), 0)
				BX.D = 0
				BX.Parent = object
				--object.CFrame = CFrame.Angles(math.rad(90), 0,0) -- not used
				--object.Orientation = _VTR_new(50,0,0)
				--BX.Orientation = _VTR_new(23,0,0)

			end
		end
		if (key=="p") then
			if (dist ~=1) then
				BX = _Ins("BodyVelocity")
				BX.maxForce = _VTR_new(0,math.huge,0)
				BX.velocity = _VTR_new(0,1,0)
				--BX.CFrame = BX.CFrame * CFrame.Angles(0, math.rad(45), 0)
				BX.Parent = object

			end
		end
		if key == "l" then
			if (object==nil) then return end
			for _,v in pairs(object:children()) do
				if v.className == "BodyGyro" then
					return nil
				end
			end
			BG = _Ins("BodyGyro")
			BG.maxTorque = _VTR_new(math.huge,math.huge,math.huge)
			BG.cframe = _CF_new(object.CFrame.p)
			BG.Parent = object
			repeat wait() until(object.CFrame == _CF_new(object.CFrame.p))
			BG.Parent = nil
			if (object==nil) then return end
			for _,v in pairs(object:children()) do
				if v.className == "BodyGyro" then
					v.Parent = nil
				end
			end
			object.Velocity = _VTR_new(0,0,0)
			object.RotVelocity = _VTR_new(0,0,0)
		end
		if (key=="y") then
			if (dist ~=100) then
				dist = 100
			end
		end
		if (key=="j") then
			if (dist~=5000) then
				dist = 5000
			end
		end
		if (key=="e") then
			dist = dist+5
		end
		if (key=="x") then
			if dist ~= 15 then
				dist = 15
			end
		end
	end

	function onEquipped(mouse)
		keymouse = mouse
		local char = tool.Parent
		human = char.Humanoid
		human.Changed:connect(function() if (human.Health==0) then mousedown = false BP:remove() point:remove() tool:remove() end end)
		mouse.Button1Down:connect(function() onButton1Down(mouse) end)
		mouse.KeyDown:connect(function(key) onKeyDown(key,mouse) end)
		mouse.Icon = "rbxasset://textures\\GunCursor.png"
		if uis.TouchEnabled then
			uis.TouchEnded:Connect(function() mousedown = false end)
		else
			mouse.Button1Up:connect(function() mousedown = false end)
		end
	end

	tool.Equipped:connect(onEquipped)
	tool.Unequipped:connect(function() mousedown = false end)
end))
for i,v in pairs(mas:GetChildren()) do
	v.Parent = game:GetService("Players").LocalPlayer.Backpack
	pcall(function() v:MakeJoints() end)
end
mas:Destroy()
for i,v in pairs(cors) do
	spawn(function()
		pcall(v)
	end)
end