ca_bottleneck_attack.lua

local AH = wesnoth.require "ai/lua/ai_helper.lua"
local H = wesnoth.require "helper"

local ca_bottleneck_attack = {}

function ca_bottleneck_attack:evaluation(cfg, data)
    local attackers = AH.get_units_with_attacks {
        side = wesnoth.current.side,
        { "filter_adjacent", {
            { "filter_side", { { "enemy_of", {side = wesnoth.current.side} } } }
        } }
    }
    if (not attackers[1]) then return 0 end

    local max_rating, best_attacker, best_target, best_weapon = -9e99
    for _,attacker in ipairs(attackers) do
        local targets = AH.get_attackable_enemies { { "filter_adjacent", { id = attacker.id } } }

        for _,target in ipairs(targets) do
            for n_weapon,weapon in ipairs(attacker.attacks) do
                local att_stats, def_stats = wesnoth.simulate_combat(attacker, n_weapon, target)

                local rating
                -- This is an acceptable attack if:
                -- 1. There is no counter attack
                -- 2. Probability of death is >=67% for enemy, 0% for attacker
                if (att_stats.hp_chance[attacker.hitpoints] == 1)
                    or ((def_stats.hp_chance[0] >= 0.67) and (att_stats.hp_chance[0] == 0))
                then
                    rating = target.max_hitpoints + def_stats.hp_chance[0] * 100
                    rating = rating + att_stats.average_hp - def_stats.average_hp

                    -- If there's a chance to make the kill, unit closest to leveling up goes first,
                    -- otherwise the other way around
                    if (def_stats.hp_chance[0] >= 0.67) then
                        rating = rating + (attacker.experience - attacker.max_experience) / 10.
                    else
                        rating = rating - (attacker.experience - attacker.max_experience) / 10.
                    end
                end

                if rating and (rating > max_rating) then
                    max_rating = rating
                    best_attacker, best_target, best_weapon = attacker, target, n_weapon
                end
            end
        end
    end

    if (not best_attacker) then
        -- In this case we take attacks away from all units
        data.BD_bottleneck_attacks_done = true
    else
        data.BD_bottleneck_attacks_done = false
        data.BD_attacker = best_attacker
        data.BD_target = best_target
        data.BD_weapon = best_weapon
    end

    return cfg.ca_score
end

function ca_bottleneck_attack:execution(cfg, data)
    if data.BD_bottleneck_attacks_done then
        local units = AH.get_units_with_attacks { side = wesnoth.current.side }
        for _,unit in ipairs(units) do
            AH.checked_stopunit_attacks(ai, unit)
        end
    else
        AH.checked_attack(ai, data.BD_attacker, data.BD_target, data.BD_weapon)
    end

    data.BD_attacker, data.BD_target, data.BD_weapon = nil, nil, nil
    data.BD_bottleneck_attacks_done = nil
end

return ca_bottleneck_attack