How do I edit this pathfinding function of mine so that it works on high walkspeed humanoids?

To get it to path find consistently to a changing position you must spam it, but when it is at higher walkspeeds it messes up, I don't know why or how to fix it, please help:

modtable = {}
pathfindingcache = {}
function modtable.Humanoid:StartPathFind(hum, despoint)
		if pathfindingcache[hum:GetFullName()] then
			pathfindingcache[hum:GetFullName()].isdone = 1
			repeat game:GetService("RunService").Heartbeat:wait() until pathfindingcache[hum:GetFullName()] == nil
			pathfindingcache[hum:GetFullName()] = {}
			pathfindingcache[hum:GetFullName()].isdone = 0
		else
			pathfindingcache[hum:GetFullName()] = {}
			pathfindingcache[hum:GetFullName()].isdone = 0
		end
		if pathfinddebounce == 1 then return end
		if pcall(function() return despoint.IsA end) then
			despoint = despoint.Position
		end
		local PathfindingService = game:GetService("PathfindingService")
    	local connect = {}
    	 
		local path = PathfindingService:CreatePath()
    	local waypoints
    	local currentWaypointIndex
    	 
    	local function followPath()
			path = PathfindingService:CreatePath()
    		path:ComputeAsync(hum.RootPart.Position, despoint)
    		waypoints = {}
    	 
    		if path.Status == Enum.PathStatus.Success then
    			waypoints = path:GetWaypoints()
    			currentWaypointIndex = 1
    			hum:MoveTo(waypoints[currentWaypointIndex].Position)
				if waypoints[currentWaypointIndex].Action == Enum.PathWaypointAction.Jump then
					hum.Jump = true
				end
    		else
    			hum:MoveTo(hum.RootPart.Position)
    		end
   	 end
   	  
   	 local function onWaypointReached(reached)
			if pathfindingcache[hum:GetFullName()].isdone == 1 then return end
			if not waypoints or not currentWaypointIndex then return end
    		if reached and #waypoints > currentWaypointIndex then 
				if waypoints[currentWaypointIndex] then
    				currentWaypointIndex = currentWaypointIndex + 1
				end
				local nocollide = {}
				for i,obj in ipairs(workspace:GetDescendants()) do
					if pcall(function() return obj:IsA("BasePart") end) then
					if obj:IsA("BasePart") and obj.CanCollide == false then
						table.insert(nocollide,obj)
					end
					end
				end
				local function raycast(num,num2,tab2)
					if waypoints[num + 1] == nil then return end
					local ray = Ray.new(waypoints[num].Position, waypoints[num2].Position)
					table.insert(tab2,waypoints[num])
					local a
					if pcall(function() return workspace:FindPartOnRayWithIgnoreList(ray,tab2) end) then
						a = workspace:FindPartOnRayWithIgnoreList(ray,tab2)
					else
					end
					if a then
						return true
					else return nil end
				end
					if raycast(currentWaypointIndex,currentWaypointIndex + 1,nocollide) ~= nil then
    					hum:MoveTo(waypoints[currentWaypointIndex].Position)
						if waypoints[currentWaypointIndex].Action == Enum.PathWaypointAction.Jump then
							hum.Jump = true
						end
					elseif waypoints[currentWaypointIndex + 1] then
						local origin = currentWaypointIndex
						repeat
							currentWaypointIndex = currentWaypointIndex + 1
						until raycast(origin,currentWaypointIndex,nocollide) ~= true
						if waypoints[currentWaypointIndex].Action == Enum.PathWaypointAction.Jump then
							hum.Jump = true
						end
						hum:MoveTo(waypoints[currentWaypointIndex].Position)
						
					elseif not waypoints[currentWaypointIndex] then
						currentWaypointIndex = currentWaypointIndex - 1
					end
    		else
			end
    	end
    	 
    	local function onPathBlocked(blockedWaypointIndex)
			if pathfindingcache[hum:GetFullName()].isdone == 1 then return end
			if blockedWaypointIndex > currentWaypointIndex then
				followPath()
			end
    	end
    	 
    	connect["onPathBlocked"] = path.Blocked:Connect(onPathBlocked)
    	 
    	connect["onWaypointReached"] = hum.MoveToFinished:Connect(onWaypointReached)
     	local function check()
			if pathfindingcache[hum:GetFullName()].isdone == 1 then
				pathfinddebounce = 0
				connect["onPathBlocked"]:disconnect()
				connect["onWaypointReached"]:disconnect()
								pathfindingcache[hum:GetFullName()] = nil
				connect["check"]:disconnect()
			end
		end
		connect["check"] = game:GetService("RunService").Heartbeat:Connect(check)
    	followPath()
end