#pragma once
#include "squirrel/SquirrelEx.h"
#include "EngineFrame/Actor/Actor.h"
#include "EngineFrame/Component/Sprite.h"

static SQInteger _file_releasehook(SQUserPointer p, SQInteger SQ_UNUSED_ARG(size))
{
    Actor *Abli = (Actor *)p;
    Abli->Release();
    return 0;
}
static SQInteger SQR_RegisterDestruction(HSQUIRRELVM v)
{
    // 析构函数测试
    SQUserPointer P;
    sq_getuserpointer(v, 2, &P);
    sq_setinstanceup(v, 3, P);
    sq_setreleasehook(v, 3, _file_releasehook);
    return 0;
}

static SQInteger SQR_CreateActor(HSQUIRRELVM v)
{
    RefPtr<Actor> act = new Actor();
    act->Retain();
    sq_pushuserpointer(v, act.Get());
    return 1;
}

static SQInteger SQR_AddChild(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    SQUserPointer B_obj;
    sq_getuserpointer(v, 3, &B_obj);
    Actor *Aobj = (Actor *)A_obj;
    Actor *Bobj = (Actor *)B_obj;
    Aobj->AddChild(Bobj);
    return 0;
}

static SQInteger SQR_RemoveChild(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    SQUserPointer B_obj;
    sq_getuserpointer(v, 3, &B_obj);
    Actor *Aobj = (Actor *)A_obj;
    Actor *Bobj = (Actor *)B_obj;
    Aobj->RemoveChild(Bobj);
    return 0;
}

static SQInteger SQR_GetZOrder(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    Actor *Aobj = (Actor *)A_obj;
    sq_pushinteger(v, Aobj->GetRenderZOrder());
    return 1;
}

static SQInteger SQR_SetZOrder(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    SQInteger Value;
    sq_getinteger(v, 3, &Value);
    Actor *Aobj = (Actor *)A_obj;
    Aobj->SetRenderZOrder(Value);
    return 0;
}

static SQInteger SQR_GetPos(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    Actor *Aobj = (Actor *)A_obj;
    VecFPos Pos = Aobj->GetPos();

    sq_newtable(v);
    sq_pushstring(v, _SC("x"), -1);
    sq_pushfloat(v, Pos.x);
    sq_newslot(v, 3, SQFalse);
    sq_pushstring(v, _SC("y"), -1);
    sq_pushfloat(v, Pos.y);
    sq_newslot(v, 3, SQFalse);
    return 1;
}

static SQInteger SQR_SetPos(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);

    if (sq_gettop(v) == 3)
    {
        VecFPos Pos;
        sq_pushnull(v); // null iterator
        while (SQ_SUCCEEDED(sq_next(v, 3)))
        {
            SQFloat value;
            sq_getfloat(v, -1, &value);
            const SQChar *key;
            sq_getstring(v, -2, &key);

            if (strcmp(key, _SC("x")) == 0)
            {
                Pos.x = value;
            }
            else if (strcmp(key, _SC("y")) == 0)
            {
                Pos.y = value;
            }
            sq_pop(v, 2);
        }
        sq_pop(v, 1);

        Actor *Aobj = (Actor *)A_obj;
        Aobj->SetPos(Pos);
    }
    else if (sq_gettop(v) == 4)
    {
        SQFloat X, Y;
        sq_getfloat(v, 3, &X);
        sq_getfloat(v, 4, &Y);
        Actor *Aobj = (Actor *)A_obj;
        Aobj->SetPos(VecFPos(X, Y));
    }
    return 0;
}

static SQInteger SQR_GetWorldPos(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    Actor *Aobj = (Actor *)A_obj;
    VecFPos Pos = Aobj->GetWorldPos();

    sq_newtable(v);
    sq_pushstring(v, _SC("x"), -1);
    sq_pushfloat(v, Pos.x);
    sq_newslot(v, 3, SQFalse);
    sq_pushstring(v, _SC("y"), -1);
    sq_pushfloat(v, Pos.y);
    sq_newslot(v, 3, SQFalse);
    return 1;
}

static SQInteger SQR_GetAlpha(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    Actor *Aobj = (Actor *)A_obj;

    sq_pushfloat(v, Aobj->GetAlpha());
    return 1;
}
static SQInteger SQR_SetAlpha(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    SQFloat Value;
    sq_getfloat(v, 3, &Value);
    Actor *Aobj = (Actor *)A_obj;
    Aobj->SetAlpha(Value);
    return 0;
}

static SQInteger SQR_GetScale(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    Actor *Aobj = (Actor *)A_obj;
    VecFPos Pos = Aobj->GetScale();
    sq_newtable(v);
    sq_pushstring(v, _SC("x"), -1);
    sq_pushfloat(v, Pos.x);
    sq_newslot(v, 3, SQFalse);
    sq_pushstring(v, _SC("y"), -1);
    sq_pushfloat(v, Pos.y);
    sq_newslot(v, 3, SQFalse);
    return 1;
}

static SQInteger SQR_SetScale(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);

    if (sq_gettop(v) == 3)
    {
        VecFPos Pos;
        sq_pushnull(v); // null iterator
        while (SQ_SUCCEEDED(sq_next(v, 3)))
        {
            SQFloat value;
            sq_getfloat(v, -1, &value);
            const SQChar *key;
            sq_getstring(v, -2, &key);

            if (strcmp(key, _SC("x")) == 0)
            {
                Pos.x = value;
            }
            else if (strcmp(key, _SC("y")) == 0)
            {
                Pos.y = value;
            }
            sq_pop(v, 2);
        }
        sq_pop(v, 1);

        Actor *Aobj = (Actor *)A_obj;
        Aobj->SetScale(Pos);
    }
    else if (sq_gettop(v) == 4)
    {
        SQFloat X, Y;
        sq_getfloat(v, 3, &X);
        sq_getfloat(v, 4, &Y);
        Actor *Aobj = (Actor *)A_obj;
        Aobj->SetScale(VecFPos(X, Y));
    }
    return 0;
}

