#include "lua.h"
#include "lua/lua.hpp"
#include "mini.h"
#include "jfile.h"

#include <filesystem>
namespace fs = std::filesystem;

extern "C" {

    // surface
    // ===============================================

    static int cpp_surf_new(lua_State *L) {
        int w = luaL_checknumber(L, 1);
        int h = luaL_checknumber(L, 2);
        lua_pushinteger(L, newsurf(w, h));
        return 1;
    }

    static int cpp_surf_load(lua_State *L) {
        const char* str = luaL_checkstring(L, 1);
        lua_pushinteger(L, loadsurf(str));
        return 1;
    }

    static int cpp_surf_save(lua_State *L) {
        uint8_t surface = luaL_checkinteger(L, 1);
        const char* str = luaL_checkstring(L, 2);

        if (lua_istable(L, -1)) {
            const int len = SDL_min(256, lua_rawlen(L, -1));
            uint8_t *pal = (uint8_t*)malloc(len*3);
            uint8_t *p=pal;
            for (int i=1;i<=len;++i) {
                lua_rawgeti(L, -1, i);
                lua_getfield(L, -1, "r");
                *(p++) = luaL_checknumber(L, -1);
                lua_pop(L, 1);
                lua_getfield(L, -1, "g");
                *(p++) = luaL_checknumber(L, -1);
                lua_pop(L, 1);
                lua_getfield(L, -1, "b");
                *(p++) = luaL_checknumber(L, -1);
                lua_pop(L, 1);
                lua_pop(L, 1);
                //pal[i-1] = (r<<16)+(g<<8)+b;
            }
            savesurf(surface, str, pal, len-1);
        } else {
            savesurf(surface, str, nullptr);
        }

        return 0;
    }

    static int cpp_surf_free(lua_State *L) {
        uint8_t surface = luaL_checkinteger(L, 1);
        freesurf(surface);
        return 0;
    }

    static int cpp_surf_getSize(lua_State *L) {
        uint8_t surface = luaL_checkinteger(L, 1);
        lua_pushinteger(L, surfw(surface));
        lua_pushinteger(L, surfh(surface));
        return 2;
    }

    static int cpp_surf_setTarget(lua_State *L) {
        const int numargs = lua_gettop(L);
        switch (numargs) {
            case 0: {
                setdest(0);
                return 0;
            }
            case 1: {
                uint8_t surface = luaL_checkinteger(L, 1);
                setdest(surface);
                return 0;
            }
            default:
                return luaL_error(L, "Function 'surface.setTarget' Unexpected number of parameters.");
        };
    }

    static int cpp_surf_cls(lua_State *L) {
        uint8_t color = luaL_optinteger(L, 1, 0);
        cls(color);
        return 0;
    }

    static int cpp_surf_setPixel(lua_State *L) {
        const int numargs = lua_gettop(L);
        switch (numargs) {
            case 3: {
                int x = luaL_checknumber(L, 1);
                int y = luaL_checknumber(L, 2);
                uint8_t color = luaL_checkinteger(L, 3);
                pset(x, y, color);
                return 0;
            }
            case 4: {
                uint8_t surface = luaL_checkinteger(L, 1);
                setsource(surface);
                int x = luaL_checknumber(L, 2);
                int y = luaL_checknumber(L, 3);
                uint8_t color = luaL_checkinteger(L, 4);
                sset(x, y, color);
                return 0;
            }
            default:
                return luaL_error(L, "Function 'surface.setPixel' Unexpected number of parameters.");
        };
    }

    static int cpp_surf_getPixel(lua_State *L) {
        const int numargs = lua_gettop(L);
        switch (numargs) {
            case 2: {
                int x = luaL_checknumber(L, 1);
                int y = luaL_checknumber(L, 2);
                lua_pushinteger(L, pget(x, y));
                return 1;
            }
            case 3: {
                uint8_t surface = luaL_checkinteger(L, 1);
                setsource(surface);
                int x = luaL_checknumber(L, 2);
                int y = luaL_checknumber(L, 3);
                lua_pushinteger(L, sget(x, y));
                return 1;
            }
            default:
                return luaL_error(L, "Function 'surface.getPixel' Unexpected number of parameters.");
        };
    }


    // map
    // ===============================================

    static int cpp_map_new(lua_State *L) {
        int w = luaL_checknumber(L, 1);
        int h = luaL_checknumber(L, 2);
        uint8_t s = newsurf(w, h);
        uint8_t old = getmap(); if (old) freesurf(old);
        setmap(s);
        return 0;
    }

    static int cpp_map_load(lua_State *L) {
        const char* str = luaL_checkstring(L, 1);
        uint8_t s = loadsurf(str);
        uint8_t old = getmap(); if (old) freesurf(old);
        setmap(s);
        return 0;
    }

    static int cpp_map_save(lua_State *L) {
        uint8_t surface = getmap();
        const char* str = luaL_checkstring(L, 1);
        savesurf(surface, str, nullptr);
        return 0;
    }

    static int cpp_map_set(lua_State *L) {
        uint8_t surface = luaL_checkinteger(L, 1);
        setmap(surface);
        return 0;
    }

    static int cpp_map_draw(lua_State *L) {
        /*uint8_t celx = luaL_checknumber(L, 1);
        uint8_t cely = luaL_checknumber(L, 2);
        int sx = luaL_checknumber(L, 3);
        int sy = luaL_checknumber(L, 4);
        uint8_t celw = luaL_checknumber(L, 5);
        uint8_t celh = luaL_checknumber(L, 6);
        uint8_t layer = luaL_optinteger(L, 7, 0);*/
        map(); //celx, cely, sx, sy, celw, celh, layer);
        return 0;
    }

    static int cpp_map_getTile(lua_State *L) {
        int celx = luaL_checknumber(L, 1);
        int cely = luaL_checknumber(L, 2);
        lua_pushinteger(L, mget(celx, cely));
        return 1;
    }

    static int cpp_map_setTile(lua_State *L) {
        int celx = luaL_checknumber(L, 1);
        int cely = luaL_checknumber(L, 2);
        uint8_t snum = luaL_checkinteger(L, 3);
        mset(celx, cely, snum);
        return 0;
    }
    

    // palette
    // ===============================================

    static int cpp_pal_load(lua_State *L) {
        const char* str = luaL_checkstring(L, 1);
        uint16_t size;
        uint32_t *pal = loadpal(str, &size);
        lua_createtable(L, 2, 0);
        for (int i=0;i<size;++i) {
            uint32_t color = pal[i];
            lua_createtable(L, 0, 3);

            lua_pushinteger(L, (color>>16)&0xff);
            lua_setfield(L, -2, "r");

            lua_pushinteger(L, (color>>8)&0xff);
            lua_setfield(L, -2, "g");

            lua_pushinteger(L, color&0xff);
            lua_setfield(L, -2, "b");

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

    static int cpp_pal_set(lua_State *L) {
        int r,g,b;
        if (lua_istable(L, -1)) {
            uint32_t pal[256];
            const int len = SDL_min(256, lua_rawlen(L, -1));
            for (int i=0;i<len;++i) {
                lua_rawgeti(L, -1, i+1);
                lua_getfield(L, -1, "r");
                r = luaL_checknumber(L, -1);
                lua_pop(L, 1);
                lua_getfield(L, -1, "g");
                g = luaL_checknumber(L, -1);
                lua_pop(L, 1);
                lua_getfield(L, -1, "b");
                b = luaL_checknumber(L, -1);
                lua_pop(L, 1);
                lua_pop(L, 1);
                pal[i] = (r<<16)+(g<<8)+b;
            }
            setpal(pal);
        }
        return 0;
    }

    static int cpp_pal_getColor(lua_State *L) {
        if (lua_gettop(L) != 1) return luaL_error(L, "Function 'mini.palette.getColor' Unexpected number of parameters.");
        uint8_t index = luaL_checkinteger(L, 1);
        uint32_t color = getcolor(index);
        lua_pushinteger(L, (color>>16)&0xff);
        lua_pushinteger(L, (color>>8)&0xff);
        lua_pushinteger(L, color&0xff);
        return 3;
    }

    static int cpp_pal_setColor(lua_State *L) {
        if (lua_gettop(L) != 4) return luaL_error(L, "Function 'mini.palette.setColor' Unexpected number of parameters.");
        uint8_t index = luaL_checkinteger(L, 1);
        uint8_t r = luaL_checkinteger(L, 2);
        uint8_t g = luaL_optinteger(L, 3, 0);
        uint8_t b = luaL_optinteger(L, 4, 0);
        uint32_t color = (r<<16) + (g<<8) + b;
        setcolor(index, color);
        return 0;
    }

    static int cpp_pal_trans(lua_State *L) {
        if (lua_gettop(L) == 0) {
            lua_pushinteger(L, gettrans());
            return 1;
        } else {
            uint8_t index = luaL_checkinteger(L, 1);
            settrans(index);
            return 0;
        }
    }


    // subpalette
    // ===============================================
    static int cpp_subpalette_resetAll(lua_State *L) {
        reset_subpal();
        return 0;
    }

    static int cpp_subpalette_set(lua_State *L) {
        uint8_t index, color;
        index = luaL_checkinteger(L, 1);
        color = luaL_checkinteger(L, 2);
        subpal(index, color);
        return 0;
    }

    static int cpp_subpalette_reset(lua_State *L) {
        uint8_t index;
        index = luaL_checkinteger(L, 1);
        subpal(index,index);
        return 0;
    }

    static int cpp_subpalette_setRange(lua_State *L) {
        uint8_t index, index2, color;
        index = luaL_checkinteger(L, 1);
        index2 = luaL_checkinteger(L, 2);
        color = luaL_checkinteger(L, 3);
        for (int i=index;i<=index2;++i) subpal(i, color);
        return 0;
    }

    static int cpp_subpalette_resetRange(lua_State *L) {
        uint8_t index, index2;
        index = luaL_checkinteger(L, 1);
        index2 = luaL_checkinteger(L, 2);
        for (int i=index;i<=index2;++i) subpal(i, i);
        return 0;
    }


    // viewport
    // ===============================================

    static int cpp_viewport_resetClipping(lua_State *L) {
        clip();
        return 0;
    }

    static int cpp_viewport_setClipping(lua_State *L) {
        int x = luaL_checknumber(L, 1);
        int y = luaL_checknumber(L, 2);
        int w = luaL_checknumber(L, 3);
        int h = luaL_checknumber(L, 4);
        clip(x, y, w, h);
        return 0;
    }

    static int cpp_viewport_setOrigin(lua_State *L) {
        int x = luaL_checknumber(L, 1);
        int y = luaL_checknumber(L, 2);
        origin(x, y);
        return 0;
    }

    static int cpp_viewport_getOrigin(lua_State *L) {
        lua_pushinteger(L, camx());
        lua_pushinteger(L, camy());
        return 2;
    }

    static int cpp_viewport_tolocal(lua_State *L) {
        int x = luaL_checknumber(L, 1);
        int y = luaL_checknumber(L, 2);
        lua_pushinteger(L, x+camx());
        lua_pushinteger(L, y+camy());
        return 2;
    }


    // draw
    // ===============================================

    /*static int cpp_draw_pen(lua_State *L) {
        uint8_t col = luaL_optinteger(L, 1, 6);
        color(col);
        return 0;
    }

    static int cpp_draw_paper(lua_State *L) {
        uint8_t col = luaL_optinteger(L, 1, 6);
        bcolor(col);
        return 0;
    }*/

    static int cpp_draw_line(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        int y1 = luaL_checknumber(L, 4);
        uint8_t color = luaL_checkinteger(L, 5);
        line(x0, y0, x1, y1, color);
        return 0;
    }

    static int cpp_draw_hline(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        uint8_t color = luaL_checkinteger(L, 4);
        hline(x0, y, x1, color);
        return 0;
    }

    static int cpp_draw_vline(lua_State *L) {
        int x = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int y1 = luaL_checknumber(L, 3);
        uint8_t color = luaL_checkinteger(L, 4);
        vline(x, y0, y1, color);
        return 0;
    }

    static int cpp_draw_rect(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        int y1 = luaL_checknumber(L, 4);
        uint8_t color = luaL_checkinteger(L, 5);
        rect(x0, y0, x1, y1, color);
        return 0;
    }

    static int cpp_draw_rectfill(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        int y1 = luaL_checknumber(L, 4);
        uint8_t color = luaL_checkinteger(L, 5);
        rectfill(x0, y0, x1, y1, color);
        return 0;
    }

    static int cpp_draw_circ(lua_State *L) {
        int x = luaL_checknumber(L, 1);
        int y = luaL_checknumber(L, 2);
        int r = luaL_optnumber(L, 3, 4);
        uint8_t color = luaL_checkinteger(L, 4);
        circ(x, y, r, color);
        return 0;
    }

    static int cpp_draw_circfill(lua_State *L) {
        int x = luaL_checknumber(L, 1);
        int y = luaL_checknumber(L, 2);
        int r = luaL_optnumber(L, 3, 4);
        uint8_t color = luaL_checkinteger(L, 4);
        circfill(x, y, r, color);
        return 0;
    }

    static int cpp_draw_oval(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        int y1 = luaL_checknumber(L, 4);
        uint8_t color = luaL_checkinteger(L, 5);
        oval(x0, y0, x1, y1, color);
        return 0;
    }

    static int cpp_draw_ovalfill(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        int y1 = luaL_checknumber(L, 4);
        uint8_t color = luaL_checkinteger(L, 5);
        ovalfill(x0, y0, x1, y1, color);
        return 0;
    }

    static int cpp_draw_pattern(lua_State *L) {
        uint16_t pat = luaL_checkinteger(L, 1);
        bool transparent = lua_toboolean(L, 2);
        fillp(pat, transparent);
        return 0;
    }

    /*static int cpp_draw_tline(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        int y1 = luaL_checknumber(L, 4);
        float mx = luaL_checknumber(L, 5);
        float my = luaL_checknumber(L, 6);
        float mdx = luaL_optnumber(L, 7, 0.125f);
        float mdy = luaL_optnumber(L, 8, 0.0f);
        tline(x0, y0, x1, y1, mx, my, mdx, mdy);
        return 0;
    }

    static int cpp_draw_thline(lua_State *L) {
        int x0 = luaL_checknumber(L, 1);
        int y = luaL_checknumber(L, 2);
        int x1 = luaL_checknumber(L, 3);
        float mx = luaL_checknumber(L, 4);
        float my = luaL_checknumber(L, 5);
        float mdx = luaL_optnumber(L, 6, 0.125f);
        float mdy = luaL_optnumber(L, 7, 0.0f);
        thline(x0, y, x1, mx, my, mdx, mdy);
        return 0;
    }

    static int cpp_draw_tvline(lua_State *L) {
        int x = luaL_checknumber(L, 1);
        int y0 = luaL_checknumber(L, 2);
        int y1 = luaL_checknumber(L, 3);
        float mx = luaL_checknumber(L, 4);
        float my = luaL_checknumber(L, 5);
        float mdx = luaL_optnumber(L, 6, 0.0f);
        float mdy = luaL_optnumber(L, 7, 0.125f);
        tvline(x, y0, y1, mx, my, mdx, mdy);
        return 0;
    }*/

    static int cpp_draw_surface(lua_State *L) {
        uint8_t surface = luaL_checkinteger(L, 1);
        setsource(surface);
        int sx = luaL_checknumber(L, 2);
        int sy = luaL_checknumber(L, 3);
        int sw = luaL_checknumber(L, 4);
        int sh = luaL_checknumber(L, 5);
        int dx = luaL_checknumber(L, 6);
        int dy = luaL_checknumber(L, 7);
        int dw = luaL_optnumber(L, 8, 0);
        int dh = luaL_optnumber(L, 9, 0);
        bool flip_x = lua_toboolean(L, 10);
        bool flip_y = lua_toboolean(L, 11);
        bool invert = lua_toboolean(L, 12);
        blit(sx, sy, sw, sh, dx, dy, dw, dh, flip_x, flip_y, invert);
        return 0;
    }

    static int cpp_draw_surfaceRotated(lua_State *L) {
        uint8_t surface = luaL_checkinteger(L, 1);
        setsource(surface);
        int sx = luaL_checknumber(L, 2);
        int sy = luaL_checknumber(L, 3);
        int sw = luaL_checknumber(L, 4);
        int sh = luaL_checknumber(L, 5);
        int dx = luaL_checknumber(L, 6);
        int dy = luaL_checknumber(L, 7);
        float a = luaL_checknumber(L, 8);
        blit_r(sx, sy, sw, sh, dx, dy, a);
        return 0;
    }

    static int cpp_draw_text(lua_State *L) {
        const char* str = luaL_checkstring(L, 1);
        int x = luaL_checknumber(L, 2);
        int y = luaL_checknumber(L, 3);
        if (lua_gettop(L) > 3) {
            uint8_t color = luaL_checkinteger(L, 4);
            print(str, x, y, color);
        } else {
            print(str, x, y);
        }
        return 0;
    }


    // music
    // ===============================================

    static int cpp_music_play(lua_State *L) {
        const char* str = luaL_checkstring(L, 1);
        const int loop = luaL_optinteger(L, 2, -1);
        playmusic(str, loop);
        return 0;
    }

    static int cpp_music_pause(lua_State *L) {
        pausemusic();
        return 0;
    }

    static int cpp_music_resume(lua_State *L) {
        resumemusic();
        return 0;
    }

    static int cpp_music_stop(lua_State *L) {
        const int time = luaL_optinteger(L, 1, 1000);
        stopmusic(time);
        return 0;
    }

    static int cpp_music_setPosition(lua_State *L) {
        musicpos(luaL_checknumber(L, 1));
        return 0;
    }

    static int cpp_music_getPosition(lua_State *L) {
        lua_pushnumber(L, musicpos());
        return 1;
    }


    // sound
    // ===============================================

    static int cpp_sound_load(lua_State *L) {
        const char* str = luaL_checkstring(L, 1);
        lua_pushinteger(L,loadsound(str));
        return 1;
    }

    static int cpp_sound_free(lua_State *L) {
        const int sound = luaL_checknumber(L, 1);
        freesound(sound);
        return 0;
    }

    static int cpp_sound_play(lua_State *L) {
        const int sound = luaL_checknumber(L, 1);
        const int volume = luaL_optinteger(L, 2, -1);
        lua_pushinteger(L,playsound(sound, volume));
        return 1;
    }

    static int cpp_sound_stop(lua_State *L) {
        const int sound = luaL_checknumber(L, 1);
        stopsound(sound);
        return 0;
    }


    // sys
    // ===============================================

    static int cpp_sys_time(lua_State *L) {
        lua_pushnumber(L, time());
        return 1;
    }

    static int cpp_sys_setBeat(lua_State *L) {
        int16_t beats = luaL_optnumber(L, 1, -1);
        beat(beats);
        return 0;
    }

    static int cpp_sys_isBeat(lua_State *L) {
        lua_pushboolean(L, beat(-1));
        return 1;
    }

    static int cpp_sys_updateFullSpeed(lua_State *L) {
        setupdatemode(UPDATE_ALWAYS);
        return 0;
    }

    static int cpp_sys_updateEvents(lua_State *L) {
        setupdatemode(UPDATE_WAIT);
        return 0;
    }

    static int cpp_sys_updateTimeout(lua_State *L) {
        setupdatemode(UPDATE_TIMEOUT, luaL_checknumber(L, 1));
        return 0;
    }

    static int cpp_sys_dir(lua_State *L) {
        lua_newtable(L);
        int i=1;
        for (const auto& entry : fs::directory_iterator("./data")) {
            lua_pushstring(L, entry.path().u8string().c_str());
            lua_rawseti(L, -2, i++);
        }

        return 1;
    }

    static int cpp_sys_exit(lua_State *L) {
        exit();
        return 0;
    }


    // win
    // ===============================================

    static int cpp_win_getZoom(lua_State *L) {
        lua_pushinteger(L, getzoom());
        return 1;
    }

    static int cpp_win_setZoom(lua_State *L) {
        const int value = luaL_optinteger(L, 1, 0);
        setzoom(value);
        return 0;
    }

    static int cpp_win_getFullscreen(lua_State *L) {
        lua_pushboolean(L, getfullscreen());
        return 1;
    }

    static int cpp_win_setFullscreen(lua_State *L) {
        setfullscreen(lua_toboolean(L, 1));
        return 0;
    }

    static int cpp_win_showCursor(lua_State *L) {
        setcursor(lua_toboolean(L, 1));
        return 0;
    }

    static int cpp_win_getResolution(lua_State *L) {
        lua_pushinteger(L, scrw());
        lua_pushinteger(L, scrh());
        return 2;
    }

    static int cpp_win_setResolution(lua_State *L) {
        const int w = luaL_optinteger(L, 1, 160);
        const int h = luaL_optinteger(L, 2, 120);
        setres(w, h);
        return 0;
    }


    // conf
    // ===============================================

    static int cpp_conf_getKey(lua_State *L) {
        const char* key = luaL_checkstring(L, 1);
        const char* value = getconfig(key);
        if (value==NULL) {
            lua_pushnil(L);
        } else {
            lua_pushstring(L, value);
        }
        return 1;
    }

    static int cpp_conf_setKey(lua_State *L) {
        const char* key = luaL_checkstring(L, 1);
        const char* value = luaL_checkstring(L, 2);
        setconfig(key, value);
        return 0;
    }

    static int cpp_conf_folder(lua_State *L) {
        lua_pushstring(L, configfolder());
        return 1;
    }


    // mouse
    // ===============================================

    static int cpp_mouse_pos(lua_State *L) {
        lua_pushinteger(L, mousex());
        lua_pushinteger(L, mousey());
        return 2;
    }

    static int cpp_mouse_wheel(lua_State *L) {
        lua_pushinteger(L, mwheel());
        return 1;
    }

    static int cpp_mouse_down(lua_State *L) {
        uint8_t i = luaL_checkinteger(L, 1);
        lua_pushboolean(L, mbtn(i));
        return 1;
    }

    static int cpp_mouse_press(lua_State *L) {
        uint8_t i = luaL_checkinteger(L, 1);
        lua_pushboolean(L, mbtnp(i));
        return 1;
    }

    
    // key
    // ===============================================

    static int cpp_key_down(lua_State *L) {
        uint8_t i = luaL_checkinteger(L, 1);
        lua_pushboolean(L, btn(i));
        return 1;
    }

    static int cpp_key_press(lua_State *L) {
        if (lua_gettop(L) >=1 ) {
            uint8_t i = luaL_checkinteger(L, 1);
            lua_pushboolean(L, btnp(i));
        } else {
            lua_pushinteger(L, wbtnp());
        }
        return 1;
    }

    static int cpp_key_any(lua_State *L) {
        lua_pushboolean(L, anykey());
        return 1;
    }

    
    // pad
    // ===============================================

    static int cpp_pad_down(lua_State *L) {
        int8_t i = luaL_checkinteger(L, 1);
        lua_pushboolean(L, pad(i));
        return 1;
    }

    static int cpp_pad_press(lua_State *L) {
        if (lua_gettop(L) >=1 ) {
            int8_t i = luaL_checkinteger(L, 1);
            lua_pushboolean(L, padp(i));
        } else {
            lua_pushinteger(L, wpad());
        }
        return 1;
    }

    static int cpp_pad_any(lua_State *L) {
        lua_pushinteger(L, wpad());
        return 1;
    }

}

lua_State *L;
bool is_playing = false;
bool init_exists = false;
bool update_exists = false;

bool lua_is_playing() {
    return is_playing;
}

void push_lua_funcs() {
    lua_newtable(L);
    lua_setglobal(L, "mini");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_surf_new);              lua_setfield(L, -2, "new");
    lua_pushcfunction(L,cpp_surf_load);             lua_setfield(L, -2, "load");
    lua_pushcfunction(L,cpp_surf_save);             lua_setfield(L, -2, "save");
    lua_pushcfunction(L,cpp_surf_free);             lua_setfield(L, -2, "free");
    lua_pushcfunction(L,cpp_surf_getSize);          lua_setfield(L, -2, "getSize");
    lua_pushcfunction(L,cpp_surf_setTarget);        lua_setfield(L, -2, "setTarget");
    lua_pushcfunction(L,cpp_surf_cls);              lua_setfield(L, -2, "cls");
    lua_pushcfunction(L,cpp_surf_setPixel);         lua_setfield(L, -2, "setPixel");
    lua_pushcfunction(L,cpp_surf_getPixel);         lua_setfield(L, -2, "getPixel");
    lua_setglobal(L, "surface");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_map_new);               lua_setfield(L, -2, "new");
    lua_pushcfunction(L,cpp_map_load);              lua_setfield(L, -2, "load");
    lua_pushcfunction(L,cpp_map_save);              lua_setfield(L, -2, "save");
    lua_pushcfunction(L,cpp_map_set);               lua_setfield(L, -2, "set");
    lua_pushcfunction(L,cpp_map_draw);              lua_setfield(L, -2, "draw");
    lua_pushcfunction(L,cpp_map_getTile);           lua_setfield(L, -2, "getTile");
    lua_pushcfunction(L,cpp_map_setTile);           lua_setfield(L, -2, "setTile");
    lua_setglobal(L, "tilemap");
    
    lua_newtable(L);
    lua_pushcfunction(L,cpp_pal_load);              lua_setfield(L, -2, "load");
    lua_pushcfunction(L,cpp_pal_set);               lua_setfield(L, -2, "set");
    lua_pushcfunction(L,cpp_pal_getColor);          lua_setfield(L, -2, "getColor");
    lua_pushcfunction(L,cpp_pal_setColor);          lua_setfield(L, -2, "setColor");
    lua_pushcfunction(L,cpp_pal_trans);             lua_setfield(L, -2, "setTransparent");
    lua_setglobal(L, "palette");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_subpalette_resetAll);   lua_setfield(L, -2, "resetAll");
    lua_pushcfunction(L,cpp_subpalette_set);        lua_setfield(L, -2, "set");
    lua_pushcfunction(L,cpp_subpalette_reset);      lua_setfield(L, -2, "reset");
    lua_pushcfunction(L,cpp_subpalette_setRange);   lua_setfield(L, -2, "setRange");
    lua_pushcfunction(L,cpp_subpalette_resetRange); lua_setfield(L, -2, "resetRange");
    lua_setglobal(L, "subpalette");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_viewport_resetClipping);lua_setfield(L, -2, "resetClipping");
    lua_pushcfunction(L,cpp_viewport_setClipping);  lua_setfield(L, -2, "setClipping");
    lua_pushcfunction(L,cpp_viewport_setOrigin);    lua_setfield(L, -2, "setOrigin");
    lua_pushcfunction(L,cpp_viewport_getOrigin);    lua_setfield(L, -2, "getOrigin");
    lua_pushcfunction(L,cpp_viewport_tolocal);      lua_setfield(L, -2, "tolocal");
    lua_setglobal(L, "viewport");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_draw_line);             lua_setfield(L, -2, "line");
    lua_pushcfunction(L,cpp_draw_hline);            lua_setfield(L, -2, "hline");
    lua_pushcfunction(L,cpp_draw_vline);            lua_setfield(L, -2, "vline");
    lua_pushcfunction(L,cpp_draw_rect);             lua_setfield(L, -2, "rect");
    lua_pushcfunction(L,cpp_draw_rectfill);         lua_setfield(L, -2, "rectFill");
    lua_pushcfunction(L,cpp_draw_circ);             lua_setfield(L, -2, "circ");
    lua_pushcfunction(L,cpp_draw_circfill);         lua_setfield(L, -2, "circFill");
    lua_pushcfunction(L,cpp_draw_oval);             lua_setfield(L, -2, "oval");
    lua_pushcfunction(L,cpp_draw_ovalfill);         lua_setfield(L, -2, "ovalFill");
    lua_pushcfunction(L,cpp_draw_pattern);          lua_setfield(L, -2, "setPattern");
    //lua_pushcfunction(L,cpp_draw_tline);          lua_setfield(L, -2, "tline");
    //lua_pushcfunction(L,cpp_draw_thline);         lua_setfield(L, -2, "thline");
    //lua_pushcfunction(L,cpp_draw_tvline);         lua_setfield(L, -2, "tvline");
    lua_pushcfunction(L,cpp_draw_surface);          lua_setfield(L, -2, "surface");
    lua_pushcfunction(L,cpp_draw_surfaceRotated);   lua_setfield(L, -2, "surfaceRotated");
    lua_pushcfunction(L,cpp_draw_text);             lua_setfield(L, -2, "text");
    lua_setglobal(L, "draw");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_music_play);            lua_setfield(L, -2, "play");
    lua_pushcfunction(L,cpp_music_pause);           lua_setfield(L, -2, "pause");
    lua_pushcfunction(L,cpp_music_resume);          lua_setfield(L, -2, "resume");
    lua_pushcfunction(L,cpp_music_stop);            lua_setfield(L, -2, "stop");
    lua_pushcfunction(L,cpp_music_setPosition);     lua_setfield(L, -2, "setPosition");
    lua_pushcfunction(L,cpp_music_getPosition);     lua_setfield(L, -2, "getPosition");
    lua_setglobal(L, "music");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_sound_load);            lua_setfield(L, -2, "load");
    lua_pushcfunction(L,cpp_sound_free);            lua_setfield(L, -2, "free");
    lua_pushcfunction(L,cpp_sound_play);            lua_setfield(L, -2, "play");
    lua_pushcfunction(L,cpp_sound_stop);            lua_setfield(L, -2, "stop");
    lua_setglobal(L, "sound");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_sys_time);              lua_setfield(L, -2, "getTime");
    lua_pushcfunction(L,cpp_sys_setBeat);           lua_setfield(L, -2, "setBeat");
    lua_pushcfunction(L,cpp_sys_isBeat);            lua_setfield(L, -2, "isBeat");
    lua_pushcfunction(L,cpp_sys_updateFullSpeed);   lua_setfield(L, -2, "updateAtFullSpeed");
    lua_pushcfunction(L,cpp_sys_updateEvents);      lua_setfield(L, -2, "updateOnlyOnEvents");
    lua_pushcfunction(L,cpp_sys_updateTimeout);     lua_setfield(L, -2, "updateOnEventsAndTimeout");
    lua_pushcfunction(L,cpp_sys_dir);               lua_setfield(L, -2, "getFilesInDataDirectory");
    lua_pushcfunction(L,cpp_sys_exit);              lua_setfield(L, -2, "quit");
    lua_setglobal(L, "system");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_win_setZoom);           lua_setfield(L, -2, "setZoom");
    lua_pushcfunction(L,cpp_win_getZoom);           lua_setfield(L, -2, "getZoom");
    lua_pushcfunction(L,cpp_win_setFullscreen);     lua_setfield(L, -2, "setFullscreen");
    lua_pushcfunction(L,cpp_win_getFullscreen);     lua_setfield(L, -2, "getFullscreen");
    lua_pushcfunction(L,cpp_win_showCursor);        lua_setfield(L, -2, "showCursor");
    lua_pushcfunction(L,cpp_win_getResolution);     lua_setfield(L, -2, "getResolution");
    lua_pushcfunction(L,cpp_win_setResolution);     lua_setfield(L, -2, "setResolution");
    lua_setglobal(L, "window");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_conf_setKey);           lua_setfield(L, -2, "setKey");
    lua_pushcfunction(L,cpp_conf_getKey);           lua_setfield(L, -2, "getKey");
    lua_pushcfunction(L,cpp_conf_folder);           lua_setfield(L, -2, "getConfigFolder");
    lua_setglobal(L, "config");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_mouse_pos);             lua_setfield(L, -2, "getPos");
    lua_pushcfunction(L,cpp_mouse_wheel);           lua_setfield(L, -2, "getWheel");
    lua_pushcfunction(L,cpp_mouse_down);            lua_setfield(L, -2, "buttonDown");
    lua_pushcfunction(L,cpp_mouse_press);           lua_setfield(L, -2, "buttonPressed");
    lua_setglobal(L, "mouse");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_key_down);              lua_setfield(L, -2, "keyDown");
    lua_pushcfunction(L,cpp_key_press);             lua_setfield(L, -2, "keyPressed");
    lua_pushcfunction(L,cpp_key_any);               lua_setfield(L, -2, "anyKeyPressed");
    lua_setglobal(L, "keyboard");

    lua_newtable(L);
    lua_pushinteger(L, 0);                          lua_setfield(L, -2, "UNKNOWN");
    lua_pushinteger(L, 4);                          lua_setfield(L, -2, "A");
    lua_pushinteger(L, 5);                          lua_setfield(L, -2, "B");
    lua_pushinteger(L, 6);                          lua_setfield(L, -2, "C");
    lua_pushinteger(L, 7);                          lua_setfield(L, -2, "D");
    lua_pushinteger(L, 8);                          lua_setfield(L, -2, "E");
    lua_pushinteger(L, 9);                          lua_setfield(L, -2, "F");
    lua_pushinteger(L, 10);                         lua_setfield(L, -2, "G");
    lua_pushinteger(L, 11);                         lua_setfield(L, -2, "H");
    lua_pushinteger(L, 12);                         lua_setfield(L, -2, "I");
    lua_pushinteger(L, 13);                         lua_setfield(L, -2, "J");
    lua_pushinteger(L, 14);                         lua_setfield(L, -2, "K");
    lua_pushinteger(L, 15);                         lua_setfield(L, -2, "L");
    lua_pushinteger(L, 16);                         lua_setfield(L, -2, "M");
    lua_pushinteger(L, 17);                         lua_setfield(L, -2, "N");
    lua_pushinteger(L, 18);                         lua_setfield(L, -2, "O");
    lua_pushinteger(L, 19);                         lua_setfield(L, -2, "P");
    lua_pushinteger(L, 20);                         lua_setfield(L, -2, "Q");
    lua_pushinteger(L, 21);                         lua_setfield(L, -2, "R");
    lua_pushinteger(L, 22);                         lua_setfield(L, -2, "S");
    lua_pushinteger(L, 23);                         lua_setfield(L, -2, "T");
    lua_pushinteger(L, 24);                         lua_setfield(L, -2, "U");
    lua_pushinteger(L, 25);                         lua_setfield(L, -2, "V");
    lua_pushinteger(L, 26);                         lua_setfield(L, -2, "W");
    lua_pushinteger(L, 27);                         lua_setfield(L, -2, "X");
    lua_pushinteger(L, 28);                         lua_setfield(L, -2, "Y");
    lua_pushinteger(L, 29);                         lua_setfield(L, -2, "Z");
    lua_pushinteger(L, 30);                         lua_setfield(L, -2, "N1");
    lua_pushinteger(L, 31);                         lua_setfield(L, -2, "N2");
    lua_pushinteger(L, 32);                         lua_setfield(L, -2, "N3");
    lua_pushinteger(L, 33);                         lua_setfield(L, -2, "N4");
    lua_pushinteger(L, 34);                         lua_setfield(L, -2, "N5");
    lua_pushinteger(L, 35);                         lua_setfield(L, -2, "N6");
    lua_pushinteger(L, 36);                         lua_setfield(L, -2, "N7");
    lua_pushinteger(L, 37);                         lua_setfield(L, -2, "N8");
    lua_pushinteger(L, 38);                         lua_setfield(L, -2, "N9");
    lua_pushinteger(L, 39);                         lua_setfield(L, -2, "N0");
    lua_pushinteger(L, 40);                         lua_setfield(L, -2, "RETURN");
    lua_pushinteger(L, 41);                         lua_setfield(L, -2, "ESCAPE");
    lua_pushinteger(L, 42);                         lua_setfield(L, -2, "BACKSPACE");
    lua_pushinteger(L, 43);                         lua_setfield(L, -2, "TAB");
    lua_pushinteger(L, 44);                         lua_setfield(L, -2, "SPACE");
    lua_pushinteger(L, 45);                         lua_setfield(L, -2, "MINUS");
    lua_pushinteger(L, 46);                         lua_setfield(L, -2, "EQUALS");
    lua_pushinteger(L, 47);                         lua_setfield(L, -2, "LEFTBRACKET");
    lua_pushinteger(L, 48);                         lua_setfield(L, -2, "RIGHTBRACKET");
    lua_pushinteger(L, 49);                         lua_setfield(L, -2, "BACKSLASH");
    lua_pushinteger(L, 50);                         lua_setfield(L, -2, "NONUSHASH");
    lua_pushinteger(L, 51);                         lua_setfield(L, -2, "SEMICOLON");
    lua_pushinteger(L, 52);                         lua_setfield(L, -2, "APOSTROPHE");
    lua_pushinteger(L, 53);                         lua_setfield(L, -2, "GRAVE");
    lua_pushinteger(L, 54);                         lua_setfield(L, -2, "COMMA");
    lua_pushinteger(L, 55);                         lua_setfield(L, -2, "PERIOD");
    lua_pushinteger(L, 56);                         lua_setfield(L, -2, "SLASH");
    lua_pushinteger(L, 57);                         lua_setfield(L, -2, "CAPSLOCK");
    lua_pushinteger(L, 58);                         lua_setfield(L, -2, "F1");
    lua_pushinteger(L, 59);                         lua_setfield(L, -2, "F2");
    lua_pushinteger(L, 60);                         lua_setfield(L, -2, "F3");
    lua_pushinteger(L, 61);                         lua_setfield(L, -2, "F4");
    lua_pushinteger(L, 62);                         lua_setfield(L, -2, "F5");
    lua_pushinteger(L, 63);                         lua_setfield(L, -2, "F6");
    lua_pushinteger(L, 64);                         lua_setfield(L, -2, "F7");
    lua_pushinteger(L, 65);                         lua_setfield(L, -2, "F8");
    lua_pushinteger(L, 66);                         lua_setfield(L, -2, "F9");
    lua_pushinteger(L, 67);                         lua_setfield(L, -2, "F10");
    lua_pushinteger(L, 68);                         lua_setfield(L, -2, "F11");
    lua_pushinteger(L, 69);                         lua_setfield(L, -2, "F12");
    lua_pushinteger(L, 70);                         lua_setfield(L, -2, "PRINTSCREEN");
    lua_pushinteger(L, 71);                         lua_setfield(L, -2, "SCROLLLOCK");
    lua_pushinteger(L, 72);                         lua_setfield(L, -2, "PAUSE");
    lua_pushinteger(L, 73);                         lua_setfield(L, -2, "INSERT");
    lua_pushinteger(L, 74);                         lua_setfield(L, -2, "HOME");
    lua_pushinteger(L, 75);                         lua_setfield(L, -2, "PAGEUP");
    lua_pushinteger(L, 76);                         lua_setfield(L, -2, "DELETE");
    lua_pushinteger(L, 77);                         lua_setfield(L, -2, "END");
    lua_pushinteger(L, 78);                         lua_setfield(L, -2, "PAGEDOWN");
    lua_pushinteger(L, 79);                         lua_setfield(L, -2, "RIGHT");
    lua_pushinteger(L, 80);                         lua_setfield(L, -2, "LEFT");
    lua_pushinteger(L, 81);                         lua_setfield(L, -2, "DOWN");
    lua_pushinteger(L, 82);                         lua_setfield(L, -2, "UP");
    lua_pushinteger(L, 83);                         lua_setfield(L, -2, "NUMLOCKCLEAR");
    lua_pushinteger(L, 84);                         lua_setfield(L, -2, "KP_DIVIDE");
    lua_pushinteger(L, 85);                         lua_setfield(L, -2, "KP_MULTIPLY");
    lua_pushinteger(L, 86);                         lua_setfield(L, -2, "KP_MINUS");
    lua_pushinteger(L, 87);                         lua_setfield(L, -2, "KP_PLUS");
    lua_pushinteger(L, 88);                         lua_setfield(L, -2, "KP_ENTER");
    lua_pushinteger(L, 89);                         lua_setfield(L, -2, "KP_1");
    lua_pushinteger(L, 90);                         lua_setfield(L, -2, "KP_2");
    lua_pushinteger(L, 91);                         lua_setfield(L, -2, "KP_3");
    lua_pushinteger(L, 92);                         lua_setfield(L, -2, "KP_4");
    lua_pushinteger(L, 93);                         lua_setfield(L, -2, "KP_5");
    lua_pushinteger(L, 94);                         lua_setfield(L, -2, "KP_6");
    lua_pushinteger(L, 95);                         lua_setfield(L, -2, "KP_7");
    lua_pushinteger(L, 96);                         lua_setfield(L, -2, "KP_8");
    lua_pushinteger(L, 97);                         lua_setfield(L, -2, "KP_9");
    lua_pushinteger(L, 98);                         lua_setfield(L, -2, "KP_0");
    lua_pushinteger(L, 99);                         lua_setfield(L, -2, "KP_PERIOD");
    lua_pushinteger(L, 100);                        lua_setfield(L, -2, "NONUSBACKSLASH");
    lua_pushinteger(L, 101);                        lua_setfield(L, -2, "APPLICATION");
    lua_pushinteger(L, 224);                        lua_setfield(L, -2, "LCTRL");
    lua_pushinteger(L, 225);                        lua_setfield(L, -2, "LSHIFT");
    lua_pushinteger(L, 226);                        lua_setfield(L, -2, "LALT");
    lua_pushinteger(L, 227);                        lua_setfield(L, -2, "LGUI");
    lua_pushinteger(L, 228);                        lua_setfield(L, -2, "RCTRL");
    lua_pushinteger(L, 229);                        lua_setfield(L, -2, "RSHIFT");
    lua_pushinteger(L, 230);                        lua_setfield(L, -2, "RALT");
    lua_pushinteger(L, 231);                        lua_setfield(L, -2, "RGUI");

    lua_setglobal(L, "key");

    lua_newtable(L);
    lua_pushcfunction(L,cpp_pad_down);              lua_setfield(L, -2, "buttonDown");
    lua_pushcfunction(L,cpp_pad_press);             lua_setfield(L, -2, "buttonPressed");
    lua_pushcfunction(L,cpp_pad_any);               lua_setfield(L, -2, "anyButtonPressed");
    lua_setglobal(L, "gamepad");

    lua_newtable(L);
    lua_pushinteger(L, -1);                         lua_setfield(L, -2, "INVALID");
    lua_pushinteger(L, 0);                          lua_setfield(L, -2, "A");
    lua_pushinteger(L, 1);                          lua_setfield(L, -2, "B");
    lua_pushinteger(L, 2);                          lua_setfield(L, -2, "X");
    lua_pushinteger(L, 3);                          lua_setfield(L, -2, "Y");
    lua_pushinteger(L, 4);                          lua_setfield(L, -2, "BACK");
    lua_pushinteger(L, 5);                          lua_setfield(L, -2, "GUIDE");
    lua_pushinteger(L, 6);                          lua_setfield(L, -2, "START");
    lua_pushinteger(L, 7);                          lua_setfield(L, -2, "LEFTSTICK");
    lua_pushinteger(L, 8);                          lua_setfield(L, -2, "RIGHTSTICK");
    lua_pushinteger(L, 9);                          lua_setfield(L, -2, "LEFTSHOULDER");
    lua_pushinteger(L, 10);                         lua_setfield(L, -2, "RIGHTSHOULDER");
    lua_pushinteger(L, 11);                         lua_setfield(L, -2, "UP");
    lua_pushinteger(L, 12);                         lua_setfield(L, -2, "DOWN");
    lua_pushinteger(L, 13);                         lua_setfield(L, -2, "LEFT");
    lua_pushinteger(L, 14);                         lua_setfield(L, -2, "RIGHT");
    lua_pushinteger(L, 15);                         lua_setfield(L, -2, "MISC1");
    lua_pushinteger(L, 16);                         lua_setfield(L, -2, "PADDLE1");
    lua_pushinteger(L, 17);                         lua_setfield(L, -2, "PADDLE2");
    lua_pushinteger(L, 18);                         lua_setfield(L, -2, "PADDLE3");
    lua_pushinteger(L, 19);                         lua_setfield(L, -2, "PADDLE4");
    lua_pushinteger(L, 20);                         lua_setfield(L, -2, "TOUCHPAD");

    lua_setglobal(L, "button");

}

