--[[
	diag_pawall.luau -- is the parking area actually sealed?

	The user reports a continuous low wall around the lot with no way out. The
	suspect: planPA builds PARingWall on BOTH edges of every ring segment
	(for sgn in {1,-1}) with no opening carved where PAOnRamp / PAOffRamp meet
	the ring -- so the INNER lip would form an unbroken fence around the apron.

	This does not reason about the code. It fires RAYS outward from the spawn
	pad in 72 directions and reports what each one hits first, so a genuine gap
	shows up as a ray that reaches the ring deck (or beyond) without hitting a
	wall. If every ray hits PARingWall, the lot is sealed -- confirmed by
	measurement, not inspection.
]]

local Workspace = game:GetService("Workspace")

local map = Workspace:FindFirstChild("Map")
if not map then
	return "FATAL: no Map"
end
local pad = map:FindFirstChild("SpawnPad", true)
if not pad then
	return "FATAL: no SpawnPad"
end

local origin = pad.Position + Vector3.new(0, 2, 0)

local params = RaycastParams.new()
params.FilterType = Enum.RaycastFilterType.Include
params.FilterDescendantsInstances = { map }

local out = {}
local function log(s)
	table.insert(out, s)
end

local N = 72
local hits = {}
local escapes = {}
local wallH = {}

for i = 0, N - 1 do
	local ang = (i / N) * math.pi * 2
	local dir = Vector3.new(math.cos(ang), 0, math.sin(ang))
	local res = Workspace:Raycast(origin, dir * 600, params)
	local bearingDeg = math.deg(math.atan2(dir.X, -dir.Z))
	if bearingDeg < 0 then
		bearingDeg += 360
	end
	if res then
		local nm = res.Instance.Name
		hits[nm] = (hits[nm] or 0) + 1
		if nm:find("Wall") or nm:find("Barrier") or nm:find("Rail") then
			-- how tall is the blocker, and how high above the apron does it reach?
			local top = res.Instance.Position.Y + res.Instance.Size.Y / 2
			table.insert(wallH, top - pad.Position.Y)
		else
			table.insert(escapes, string.format("bearing %3.0f deg -> %s at %.0f studs", bearingDeg, nm, res.Distance))
		end
	else
		table.insert(escapes, string.format("bearing %3.0f deg -> CLEAR (no hit in 600 studs)", bearingDeg))
	end
end

log(string.format("cast %d rays outward from the pad at Y+2", N))
log("")
log("--- what the rays hit first ---")
for nm, n in pairs(hits) do
	log(string.format("  %-16s %d rays", nm, n))
end

log("")
if #escapes == 0 then
	log(">>> SEALED: every one of the " .. N .. " rays hit a wall/barrier.")
	log("    There is NO gap in the ring wall -- the lot is fully enclosed.")
else
	log(string.format(">>> %d ray(s) found a non-wall path out:", #escapes))
	for _, e in ipairs(escapes) do
		log("    " .. e)
	end
end

if #wallH > 0 then
	local mn, mx = math.huge, -math.huge
	for _, h in ipairs(wallH) do
		mn = math.min(mn, h)
		mx = math.max(mx, h)
	end
	log("")
	log(string.format("blocking wall top sits %.1f..%.1f studs above the apron", mn, mx))
	log("(a car can climb roughly 2-3 studs; anything above that is a hard barrier)")
end

-- Distance from pad centre to the first wall, to size the enclosure.
local r = Workspace:Raycast(origin, Vector3.new(1, 0, 0) * 600, params)
if r then
	log(string.format("first blocker due East is %.0f studs from pad centre", r.Distance))
end

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