static SQInteger SQR_GetRotation(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    Actor *Aobj = (Actor *)A_obj;

    sq_pushfloat(v, Aobj->GetRotation());
}

static SQInteger SQR_SetRotation(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    SQFloat Value;
    sq_getfloat(v, 3, &Value);
    Actor *Aobj = (Actor *)A_obj;
    Aobj->SetRotation(Value);
    return 0;
}

static SQInteger SQR_GetSize(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    Actor *Aobj = (Actor *)A_obj;
    VecSize Pos = Aobj->GetSize();

    sq_newtable(v);
    sq_pushstring(v, _SC("w"), -1);
    sq_pushfloat(v, Pos.width);
    sq_newslot(v, 3, SQFalse);
    sq_pushstring(v, _SC("h"), -1);
    sq_pushfloat(v, Pos.height);
    sq_newslot(v, 3, SQFalse);
    return 1;
}

static SQInteger SQR_SetSize(HSQUIRRELVM v)
{
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);

    if (sq_gettop(v) == 3)
    {
        VecSize Size;
        sq_pushnull(v); // null iterator
        while (SQ_SUCCEEDED(sq_next(v, 3)))
        {
            SQFloat value;
            sq_getfloat(v, -1, &value);
            const SQChar *key;
            sq_getstring(v, -2, &key);

            if (strcmp(key, _SC("w")) == 0)
            {
                Size.width = value;
            }
            else if (strcmp(key, _SC("h")) == 0)
            {
                Size.height = value;
            }
            sq_pop(v, 2);
        }
        sq_pop(v, 1);

        Actor *Aobj = (Actor *)A_obj;
        Aobj->SetSize(Size);
    }
    else if (sq_gettop(v) == 4)
    {
        SQFloat X, Y;
        sq_getfloat(v, 3, &X);
        sq_getfloat(v, 4, &Y);
        Actor *Aobj = (Actor *)A_obj;
        Aobj->SetSize(VecSize(X, Y));
    }
    return 0;
}

static SQInteger SQR_SetVisible(HSQUIRRELVM v){
    SQUserPointer A_obj;
    sq_getuserpointer(v, 2, &A_obj);
    SQBool Value;
    sq_getbool(v, 3, &Value);
    Actor *Aobj = (Actor *)A_obj;
    Aobj->SetVisible(Value);
    return 0;
}

static SQInteger SQR_CreateSprite(HSQUIRRELVM v)
{
    const SQChar *ImgPath;
    SQInteger Idx;
    sq_getstring(v, 2, &ImgPath);
    sq_getinteger(v, 3, &Idx);
    RefPtr<Sprite> act = new Sprite(ImgPath, Idx);
    act->Retain();
    sq_pushuserpointer(v, act.Get());
    return 1;
}

static void RegisterUINutApi(const SQChar *funcName, SQFUNCTION funcAddr, HSQUIRRELVM v)
{
    sq_pushroottable(v);
    sq_pushstring(v, funcName, -1);
    sq_newclosure(v, funcAddr, 0);
    sq_newslot(v, -3, false);
    sq_poptop(v);
}

static void RegisterUI()
{
    SDL_Log("初始化 UI函数-松鼠脚本!");
    HSQUIRRELVM v = SquirrelEx::GetInstance().GetSquirrelVM();

    // 析构函数
    RegisterUINutApi(_SC("sq_RegisterDestruction"), SQR_RegisterDestruction, v);

    RegisterUINutApi(_SC("sq_CreateActor"), SQR_CreateActor, v);
    RegisterUINutApi(_SC("sq_AddChild"), SQR_AddChild, v);
    RegisterUINutApi(_SC("sq_RemoveChild"), SQR_RemoveChild, v);
    RegisterUINutApi(_SC("sq_GetZOrder"), SQR_GetZOrder, v);
    RegisterUINutApi(_SC("sq_SetZOrder"), SQR_SetZOrder, v);
    RegisterUINutApi(_SC("sq_GetPos"), SQR_GetPos, v);
    RegisterUINutApi(_SC("sq_SetPos"), SQR_SetPos, v);
    RegisterUINutApi(_SC("sq_GetWorldPos"), SQR_GetWorldPos, v);
    RegisterUINutApi(_SC("sq_GetAlpha"), SQR_GetAlpha, v);
    RegisterUINutApi(_SC("sq_SetAlpha"), SQR_SetAlpha, v);
    RegisterUINutApi(_SC("sq_GetScale"), SQR_GetScale, v);
    RegisterUINutApi(_SC("sq_SetScale"), SQR_SetScale, v);
    RegisterUINutApi(_SC("sq_GetRotation"), SQR_GetRotation, v);
    RegisterUINutApi(_SC("sq_SetRotation"), SQR_SetRotation, v);
    RegisterUINutApi(_SC("sq_GetSize"), SQR_GetSize, v);
    RegisterUINutApi(_SC("sq_SetSize"), SQR_SetSize, v);
    RegisterUINutApi(_SC("sq_SetVisible"), SQR_SetVisible, v);

    RegisterUINutApi(_SC("sq_CreateSprite"), SQR_CreateSprite, v);
}