int MiniLoader(lua_State *L) {
    const char *name = luaL_checkstring(L, 1);
    char filename[strlen(name)+5];
    strcpy(filename, name);
    strcat(filename, ".lua");
    int size;
    char* buffer = file_getfilebuffer(filename, size);
    if (luaL_loadbuffer(L, buffer, size, filename)) {
        debug("REQUIRE LOADING ERROR: ");
        debug("%s\n",lua_tostring(L, -1));
        lua_pop(L,1);
        //return ;
    }
    free(buffer);
    return 1;
}

void lua_init(const char *main_lua_file) {
    L = luaL_newstate();
    luaL_openlibs(L);
    push_lua_funcs();
    lua_register(L, "mini_loader", MiniLoader);
    luaL_dostring(L, "table.insert(package.searchers,2,mini_loader)\n");

    int size;
    char* buffer = file_getfilebuffer(main_lua_file, size);
    if (luaL_loadbuffer(L, buffer, size, "main")) {
        debug("LOADING ERROR: ");
        debug("%s\n",lua_tostring(L, -1));
        lua_pop(L,1);
        return;
    }
    free(buffer);
    if (lua_pcall(L,0, LUA_MULTRET, 0)) {
        debug("RUNTIME ERROR [BOOT]: ");
        //debug("%s\n",lua_tostring(L, -1));
        //lua_pop(L,1);

        luaL_traceback(L, L, NULL, 1);
        debug("%s\n", lua_tostring(L, -1));
        lua_pop(L,1);
        return;
    }

    // Check if _init and _update exist
    lua_getglobal(L, "mini");
    lua_getfield(L, -1, "init");
    if (lua_isfunction(L,-1)) init_exists = true;
    lua_pop(L,1);
    lua_pop(L,1);

    lua_getglobal(L, "mini");
    lua_getfield(L, -1, "update");
    if (lua_isfunction(L,-1)) update_exists = true;
    lua_pop(L,1);
    lua_pop(L,1);

    is_playing = true;
}

void lua_call_init() {
    if (!init_exists) return;
    lua_getglobal(L, "mini");
    lua_getfield(L, -1, "init");
    if (lua_pcall(L, 0, 0, 0)) {
        debug("RUNTIME ERROR [INIT]: ");
        debug("%s\n",lua_tostring(L, -1));
        lua_pop(L,1);
        luaL_traceback(L, L, NULL, 1);
        debug("%s\n", lua_tostring(L, -1));
        lua_pop(L,1);
        is_playing = false;
    }
}

void lua_call_update() {
    if (!update_exists) return;
    lua_getglobal(L, "mini");
    lua_getfield(L, -1, "update");
    if (lua_pcall(L, 0, 0, 0)) {
        debug("RUNTIME ERROR [UPDATE]: ");
        debug("%s\n",lua_tostring(L, -1));
        lua_pop(L,1);
        luaL_traceback(L, L, NULL, 1);
        debug("%s\n", lua_tostring(L, -1));
        lua_pop(L,1);
        is_playing = false;
    }
}

void lua_quit() {
    if (!is_playing) return;
    is_playing = false;
    lua_close(L);
}