/***************************************************************************
 *   fheroes2: https://github.com/ihhub/fheroes2                           *
 *   Copyright (C) 2024                                                    *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
 ***************************************************************************/

#include <algorithm>
#include <cassert>
#include <cstddef>
#include <cstdint>
#include <optional>
#include <ostream>
#include <set>
#include <string>
#include <tuple>
#include <type_traits>
#include <utility>
#include <vector>

#include "ai_common.h"
#include "ai_hero_action.h"
#include "ai_planner.h" // IWYU pragma: associated
#include "ai_planner_internals.h"
#include "army.h"
#include "audio.h"
#include "audio_manager.h"
#include "castle.h"
#include "color.h"
#include "difficulty.h"
#include "game.h"
#include "game_interface.h"
#include "ground.h"
#include "heroes.h"
#include "heroes_recruits.h"
#include "interface_status.h"
#include "kingdom.h"
#include "logging.h"
#include "maps.h"
#include "maps_tiles.h"
#include "mp2.h"
#include "mus.h"
#include "players.h"
#include "resource.h"
#include "skill.h"
#include "spell.h"
#include "world.h"
#include "world_pathfinding.h"
#include "world_regions.h"

namespace
{
    struct HeroValue
    {
        Heroes * hero = nullptr;
        double strength = 0.0;
        int stats = 0;

        HeroValue( Heroes * inHero, double inStrength, int inStats )
            : hero( inHero )
            , strength( inStrength )
            , stats( inStats )
        {
            // Do nothing.
        }
    };

    class TemporaryHeroEraser
    {
    public:
        TemporaryHeroEraser() = delete;

        TemporaryHeroEraser( const TemporaryHeroEraser & ) = delete;

        TemporaryHeroEraser( TemporaryHeroEraser && ) = delete;

        explicit TemporaryHeroEraser( const std::vector<Heroes *> & heroes )
        {
            for ( Heroes * hero : heroes ) {
                assert( hero != nullptr && hero->isActive() );

                Maps::Tile & tile = world.getTile( hero->GetIndex() );
                if ( tile.getHero() == nullptr ) {
                    // This could happen when a hero is moving.
                    continue;
                }

                assert( tile.getHero() == hero );
                _heroes.emplace_back( hero );

                tile.setHero( nullptr );
            }
        }

        ~TemporaryHeroEraser()
        {
            for ( Heroes * hero : _heroes ) {
                Maps::Tile & tile = world.getTile( hero->GetIndex() );
                assert( tile.getHero() == nullptr );

                tile.setHero( hero );
            }
        }

        TemporaryHeroEraser & operator=( const TemporaryHeroEraser & ) = delete;

        TemporaryHeroEraser & operator=( TemporaryHeroEraser && ) = delete;

    private:
        std::vector<Heroes *> _heroes;
    };

