/*
 * Copyright (C) 2022 The V-Gears Team
 *
 * This file is part of V-Gears
 *
 * V-Gears is free software: you can redistribute it and/or modify it under
 * terms of the GNU General Public License as published by the Free Software
 * Foundation, version 3.0 (GPLv3) of the License.
 *
 * V-Gears 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.
 */

#include <QtCore/QDir>
#include <boost/filesystem.hpp>
#include "DataInstaller.h"

float DataInstaller::LINE_SCALE_FACTOR = 0.0078124970964f;

DataInstaller::DataInstaller(
  const std::string input_dir, const std::string output_dir, AdvancedOptions options,
  std::function<void(std::string, int, bool)> write_output_line
)
#ifdef _DEBUG
  : application_("plugins_d.cfg", "resources_d.cfg", "install_d.log"),
#else
  : application_("plugins.cfg", "resources.cfg", "install.log"),
#endif
  input_dir_(input_dir), output_dir_(output_dir),
  options_(options), write_output_line_(write_output_line)
{
    if (!application_.initOgre(true)) throw std::runtime_error("Ogre init failure");
    Ogre::Log* default_log(Ogre::LogManager::getSingleton().getDefaultLog());
    assert( default_log );
    default_log->setLogDetail(Ogre::LL_LOW);

    // Assign weights.
    for (int i = IDLE; i < STATE_COUNT; i ++) step_weight_[i] = 1;
    step_weight_[IDLE] = 0;
    step_weight_[MEDIA_IMAGES] = 3;
    step_weight_[MEDIA_SOUNDS] = 8;
    step_weight_[MEDIA_MUSICS] = 9;
    step_weight_[MEDIA_MUSICS_HQ] = 2;
    step_weight_[FIELD_SPAWN_POINTS_AND_SCALE_FACTORS] = 3;
    step_weight_[FIELD_CONVERT] = 3;
    step_weight_[FIELD_WRITE] = 2;
    step_weight_[FIELD_CONVERT_MODELS] = 3;
}

DataInstaller::~DataInstaller(){}

