How can i delete a memory leak coming from my script?

Hello, I am making a parkour game but I've encountered a memory leak wich is coming from my 3 scripts. I noticed this script is creating a memory leak since the games lag disapeared when i disaled the script. I have already combined them into one but it still creates lag. Could someone look into this and help me?

--Vault System

local plr = game:GetService("Players").LocalPlayer
local char = plr.Character or plr.CharacterAdded:Wait()
local HRP = char:WaitForChild("HumanoidRootPart")
local Hum = char:WaitForChild("Humanoid")
local CA = Hum:LoadAnimation(script:WaitForChild("ClimbAnim"))

local ledgeavail = true

topspeed = 20
char.Humanoid.Running:Connect(function(speed)

	if speed > topspeed then
		ledgeavail = true
	elseif speed < topspeed then
		ledgeavail = false
	end






while game:GetService("RunService").RenderStepped:Wait() do
	 r = Ray.new(HRP.Position, HRP.CFrame.LookVector * 6.5 + HRP.CFrame.UpVector * -5)
	local part = workspace:FindPartOnRay(r,char)
	
	if part and ledgeavail then
		if part.Name == "Vault" then
				if Hum.FloorMaterial ~= Enum.Material.Air then
					if speed < topspeed then
				ledgeavail = false
				local Vel = Instance.new("BodyVelocity")
				Vel.Parent = HRP
				Vel.Velocity = Vector3.new(0,0,0)
				Vel.MaxForce = Vector3.new(1,1,1) * math.huge
				Vel.Velocity = HRP.CFrame.LookVector * 60 + Vector3.new(0,28,0)
				CA:Play()
				game.Debris:AddItem(Vel, .10)
						wait(0.75)
						
						ledgeavail = true
						game.Debris:Destroy(Vel)
			end
		end
	end
	end
	end
	end)

--VaultJump System





char.Humanoid.Running:Connect(function(speed)

	if speed > topspeed then
		ledgeavail = true
	elseif speed < topspeed then
		ledgeavail = false
	end



while game:GetService("RunService").RenderStepped:Wait() do

	local part = workspace:FindPartOnRay(r,char)

	if part and ledgeavail then
		if part.Name == "VaultJump" then
			if Hum.FloorMaterial ~= Enum.Material.Air then
				if speed < topspeed then
					ledgeavail = false
					local Vel = Instance.new("BodyVelocity")
					Vel.Parent = HRP
					Vel.Velocity = Vector3.new(0,0,0)
					Vel.MaxForce = Vector3.new(1,1,1) * math.huge
					Vel.Velocity = HRP.CFrame.LookVector * 90 + Vector3.new(0,30,0)
					CA:Play()
					game.Debris:AddItem(Vel, .10)
					wait(0.75)
						ledgeavail = true
						game.Debris:Destroy(Vel)
				end
			end
		end
	end
end
end)

--WallUp System


local CA = Hum:LoadAnimation(script:WaitForChild("WallUpAnim"))




char.Humanoid.Running:Connect(function(speed)

	if speed > topspeed then
		ledgeavail = true
	elseif speed < topspeed then
		ledgeavail = false
	end

	while game:GetService("RunService").RenderStepped:Wait() do
	
		local part = workspace:FindPartOnRay(r,char)

		if part and ledgeavail then
			if part.Name == "Wallup" then
				if Hum.FloorMaterial ~= Enum.Material.Air then
					if speed < topspeed then
						ledgeavail = false
						local Vel = Instance.new("BodyVelocity")
						Vel.Parent = HRP
						Vel.Velocity = Vector3.new(0,0,0)
						Vel.MaxForce = Vector3.new(1,1,1) * math.huge
						Vel.Velocity = HRP.CFrame.LookVector * 0 + Vector3.new(0,55,0)
						CA:Play()
						game.Debris:AddItem(Vel, 0.1)
						wait(0.70)
						ledgeavail = true
						game.Debris:Destroy(Vel)
					end
				end
			end
		end
	end
end)
-- barrier system
local plr = game:GetService("Players").LocalPlayer
local char = plr.Character or plr.CharacterAdded:Wait()
local HRP = char:WaitForChild("HumanoidRootPart")
local Hum = char:WaitForChild("Humanoid")
local CA = Hum:LoadAnimation(script:WaitForChild("BarrierAnim"))




while game:GetService("RunService").RenderStepped:Wait() do
	local r = Ray.new(HRP.Position, HRP.CFrame.LookVector * 7 + HRP.CFrame.UpVector * -5)
	local part = workspace:FindPartOnRay(r,char)

	if part and ledgeavail then
		if part.Name == "Barrier" then
			if Hum.FloorMaterial ~= Enum.Material.Air then
				ledgeavail = false
				local Vel = Instance.new("BodyVelocity")
				Vel.Parent = HRP
				Vel.Velocity = Vector3.new(0,0,0)
				Vel.MaxForce = Vector3.new(1,1,1) * math.huge
				Vel.Velocity = HRP.CFrame.LookVector * 33 + Vector3.new(0,20,0)
				CA:Play()
				game.Debris:AddItem(Vel, .15)
				wait(0.75)
				ledgeavail = true
			end
		end
	end
end