FormationIntact

-- Formation Intact
function evaluate(params)
    local leader = this:getSuperior()

    if not leader or not leader:isValid() then
        return false
    end

    local subordinates = leader:getSubordinates()
    local inFormation = 0

    for i, sub in ipairs(subordinates) do
        if sub:isValid() and IsInFormation{
            leader = leader,
            formation_name = params.formation_name,
            position = i,
            tolerance = params.tolerance or 100
        } then
            inFormation = inFormation + 1
        end
    end

    return inFormation >= (#subordinates * 0.75)  -- 75% in formation
end