#include "lua_commons.hpp"
#include "api_lua.hpp"

#include "../scripting.hpp"
#include "../../../assets/Assets.hpp"
#include "../../../assets/AssetsLoader.hpp"
#include "../../../files/engine_paths.hpp"
#include "../../../world/Level.hpp"
#include "../../../world/World.hpp"
#include "../../../engine.hpp"

#include <cmath>
#include <filesystem>

namespace fs = std::filesystem;

static int l_world_get_list(lua_State* L) {
    auto paths = scripting::engine->getPaths();
    auto worlds = paths->scanForWorlds();

    lua_createtable(L, worlds.size(), 0);
    for (size_t i = 0; i < worlds.size(); i++) {
        lua_createtable(L, 0, 1);
        
        auto name = worlds[i].filename().u8string();
        lua_pushstring(L, name.c_str());
        lua_setfield(L, -2, "name");
        
        auto assets = scripting::engine->getAssets();
        std::string icon = "world:"+name+".icon";
        if (!AssetsLoader::loadExternalTexture(assets, icon, {
            worlds[i]/fs::path("icon.png"),
            worlds[i]/fs::path("preview.png")
        })) {
            icon = "gui/no_world_icon";
        }
        lua_pushstring(L, icon.c_str());
        lua_setfield(L, -2, "icon");

        lua_rawseti(L, -2, i + 1);
    }
    return 1;
}

static int l_world_get_total_time(lua_State* L) {
    lua_pushnumber(L, scripting::level->getWorld()->totalTime);
    return 1;
}

static int l_world_get_day_time(lua_State* L) {
    lua_pushnumber(L, scripting::level->getWorld()->daytime);
    return 1;
}

static int l_world_set_day_time(lua_State* L) {
    double value = lua_tonumber(L, 1);
    scripting::level->getWorld()->daytime = fmod(value, 1.0);
    return 0;
}

static int l_world_get_seed(lua_State* L) {
    lua_pushinteger(L, scripting::level->getWorld()->getSeed());
    return 1;
}

static int l_world_exists(lua_State* L) {
    auto name = lua_tostring(L, 1);
    auto worldsDir = scripting::engine->getPaths()->getWorldFolder(name);
    lua_pushboolean(L, fs::is_directory(worldsDir));
    return 1;
}

const luaL_Reg worldlib [] = {
    {"get_list", lua_wrap_errors<l_world_get_list>},
    {"get_total_time", lua_wrap_errors<l_world_get_total_time>},
    {"get_day_time", lua_wrap_errors<l_world_get_day_time>},
    {"set_day_time", lua_wrap_errors<l_world_set_day_time>},
    {"get_seed", lua_wrap_errors<l_world_get_seed>},
    {"exists", lua_wrap_errors<l_world_exists>},
    {NULL, NULL}
};