float DataInstaller::Progress(){
    switch (installation_state_){
        case IDLE:
            installation_state_ = CREATE_DIRECTORIES;
            return CalcProgress();
        case CREATE_DIRECTORIES:
            write_output_line_("Creating directories...", 2, true);
            CreateDirectories();
            installation_state_ = INITIALIZE;
            return CalcProgress();
        case INITIALIZE:
            write_output_line_("Initializing installers...", 2, true);
            kernel_installer_ = std::make_unique<KernelDataInstaller>(input_dir_);
            media_installer_ = std::make_unique<MediaDataInstaller>(
              input_dir_, output_dir_, options_.keep_originals,
              options_.no_ffmpeg, options_.no_timidity
            );
            field_installer_ = std::make_unique<FieldDataInstaller>(input_dir_, output_dir_);
            battle_installer_ = std::make_unique<BattleDataInstaller>(
              input_dir_, output_dir_, application_.ResMgr()
            );
            installation_state_ = BATTLE_SCENES_INIT;
            return CalcProgress();
        case BATTLE_SCENES_INIT:
            // Skip kernel data if option is set.
            if (options_.skip_battle_data){
                write_output_line_("Skipping battle data installation...", 2, true);
                installation_state_ = BATTLE_MODELS_INIT;
                return CalcProgress();
            }
            write_output_line_("Parsing battle scenes...", 2, true);
            substeps_ = battle_installer_->InitializeScenes();
            cur_substep_ = 0;
            installation_state_ = BATTLE_SCENES_PROCESS;
            return CalcProgress();
        case BATTLE_SCENES_PROCESS:
            cur_substep_ = battle_installer_->ProcessScene();
            if (cur_substep_ >= substeps_) installation_state_ = BATTLE_SCENES_WRITE_ATTACKS;
            return CalcProgress();
        case BATTLE_SCENES_WRITE_ATTACKS:
            write_output_line_("Saving attacks...", 2, true);
            cur_substep_ = 0;
            substeps_ = 0;
            battle_installer_->WriteAttacks();
            installation_state_ = BATTLE_SCENES_WRITE_ENEMIES;
            return CalcProgress();
        case BATTLE_SCENES_WRITE_ENEMIES:
            write_output_line_("Saving enemies...", 2, true);
            cur_substep_ = 0;
            substeps_ = 0;
            battle_installer_->WriteEnemies();
            installation_state_ = BATTLE_SCENES_WRITE_FORMATIONS;
            return CalcProgress();
        case BATTLE_SCENES_WRITE_FORMATIONS:
            write_output_line_("Saving enemy formations...", 2, true);
            cur_substep_ = 0;
            substeps_ = 0;
            battle_installer_->WriteFormations();
            installation_state_ = BATTLE_MODELS_INIT;
            return CalcProgress();
        case BATTLE_MODELS_INIT:
            // Skip kernel data if option is set.
            if (options_.skip_battle_models){
                write_output_line_("Skipping battle models installation...", 2, true);
                installation_state_ = KERNEL_PRICES;
                return CalcProgress();
            }
            write_output_line_("Extracting battle models...", 2, true);
            substeps_ = battle_installer_->InitializeModels();
            cur_substep_ = 0;
            installation_state_ = BATTLE_MODELS_PROCESS;
            return CalcProgress();
        case BATTLE_MODELS_PROCESS:
            cur_substep_ = battle_installer_->ProcessModel();
            if (cur_substep_ >= substeps_) installation_state_ = BATTLE_MODELS_CONVERT_INIT;
            return CalcProgress();
        case BATTLE_MODELS_CONVERT_INIT:
            cur_substep_ = 0;
            substeps_ =  battle_installer_->ConvertModelsInit();
            installation_state_ = BATTLE_MODELS_CONVERT;
            return CalcProgress();
        case BATTLE_MODELS_CONVERT:
            cur_substep_ = battle_installer_->ConvertModel();
            if (cur_substep_ >= substeps_) installation_state_ = BATTLE_MODELS_WRITE_CHARACTERS;
            return CalcProgress();
        case BATTLE_MODELS_WRITE_CHARACTERS:
            write_output_line_("Writing character data...", 2, true);
            battle_installer_->WriteCharacterData();
            installation_state_ = BATTLE_MODELS_WRITE_SCENES;
            return CalcProgress();
        case BATTLE_MODELS_WRITE_SCENES:
            write_output_line_("Writing battle scene data...", 2, true);
            battle_installer_->WriteSceneData();
            installation_state_ = KERNEL_PRICES;
            return CalcProgress();
        case KERNEL_PRICES:
            // Skip kernel data if option is set.
            if (options_.skip_kernel){
                write_output_line_("Skipping kernel data installation...", 2, true);
                installation_state_ = MEDIA_SOUNDS_INIT;
                return CalcProgress();
            }
            write_output_line_("Parsing item and materia prices...", 2, true);
            kernel_installer_->ReadPrices();
            installation_state_ = KERNEL_COMMANDS;
            return CalcProgress();
        case KERNEL_COMMANDS:
            write_output_line_("Extracting command data...", 2, true);
            kernel_installer_->ReadCommands();
            kernel_installer_->WriteCommands(output_dir_ + "gamedata/commands.lua");
            installation_state_ = KERNEL_ATTACKS;
            return CalcProgress();
        case KERNEL_ATTACKS:
            write_output_line_("Extracting attack data...", 2, true);
            kernel_installer_->ReadAttacks();
            kernel_installer_->WriteAttacks(output_dir_ + "gamedata/attacks.lua");
            installation_state_ = KERNEL_CHARACTERS;
            return CalcProgress();
        case KERNEL_CHARACTERS:
            write_output_line_("Extracting character data...", 2, true);
            kernel_installer_->ReadCharacters();
            kernel_installer_->WriteCharacters(output_dir_ + "gamedata/characters.lua");
            installation_state_ = KERNEL_ITEMS;
            return CalcProgress();
        case KERNEL_ITEMS:
            write_output_line_("Extracting item data...", 2, true);
            kernel_installer_->ReadItems();
            kernel_installer_->WriteItems(output_dir_ + "gamedata/items.lua");
            installation_state_ = KERNEL_GROWTH;
            return CalcProgress();
        case KERNEL_GROWTH:
            write_output_line_("Extracting growth data...", 2, true);
            kernel_installer_->ReadGrowth();
            kernel_installer_->WriteGrowth(output_dir_ + "gamedata/growth.lua");
            installation_state_ = KERNEL_WEAPONS;
            return CalcProgress();
        case KERNEL_WEAPONS:
            write_output_line_("Extracting weapon data...", 2, true);
            kernel_installer_->ReadWeapons();
            kernel_installer_->WriteWeapons(output_dir_ + "gamedata/weapons.lua");
            installation_state_ = KERNEL_ARMORS;
            return CalcProgress();
        case KERNEL_ARMORS:
            write_output_line_("Extracting armor data...", 2, true);
            kernel_installer_->ReadArmors();
            kernel_installer_->WriteArmors(output_dir_ + "gamedata/armors.lua");
            installation_state_ = KERNEL_ACCESSORIES;
            return CalcProgress();
        case KERNEL_ACCESSORIES:
            write_output_line_("Extracting accessory data...", 2, true);
            kernel_installer_->ReadAccessories();
            kernel_installer_->WriteAccessories(output_dir_ + "gamedata/accessories.lua");
            installation_state_ = KERNEL_MATERIA;
            return CalcProgress();
        case KERNEL_MATERIA:
            write_output_line_("Extracting materia data...", 2, true);
            kernel_installer_->ReadMateria();
            kernel_installer_->WriteMateria(output_dir_ + "gamedata/materia.lua");
            installation_state_ = KERNEL_KEY_ITEMS;
            return CalcProgress();
        case KERNEL_KEY_ITEMS:
            write_output_line_("Extracting key item data...", 2, true);
            kernel_installer_->ReadKeyItems();
            kernel_installer_->WriteKeyItems(output_dir_ + "gamedata/key_items.lua");
            installation_state_ = KERNEL_SUMMON_NAMES;
            return CalcProgress();
        case KERNEL_SUMMON_NAMES:
            write_output_line_("Extracting summon attack names data...", 2, true);
            kernel_installer_->ReadSummonNames();
            kernel_installer_->WriteSummonNames(output_dir_ + "gamedata/summons.lua");
            installation_state_ = KERNEL_SAVEMAP;
            return CalcProgress();
        case KERNEL_SAVEMAP:
            write_output_line_("Extracting the initial savemap...", 2, true);
            kernel_installer_->ReadInitialSaveMap();
            kernel_installer_->WriteInitialSaveMap(output_dir_ + "gamedata/initial_savemap.lua");
            installation_state_ = MEDIA_IMAGES;
            return CalcProgress();
        case MEDIA_IMAGES:
            // Skip images if option is set.
            if (options_.skip_images){
                write_output_line_("Skipping images installation...", 2, true);
                installation_state_ = MEDIA_SOUNDS_INIT;
                return CalcProgress();
            }
            write_output_line_("Extracting game images...", 2, true);
            media_installer_->InstallSprites();
            installation_state_ = MEDIA_SOUNDS_INIT;
            return CalcProgress();
        case MEDIA_SOUNDS_INIT:
            // Skip sounds if option is set.
            if (options_.skip_sounds){
                write_output_line_("Skipping sound effects installation...", 2, true);
                installation_state_ = MEDIA_MUSICS_INIT;
                return CalcProgress();
            }
            write_output_line_("Extracting sounds...", 2, true);
            substeps_ = media_installer_->InstallSoundsInit();
            installation_state_ = MEDIA_SOUNDS;
            cur_substep_ = 0;
            return CalcProgress();
        case MEDIA_SOUNDS:
            if (media_installer_->InstallSounds() == true)
                installation_state_ = MEDIA_SOUNDS_INDEX;
            else cur_substep_ ++;
            return CalcProgress();
        case MEDIA_SOUNDS_INDEX:
            write_output_line_("Building sound index...", 2, true);
            media_installer_->WriteSoundIndex();
            installation_state_ = MEDIA_MUSICS_INIT;
            return CalcProgress();
        case MEDIA_MUSICS_INIT:
            // Skip music if option is set.
            if (options_.skip_music){
                write_output_line_("Skipping music tracks installation...", 2, true);
                installation_state_ = FIELD_SPAWN_POINTS_AND_SCALE_FACTORS_INIT;
                return CalcProgress();
            }
            write_output_line_("Extracting music...", 2, true);
            substeps_ = media_installer_->InstallMusicsInit();
            installation_state_ = MEDIA_MUSICS;
            cur_substep_ = 0;
            return CalcProgress();
        case MEDIA_MUSICS:
            if (media_installer_->InstallMusics() == true)
                installation_state_ = MEDIA_MUSICS_HQ;
            else cur_substep_ ++;
            return CalcProgress();
        case MEDIA_MUSICS_HQ:
            substeps_ = 0;
            cur_substep_ = 0;
            media_installer_->InstallHQMusics();
            installation_state_ = MEDIA_MUSICS_INDEX;
            return CalcProgress();
        case MEDIA_MUSICS_INDEX:
            write_output_line_("Building music track index...", 2, true);
            media_installer_->WriteMusicsIndex();
            installation_state_ = FIELD_SPAWN_POINTS_AND_SCALE_FACTORS_INIT;
            return CalcProgress();
        case FIELD_SPAWN_POINTS_AND_SCALE_FACTORS_INIT:
            // Skip fields if option is set.
            if (options_.skip_fields){
                write_output_line_("Skipping field maps installation...", 2, true);
                installation_state_ = CLEAN;
                return CalcProgress();
            }
            write_output_line_("Collecting spawn points and scale factors...", 2, true);
            substeps_ = field_installer_->CollectSpawnAndScaleFactorsInit(application_.ResMgr());
            cur_substep_ = 0;
            installation_state_ = FIELD_SPAWN_POINTS_AND_SCALE_FACTORS;
            return CalcProgress();
        case FIELD_SPAWN_POINTS_AND_SCALE_FACTORS:
            field_installer_->CollectSpawnAndScaleFactors(cur_substep_);
            cur_substep_ ++;
            if (cur_substep_ == substeps_){
                installation_state_ = FIELD_CONVERT;
                cur_substep_ = 0;
            }
            return CalcProgress();
        case FIELD_CONVERT:
            field_installer_->Convert(cur_substep_);
            cur_substep_ ++;
            if (cur_substep_ == substeps_){
                installation_state_ = FIELD_WRITE_INIT;
                cur_substep_ = 0;
            }
            return CalcProgress();
        case FIELD_WRITE_INIT:
            write_output_line_("Writing fields...", 2, true);
            substeps_ = field_installer_->WriteInit();
            cur_substep_ = 0;
            installation_state_ = FIELD_WRITE;
            return CalcProgress();
        case FIELD_WRITE:
            field_installer_->Write(cur_substep_);
            cur_substep_ ++;
            if (cur_substep_ == substeps_){
                installation_state_ = FIELD_WRITE_END;
                cur_substep_ = 0;
            }
            return CalcProgress();
        case FIELD_WRITE_END:
            field_installer_->WriteEnd();
            installation_state_ = FIELD_CONVERT_MODELS_INIT;
            return CalcProgress();
        case FIELD_CONVERT_MODELS_INIT:
            // Skip fields if option is set.
            if (options_.skip_field_models){
                write_output_line_("Skipping field maps installation...", 2, true);
                installation_state_ = CLEAN;
                return CalcProgress();
            }
            write_output_line_("Converting field models...", 2, true);
            field_model_names_ = field_installer_->ConvertModelsInit();
            substeps_ = field_model_names_.size();
            cur_substep_ = 0;
            installation_state_ = FIELD_CONVERT_MODELS;
            return CalcProgress();
        case FIELD_CONVERT_MODELS:
            field_installer_->ConvertModels(field_model_names_[cur_substep_]);
            cur_substep_ ++;
            if (cur_substep_ == substeps_){
                installation_state_ = CLEAN;
                cur_substep_ = 0;
            }
            return CalcProgress();
        case CLEAN:
            write_output_line_("Cleaning up...", 2, true);
            if (!options_.keep_originals) CleanInstall();
            installation_state_ = DONE;
            return CalcProgress();
        case DONE:
            write_output_line_("Installation complete", 2, true);
            return 100;
        default:
            return 100;
    }
}