    void setHeroRoles( VecHeroes & heroes, const int difficulty )
    {
        if ( heroes.empty() ) {
            // No heroes exist.
            return;
        }

        if ( !Difficulty::areAIHeroRolesAllowed( difficulty ) ) {
            // All heroes are equal.
            for ( Heroes * hero : heroes ) {
                hero->setAIRole( Heroes::Role::HUNTER );
            }

            return;
        }

        const Heroes * valuableHero = world.GetHeroesCondWins();

        if ( heroes.size() == 1 ) {
            if ( valuableHero != nullptr && valuableHero == heroes[0] ) {
                heroes[0]->setAIRole( Heroes::Role::CHAMPION );
            }
            else {
                // A single hero has no roles.
                heroes[0]->setAIRole( Heroes::Role::HUNTER );
            }

            return;
        }

        // Set hero's roles. First calculate each hero strength and sort it in descending order.
        std::vector<HeroValue> heroList;
        for ( Heroes * hero : heroes ) {
            // AI heroes set on patrol mode can only be fighters; ignore them otherwise
            if ( hero->Modes( Heroes::PATROL ) ) {
                hero->setAIRole( Heroes::Role::FIGHTER );
            }
            else {
                heroList.emplace_back( hero, hero->GetArmy().GetStrength(), hero->getStatsValue() );
            }
        }

        if ( heroList.empty() ) {
            // No more heroes.
            return;
        }

        // If there's plenty of heroes we can assign special roles
        if ( heroList.size() > 3 ) {
            std::sort( heroList.begin(), heroList.end(), []( const HeroValue & first, const HeroValue & second ) { return first.stats > second.stats; } );

            if ( valuableHero == nullptr ) {
                heroList.front().hero->setAIRole( Heroes::Role::CHAMPION );
                heroList.erase( heroList.begin() );
            }

            // Assign the courier role and remove them so they aren't counted towards the median strength
            heroList.back().hero->setAIRole( Heroes::Role::COURIER );
            heroList.pop_back();

            if ( heroList.size() > 2 ) {
                // We still have a plenty of heroes. In this case lets create a Scout hero to uncover the fog.
                heroList.back().hero->setAIRole( Heroes::Role::SCOUT );
                heroList.pop_back();
            }
        }

        assert( !heroList.empty() );

        std::sort( heroList.begin(), heroList.end(), []( const HeroValue & first, const HeroValue & second ) { return first.strength > second.strength; } );

        const double medianStrength = heroList[heroList.size() / 2].strength;

        for ( HeroValue & object : heroList ) {
            if ( valuableHero != nullptr && object.hero == valuableHero ) {
                object.hero->setAIRole( Heroes::Role::CHAMPION );
                continue;
            }

            if ( object.strength > medianStrength * 3 ) {
                object.hero->setAIRole( Heroes::Role::FIGHTER );
            }
            else {
                object.hero->setAIRole( Heroes::Role::HUNTER );
            }
        }
    }

    std::optional<AI::EnemyArmy> getEnemyArmyOnTile( const int kingdomColor, const Maps::Tile & tile )
    {
        const MP2::MapObjectType object = tile.getMainObjectType();
        const int32_t tileIndex = tile.GetIndex();

        if ( object == MP2::OBJ_HERO ) {
            const Heroes * hero = tile.getHero();
            // TODO: this function can be called when the game world is not fully initialized yet
            if ( hero == nullptr ) {
                return {};
            }

            if ( hero->isFriends( kingdomColor ) ) {
                return {};
            }

            // If the hero is standing in one place, then he does not pose a threat (as well as the castle in which he may be located)
            if ( hero->Modes( Heroes::PATROL ) && hero->GetPatrolDistance() == 0 ) {
                return {};
            }

            const Castle * castle = hero->inCastle();
            // Rough estimate - if the hero is in the castle, then we sum up the power of the castle garrison with the power of the hero's army
            const double threat = castle ? castle->GetArmy().GetStrength() + hero->GetArmy().GetStrength() : hero->GetArmy().GetStrength();

            return AI::EnemyArmy( tileIndex, hero, threat, hero->GetMaxMovePoints() );
        }

        if ( object == MP2::OBJ_CASTLE ) {
            const Castle * castle = world.getCastleEntrance( Maps::GetPoint( tileIndex ) );
            // TODO: this function can be called when the game world is not fully initialized yet
            if ( castle == nullptr ) {
                return {};
            }

            // Neutral castles don't pose a threat because they can't hire heroes
            if ( castle->GetColor() == Color::NONE || castle->isFriends( kingdomColor ) ) {
                return {};
            }

            // If it's just a town where there's no way to build a castle, then there's no way to hire heroes who might pose a threat
            if ( !castle->isCastle() && !castle->AllowBuyBuilding( BUILD_CASTLE ) ) {
                return {};
            }

            const double threat = castle->GetArmy().GetStrength();

            // 1500 is slightly more than a fresh hero's maximum move points hired in a castle.
            return AI::EnemyArmy( tileIndex, nullptr, threat, 1500 );
        }

        return {};
    }
}

