why isnt the velocity of this bodyvelocity not changing when the lookvector does?

This is supposed to make a boat move in the direction that's facing, even if you turn while you're going forward. However, the lookvector of the boat's primarypart changes, but the velocity of the bodymover does not, despite being set to move based on the part's lookvector.

local re = game.ReplicatedStorage:WaitForChild("re")
local boat = script.Parent
local bounce = false


function goForward(move, speed)
	move.Parent = boat.basepart1
	move.MaxForce = Vector3.new(math.huge,0,math.huge)
	move.Velocity = speed
	boat.basepart1.Velocity = speed
	boat.stats.acceleration.Value = 1
	bounce = true
	while boat.stats.forward.Value == true do
		wait(0.5)
		if boat.stats.acceleration.Value <= 4.6 and boat.basepart1.Velocity.magnitude < 36 then
			move.Velocity = move.Velocity + (Vector3.new(boat.basepart1.CFrame.lookVector.x,boat.basepart1.CFrame.lookVector.y,boat.basepart1.CFrame.lookVector.z))*boat.stats.acceleration.Value
			boat.stats.acceleration.Value = boat.stats.acceleration.Value + 0.3
		end
	end
	bounce = false
	boat.stats.acceleration.Value = 1
	while boat.stats.forward.Value == false and boat.basepart1.Velocity.magnitude > 2.9 do
		wait(0.5)
		print(boat.basepart1.Velocity.magnitude," ",boat.stats.acceleration.Value)
		move.Velocity = move.Velocity - Vector3.new(boat.basepart1.CFrame.lookVector.x, 0, boat.basepart1.CFrame.lookVector.z)*boat.stats.acceleration.Value
		if boat.stats.acceleration.Value <=5 then
			boat.stats.acceleration.Value = boat.stats.acceleration.Value + 1
		end
	end
	if boat.basepart1.Velocity.magnitude < 4.6 then
	move.Velocity = Vector3.new(0,0,0)
	end
end


function turn(move, direction)
	if direction == "a" then
		while direction == "a" and boat.stats.turning.Value == true do
			wait()
			boat:SetPrimaryPartCFrame(boat.PrimaryPart.CFrame * CFrame.Angles(0,0.004,0))
		end
	elseif direction == "d" then
		while direction == "d" and boat.stats.turning.Value == true do
			wait()
			boat:SetPrimaryPartCFrame(boat.PrimaryPart.CFrame * CFrame.Angles(0,-0.004,0))
		end		
	end
end

re.OnServerEvent:connect(function(player, input, stroke)
	if boat.stats.driver.Value == "" then
		boat.stats.driver.Value = tostring(player)
	end
	if (tostring(player)) == boat.stats.driver.Value then
		if input and stroke then
			if input == "w" and stroke == "press" and bounce == false then
				bounce = true
				boat.stats.lastSpeed.Value = boat.basepart1.BodyVelocity.Velocity
				boat.stats.forward.Value = true
				goForward(boat.basepart1.BodyVelocity, boat.basepart1.BodyVelocity.Velocity)
			elseif input == "w" and stroke == "release" then
				boat.stats.lastSpeed.Value = boat.basepart1.BodyVelocity.Velocity
				boat.stats.forward.Value = false
			elseif input == "a" and stroke == "press" then
				boat.stats.turning.Value = true
				turn(boat.basepart1.turn, "a")
			elseif input == "d" and stroke == "press" then
				boat.stats.turning.Value = true
				turn(boat.basepart1.turn, "d")
			elseif input == "a" and stroke == "release" then
				boat.stats.turning.Value = false
				--stopTurn(boat.basepart1.turn)
			elseif input == "d" and stroke == "release" then
				boat.stats.turning.Value = false
				--stopTurn(boat.basepart1.turn)
			end
		end
	end
end)

The part that the problem occurs in is most likely the first while loop, since that's where the acceleration/forward movement of the boat occurs. The second while loop is only there to de-accelerate the boat after you've let go of the W key.