-- Conservative GEOMETRIC HEURISTIC, NOT proof of a native parent relationship.
-- Inputs must already be linked to live network descriptors by spatial_runtime.
local P={radius=6,separation=12,margin=3,max_mechs=8,max_arms=16}
local function same(a,b)return a and b and a.entity==b.entity and a.goid==b.goid and a.unit==b.unit and a.resource==b.resource end
local function finite(v)return type(v)=='number'and v==v and math.abs(v)<=1000000 end
local function pos(v)return type(v)=='table'and finite(v[1])and finite(v[2])and finite(v[3])end
local function distance(a,b)local x,y,z=a[1]-b[1],a[2]-b[2],a[3]-b[3];return math.sqrt(x*x+y*y+z*z)end
P.distance=distance
function P.key(d)return d.resource..':'..string.format('%.0f:%.0f:%.0f',d.entity,d.goid,d.unit)end
function P.select(current,mechs,arms,side_by_resource)
 local meta={heuristic=true,radius=P.radius,separation=P.separation,margin=P.margin,distances={}}
 local function no(reason)return nil,reason,meta end
 if #mechs<1 or #mechs>P.max_mechs or #arms<1 or #arms>P.max_arms then return no('SPATIAL_COUNT_BOUND')end
 local seen={};local here
 for _,m in ipairs(mechs)do
  if not pos(m.position)or seen[m.descriptor.entity]then return no('SPATIAL_INVALID_MECH')end
  seen[m.descriptor.entity]=true
  if same(current,m.descriptor)then if here then return no('SPATIAL_DUPLICATE_CURRENT')end;here=m end
 end
 if not here then return no('SPATIAL_CURRENT_NOT_FOUND')end
 for _,m in ipairs(mechs)do
  if m~=here and distance(here.position,m.position)<=P.separation then return no('SPATIAL_MECHS_TOO_CLOSE')end
 end
 local sides={};local selected={}
 for _,a in ipairs(arms)do
  if not pos(a.position)or seen[a.descriptor.entity]then return no('SPATIAL_INVALID_ARM')end
  seen[a.descriptor.entity]=true
  local side=side_by_resource[a.descriptor.resource]
  if side~='L'and side~='R'then return no('SPATIAL_SIDE_UNKNOWN')end
  local dist=distance(here.position,a.position)
  meta.distances[#meta.distances+1]={entity=a.descriptor.entity,side=side,distance=dist}
  if dist<=P.radius then
   for _,m in ipairs(mechs)do
    if m~=here and distance(m.position,a.position)-dist<P.margin then return no('SPATIAL_COMPETING_MECH')end
   end
   if sides[side]then return no('SPATIAL_DUPLICATE_SIDE')end
   sides[side]=true;selected[#selected+1]=a.descriptor
  end
 end
 if #selected==0 then return no('SPATIAL_NO_CLOSE_ARM')end
 table.sort(selected,function(a,b)return side_by_resource[a.resource]<side_by_resource[b.resource]end)
 local signature={P.key(current)};for _,d in ipairs(selected)do signature[#signature+1]=P.key(d)end
 meta.signature=table.concat(signature,'|');meta.selected=#selected
 return selected,'SPATIAL_HEURISTIC',meta
end
return P