bool AI::Planner::recruitHero( Castle & castle, bool buyArmy )
{
    Kingdom & kingdom = castle.GetKingdom();
    const Recruits & rec = kingdom.GetRecruits();

    Heroes * recruit = nullptr;

    // Re-hiring a hero related to any of the WINS_HERO or LOSS_HERO conditions is not allowed
    const auto heroesToIgnore = std::make_pair( world.GetHeroesCondWins(), world.GetHeroesCondLoss() );

    const auto useIfPossible = [&heroesToIgnore]( Heroes * hero ) -> Heroes * {
        if ( std::apply( [hero]( const auto... heroToIgnore ) { return ( ( hero == heroToIgnore ) || ... ); }, heroesToIgnore ) ) {
            return nullptr;
        }

        return hero;
    };

    Heroes * firstRecruit = useIfPossible( rec.GetHero1() );
    Heroes * secondRecruit = useIfPossible( rec.GetHero2() );

    if ( firstRecruit && secondRecruit ) {
        if ( secondRecruit->getRecruitValue() > firstRecruit->getRecruitValue() ) {
            recruit = castle.RecruitHero( secondRecruit );
        }
        else {
            recruit = castle.RecruitHero( firstRecruit );
        }
    }
    else if ( firstRecruit ) {
        recruit = castle.RecruitHero( firstRecruit );
    }
    else if ( secondRecruit ) {
        recruit = castle.RecruitHero( secondRecruit );
    }

    if ( recruit == nullptr ) {
        return false;
    }

    if ( buyArmy ) {
        reinforceCastle( castle );
    }
    else {
        OptimizeTroopsOrder( recruit->GetArmy() );
    }

    return true;
}

void AI::Planner::evaluateRegionSafety()
{
    std::vector<std::pair<size_t, int>> regionsToCheck;
    size_t lastPositive = 0;
    for ( size_t regionID = 0; regionID < _regions.size(); ++regionID ) {
        RegionStats & stats = _regions[regionID];

        if ( ( stats.friendlyCastles && stats.enemyCastles ) || ( stats.highestThreat > 0 && !stats.enemyCastles ) ) {
            // contested space OR enemy heroes invaded our region
            // TODO: assess army strength to get more accurate reading
            stats.safetyFactor = -50;
            stats.evaluated = true;
            regionsToCheck.emplace_back( regionID, -50 );
        }
        else if ( stats.enemyCastles ) {
            // straight up enemy territory
            stats.safetyFactor = -100;
            stats.evaluated = true;
            regionsToCheck.emplace_back( regionID, -100 );
        }
        else if ( stats.friendlyCastles ) {
            // our protected castle
            stats.safetyFactor = 100;
            stats.evaluated = true;
            regionsToCheck.emplace_back( regionID, 100 );
            ++lastPositive;
        }
        else {
            stats.safetyFactor = 0;
            stats.evaluated = false;
        }
    }
    std::sort( regionsToCheck.begin(), regionsToCheck.end(),
               []( const std::pair<size_t, int> & left, const std::pair<size_t, int> & right ) { return left.second > right.second; } );

    size_t currentEntry = 0;
    size_t batchStart = 0;
    size_t batchEnd = lastPositive + 1;
    while ( currentEntry < regionsToCheck.size() ) {
        const MapRegion & region = world.getRegion( regionsToCheck[currentEntry].first );

        for ( uint32_t secondaryID : region._neighbours ) {
            RegionStats & adjacentStats = _regions[secondaryID];
            if ( !adjacentStats.evaluated ) {
                adjacentStats.evaluated = true;
                regionsToCheck.emplace_back( secondaryID, adjacentStats.safetyFactor );
            }

            if ( adjacentStats.safetyFactor != 0 ) {
                // losing precision due to integer division is intentional here, values should be reduced to 0 eventually
                regionsToCheck[currentEntry].second += adjacentStats.safetyFactor / static_cast<int>( region.getNeighboursCount() );
            }
        }
        // no neighbours means it is an island; they are usually safer (or more dangerous to explore) due to boat movement penalties
        if ( region.getNeighboursCount() == 0 )
            regionsToCheck[currentEntry].second = regionsToCheck[currentEntry].second * 3 / 2;

        if ( currentEntry == batchEnd - 1 ) {
            // Apply the calculated value in batches
            for ( size_t idx = batchStart; idx < batchEnd; ++idx ) {
                const size_t regionID = regionsToCheck[idx].first;
                _regions[regionID].safetyFactor = regionsToCheck[idx].second;
                DEBUG_LOG( DBG_AI, DBG_TRACE, "Region " << regionID << " safety factor is " << _regions[regionID].safetyFactor )
            }
            batchStart = batchEnd;
            batchEnd = regionsToCheck.size();
        }
        ++currentEntry;
    }
}

