#include "options.h"

#include <SDL3/SDL.h>  // Para SDL_ScaleMode, SDL_GamepadButton, SDL_LogCategory, SDL_LogInfo, SDL_LogError, SDL_LogWarn
#include <stddef.h>    // Para size_t

#include <algorithm>   // Para clamp, max
#include <fstream>     // Para basic_ostream, operator<<, basic_ostream::operator<<, basic_ofstream, basic_istream, basic_ifstream, ifstream, ofstream
#include <functional>  // Para function
#include <map>         // Para map, operator==, _Rb_tree_const_iterator
#include <stdexcept>   // Para invalid_argument, out_of_range
#include <string>      // Para char_traits, stoi, operator==, operator<<, allocator, string, basic_string, operator<=>, getline
#include <utility>     // Para swap, pair
#include <vector>      // Para vector

#include "difficulty.h"  // Para Code, init
#include "input.h"       // Para InputDevice
#include "lang.h"        // Para Code
#include "utils.h"       // Para boolToString, stringToBool, getFileName

namespace Options {
// --- Variables globales ---
Window window;                   // Opciones de la ventana
Settings settings;               // Opciones del juego
Video video;                     // Opciones de vídeo
Audio audio;                     // Opciones de audio
GamepadManager gamepad_manager;  // Opciones de mando para cada jugador
Keyboard keyboard;               // Opciones para el teclado
PendingChanges pending_changes;  // Opciones que se aplican al cerrar

// Declaraciones
auto set(const std::string& var, const std::string& value) -> bool;

// Establece el fichero de configuración
void setConfigFile(const std::string& file_path) { settings.config_file = file_path; };

// Establece el fichero de configuración de mandos
void setControllersFile(const std::string& file_path) { settings.controllers_file = file_path; };

// Inicializa las opciones del programa
void init() {
    // Dificultades
    Difficulty::init();

    // Opciones de control
    gamepad_manager.init();
    setKeyboardToPlayer(Player::Id::PLAYER1);

    // Opciones de cambios pendientes
    pending_changes.new_language = settings.language;
    pending_changes.new_difficulty = settings.difficulty;
    pending_changes.has_pending_changes = false;
}

// Carga el fichero de configuración
auto loadFromFile() -> bool {
    // 1. Inicializa las opciones con valores por defecto.
    init();

    std::ifstream file(settings.config_file);

    // 2. Si el fichero existe, lo leemos para obtener los nombres de los mandos.
    if (file.good()) {
        // --- CASO: EL FICHERO EXISTE ---
        SDL_LogInfo(SDL_LOG_CATEGORY_APPLICATION, "\nReading file: %s", getFileName(settings.config_file).c_str());
        std::string line;
        while (std::getline(file, line)) {
            if (line.substr(0, 1) != "#") {
                int pos = line.find("=");
                if (!set(line.substr(0, pos), line.substr(pos + 1, line.length()))) {
                    SDL_LogWarn(SDL_LOG_CATEGORY_APPLICATION, "Unknown parameter: %s", line.substr(0, pos).c_str());
                }
            }
        }
        file.close();
    }

    // 3. Llamamos al asignador inteligente.
    gamepad_manager.assignAndLinkGamepads();

    // 4. Si el fichero no existía, lo creamos ahora con la configuración por defecto.
    if (!file.good()) {
        SDL_LogInfo(SDL_LOG_CATEGORY_APPLICATION, "Config file not found. Creating default settings.");
        saveToFile();
    }

    // Normaliza valores como antes...
    if (settings.language != Lang::Code::ENGLISH &&
        settings.language != Lang::Code::VALENCIAN &&
        settings.language != Lang::Code::SPANISH) {
        settings.language = Lang::Code::ENGLISH;
    }

    return true;
}

// Guarda el fichero de configuración
auto saveToFile() -> bool {
    std::ofstream file(settings.config_file);

    if (!file.good()) {
        SDL_LogError(SDL_LOG_CATEGORY_APPLICATION, "Error: %s can't be opened", getFileName(settings.config_file).c_str());
        return false;
    }

    SDL_LogInfo(SDL_LOG_CATEGORY_APPLICATION, "Writing file: %s", getFileName(settings.config_file).c_str());

    applyPendingChanges();

    // Opciones de ventana
    file << "## WINDOW\n";
    file << "\n";

    file << "window.zoom=" << window.zoom << "\n";

    // Opciones de video
    file << "## VIDEO\n";
    file << "## video.scale_mode [" << static_cast<int>(SDL_ScaleMode::SDL_SCALEMODE_NEAREST) << ": nearest, " << static_cast<int>(SDL_ScaleMode::SDL_SCALEMODE_LINEAR) << ": lineal]\n";
    file << "\n";

    file << "video.fullscreen=" << boolToString(video.fullscreen) << "\n";
    file << "video.scale_mode=" << static_cast<int>(video.scale_mode) << "\n";
    file << "video.vsync=" << boolToString(video.vsync) << "\n";
    file << "video.integer_scale=" << boolToString(video.integer_scale) << "\n";
    file << "video.shaders=" << boolToString(video.shaders) << "\n";

    // Opciones de audio
    file << "\n\n## AUDIO\n";
    file << "## volume [0 .. 100]\n";
    file << "\n";

    file << "audio.enabled=" << boolToString(audio.enabled) << "\n";
    file << "audio.volume=" << audio.volume << "\n";
    file << "audio.music.enabled=" << boolToString(audio.music.enabled) << "\n";
    file << "audio.music.volume=" << audio.music.volume << "\n";
    file << "audio.sound.enabled=" << boolToString(audio.sound.enabled) << "\n";
    file << "audio.sound.volume=" << audio.sound.volume << "\n";

    // Opciones del juego
    file << "\n\n## GAME\n";
    file << "## game.language [0: spanish, 1: valencian, 2: english]\n";
    file << "## game.difficulty [" << static_cast<int>(Difficulty::Code::EASY) << ": easy, " << static_cast<int>(Difficulty::Code::NORMAL) << ": normal, " << static_cast<int>(Difficulty::Code::HARD) << ": hard]\n";
    file << "\n";

    file << "game.language=" << static_cast<int>(settings.language) << "\n";
    file << "game.difficulty=" << static_cast<int>(settings.difficulty) << "\n";
    file << "game.autofire=" << boolToString(settings.autofire) << "\n";
    file << "game.shutdown_enabled=" << boolToString(settings.shutdown_enabled) << "\n";

    // Opciones de mandos
    file << "\n\n## CONTROLLERS\n";
    gamepad_manager.saveToFile(file);

    // Cierra el fichero
    file.close();

    return true;
}

// Función auxiliar para analizar la configuración del mando y reducir duplicación
void parseAndSetController(const std::string& var, const std::string& value) {
    size_t first_dot = var.find('.');
    size_t second_dot = var.find('.', first_dot + 1);

    if (first_dot == std::string::npos || second_dot == std::string::npos) {
        return;  // Formato inválido
    }

    try {
        int controller_index = std::stoi(var.substr(first_dot + 1, second_dot - first_dot - 1));
        std::string setting_key = var.substr(second_dot + 1);

        gamepad_manager.setControllerProperty(controller_index, setting_key, value);
    } catch (const std::exception&) {
        // Error en parsing
    }
}

auto set(const std::string& var, const std::string& value) -> bool {
    // Clausula de protección: ignora líneas vacías o comentarios
    if (var.empty() || var.starts_with("#")) {
        return true;
    }

    // Un mapa estático asegura que se inicializa solo una vez
    static const std::map<std::string, std::function<void(const std::string&)>> SETTINGS_MAP = {
        // Ventana
        {"window.zoom", [](const auto& val) { window.zoom = std::stoi(val); }},
        // Vídeo
        {"video.fullscreen", [](const auto& val) { video.fullscreen = stringToBool(val); }},
        {"video.scale_mode", [](const auto& val) { video.scale_mode = static_cast<SDL_ScaleMode>(std::stoi(val)); }},
        {"video.shaders", [](const auto& val) { video.shaders = stringToBool(val); }},
        {"video.integer_scale", [](const auto& val) { video.integer_scale = stringToBool(val); }},
        {"video.vsync", [](const auto& val) { video.vsync = stringToBool(val); }},
        // Audio
        {"audio.enabled", [](const auto& val) { audio.enabled = stringToBool(val); }},
        {"audio.volume", [](const auto& val) { audio.volume = std::clamp(std::stoi(val), 0, 100); }},
        {"audio.music.enabled", [](const auto& val) { audio.music.enabled = stringToBool(val); }},
        {"audio.music.volume", [](const auto& val) { audio.music.volume = std::clamp(std::stoi(val), 0, 100); }},
        {"audio.sound.enabled", [](const auto& val) { audio.sound.enabled = stringToBool(val); }},
        {"audio.sound.volume", [](const auto& val) { audio.sound.volume = std::clamp(std::stoi(val), 0, 100); }},
        // Juego
        {"game.language", [](const auto& val) {
             settings.language = static_cast<Lang::Code>(std::stoi(val));
             pending_changes.new_language = settings.language;
         }},
        {"game.difficulty", [](const auto& val) {
             settings.difficulty = static_cast<Difficulty::Code>(std::stoi(val));
             pending_changes.new_difficulty = settings.difficulty;
         }},
        {"game.autofire", [](const auto& val) { settings.autofire = stringToBool(val); }},
        {"game.shutdown_enabled", [](const auto& val) { settings.shutdown_enabled = stringToBool(val); }}};

    // Maneja por separado la configuración general de los mandos
    if (var.starts_with("controller.")) {
        try {
            parseAndSetController(var, value);
            return true;
        } catch (const std::out_of_range& e) {
            // Error: por ejemplo, índice de mando fuera de rango
            return false;
        } catch (const std::invalid_argument& e) {
            // Error: por ejemplo, fallo en std::stoi
            return false;
        }
    }

    // Busca el nombre de la variable en el mapa
    if (auto it = SETTINGS_MAP.find(var); it != SETTINGS_MAP.end()) {
        try {
            // Ejecuta la función lambda asociada
            it->second(value);
            return true;
        } catch (const std::invalid_argument& e) {
            // Maneja casos donde std::stoi falla por entrada inválida
            return false;
        }
    }

    // Si la clave no se encontró en el mapa ni en la lógica de mandos
    return false;
}

// Asigna el teclado al jugador
void setKeyboardToPlayer(Player::Id player_id) {
    keyboard.player_id = player_id;
}

// Intercambia el teclado de jugador
void swapKeyboard() {
    keyboard.player_id = keyboard.player_id == Player::Id::PLAYER1 ? Player::Id::PLAYER2 : Player::Id::PLAYER1;
}

// Intercambia los jugadores asignados a los dos primeros mandos
void swapControllers() {
    gamepad_manager.swapPlayers();
}

// Averigua quien está usando el teclado
auto getPlayerWhoUsesKeyboard() -> Player::Id {
    return keyboard.player_id;
}

// Aplica los cambios pendientes copiando los valores a sus variables
void applyPendingChanges() {
    if (pending_changes.has_pending_changes) {
        settings.language = pending_changes.new_language;
        settings.difficulty = pending_changes.new_difficulty;
        pending_changes.has_pending_changes = false;
    }
}

void checkPendingChanges() {
    pending_changes.has_pending_changes = settings.language != pending_changes.new_language ||
        settings.difficulty != pending_changes.new_difficulty;
}

// Buscar y asignar un mando disponible por nombre
bool assignGamepadByName(const std::string& gamepad_name_to_find, Player::Id player_id) {
    auto found_gamepad = Input::get()->findAvailableGamepadByName(gamepad_name_to_find);

    if (found_gamepad) {
        return gamepad_manager.assignGamepadToPlayer(player_id, found_gamepad, found_gamepad->name);
    }
    return false;
}

// Obtener información de un gamepad específico
std::string getGamepadInfo(Player::Id player_id) {
    try {
        const auto& gamepad = gamepad_manager.getGamepad(player_id);
        return "Player " + std::to_string(static_cast<int>(player_id)) +
            ": " + (gamepad.name.empty() ? "No gamepad" : gamepad.name);
    } catch (const std::exception&) {
        return "Invalid player";
    }
}

// Asigna los mandos físicos basándose en la configuración actual de nombres.
void GamepadManager::assignAndLinkGamepads() {
    // 1. Obtenemos todos los mandos físicos que están conectados ahora mismo.
    auto physical_gamepads = Input::get()->getGamepads();

    // 2. Reiniciamos las asignaciones actuales y guardamos los nombres que teníamos en la config.
    std::array<std::string, MAX_PLAYERS> desired_names;
    for (size_t i = 0; i < MAX_PLAYERS; ++i) {
        desired_names[i] = gamepads[i].name;  // Guardamos el nombre deseado
        gamepads[i].instance = nullptr;       // Limpiamos la instancia
    }

    // 3. Vector para rastrear los mandos físicos que ya hemos asignado.
    std::vector<std::shared_ptr<Input::Gamepad>> assigned_instances;

    // --- PRIMERA PASADA: Buscar coincidencias exactas por nombre ---
    // Recorremos la configuración de nuestros jugadores (P1, P2).
    for (size_t i = 0; i < MAX_PLAYERS; ++i) {
        const std::string& desired_name = desired_names[i];
        if (desired_name.empty()) {
            continue;  // Si no se pide un nombre específico, pasamos a la siguiente fase.
        }

        // Buscamos un mando físico que coincida con el nombre deseado.
        for (const auto& physical_gamepad : physical_gamepads) {
            if (physical_gamepad->name == desired_name) {
                // ¡Coincidencia! Ahora, comprobamos que no lo hayamos asignado ya.
                bool already_assigned = false;
                for (const auto& assigned : assigned_instances) {
                    if (assigned == physical_gamepad) {
                        already_assigned = true;
                        break;
                    }
                }

                if (!already_assigned) {
                    gamepads[i].instance = physical_gamepad;         // Enlazamos la instancia
                    assigned_instances.push_back(physical_gamepad);  // Lo marcamos como asignado
                    break;                                           // Mando encontrado para este jugador, pasamos al siguiente.
                }
            }
        }
    }

    // --- SEGUNDA PASADA: Asignar los mandos restantes a los jugadores sin mando ---
    // Recorremos de nuevo la configuración de nuestros jugadores.
    for (size_t i = 0; i < MAX_PLAYERS; ++i) {
        if (gamepads[i].instance == nullptr) {  // Si este jugador aún no tiene mando...

            // ...buscamos un mando físico que todavía esté libre.
            for (const auto& physical_gamepad : physical_gamepads) {
                bool already_assigned = false;
                for (const auto& assigned : assigned_instances) {
                    if (assigned == physical_gamepad) {
                        already_assigned = true;
                        break;
                    }
                }

                if (!already_assigned) {
                    gamepads[i].instance = physical_gamepad;  // Se lo asignamos
                    // MUY IMPORTANTE: Actualizamos el nombre en la configuración.
                    // Si guardamos, ahora se guardará el nombre del mando real que se le asignó.
                    gamepads[i].name = physical_gamepad->name;
                    assigned_instances.push_back(physical_gamepad);  // Lo marcamos como asignado
                    break;                                           // Mando encontrado, pasamos al siguiente jugador.
                }
            }
        }
    }
}
}  // namespace Options