const float DataInstaller::CalcProgress(){
    float weight_total = 0; // Sum of every step weight.
    float weight_done = 0; // Sum of every previous step weight.
    float weight = static_cast<float>(step_weight_[installation_state_]); // Weight of current step.
    float weight_substeps = 0; // Weight of the already done substeps in current step.

    for (int i = IDLE; i < STATE_COUNT; i ++){
        weight_total += step_weight_[i];
        if (installation_state_ > i) weight_done += step_weight_[i];
    }

    if (substeps_ > 0 && cur_substep_ < substeps_){
        weight_substeps = (cur_substep_ * weight) / substeps_;
    }

    float progress = 100 * (weight_done + weight_substeps) / weight_total;
    if (progress >= 100.0f) progress = 99.9f;
    return progress;
}

void DataInstaller::CreateDirectories(){
    CreateDir("audio/musics");
    CreateDir("audio/sounds");
    CreateDir("fields");
    CreateDir("fonts");
    CreateDir("temp");
    CreateDir("temp/char");
    CreateDir("temp/battle_models");
    CreateDir("gamedata");
    CreateDir("gamedata/enemy");
    CreateDir("gamedata/attack");
    CreateDir("gamedata/formation");
    CreateDir("images/icons");
    CreateDir("images/other");
    CreateDir("images/characters");
    CreateDir("images/fonts");
    CreateDir("images/reels");
    CreateDir("images/window");
    CreateDir("screens");
    CreateDir("scripts");
    CreateDir("system");
    CreateDir("texts");
    CreateDir("models/fields/");
    CreateDir("models/battle/characters");
    CreateDir("models/battle/scenes");
    CreateDir("models/battle/enemies");


    application_.ResMgr()->addResourceLocation(
      output_dir_ + "temp/char/", "FileSystem", "FFVII", true, true
    );
    application_.ResMgr()->addResourceLocation(
      output_dir_ + "temp/battle_models/", "FileSystem", "FFVII", true, true
    );
    application_.ResMgr()->addResourceLocation(
      output_dir_ + "models/", "FileSystem", "FFVII", true, true
    );
    application_.ResMgr()->addResourceLocation(
      output_dir_ + "models/fields/", "FileSystem", "FFVIITextures", true, true
    );
    application_.ResMgr()->addResourceLocation(
      output_dir_ + "models/battle/characters/", "FileSystem", "FFVIITextures", true, true
    );
    application_.ResMgr()->addResourceLocation(
      output_dir_ + "models/battle/scenes/", "FileSystem", "FFVIITextures", true, true
    );
    application_.ResMgr()->addResourceLocation(
      output_dir_ + "models/battle/enemies/", "FileSystem", "FFVIITextures", true, true
    );
    fields_lgp_ = std::make_unique<ScopedLgp>(
      application_.getRoot(), input_dir_ + "data/field/flevel.lgp", "LGP", "FFVIIFields"
    );
}

void DataInstaller::CleanInstall(){boost::filesystem::remove_all(output_dir_ + "data/temp/");}

void DataInstaller::CreateDir(const std::string& path){
    QString target = QString::fromStdString(output_dir_ + path);
    QDir dir(target);
    if (!dir.mkpath(".")) throw std::runtime_error("Failed to mkpath");
}