std::vector<AI::AICastle> AI::Planner::getSortedCastleList( const VecCastles & castles, const std::set<int> & castlesInDanger )
{
    std::vector<AICastle> sortedCastleList;
    sortedCastleList.reserve( castles.size() );

    for ( Castle * castle : castles ) {
        if ( castle == nullptr ) {
            continue;
        }

        const int32_t castleIndex = castle->GetIndex();
        const uint32_t regionID = world.getTile( castleIndex ).GetRegion();

        sortedCastleList.emplace_back( castle, castlesInDanger.count( castleIndex ) > 0, _regions[regionID].safetyFactor, castle->getBuildingValue() );
    }

    std::sort( sortedCastleList.begin(), sortedCastleList.end(), []( const AICastle & left, const AICastle & right ) {
        if ( !left.underThreat && !right.underThreat ) {
            return left.safetyFactor > right.safetyFactor;
        }

        if ( left.underThreat && !right.underThreat ) {
            return true;
        }

        if ( !left.underThreat && right.underThreat ) {
            return false;
        }

        // We have a building value of a castle and its safety factor. The higher safety factor the lower priority to defend the castle.
        // Since we compare 2 castles we need to use safety factor of the opposite castle.
        return left.buildingValue * right.safetyFactor > right.buildingValue * left.safetyFactor;
    } );

    return sortedCastleList;
}

std::set<int> AI::Planner::findCastlesInDanger( const Kingdom & kingdom )
{
    std::set<int> castlesInDanger;

    // Since we are estimating danger for a castle and we need to know if an enemy hero can reach it
    // if no our heroes exist. So we are temporary removing them from the map.
    const TemporaryHeroEraser heroEraser( kingdom.GetHeroes() );

    const AIWorldPathfinderStateRestorer pathfinderStateRestorer( _pathfinder );

    // Use the "optimistic" pathfinder settings for enemy armies - minimal army advantage, minimal reserve of spell points
    _pathfinder.setMinimalArmyStrengthAdvantage( ARMY_ADVANTAGE_DESPERATE );
    _pathfinder.setSpellPointsReserveRatio( 0.0 );

    for ( const auto & [dummy, enemyArmy] : _enemyArmies ) {
        for ( const Castle * castle : kingdom.GetCastles() ) {
            if ( castle == nullptr ) {
                // How is it even possible? Check the logic!
                assert( 0 );
                continue;
            }

            if ( updateIndividualPriorityForCastle( *castle, enemyArmy ) ) {
                castlesInDanger.insert( castle->GetIndex() );
            }
        }
    }

    return castlesInDanger;
}

void AI::Planner::updatePriorityForEnemyArmy( const Kingdom & kingdom, const EnemyArmy & enemyArmy )
{
    // Since we are estimating danger for a castle and we need to know if an enemy hero can reach it
    // if no our heroes exist. So we are temporary removing them from the map.
    const TemporaryHeroEraser heroEraser( kingdom.GetHeroes() );

    const AIWorldPathfinderStateRestorer pathfinderStateRestorer( _pathfinder );

    // Use the "optimistic" pathfinder settings for enemy armies - minimal army advantage, minimal reserve of spell points
    _pathfinder.setMinimalArmyStrengthAdvantage( ARMY_ADVANTAGE_DESPERATE );
    _pathfinder.setSpellPointsReserveRatio( 0.0 );

    for ( const Castle * castle : kingdom.GetCastles() ) {
        if ( castle == nullptr ) {
            // How is it even possible? Check the logic!
            assert( 0 );
            continue;
        }

        updateIndividualPriorityForCastle( *castle, enemyArmy );
    }
}

void AI::Planner::updatePriorityForCastle( const Castle & castle )
{
    // Since we are estimating danger for a castle and we need to know if an enemy hero can reach it
    // if no our heroes exist. So we are temporary removing them from the map.
    const TemporaryHeroEraser heroEraser( castle.GetKingdom().GetHeroes() );

    const AIWorldPathfinderStateRestorer pathfinderStateRestorer( _pathfinder );

    // Use the "optimistic" pathfinder settings for enemy armies - minimal army advantage, minimal reserve of spell points
    _pathfinder.setMinimalArmyStrengthAdvantage( ARMY_ADVANTAGE_DESPERATE );
    _pathfinder.setSpellPointsReserveRatio( 0.0 );

    for ( const auto & [dummy, enemyArmy] : _enemyArmies ) {
        updateIndividualPriorityForCastle( castle, enemyArmy );
    }
}

