tokyo-wangan-racing/tools/probe_fix.luau

-- Studio caches required modules, which is why the previous rebuild silently
-- ran the OLD code (east slip still measured 216.0deg, unchanged). Force a
-- fresh load: clone the ModuleScript so require() sees a new instance and
-- recompiles from current source.
--
-- Verifies three things at once:
--   (1) smoothing landed  -> east total heading change << 216deg, zero >5deg kinks
--   (2) aux lane stays deleted -> AuxLane run 527..548 ABSENT, total ~30 not 52
--   (3) barrier gap closed -> parapet present along 527..548
local SS = game:GetService("ServerScriptService")
local out = {}
local function say(s) table.insert(out, s) end

local mod = SS:FindFirstChild("MapBuilder", true)
if not mod then return "MapBuilder NOT FOUND" end
if not mod:IsA("ModuleScript") then return "MapBuilder is " .. mod.ClassName end

local fresh = mod:Clone()
fresh.Name = "MapBuilder_fresh_" .. tostring(math.random(1e6))
fresh.Parent = SS

local ok, MB = pcall(require, fresh)
if not ok then
	fresh:Destroy()
	return "require FAILED: " .. tostring(MB)
end

local t0 = os.clock()
local ok2, err = pcall(function() MB.build() end)
local dt = os.clock() - t0
fresh:Destroy()
if not ok2 then return "build ERROR: " .. tostring(err) end
say(("build OK (%.2fs) via fresh module"):format(dt))

local map = workspace:FindFirstChild("Map")
if not map then return "Map missing" end

local parts = 0
for _, d in ipairs(map:GetDescendants()) do
	if d:IsA("BasePart") then parts += 1 end
end
say(("parts=%d"):format(parts))

-- (2) aux lane
local aux = {}
for _, d in ipairs(map:GetDescendants()) do
	if d:IsA("BasePart") then
		local k = d.Name:match("^AuxLane_(%d+)$")
		if k then table.insert(aux, tonumber(k)) end
	end
end
table.sort(aux)
local inRange = 0
for _, i in ipairs(aux) do if i >= 527 and i <= 548 then inRange += 1 end end
say(("AuxLane total=%d   inside 527..548 = %d  (want 0)"):format(#aux, inRange))

-- (3) barrier coverage across the formerly-bare run
local deck, bars = {}, {}
for _, d in ipairs(map:GetDescendants()) do
	if d:IsA("BasePart") then
		local k = d.Name:match("^Road_(%d+)$") or d.Name:match("^Deck_(%d+)$")
		if k then deck[tonumber(k)] = d end
		if d.Name == "Barrier" or d.Name == "EdgeRail" then table.insert(bars, d) end
	end
end
local UP = Vector3.new(0, 1, 0)
local function flat(v) return Vector3.new(v.X, 0, v.Z) end
local bare = {}
for i = 525, 550 do
	local d = deck[i]
	if d then
		local right = d.CFrame.LookVector:Cross(UP).Unit
		for _, sgn in ipairs({ -1, 1 }) do
			local edge = d.Position + right * sgn * (d.Size.X / 2 + 2)
			local best = math.huge
			for _, b in ipairs(bars) do
				if math.abs(b.Position.Y - edge.Y) < 14 then
					local dd = (flat(b.Position) - flat(edge)).Magnitude
					if dd < best then best = dd end
				end
			end
			if best > 12 then table.insert(bare, i .. (sgn < 0 and "L" or "R")) end
		end
	end
end
say(("bare edge samples in 525..550: %d %s"):format(#bare,
	#bare > 0 and ("-> " .. table.concat(bare, ",")) or "(want 0)"))

-- (1) smoothness
for _, s in ipairs({ "PAWestSlip", "PAEastSlip" }) do
	local segs = {}
	for _, d in ipairs(map:GetDescendants()) do
		if d:IsA("BasePart") then
			local k = d.Name:match("^" .. s .. "_Deck_(%d+)$")
			if k then table.insert(segs, { i = tonumber(k), p = d.Position, cf = d.CFrame }) end
		end
	end
	table.sort(segs, function(a, b) return a.i < b.i end)
	if #segs == 0 then say(s .. ": ABSENT") continue end
	local total, worst, worstAt, over = 0, 0, -1, 0
	for j = 2, #segs do
		local a, b = segs[j - 1].cf.LookVector, segs[j].cf.LookVector
		local dth = math.deg(math.acos(math.clamp(a:Dot(b), -1, 1)))
		total += dth
		if dth > worst then worst = dth; worstAt = segs[j].i end
		if dth > 5 then over += 1 end
	end
	local topY, level = segs[1].p.Y, 0
	for _, sg in ipairs(segs) do
		if math.abs(sg.p.Y - topY) < 0.5 then level += 1 else break end
	end
	local lmin, lmax = math.huge, -math.huge
	for j = 2, #segs do
		local L = (segs[j].p - segs[j - 1].p).Magnitude
		lmin = math.min(lmin, L); lmax = math.max(lmax, L)
	end
	say(("%s: total=%.1fdeg worst=%.1f@%d over5=%d level=%d spacing=%.1f..%.1f"):format(
		s, total, worst, worstAt, over, level, lmin, lmax))
	say(("   start=(%.0f,%.0f,%.0f) end=(%.0f,%.0f,%.0f)"):format(
		segs[1].p.X, segs[1].p.Y, segs[1].p.Z, segs[#segs].p.X, segs[#segs].p.Y, segs[#segs].p.Z))
end

return table.concat(out, "\n")