My Script Still Doesn't Work? How Come?

What this script do is when you press Q or E, you will climb up on the wall. It only works when I put it in starter pack, but I want to turn this into a tool? How can I do that? I tried it, but doesn't work. What should I do? What tool should I put it in? Hopper Bin tool or just a tool? Also, should I put it in normal script or local script for it to work on tool? What can I do? Can you guys help me?

Player = script.Parent.Parent
Player.CharacterAdded:wait(1)
Char = Player.Character
Left, Right = Char:WaitForChild("Left Arm"), Char:WaitForChild("Right Arm")

--Put in starterpack

--Controlls: Q And E

Distance = 10 --How far they can reach

Can = true

Mouse = Player:GetMouse()

Mouse.KeyDown:connect(function(Key)
	if string.lower(Key) == "q" then
		local Q = Left:FindFirstChild("Q")
		if Q then
			Q:remove()
		end
		local Pos = Mouse.Hit.p
		if (Pos - Left.Position).magnitude < Distance then
		if Can then
		Can = false
		local Body = Instance.new("BodyPosition", Left)
		Body.Name = "Q"
		Body.maxForce = Vector3.new(20000, 20000, 20000)
		Body.position = Pos
		local Part = Instance.new("Part", Char)
	    Part.Transparency = 1
	    Part.FormFactor = "Custom"
	    Part.Size = Vector3.new(1, 1, 1)
	    local Box = Instance.new("SelectionBox", Part)
	    Box.Adornee = Part
	    Part.CFrame = CFrame.new(Pos)
	    Part.Name = "Q"
	    wait(0.25)
	    Can = true
	    end
		end
	end
	if string.lower(Key) == "e" then
		local Pos = Mouse.Hit.p
		local E = Right:FindFirstChild("E")
		if E then
			E:remove()
		end
		if (Mouse.Hit.p - Right.Position).magnitude < Distance then
		if Can then
		Can = false
		local Body = Instance.new("BodyPosition", Right)
		Body.Name = "E"
		Body.maxForce = Vector3.new(20000, 20000, 20000)
		Body.position = Pos
		local Part = Instance.new("Part", Char)
	    Part.Transparency = 1
	    Part.FormFactor = "Custom"
	    Part.Size = Vector3.new(1, 1, 1)
	    local Box = Instance.new("SelectionBox", Part)
	    Box.Adornee = Part
	    Part.CFrame = CFrame.new(Pos)
	    Part.Name = "E"
	    wait(0.25)
	    Can = true
	    end
		end
	end
end)

Mouse.KeyUp:connect(function(Key)
	if string.lower(Key) == "q" then
		local Q = Left:FindFirstChild("Q")
		local Q2 = Char:FindFirstChild("Q")
		if Q then
			Q:remove()
		end
		if Q2 then
			Q2:remove()
		end
	end
	if string.lower(Key) == "e" then
		local E = Right:FindFirstChild("E")
		local E2 = Char:FindFirstChild("E")
		if E then
			E:remove()
		end
		if E2 then
			E2:remove()
		end
	end
end)

Thank you for your time!