bool AI::Planner::updateIndividualPriorityForCastle( const Castle & castle, const EnemyArmy & enemyArmy )
{
    // 30 tiles, roughly how much maxed out hero can move in a turn.
    const uint32_t threatDistanceLimit = 3000;

    const int32_t castleIndex = castle.GetIndex();

    // Skip precise distance check if army is too far to be a threat
    if ( Maps::GetApproximateDistance( enemyArmy.index, castleIndex ) * Maps::Ground::fastestMovePenalty > threatDistanceLimit ) {
        return false;
    }

    // When estimating the distance using the pathfinder, it should be taken into account that although the enemy army may be close to the castle, the castle
    // may still be invisible to the enemy army due to the fog of war, therefore, it is necessary to use an assessment of the path from the castle owner's point
    // of view, who obviously sees both the castle and the enemy army at the same time.
    //
    // Of course, on the other hand, it may be the other way around - the enemy army may have access to some path that is not yet visible to the castle owner,
    // but since the castle owner doesn't know about this for sure, using this option smacks of cheating.
    const uint32_t dist = _pathfinder.getDistance( enemyArmy.index, castleIndex, castle.GetColor(), enemyArmy.strength );
    if ( dist == 0 || dist >= threatDistanceLimit ) {
        return false;
    }

    uint32_t daysToReach = ( dist + enemyArmy.movePoints - 1 ) / enemyArmy.movePoints;
    if ( daysToReach > 3 ) {
        // It is too far away. Ignore it.
        return false;
    }

    DEBUG_LOG( DBG_AI, DBG_TRACE, castle.GetName() << " is threatened by enemy army at " << enemyArmy.index )

    double enemyStrength = enemyArmy.strength;

    --daysToReach;
    while ( daysToReach > 0 ) {
        // Each day reduces enemy strength by 50%. If an enemy is too far away then there is no reason to panic.
        enemyStrength /= 2;
        --daysToReach;
    }

    if ( const auto [iter, inserted] = _priorityTargets.try_emplace( enemyArmy.index, PriorityTaskType::ATTACK, castleIndex ); !inserted ) {
        iter->second.secondaryTaskTileId.insert( castleIndex );
    }

    if ( const auto [iter, inserted] = _priorityTargets.try_emplace( castleIndex, PriorityTaskType::DEFEND, enemyArmy.index ); !inserted ) {
        iter->second.secondaryTaskTileId.insert( enemyArmy.index );
    }

    // If the castle guard (including the garrison and the guest hero) is weaker than the enemy, then the
    // castle is considered to be in danger
    if ( castle.GetGarrisonStrength( enemyArmy.hero ) < enemyStrength ) {
        return true;
    }

    // If the guest hero himself is not able to defeat a threatening enemy in an open field, then the castle
    // is considered to be in danger, and the guest hero should probably stay in it
    const Heroes * hero = castle.GetHero();
    if ( hero && hero->GetArmy().GetStrength() <= enemyStrength * ARMY_ADVANTAGE_SMALL ) {
        return true;
    }

    return false;
}

void AI::Planner::removePriorityAttackTarget( const int32_t tileIndex )
{
    const auto it = _priorityTargets.find( tileIndex );
    if ( it == _priorityTargets.end() ) {
        return;
    }

    const PriorityTask & attackTask = it->second;
    if ( attackTask.type != PriorityTaskType::ATTACK ) {
        return;
    }

    for ( const int32_t secondaryTaskId : attackTask.secondaryTaskTileId ) {
        // If this assertion blows then you are attacking and defending the same tile!
        assert( secondaryTaskId != tileIndex );

        auto defenseTask = _priorityTargets.find( secondaryTaskId );
        if ( defenseTask == _priorityTargets.end() ) {
            continue;
        }

        if ( defenseTask->second.type != PriorityTaskType::DEFEND ) {
            continue;
        }

        // check if a secondary task still present
        std::set<int> & defenseSecondaries = defenseTask->second.secondaryTaskTileId;
        defenseSecondaries.erase( tileIndex );
        if ( defenseSecondaries.empty() ) {
            // if no one else was threatening this then we no longer have to defend
            _priorityTargets.erase( secondaryTaskId );
        }
    }

    _priorityTargets.erase( tileIndex );
}

