#include "World.hpp"

#include "Level.hpp"

#include "../settings.hpp"
#include "../content/Content.hpp"
#include "../content/ContentLUT.hpp"
#include "../debug/Logger.hpp"
#include "../files/WorldFiles.hpp"
#include "../items/Inventories.hpp"
#include "../objects/Player.hpp"
#include "../objects/Entities.hpp"
#include "../voxels/Chunk.hpp"
#include "../voxels/Chunks.hpp"
#include "../voxels/ChunksStorage.hpp"
#include "../world/WorldGenerators.hpp"
#include "Level.hpp"

#include <memory>
#include <glm/glm.hpp>
#include <utility>

static debug::Logger logger("world");
const float DAYIME_SPECIFIC_SPEED = 1.0f/1440.0f; //1.0f/60.0f/24.0f;

world_load_error::world_load_error(const std::string& message)
    : std::runtime_error(message) {
}

World::World(
    std::string name, 
    std::string generator,
    const fs::path& directory,
    uint64_t seed, 
    EngineSettings& settings,
    const Content* content,
    const std::vector<ContentPack>& packs
) : name(std::move(name)),
    generator(std::move(generator)),
    seed(seed),
    content(content),
    packs(packs),
    wfile(std::make_unique<WorldFiles>(directory, settings.debug))
{}

World::~World(){
}

void World::updateTimers(float delta) {
    daytime += delta * daytimeSpeed * DAYIME_SPECIFIC_SPEED;
    daytime = fmod(daytime, 1.0f);
    totalTime += delta;
}

void World::writeResources(const Content* content) {
    auto root = dynamic::Map();
    for (size_t typeIndex = 0; typeIndex < RESOURCE_TYPES_COUNT; typeIndex++) {
        auto typeName = to_string(static_cast<ResourceType>(typeIndex));
        auto& list = root.putList(typeName);
        auto& indices = content->resourceIndices[typeIndex];
        for (size_t i = 0; i < indices.size(); i++) {
            auto& map = list.putMap();
            map.put("name", indices.getName(i));
            if (auto data = indices.getSavedData(i)) {
                map.put("saved", data);
            }
        }
    }
    files::write_json(wfile->getResourcesFile(), &root);
}

void World::write(Level* level) {
    const Content* content = level->content;
    level->chunks->saveAll();
    nextEntityId = level->entities->peekNextID();
    wfile->write(this, content);
    
    auto playerFile = dynamic::Map();
    auto& players = playerFile.putList("players");
    for (const auto& object : level->objects) {
        if (auto player = std::dynamic_pointer_cast<Player>(object)) {
            players.put(player->serialize());
        }
    }
    files::write_json(wfile->getPlayerFile(), &playerFile);

    writeResources(content);
}

std::unique_ptr<Level> World::create(
    const std::string& name,
    const std::string& generator,
    const fs::path& directory,
    uint64_t seed,
    EngineSettings& settings, 
    const Content* content,
    const std::vector<ContentPack>& packs
) {
    auto world = std::make_unique<World>(
        name, generator, directory, seed, settings, content, packs
    );
    return std::make_unique<Level>(std::move(world), content, settings);
}

std::unique_ptr<Level> World::load(
    const fs::path& directory,
    EngineSettings& settings,
    const Content* content,
    const std::vector<ContentPack>& packs
) {
    auto world = std::make_unique<World>(
        ".", WorldGenerators::getDefaultGeneratorID(), directory, 0, settings, content, packs
    );
    auto& wfile = world->wfile;

    if (!wfile->readWorldInfo(world.get())) {
        throw world_load_error("could not to find world.json");
    }
    wfile->readResourcesData(content);

    auto level = std::make_unique<Level>(std::move(world), content, settings);
    {
        fs::path file = wfile->getPlayerFile();
        if (!fs::is_regular_file(file)) {
            logger.warning() << "player.json does not exists";
        } else {
            auto playerFile = files::read_json(file);
            if (playerFile->has("players")) {
                level->objects.clear();
                auto players = playerFile->list("players");
                for (size_t i = 0; i < players->size(); i++) {
                    auto player = level->spawnObject<Player>(
                        level.get(),
                        glm::vec3(0, DEF_PLAYER_Y, 0), 
                        DEF_PLAYER_SPEED, 
                        level->inventories->create(DEF_PLAYER_INVENTORY_SIZE),
                        0
                    );
                    player->deserialize(players->map(i).get());
                    level->inventories->store(player->getInventory());
                }
            } else {
                auto player = level->getObject<Player>(0);
                player->deserialize(playerFile.get());
                level->inventories->store(player->getInventory());
            }
        }
    }
    return level;
}

std::shared_ptr<ContentLUT> World::checkIndices(
    const fs::path& directory, 
    const Content* content
) {
    fs::path indicesFile = directory/fs::path("indices.json");
    if (fs::is_regular_file(indicesFile)) {
        return ContentLUT::create(indicesFile, content);
    }
    return nullptr;
}

void World::setName(const std::string& name) {
    this->name = name;
}

void World::setGenerator(const std::string& generator) {
    this->generator = generator;
}

bool World::hasPack(const std::string& id) const {
    for (auto& pack : packs) {
        if (pack.id == id)
            return true;
    }
    return false;
}

void World::setSeed(uint64_t seed) {
    this->seed = seed;
}

std::string World::getName() const {
    return name;
}

uint64_t World::getSeed() const {
    return seed;
}

std::string World::getGenerator() const {
    return generator;
}

const std::vector<ContentPack>& World::getPacks() const {
    return packs;
}

void World::deserialize(dynamic::Map* root) {
    name = root->get("name", name);
    generator = root->get("generator", generator);
    seed = root->get("seed", seed);

    if (generator == "") {
        generator = WorldGenerators::getDefaultGeneratorID();
    }
    if (auto verobj = root->map("version")) {
        int major=0, minor=-1;
        verobj->num("major", major);
        verobj->num("minor", minor);
        logger.info() << "world version: " << major << "." << minor;
    }
    if (auto timeobj = root->map("time")) {
        timeobj->num("day-time", daytime);
        timeobj->num("day-time-speed", daytimeSpeed);
        timeobj->num("total-time", totalTime);
    }
    if (auto weatherobj = root->map("weather")) {
        weatherobj->num("fog", fog);
    }
    nextInventoryId = root->get("next-inventory-id", 2);
    nextEntityId = root->get("next-entity-id", 1);
}

std::unique_ptr<dynamic::Map> World::serialize() const {
    auto root = std::make_unique<dynamic::Map>();

    auto& versionobj = root->putMap("version");
    versionobj.put("major", ENGINE_VERSION_MAJOR);
    versionobj.put("minor", ENGINE_VERSION_MINOR);

    root->put("name", name);
    root->put("generator", generator);
    root->put("seed", static_cast<integer_t>(seed));
    
    auto& timeobj = root->putMap("time");
    timeobj.put("day-time", daytime);
    timeobj.put("day-time-speed", daytimeSpeed);
    timeobj.put("total-time", totalTime);

    auto& weatherobj = root->putMap("weather");
    weatherobj.put("fog", fog);

    root->put("next-inventory-id", nextInventoryId);
    root->put("next-entity-id", nextEntityId);
    return root;
}