절차적 파괴 아키텍처: 보로노이 골절 분할, 구조적 무결성 그래프 및 파편 최적화

--!strict
local RunService = game:GetService("RunService")
local Debris = game:GetService("Debris")

export type BuildingNode = {
    Part: BasePart,
    IsGrounded: boolean,
    Neighbors: { BuildingNode },
    Destroyed: boolean,
}

local StructuralEngine = {}
StructuralEngine.__index = StructuralEngine

function StructuralEngine.new()
    local self = setmetatable({}, StructuralEngine)
    self.Nodes = {} :: { [BasePart]: BuildingNode }
    return self
end

function StructuralEngine:RegisterPart(part: BasePart, isGrounded: boolean): BuildingNode
    local node: BuildingNode = {
        Part = part,
        IsGrounded = isGrounded,
        Neighbors = {},
        Destroyed = false,
    }
    self.Nodes[part] = node
    return node
end

function StructuralEngine:ConnectNodes(partA: BasePart, partB: BasePart)
    local nodeA = self.Nodes[partA]
    local nodeB = self.Nodes[partB]
    if nodeA and nodeB then
        table.insert(nodeA.Neighbors, nodeB)
        table.insert(nodeB.Neighbors, nodeA)
    end
end

function StructuralEngine:ApplyExplosion(center: Vector3, radius: number)
    local destroyedParts = {}

    -- Identify parts within blast radius
    for part, node in pairs(self.Nodes) do
        if not node.Destroyed and not node.IsGrounded then
            local dist = (part.Position - center).Magnitude
            if dist <= radius then
                node.Destroyed = true
                table.insert(destroyedParts, part)
            end
        end
    end

    -- Shatter and spawn physics debris for direct impact parts
    for _, part in ipairs(destroyedParts) do
        part.CanCollide = false
        part.Anchored = false
        local blastDir = (part.Position - center).Unit
        part.AssemblyLinearVelocity = blastDir * math.random(40, 80)
        Debris:AddItem(part, 3.5)
    end

    -- Re-evaluate structural integrity of the remaining structure
    self:EvaluateIntegrity()
end

function StructuralEngine:EvaluateIntegrity()
    local visited = {} :: { [BuildingNode]: boolean }
    local queue = {} :: { BuildingNode }

    -- Seed BFS queue with all active grounded nodes
    for _, node in pairs(self.Nodes) do
        if not node.Destroyed and node.IsGrounded then
            visited[node] = true
            table.insert(queue, node)
        end
    end

    -- Traverse connected components
    local head = 1
    while head <= #queue do
        local current = queue[head]
        head += 1

        for _, neighbor in ipairs(current.Neighbors) do
            if not neighbor.Destroyed and not visited[neighbor] then
                visited[neighbor] = true
                table.insert(queue, neighbor)
            end
        end
    end

    -- Any unvisited non-destroyed node has lost structural path to ground
    for _, node in pairs(self.Nodes) do
        if not node.Destroyed and not node.IsGrounded and not visited[node] then
            node.Destroyed = true
            local part = node.Part
            part.Anchored = false
            -- Natural gravity tumble with random tumbling angular momentum
            part.AssemblyLinearVelocity = Vector3.new(math.random(-5, 5), -15, math.random(-5, 5))
            part.AssemblyAngularVelocity = Vector3.new(math.random(-2, 2), math.random(-2, 2), math.random(-2, 2))
            -- Transition to debris pool
            Debris:AddItem(part, 5.0)
        end
    end
end

return StructuralEngine