void AI::Planner::updatePriorityAttackTarget( const Kingdom & kingdom, const Maps::Tile & tile )
{
    const int32_t tileIndex = tile.GetIndex();

    const auto enemyArmy = getEnemyArmyOnTile( kingdom.GetColor(), tile );
    if ( !enemyArmy ) {
        _enemyArmies.erase( tileIndex );

        return;
    }

    assert( enemyArmy->index == tileIndex );

    if ( const auto [iter, inserted] = _enemyArmies.try_emplace( tileIndex, *enemyArmy ); !inserted ) {
        iter->second = *enemyArmy;
    }

    updatePriorityForEnemyArmy( kingdom, *enemyArmy );
}

void AI::Planner::KingdomTurn( Kingdom & kingdom )
{
#if defined( WITH_DEBUG )
    class AIAutoControlModeCommitter
    {
    public:
        explicit AIAutoControlModeCommitter( const Kingdom & kingdom )
            : _kingdomColor( kingdom.GetColor() )
        {}

        AIAutoControlModeCommitter( const AIAutoControlModeCommitter & ) = delete;

        ~AIAutoControlModeCommitter()
        {
            Player * player = Players::Get( _kingdomColor );
            assert( player != nullptr );

            if ( player->isAIAutoControlMode() ) {
                player->commitAIAutoControlMode();
            }
        }

        AIAutoControlModeCommitter & operator=( const AIAutoControlModeCommitter & ) = delete;

    private:
        const int _kingdomColor;
    };

    const AIAutoControlModeCommitter aiAutoControlModeCommitter( kingdom );
#endif

    _mapActionObjects.clear();
    _priorityTargets.clear();
    _enemyArmies.clear();

    // Clear the tile army strength cache because the strength of the respective armies might have changed since last time
    _tileArmyStrengthValues.clear();

    _regions.clear();
    _regions.resize( world.getRegionCount() );

    const int myColor = kingdom.GetColor();

    if ( kingdom.isLoss() || myColor == Color::NONE ) {
        kingdom.LossPostActions();
        return;
    }

    // Reset the turn progress indicator
    Interface::StatusPanel & status = Interface::AdventureMap::Get().getStatusPanel();
    status.drawAITurnProgress( 0 );

    AudioManager::PlayMusicAsync( MUS::COMPUTER_TURN, Music::PlaybackMode::RESUME_AND_PLAY_INFINITE );

    VecHeroes & heroes = kingdom.GetHeroes();
    const VecCastles & castles = kingdom.GetCastles();

    DEBUG_LOG( DBG_AI, DBG_INFO, Color::String( myColor ) << " starts the turn: " << castles.size() << " castles, " << heroes.size() << " heroes" )
    DEBUG_LOG( DBG_AI, DBG_INFO, "Funds: " << kingdom.GetFunds().String() )

    // Step 1. Scan visible map (based on game difficulty), add goals and threats
    bool underViewSpell = false;
    int32_t availableHeroCount = 0;
    Heroes * bestHeroToViewAll = nullptr;

    for ( Heroes * hero : heroes ) {
        hero->ResetModes( Heroes::SLEEPER );
        hero->setDimensionDoorUsage( 0 );

        if ( !hero->Modes( Heroes::PATROL ) ) {
            ++availableHeroCount;
        }

        if ( hero->HaveSpell( Spell::VIEWALL ) && ( !bestHeroToViewAll || hero->HasSecondarySkill( Skill::Secondary::MYSTICISM ) ) ) {
            bestHeroToViewAll = hero;
        }
    }

    if ( bestHeroToViewAll && HeroesCastAdventureSpell( *bestHeroToViewAll, Spell::VIEWALL ) ) {
        underViewSpell = true;
    }

    const int mapSize = world.w() * world.h();

    for ( int idx = 0; idx < mapSize; ++idx ) {
        const Maps::Tile & tile = world.getTile( idx );
        MP2::MapObjectType objectType = tile.getMainObjectType();

        const uint32_t regionID = tile.GetRegion();
        if ( regionID >= _regions.size() ) {
            assert( 0 );
            continue;
        }

        RegionStats & stats = _regions[regionID];
        if ( !underViewSpell && tile.isFog( myColor ) ) {
            continue;
        }

        if ( !MP2::isInGameActionObject( objectType ) ) {
            continue;
        }

        if ( const auto [dummy, inserted] = _mapActionObjects.try_emplace( idx, objectType ); !inserted ) {
            assert( 0 );
        }

        if ( objectType == MP2::OBJ_HERO ) {
            const Heroes * hero = tile.getHero();
            assert( hero != nullptr );

            if ( hero->GetColor() == myColor && !hero->Modes( Heroes::PATROL ) ) {
                ++stats.friendlyHeroes;

                const int wisdomLevel = hero->GetLevelSkill( Skill::Secondary::WISDOM );
                if ( wisdomLevel + 2 > stats.spellLevel ) {
                    stats.spellLevel = wisdomLevel + 2;
                }
            }

            // This hero can be in a castle
            objectType = tile.getMainObjectType( false );
        }

        if ( objectType == MP2::OBJ_CASTLE ) {
            const Castle * castle = world.getCastleEntrance( Maps::GetPoint( idx ) );
            assert( castle != nullptr );

            if ( castle->isFriends( myColor ) ) {
                ++stats.friendlyCastles;
            }
            else if ( castle->GetColor() != Color::NONE ) {
                ++stats.enemyCastles;
            }
        }

        const auto enemyArmy = getEnemyArmyOnTile( myColor, tile );
        if ( enemyArmy ) {
            assert( enemyArmy->index == idx );

            if ( const auto [dummy, inserted] = _enemyArmies.try_emplace( idx, *enemyArmy ); !inserted ) {
                assert( 0 );
            }

            if ( stats.highestThreat < enemyArmy->strength ) {
                stats.highestThreat = enemyArmy->strength;
            }
        }
    }

    DEBUG_LOG( DBG_AI, DBG_TRACE, Color::String( myColor ) << " found " << _mapActionObjects.size() << " valid objects" )

    evaluateRegionSafety();

    updateKingdomBudget( kingdom );

    uint32_t progressStatus = 1;
    status.drawAITurnProgress( progressStatus );

    std::set<int> castlesInDanger;
    std::vector<AICastle> sortedCastleList;

    while ( true ) {
        // Step 2. Do some hero stuff.
        // If a hero is standing in a castle most likely he has nothing to do so let's try to give him more army.
        for ( Heroes * hero : heroes ) {
            HeroesActionComplete( *hero, hero->GetIndex(), MP2::OBJ_NONE );
        }

        // Step 3. Reassign heroes roles
        setHeroRoles( heroes, Game::getDifficulty() );

        castlesInDanger = findCastlesInDanger( kingdom );
        for ( Heroes * hero : heroes ) {
            if ( castlesInDanger.find( hero->GetIndex() ) != castlesInDanger.end() ) {
                // If a hero is in a castle and this castle is in danger then the hero is most likely not able to defeat
                // a threatening enemy in an open field. Therefore let's make him stay in the castle.
                // TODO: allow the hero to still do some actions but always return to the castle at the end of the turn.

                HeroesActionComplete( *hero, hero->GetIndex(), hero->getObjectTypeUnderHero() );
            }
        }

        sortedCastleList = getSortedCastleList( castles, castlesInDanger );

        // If AI has less than three heroes at the start of the turn we assume
        // that he will buy another one in this turn and allow progress to increase only for 2 points.
        uint32_t const endProgressValue
            = ( progressStatus == 1 ) ? std::min( static_cast<uint32_t>( heroes.size() ) * 2U + 1U, 8U ) : std::min( progressStatus + 2U, 9U );

        bool moreTaskForHeroes = HeroesTurn( heroes, progressStatus, endProgressValue );

        // Step 4. Buy new heroes, adjust roles, sort heroes based on priority or strength
        if ( purchaseNewHeroes( sortedCastleList, castlesInDanger, availableHeroCount, moreTaskForHeroes ) ) {
            assert( !heroes.empty() && heroes.back() != nullptr );

            updateMapActionObjectCache( heroes.back()->GetIndex() );

            ++availableHeroCount;

            continue;
        }

        if ( !moreTaskForHeroes && world.LastDay() ) {
            // Heroes have nothing to do. In this case it is wise to move heroes to castles especially if it is the last day of a week.
            // So for the next day a hero will have a maximum amount of spell points as well as new troops.
            for ( const Castle * castle : castles ) {
                assert( castle != nullptr );

                if ( castle->GetHero() == nullptr ) {
                    if ( const auto [dummy, inserted] = _priorityTargets.try_emplace( castle->GetIndex(), PriorityTaskType::REINFORCE ); inserted ) {
                        DEBUG_LOG( DBG_AI, DBG_INFO, castle->GetName() << " is designated as a priority target to reinforce nearby heroes" )

                        moreTaskForHeroes = true;
                    }
                }
            }

            if ( moreTaskForHeroes ) {
                continue;
            }
        }

        break;
    }

    status.drawAITurnProgress( 9 );

    // Sync the list of castles (if new ones were captured during the turn)
    if ( castles.size() != sortedCastleList.size() ) {
        evaluateRegionSafety();

        castlesInDanger = findCastlesInDanger( kingdom );
        sortedCastleList = getSortedCastleList( castles, castlesInDanger );
    }

    // Step 5. Castle development according to kingdom budget
    for ( const AICastle & entry : sortedCastleList ) {
        if ( entry.castle != nullptr ) {
            CastleTurn( *entry.castle, entry.underThreat );
        }
    }

    // For heroes in castles or towns, transfer their slowest troops to the garrison at the end of the turn to try to get a movement bonus on the next turn
    for ( Heroes * hero : heroes ) {
        Castle * castle = hero->inCastleMutable();
        if ( castle == nullptr ) {
            continue;
        }

        transferSlowestTroopsToGarrison( hero, castle );
    }

    status.resetAITurnProgress();
}

bool AI::Planner::purchaseNewHeroes( const std::vector<AICastle> & sortedCastleList, const std::set<int> & castlesInDanger, const int32_t availableHeroCount,
                                     const bool moreTasksForHeroes )
{
    const bool isEarlyGameWithSingleCastle = world.CountDay() < 5 && sortedCastleList.size() == 1;
    const int32_t heroLimit = isEarlyGameWithSingleCastle ? 2 : world.w() / Maps::SMALL + 2;

    if ( availableHeroCount >= heroLimit ) {
        return false;
    }

    Castle * recruitmentCastle = nullptr;
    double bestArmyAvailable = -1.0;

    // search for best castle to recruit hero from
    for ( const AICastle & entry : sortedCastleList ) {
        Castle * castle = entry.castle;
        if ( castle && castle->isCastle() ) {
            const Heroes * hero = castle->GetHero();
            const int mapIndex = castle->GetIndex();

            // Make sure there is no hero in castle already and we're not under threat while having other heroes.
            if ( hero != nullptr || ( availableHeroCount > 0 && castlesInDanger.find( mapIndex ) != castlesInDanger.end() ) )
                continue;

            const uint32_t regionID = world.getTile( mapIndex ).GetRegion();
            const int heroesInRegion = _regions[regionID].friendlyHeroes;

            if ( heroesInRegion > 1 )
                continue;

            const size_t neighboursCount = world.getRegion( regionID ).getNeighboursCount();

            // don't buy another hero if there's nothing to do or castle is on an island
            if ( heroesInRegion > 0 && ( !moreTasksForHeroes || ( sortedCastleList.size() > 1 && neighboursCount == 0 ) ) ) {
                continue;
            }

            const double availableArmy = castle->getArmyRecruitmentValue();

            if ( recruitmentCastle == nullptr || availableArmy > bestArmyAvailable ) {
                recruitmentCastle = castle;
                bestArmyAvailable = availableArmy;
            }
        }
    }

    // target found, buy hero
    return recruitmentCastle && recruitHero( *recruitmentCastle, !isEarlyGameWithSingleCastle );
}
