DNF_DLL/test/squirrel.cpp

#include "pch.h"
#include "squirrel.h"



int squirrel::SQloadfile(uint32_t v, const wchar_t* filename, BOOL printerror)
{
            //wchar_t* ת char*
    char* fname = DNFTOOL::wchar_tTochar((wchar_t*)filename);

    FILE* file;
    file = fopen(fname, "rb");
    if (file)
    {
        //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Ĵ<EFBFBD>С
        fseek(file, 0, SEEK_END);
        int size = ftell(file);
        rewind(file);

        //<2F><><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Ŀռ<C4BF> 
        char* ar = (char*)malloc(sizeof(char) * size + 256);
        //<2F><><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>ÿ<EFBFBD>ζ<EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>size<7A><65> 
        fread(ar, 1, size, file);
        ar[size] = '\0';
        int skey[] = Skey;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

        Cutecode(ar, skey);//<2F><><EFBFBD><EFBFBD>
        fclose(file);//<2F>ر<EFBFBD><D8B1>ļ<EFBFBD>

        wchar_t* te = DNFTOOL::charTowchar_t(ar);
        return SQ_Compilebuffer(v, te, wcslen(te), (wchar_t*)filename, true);
    }
    return -1;
}

int squirrel::SQdofile(uint32_t v, const wchar_t* filename, BOOL retval, BOOL printerror)
{
    if (SQloadfile(v, filename, printerror) >= 0)
    {
        SQPush(v, -2);
        if ((int)SQ_Call(v, 1, retval, 1) >= 0)
        {
            SQ_Remove(v, -(retval != 0) - 1);
            return 1;
        }
        SQPop(v, 1);
    }
    return -1;
}


int squirrel::SQdofileBuffer(uint32_t v, const wchar_t* filename, const wchar_t* str)
{
    if (SQ_Compilebuffer(v, str, wcslen(str), L"interactive console", true) >= 0)
    {
        SQPushRootTable(v);
        SQ_Call(v, 1, 1, 1);
        SQPop(v, 1);
    }
    return -1;
}

//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ
int squirrel::GetObjectAddress(uint32_t v)
{
    int objAddress = GetSqrObject(v, 2);
    SQPushInt(v, objAddress);
    return 1;
}
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::GetObjectName(uint32_t v)
{
    int objAddress = GetSqrObject(v, 2);
    int objNameAddress = *(int*)(objAddress + 0x258);
    char* str = DNFTOOL::UnicodeToUtf8((wchar_t*)objNameAddress);
    wchar_t* name = DNFTOOL::charTowchar_t(str);
    free (str);
    SQPushString(v, name, -1);
    delete[]name;
    return 1;
}
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD>ȼ<EFBFBD>
int squirrel::GetObjectLevel(uint32_t v)
{
    int objAddress = GetSqrObject(v, 2);
    int Level = DNFTOOL::DNFDeCode(objAddress + 0x1A4C);
    SQPushInt(v, Level);
    return 1;
}


//Test


//<2F><><EFBFBD><EFBFBD>CALL
typedef void(__fastcall* NNoticeTCall)(DWORD thisc, DWORD Seat, DWORD a1, wchar_t* a2, DWORD a3, DWORD a4, DWORD a5);
static NNoticeTCall _ANoticeTcall = (NNoticeTCall)0xE6E070;

typedef int(_cdecl _sub7AAB60)(int a1);
static _sub7AAB60* getitemimg = (_sub7AAB60*)0x7aab60;

int squirrel::sq_GetImg(uint32_t v)
{
    int a1;
    SQGetInt(v, 2, &a1);

    int img = getitemimg(a1);
    SQPushInt(v, img);
    return 1;
}

typedef int(_cdecl _sub7AA800)(int a1, int a2, int a3, int a4, int a5, int a6, char a7);
static _sub7AA800* drawimg = (_sub7AA800*)0x7aa800;

//<2F><><EFBFBD><EFBFBD>Item
int squirrel::sq_DrawItem(uint32_t v)
{
    int a1, a2, a3, a4, a5, a6, a7;
    SQGetInt(v, 2, &a1);
    SQGetInt(v, 3, &a2);
    SQGetInt(v, 4, &a3);
    SQGetInt(v, 5, &a4);
    SQGetInt(v, 6, &a5);
    SQGetInt(v, 7, &a6);
    SQGetInt(v, 8, &a7);

    int img = getitemimg(a3);
    drawimg(a1, a2, img, a4, a5, a6, a7);

    return 0;
}



int squirrel::sq_Test(uint32_t v)
{

    
    return 0;
}

//<2F><><EFBFBD><EFBFBD>
int squirrel::Sout(uint32_t v)
{
    int Top = SQGetTop(v);
    if (Top <= 0)
    {
        SQ_Throwerror(v, L"Incorrect function argument");
        return 0;
    }

    wchar_t* OutPutBuffer;
    SQGetString(v, 2, &OutPutBuffer);
    char* OutPutText = DNFTOOL::SquirrelU2W(OutPutBuffer);

    std::vector<std::string> Data;
    DNFTOOL::Split(OutPutText, Data, "%L");
    delete []OutPutText;

    if (Top != Data.size() + 1)
    {
        SQ_Throwerror(v, L"Incorrect function argument");
        return 0;
    }

    size_t Fnum = Data.size();
    if (Fnum > 1)Fnum -= 1;
    std::string Text = "";
    for (size_t i = 0; i < Fnum; i++)
    {
        std::string Parameter;
        //<2F><>ȡֵ<C8A1><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        int ValueType = SQ_GetType(v, 3 + i);
        //<2F>ж<EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>
        switch (ValueType)
        {
        case OT_INTEGER://int<6E><74><EFBFBD><EFBFBD>
        {
            int Value;
            SQGetInt(v, 3 + i, &Value);
            Parameter = std::to_string(Value);
            break;
        }
        case OT_FLOAT://float<61><74><EFBFBD><EFBFBD>
        {
            FLOAT Value;
            SQGetFloat(v, 3 + i, &Value);
            std::ostringstream oss;
            oss << Value;
            std::string str(oss.str());
            Parameter = str;
            break;
        }
        case OT_BOOL://bool<6F><6C><EFBFBD><EFBFBD>
        {
            BOOL Value;
            SQGetBool(v, 3 + i, &Value);
            switch (Value)
            {
            case true:
                Parameter = "true";
                break;
            case false:
                Parameter = "false";
                break;
            }
            //Parameter = std::to_string(Value);
            break;
        }
        case OT_STRING://string<6E><67><EFBFBD><EFBFBD>
        {
            wchar_t* Value;
            SQGetString(v, 3 + i, &Value);
            char* str = DNFTOOL::SquirrelU2W(Value);
            Parameter = str;
            delete []str;
            break;
        }
        default:
            Parameter = " ";
            break;
        }
        Text += Data[i];
        Text += Parameter;
    }
    std::cout << Text << std::endl;
    return 0;
}

//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::GetCharacterAttribute(uint32_t v)
{
    int n1, n2;
    int num = SQGetTop(v);

    int CharAddr = *(int*)(0x1AB7CDC);
    if (num == 3)
    {
        SQGetInt(v, 2, &n1);
        SQGetInt(v, 3, &n2);
        int TValue = *(int*)(CharAddr+DNFTOOL::GetEquAddr(n2));
        int SValue = (TValue + n1);
        if(SValue < 0x400000)
            SQPushInt(v, 0);
        else if (n1 != 0x8 && n1 != 0x1C && n1 != 0xF4 && n1 != 0x854)
            SQPushInt(v, (DNFTOOL::DNFDeCode(SValue)));
        else
            SQPushInt(v, (*(int*)(SValue)));
    }
    else if (num == 2)
    {
        SQGetInt(v, 2, &n1);
        int Value = (CharAddr + n1);

        SQPushInt(v, (DNFTOOL::DNFDeCode(Value)));
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}
//д<><D0B4><EFBFBD><EFBFBD> <20><> װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::SetCharacterAttribute(uint32_t v)
{
    int n1, n2, n3;

    int num = SQGetTop(v);

    int CharAddr = *(int*)(0x1AB7CDC);
    if (num == 4)
    {
        SQGetInt(v, 2, &n1);
        SQGetInt(v, 3, &n2);
        SQGetInt(v, 4, &n3);

        int TValue = *(int*)(CharAddr + DNFTOOL::GetEquAddr(n2));
        int SValue = (TValue + n1);
        if (SValue < 0x400000)
            SQPushBool(v, false);
        else if (n1 != 0x8 && n1 != 0x1C && n1 != 0xF4)
            DNFTOOL::DNFEnCode(SValue, n3);
        else
            *(int*)SValue = n3;
        SQPushBool(v, true);
    }
    else if (num == 3)
    {
        SQGetInt(v, 2, &n1);
        SQGetInt(v, 3, &n2);

        int Value = (CharAddr + n1);
        DNFTOOL::DNFEnCode(Value, n2);
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }

    return 1;
}
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::GetTownIndex(uint32_t v)
{
    SQPushInt(v, DNFTOOL::GetHook(0x1A5E258, "0xAC+0xD4+"));
    return 1;
}
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::GetRegionIndex(uint32_t v)
{
    SQPushInt(v, *(int*)(DNFTOOL::GetHook(0x1A5E258, "0xAC+0xD8+")));
    return 1;
}
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD>
int squirrel::GetTownXpos(uint32_t v)
{
    SQPushInt(v, DNFTOOL::GetHook(0x1AB7CE0, "0x2BC+"));
    return 1;
}
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>Y<EFBFBD><59><EFBFBD><EFBFBD>
int squirrel::GetTownYpos(uint32_t v)
{
    SQPushInt(v, DNFTOOL::GetHook(0x1AB7CE0, "0x2C0+"));
    return 1;
}
//<2F><>ȡƣ<C8A1><C6A3>ֵ
int squirrel::GetFatigue(uint32_t v)
{
    int Type;

    int num = SQGetTop(v);
    if (num == 2)
    {
        SQGetInt(v, 2, &Type);

        switch (Type)
        {
        case 0:
            SQPushInt(v, DNFTOOL::DNFDeCode(0x1AB7E1C));
            break;
        case 1:
            SQPushInt(v, DNFTOOL::DNFDeCode(0x1AB7E10));
            break;
        default:
            SQPushBool(v,false);
            break;
        }
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>ֵ
int squirrel::GetExp(uint32_t v)
{
    int Type;

    int num = SQGetTop(v);
    if (num == 2)
    {
        SQGetInt(v, 2, &Type);

        switch (Type)
        {
        case 0:
            SQPushInt(v, DNFTOOL::DNFDeCode(DNFTOOL::GetHook(0x1AB7CDC, "0x3C4C+",1)));
            break;
        case 1:
            SQPushInt(v, DNFTOOL::DNFDeCode(DNFTOOL::GetHook(0x1AB7CDC, "0x3C40+",1)));
            break;
        default:
            SQPushBool(v, false);
            break;
        }
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}





//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::SendPackType(uint32_t v)
{
    int n1;
    int num = SQGetTop(v);
    if (num == 2)
    {
        SQGetInt(v, 2, &n1);
        _SendpacksType(*_SendClass, 0, n1);

        SQPushBool(v, true);
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}
//<2F><><EFBFBD><EFBFBD>Byte
int squirrel::SendPackByte(uint32_t v)
{
    int n1;
    int num = SQGetTop(v);
    if (num == 2)
    {
        SQGetInt(v, 2, &n1);
        _SendPacksByte(*_SendClass, 0, n1);
        SQPushBool(v, true);
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}
//<2F><><EFBFBD><EFBFBD>Word
int squirrel::SendPackWord(uint32_t v)
{
    int n1;
    int num = SQGetTop(v);
    if (num == 2)
    {
        SQGetInt(v, 2, &n1);
        _SendPacksWord(*_SendClass, 0, n1);
        SQPushBool(v, true);
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}
//<2F><><EFBFBD><EFBFBD>DWord
int squirrel::SendPackDWord(uint32_t v)
{
    int n1;
    int num = SQGetTop(v);
    if (num == 2)
    {
        SQGetInt(v, 2, &n1);
        _SendPacksDWord(*_SendClass, 0, n1);
        SQPushBool(v, true);
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}
//<2F><><EFBFBD><EFBFBD>wchar_t*  (ת<><D7AA>char*)
int squirrel::SendPackWChar(uint32_t v)
{
    wchar_t* n1;
    int num = SQGetTop(v);
    if (num == 2)
    {
        SQGetString(v, 2, &n1);
        //wchar_t* ת char*
        char* fname = DNFTOOL::wchar_tTochar(n1);
        _SendPacksChar(*_SendClass, 0, fname, strlen(fname));
        delete []fname;
        SQPushBool(v, true);
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}
//<2F><><EFBFBD><EFBFBD>
int squirrel::SendPack(uint32_t v)
{
    int num = SQGetTop(v);
    if (num == 1)
    {
        _SendPacks();
        SQPushBool(v, true);
    }
    else
    {
        SQPushString(v, L"parameter error", -1);
    }
    return 1;
}


//ȥ<><C8A5><EFBFBD><EFBFBD>
int squirrel::GoDungeon(uint32_t v)
{
    int n1 = 0;
    int n2 = 0;
    int n3 = 0;
    int n4 = 0;

    int num = SQGetTop(v);

    if (num == 2)
    {
        SQGetInt(v, 2, &n1);
    }
    else if (num == 5)
    {
        SQGetInt(v, 2, &n1);
        SQGetInt(v, 3, &n2);
        SQGetInt(v, 4, &n3);
        SQGetInt(v, 5, &n4);
    }
    else
    {
        SQPushBool(v, false);
        return 1;
    }

    _SendpacksType(*_SendClass, 0, 15);
    _SendPacks();

    _SendpacksType(*_SendClass, 0, 16);
    _SendPacksWord(*_SendClass, 0, n1);
    _SendPacksByte(*_SendClass, 0, n2);
    _SendPacksByte(*_SendClass, 0, n3);
    _SendPacksByte(*_SendClass, 0, n4);
    _SendPacks();

    SQPushBool(v, true);
    return 1;
}
//<2F>س<EFBFBD>
int squirrel::GoTown(uint32_t v)
{
    int num = SQGetTop(v);
    if (num == 1)
    {
        _SendpacksType(*_SendClass, 0, 0x2D);
        _SendPacks();
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
//<2F>ƶ<EFBFBD><C6B6><EFBFBD><EFBFBD><EFBFBD>
int squirrel::MoveTown(uint32_t v)
{
    int TownIndex;
    int ReIndex;
    int XPos;
    int YPos;
    int num = SQGetTop(v);
    if (num == 5)
    {
        SQGetInt(v, 2, &TownIndex);
        SQGetInt(v, 3, &ReIndex);
        SQGetInt(v, 4, &XPos);
        SQGetInt(v, 5, &YPos);

        _SendpacksType(*_SendClass, 0, 38);
        _SendPacksByte(*_SendClass, 0, TownIndex);
        _SendPacksByte(*_SendClass, 0, ReIndex);
        _SendPacksWord(*_SendClass, 0, XPos);
        _SendPacksWord(*_SendClass, 0, YPos);
        _SendPacksByte(*_SendClass, 0, 5);
        _SendPacksWord(*_SendClass, 0, 0);
        _SendPacksWord(*_SendClass, 0, 0);
        _SendPacks();

        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
//Ldofile
int squirrel::LDofile(uint32_t v)
{
    wchar_t* n1;

    int num = SQGetTop(v);

    if (num == 2)
    {
        SQGetString(v, 2, &n1);
        SQPopTop(v);
        /*
        size_t len = wcslen(n1) + 1;
        size_t converted = 0;
        char* CStr;
        CStr = (char*)malloc(len * sizeof(char));
        wcstombs_s(&converted, CStr, len, n1, _TRUNCATE);
        */

        squirrel::SQdofile(v, n1, false, false);
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }

    return 1;
}

//<2F>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD>
#if defined ADDRESS_API_SWITCH
//<2F><><EFBFBD>ڴ<EFBFBD>
int squirrel::LReadAddress(uint32_t v)
{
    //<2F>ڴ<EFBFBD><DAB4><EFBFBD>ַ int<6E><74>
    int Address;

    //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    int ParameterNum = SQGetTop(v);
    //1<><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ
    if (ParameterNum == 2)
    {
        //<2F><>ȡֵ<C8A1><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        int ParameterType = SQ_GetType(v, 2);

        switch (ParameterType)
        {
        case OT_INTEGER://int<6E><74><EFBFBD><EFBFBD>
        {
            //<2F><>ȡ<EFBFBD><C8A1>ַ
            SQGetInt(v, 2, &Address);
            int Value = *(int*)Address;
            SQPushInt(v, Value);
            return 1;
        }
        break;
        case OT_STRING://String<6E><67><EFBFBD><EFBFBD>
        {

        }
        break;
        }


        SQPushBool(v, true);
    }
    if (ParameterNum == 3)
    {
        //<2F><>ַ
        int Address;
        //ƫ<><C6AB>
        wchar_t* offset;

        SQGetInt(v, 2, &Address);
        SQGetString(v,3,&offset);

        int Value = DNFTOOL::GetHook(Address, DNFTOOL::wchar_tTochar(offset));
        SQPushInt(v, Value);
        return 1;
    }
    else
    {
        SQPushBool(v, false);
        return 1;
    }
    return 0;
}
//д<>ڴ<EFBFBD>
int squirrel::LWriteAddress(uint32_t v)
{
    //<2F>ڴ<EFBFBD><DAB4><EFBFBD>ַ int<6E><74>
    int Address;

    //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    int ParameterNum = SQGetTop(v);
    //1<><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ
    if (ParameterNum == 3)
    {
        //<2F><>ȡֵ<C8A1><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        int ParameterType = SQ_GetType(v, 2);
        
        switch (ParameterType)
        {
        case OT_INTEGER://int<6E><74><EFBFBD><EFBFBD>
        {
            //<2F><>ȡ<EFBFBD><C8A1>ַ
            SQGetInt(v, 2, &Address);
            //<2F><>ȡ<EFBFBD>޸ĵ<DEB8>ֵ
            int WriteValue;
            SQGetInt(v, 3, &WriteValue);

            *(int*)Address = WriteValue;
            SQPushBool(v, true);
            return 1;
        }
        break;
        case OT_STRING://String<6E><67><EFBFBD><EFBFBD>
        {
        }
        break;
        }


        SQPushBool(v, true);
    }
    if (ParameterNum == 4)
    {
        //<2F><>ַ
        int Address;
        //ƫ<><C6AB>
        wchar_t* offset;
        //<2F>޸<EFBFBD>ֵ
        int WriteValue;

        SQGetInt(v, 2, &Address);
        SQGetString(v, 3, &offset);
        SQGetInt(v, 4, &WriteValue);

        int SelectAddress = DNFTOOL::GetHook(Address, DNFTOOL::wchar_tTochar(offset),1);
        *(int*)SelectAddress = WriteValue;
    }
    else
    {
        SQPushBool(v, false);
        return 1;
    }
    return 0;
}
#endif

//Lcout
int squirrel::Lcout(uint32_t v)
{
    char* str = NULL;
    int type = NULL;
    int color = NULL;
    int num = SQGetTop(v);

    if (num == 2 || num == 3 || num == 4)
    {
        switch (num)
        {
        case 2:
            SQGetStringc(v, 2, &str);
            break;
        case 3:
            SQGetStringc(v, 2, &str);
            SQGetInt(v, 3, &type);
            break;
        case 4:
            SQGetStringc(v, 2, &str);
            SQGetInt(v, 3, &type);
            SQGetInt(v, 4, &color);
            break;
        }

        SQPopTop(v);

        DNFTOOL::GMNotice(str, type, color);

        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }

    return 1;
}
//<2F>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::NewWindows(uint32_t v)
{
    char* str = NULL;
    int type = NULL;
    int color = NULL;
    int num = SQGetTop(v);

    if (num == 2 || num == 3 || num == 4)
    {
        switch (num)
        {
        case 2:
            SQGetStringc(v, 2, &str);
            break;
        case 3:
            SQGetStringc(v, 2, &str);
            SQGetInt(v, 3, &type);
            break;
        case 4:
            SQGetStringc(v, 2, &str);
            SQGetInt(v, 3, &type);
            SQGetInt(v, 4, &color);
            break;
        }
        
        DNFTOOL::WindowsNotice(str, type, color);

        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }

    return 1;
}
//<2F><><EFBFBD><EFBFBD>UI<55><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::SetSlot(uint32_t v)
{
    int Type = NULL;
    int Index = NULL;
    int Xpos = NULL;
    int Ypos = NULL;


    int OneAddr = NULL;
    int* xpos = NULL;
    int* ypos = NULL;

    int ParameterNum = SQGetTop(v);

    if (ParameterNum == 5)
    {
        SQGetInt(v, 2, &Type);
        SQGetInt(v, 3, &Index);
        SQGetInt(v, 4, &Xpos);
        SQGetInt(v, 5, &Ypos);

        SQPopTop(v);

        switch (Type)
        {
        case 0://<2F><>չ<EFBFBD><D5B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            OneAddr = *(int*)0x1ADE0CC;
            OneAddr = *(int*)(OneAddr + (0x60 + (4 * Index)));
            xpos = (int*)(OneAddr + (0x14));
            ypos = (int*)(OneAddr + (0x18));
            *xpos = Xpos;
            *ypos = Ypos;
            break;
        case 1://<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            OneAddr = *(int*)0x1ADE0CC;
            OneAddr = *(int*)(OneAddr + (0x30 + (4 * Index)));
            xpos = (int*)(OneAddr + (0x14));
            ypos = (int*)(OneAddr + (0x18));
            *xpos = Xpos;
            *ypos = Ypos;
            break;
        case 2://<2F>л<EFBFBD><D0BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            OneAddr = *(int*)0x1ADE0CC;
            OneAddr = *(int*)(OneAddr + (0x124 + (4 * Index)));
            xpos = (int*)(OneAddr + (0x14));
            ypos = (int*)(OneAddr + (0x18));
            *xpos = Xpos;
            *ypos = Ypos;
            break;
        case 3://<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>
            OneAddr = *(int*)0x1ADE0CC;
            OneAddr = *(int*)(OneAddr + (0x18 + (4 * Index)));
            xpos = (int*)(OneAddr + (0x14));
            ypos = (int*)(OneAddr + (0x18));
            *xpos = Xpos;
            *ypos = Ypos;
            break;
        case 4://<2F><><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD>չ<EFBFBD><D5B9><EFBFBD><EFBFBD>
            OneAddr = *(int*)0x1ADE0CC;
            OneAddr = *(int*)(OneAddr + 0xC);
            OneAddr = *(int*)(OneAddr + 0x4);
            OneAddr = *(int*)(OneAddr + 0x0);
            OneAddr = *(int*)(OneAddr + 0x34);
            OneAddr = *(int*)(OneAddr + 0x4);
            OneAddr = *(int*)(OneAddr + 0x28);
            OneAddr = *(int*)(OneAddr + 0x4);

            xpos = (int*)(OneAddr + (0x394));
            ypos = (int*)(OneAddr + (0x398));
            *xpos = Xpos;
            *ypos = Ypos;
            break;
        case 5://<2F><><EFBFBD>Լ<EFBFBD><D4BC>ܼ<EFBFBD><DCBC><EFBFBD><EFBFBD><EFBFBD>
            OneAddr = *(int*)(0x16E95AC + 0x400000);
            OneAddr = *(int*)(OneAddr + 0x68);
            OneAddr = *(int*)(OneAddr + 0x0);
            OneAddr = *(int*)(OneAddr + 0x8);
            OneAddr = *(int*)(OneAddr + 0x64);
            OneAddr = *(int*)(OneAddr + 0x0);
            OneAddr = *(int*)(OneAddr + 0x1C);
            OneAddr = *(int*)(OneAddr + 0x0);

            xpos = (int*)(OneAddr + (0x1794));
            ypos = (int*)(OneAddr + (0x1798));
            *xpos = Xpos;
            *ypos = Ypos;
            break;
        case 6://<2F>˵<EFBFBD><CBB5><EFBFBD>
            OneAddr = *(int*)0x1ADE0CC;
            OneAddr = *(int*)(OneAddr + (0x84 + (4 * Index)));
            xpos = (int*)(OneAddr + (0x14));
            ypos = (int*)(OneAddr + (0x18));
            *xpos = Xpos;
            *ypos = Ypos;
            break;
        }

        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }

    return 1;
}


//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ
#if defined ITEMRARITY
std::map< int, int>ItemColorMap;
int squirrel::RegisterItemColor_STL(uint32_t v)
{
    int ItemID, Clolr;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 3)
    {
        SQGetInt(v, 2, &ItemID);
        SQGetInt(v, 3, &Clolr);
        ItemColorMap[ItemID] = Clolr;
    }
    return 0;
}
#endif

//<2F><>ͨ STL
#if defined NORMAL_STL
//<2F><>ѯ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::Get_STL(uint32_t v)
{
    char* Name;
    int Type;
    int Idx;
    int ParameterNum = SQGetTop(v);

    if (ParameterNum == 4)
    {
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetStringc(v, 2, &Name);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetInt(v, 3, &Type);
        //<2F><>ȡ<EFBFBD><C8A1>ѯ<EFBFBD><D1AF>λ
        SQGetInt(v, 4, &Idx);
        if (STL::Check_STL(Name, Type) == 0)
        {
            SQPushBool(v, false);
            return 1;
        }
        switch (Type)
        {
        case 0:
            SQPushInt(v, Int_STL[Name]);
            break;
        case 1:
            SQPushFloat(v, Float_STL[Name]);
            break;
        case 2:
            SQPushStringc(v, String_STL[Name].c_str(), strlen(String_STL[Name].c_str()));
            break;
        case 3:
            SQPushBool(v, Bool_STL[Name]);
            break;
        case 4:
            SQPushInt(v, STL::GetIntArr_STL(Name, Idx));
            break;
        case 5:
            SQPushFloat(v, STL::GetFloatArr_STL(Name, Idx));
            break;
        case 6:
            SQPushStringc(v, STL::GetStringArr_STL(Name, Idx).c_str(), strlen(STL::GetStringArr_STL(Name, Idx).c_str()));
            break;
        case 7:
            SQPushBool(v, STL::GetBoolArr_STL(Name, Idx));
            break;
        default:
            return 0;
            break;
        }
        return 1;
    }
    else
    {
        return 0;
    }
}
//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::Set_STL(uint32_t v)
{
    char* Name;
    int Type;
    int Idx;
    int ParameterNum = SQGetTop(v);

    int IntValue;
    FLOAT FloatValue;
    char* StrValue;
    BOOL BoolValue;
    if (ParameterNum == 5)
    {
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetStringc(v, 2, &Name);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetInt(v, 3, &Type);
        //<2F><>ȡ<EFBFBD>޸ĺ<DEB8>λ
        SQGetInt(v, 4, &Idx);

        //<2F><>ȡ<EFBFBD>޸<EFBFBD>ֵ
        switch (Type)
        {
        case 0:
            SQGetInt(v, 5, &IntValue);
            Int_STL[Name] = IntValue;
            break;
        case 1:
            SQGetFloat(v, 5, &FloatValue);
            Float_STL[Name] = FloatValue;
            break;
        case 2:
            SQGetStringc(v, 5, &StrValue);
            String_STL[Name] = StrValue;
            break;
        case 3:
            SQGetBool(v, 5, &BoolValue);
            Bool_STL[Name] = BoolValue;
            break;
        case 4:
            SQGetInt(v, 5, &IntValue);
            STL::SetIntArr_STL(Name,Idx, IntValue);
            break;
        case 5:
            SQGetFloat(v, 5, &FloatValue);
            STL::SetFloatArr_STL(Name, Idx, FloatValue);
            break;
        case 6:
            SQGetStringc(v, 5, &StrValue);
            STL::SetStringArr_STL(Name, Idx, StrValue);
            break;
        case 7:
            SQGetBool(v, 5, &BoolValue);
            STL::SetBoolArr_STL(Name, Idx, BoolValue);
            break;
        default:
            SQPushBool(v, false);
            return 1;
            break;
        }
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
//new <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::New_STL(uint32_t v)
{
    char* Name;
    int Type;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 3)
    {
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetStringc(v, 2, &Name);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetInt(v, 3, &Type);
        if (STL::Check_STL(Name, Type) != 0)
        {
            SQPushBool(v, false);
            return 1;
        }
        switch (Type)
        {
        case 0:
                Int_STL[Name] = 0;//<2F><>Int<6E><74><EFBFBD><EFBFBD>
            break;
        case 1:
                Float_STL[Name] = 0.0;//<2F><>Float<61><74><EFBFBD><EFBFBD>
            break;
        case 2:
                String_STL[Name] = "zero";//<2F><>String<6E><67><EFBFBD><EFBFBD>
            break;
        case 3:
                Bool_STL[Name] = false;//<2F><>Bool<6F><6C><EFBFBD><EFBFBD>
            break;
        case 4:
                STL::BuildIntArr_STL(Name);//Int<6E><74><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            break;
        case 5:
                STL::BuildFloatArr_STL(Name);//Float<61><74><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            break;
        case 6:
                STL::BuildStringArr_STL(Name);//String<6E><67><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            break;
        case 7:
                STL::BuildBoolArr_STL(Name);//Bool<6F><6C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            break;
        default:
            SQPushBool(v, false);
            return 1;
            break;
        }
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
#endif

//ʱ<><CAB1> STL
#if defined TIME_STL
extern  std::map<wchar_t*, TimeSTLStruct>Time_STL;
//ʱ<><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::Timer_STL(uint32_t v)
{
    wchar_t* Name;
    int MaxTime;
    int Type;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 4)
    {
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetString(v, 2, &Name);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>ֵ
        SQGetInt(v, 3, &MaxTime);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetInt(v, 4, &Type);

        switch (Type)
        {
        case 0: //<2F><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        {
            if (Time_STL.count(Name) == 1)//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ͷ<EFBFBD><CDB7><EFBFBD> <20><><EFBFBD>򴴽<EFBFBD>
            {
                SQPushBool(v, false);
                return 1;
            }
            TimeSTLStruct pack;//<2F><><EFBFBD><EFBFBD><EFBFBD>ṹ<EFBFBD><E1B9B9>
            pack.Name = Name;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>
            pack.Max_Time = MaxTime;//<2F><><EFBFBD><EFBFBD> <20><>ʶʱ<CAB6><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>
            pack.Now_Time = 0;//<2F><><EFBFBD><EFBFBD> <20><>ʶʱ<CAB6><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǰʱ<C7B0><CAB1>
            pack.Static_Time = 0;//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ʱ<EFBFBD>䣨<EFBFBD><E4A3A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㣩
            Time_STL[Name] = pack;//<2F><><EFBFBD>ð<EFBFBD><C3B0><EFBFBD><EFBFBD><EFBFBD>ʶʱ<CAB6><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        }
        break;
        case 1: //<2F><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        {
            if (Time_STL[Name].Static_Time != 0)break;//ֻ<>л<EFBFBD><D0BB><EFBFBD>ʱ<EFBFBD><CAB1>Ϊ0<CEAA><30>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ǰʱ<C7B0><CAB1><EFBFBD><EFBFBD>׼
            Time_STL[Name].Static_Time =  clock();
           
        }
        break;
        case 2://<2F><>ȡʱ<C8A1><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        {
            int Time = clock() - Time_STL[Name].Static_Time + Time_STL[Name].Now_Time;
            if(Time_STL[Name].Static_Time + Time_STL[Name].Now_Time == 0)SQPushBool(v, false);//û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0
            else if (Time <= Time_STL[Name].Max_Time)SQPushInt(v, Time);//<2F><><EFBFBD>ص<EFBFBD>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>
            else SQPushInt(v, (int)Time_STL[Name].Max_Time);
            return 1;
        }
        break;
        case 3://<2F><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        {
            Time_STL[Name].Static_Time = 0;
        }
        break;
        case 4://<2F><>ͣʱ<CDA3><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        {
            Time_STL[Name].Now_Time += clock() - Time_STL[Name].Static_Time;
            Time_STL[Name].Static_Time = 0;
        }
        break;
        case 5://<2F><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        {
            if (Time_STL[Name].Static_Time != 0)break;//ֻ<>л<EFBFBD><D0BB><EFBFBD>ʱ<EFBFBD><CAB1>Ϊ0<CEAA><30>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ǰʱ<C7B0><CAB1><EFBFBD><EFBFBD>׼
            Time_STL[Name].Static_Time =  clock();
        }
        break;
        case 6://<2F><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        {
            Time_STL.erase(Name);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        }
        break;
        default:
        {
            SQPushBool(v, false);
            return 1;
        }
        break;
        }
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
#endif

//<2F><><EFBFBD><EFBFBD>
#if defined DRAGONBOX_SWITCH
//ͬ<><CDAC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݰ<EFBFBD>
int squirrel::Sync_Dragon_Pack(uint32_t v)
{
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 1)
    {
        STL::SyncDargonBox_STL();
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
//<2F><>ȡ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݰ<EFBFBD>
int squirrel::Get_Dragon_Pack(uint32_t v)
{
    int Type;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 2)
    {
        SQGetInt(v, 2, &Type);

        int Pack_Value;
        //<2F><><EFBFBD><EFBFBD>ģʽ
        Pack_Value = STL::SelectDargonBox_STL(Type);
        SQPushInt(v, Pack_Value);

        return 1;
    }
    if (ParameterNum == 3)
    {
        int Index;
        SQGetInt(v, 2, &Type);
        SQGetInt(v, 3, &Index);

        int Pack_Value;
        Pack_Value = STL::SelectDargonBox_STL(Type, Index);

        SQPushInt(v, Pack_Value);
        return 1;
    }
    else
    {
        SQPushBool(v, false);
    }

    return 1;
}
//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int squirrel::Redom_Dragon(uint32_t v)
{
    int Type;
    int Port;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 3)
    {
        SQGetInt(v, 2, &Type);
        SQGetInt(v, 3, &Port);
        rapidjson::StringBuffer buffer;
        rapidjson::Writer<rapidjson::StringBuffer> writer(buffer);

        writer.StartObject();
        writer.Key("op");
        writer.Int(Type);
        writer.EndObject();

        char* str = (char*)buffer.GetString();

        _SendpacksType(*_SendClass, 0, Port);
        _SendPacksChar(*_SendClass, 0, str, strlen(str));
        _SendPacks();
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;

}
//<2F><>ȡ <20><><EFBFBD><EFBFBD> ģʽ
int squirrel::Get_DragonModel(uint32_t v)
{
    int Type;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 2)
    {
        SQGetInt(v, 2, &Type);
        int Model = STL::SelectDargonModel_STL(Type);//<2F><><EFBFBD><EFBFBD>ģʽ
        SQPushInt(v, Model);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ģʽ
int squirrel::Set_DragonModel(uint32_t v)
{
    int Model;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 2)
    {
        SQGetInt(v, 2, &Model);
        STL::DrawDargonModel_STL(Model);//<2F><><EFBFBD><EFBFBD>ģʽ
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    return 1;
}
#endif


//Json STL
#if defined JSON_STL
//<2F><><EFBFBD><EFBFBD>Json<6F><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
std::map<std::string, std::string>Json_STL;
//Json<6F><6E><EFBFBD><EFBFBD>
int squirrel::Jsoner_STL(uint32_t v)
{
    wchar_t* WName;
    int Type;
    int ParameterNum = SQGetTop(v);
    if (ParameterNum == 3)
    {
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetString(v, 2, &WName);
        char* CName = DNFTOOL::wchar_tTochar(WName);
        std::string Name = CName;
        delete []CName;
        //<2F><>ȡֵ<C8A1><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        int ValueType = SQ_GetType(v, 3);

        switch (ValueType)
        {
        case OT_INTEGER://int<6E><74><EFBFBD><EFBFBD>
        {
            //<2F><>ȡģʽ
            SQGetInt(v, 3, &Type);

            switch (Type)
            {
            case 0://<2F><><EFBFBD><EFBFBD>
            {
                if (Json_STL.count(Name) == 0)//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>hash<73><68><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ʹ<EFBFBD><CDB4><EFBFBD>
                {
                    //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ hash <20><> Json<6F><6E><EFBFBD><EFBFBD>
                    std::string str = "";
                    Json_STL[Name] = str;
                }
                else
                {
                    SQPushBool(v, false);
                    return 1;
                }
                break;
            }
            case 1://<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>
            {
                wchar_t* buffer = DNFTOOL::charTowchar_t((char*)Json_STL[Name].c_str());
                SQPushString(v, buffer, wcslen(buffer));//<2F><><EFBFBD><EFBFBD>nut
                delete []buffer;
                return 1;
                break;
            }
            case 2://<2F><><EFBFBD><EFBFBD>
                Json_STL.erase(Name);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
                break;
            }
        }
        break;
        case OT_STRING://String<6E><67><EFBFBD><EFBFBD>
        {
            
            if (Json_STL.count(Name) == 0)//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>hash<73><68><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ͷ<EFBFBD><CDB7><EFBFBD>
            {
                SQPushBool(v,false);
                return 1;
            }
            
            wchar_t* GKey;
            //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            SQGetString(v, 3, &GKey);
            char* key = DNFTOOL::SquirrelU2W(GKey);
            //char* key = DNFTOOL::wchar_tTochar(GKey);
            rapidjson::Document Dom;
            Dom.Parse(Json_STL[Name].c_str());//<2F><><EFBFBD><EFBFBD> <20>ַ<EFBFBD><D6B7><EFBFBD>

            std::vector<std::string> Data;
            DNFTOOL::Split(key, Data);
            delete []key;
            rapidjson::Value Vbuffer;
            for (unsigned int i = 0; i < Data.size(); i++)
            {
                if (i == 0)
                {
                    Vbuffer = Dom[Data[i].c_str()];
                }
                else if (DNFTOOL::isNum(Data[i].c_str()) != 0)
                {
                    if(Vbuffer.Empty() == 0 && Vbuffer.Size() > atoi(Data[i].c_str()))Vbuffer = Vbuffer[atoi(Data[i].c_str())];
                    else
                    {
                        SQPushBool(v, false);
                        return 1;
                    }
                }
                else
                {
                    if (Vbuffer.Empty() == 0)Vbuffer = Vbuffer[Data[i].c_str()];
                }

            }

            if (Vbuffer.IsBool())
            {
                SQPushBool(v, Vbuffer.GetBool());
                return 1;
            }
            else if (Vbuffer.Empty() == false || (Vbuffer.IsInt() && Vbuffer.GetInt()==0))
            {
                if (Vbuffer.IsString())
                {
                    wchar_t* buffer = DNFTOOL::charTowchar_t((char*)Vbuffer.GetString());
                    SQPushString(v, buffer, wcslen(buffer));
                    delete []buffer;
                    return 1;
                }
                if (Vbuffer.IsInt())
                {
                    SQPushInt(v, Vbuffer.GetInt());
                    return 1;
                }
                if (Vbuffer.IsFloat())
                {
                    SQPushFloat(v, Vbuffer.GetFloat());
                    return 1;
                }
            }
            else
            {
                SQPushBool(v, false);
                return 1;
            }
        }
            break;
        }
        SQPushBool(v, true);
    }
    else if (ParameterNum == 4)
    {
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetString(v, 2, &WName);
        char* CName = DNFTOOL::wchar_tTochar(WName);
        std::string Name = CName;
        delete []CName;
        //<2F><>ȡKey <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        wchar_t* keybuffer;
        SQGetString(v, 3, &keybuffer);
        //ת<><D7AA>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>Key
        char* key = DNFTOOL::wchar_tTochar(keybuffer);
              
        //<2F><><EFBFBD><EFBFBD>json dom
        rapidjson::Document Dom;
        Dom.Parse(Json_STL[Name].c_str());//<2F><><EFBFBD><EFBFBD> <20>ַ<EFBFBD><D6B7><EFBFBD>
        if(Json_STL[Name].length() == 0 )Dom.SetObject();//<2F><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4>ʼ<EFBFBD><CABC><EFBFBD>ͳ<EFBFBD>ʼ<EFBFBD><CABC>һ<EFBFBD><D2BB>

        rapidjson::Value BB;

        //<2F><>ȡֵ<C8A1><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        int ValueType = SQ_GetType(v, 4);
        //<2F>ж<EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>
        switch (ValueType)
        {
        case OT_INTEGER://int<6E><74><EFBFBD><EFBFBD>
        {
            int Value;
            SQGetInt(v, 4, &Value);
            BB.SetInt(Value);    
            break;
        }
        case OT_FLOAT://float<61><74><EFBFBD><EFBFBD>
        {
            FLOAT Value;
            SQGetFloat(v, 4, &Value);
            BB.SetFloat(Value);
            break;
        }
        case OT_BOOL://bool<6F><6C><EFBFBD><EFBFBD>
        {
            BOOL Value;
            SQGetBool(v, 4, &Value);
            BB.SetBool(Value);
            break;
        }
        case OT_STRING://string<6E><67><EFBFBD><EFBFBD>
        {
            wchar_t* Value;
            SQGetString(v, 4, &Value);
            char* str = DNFTOOL::wchar_tTochar(Value);
            BB.SetString(rapidjson::StringRef(str));
            delete []str;
            break;
        }
        default:
            break;
        }

        if (Dom[key].IsNull())//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵΪ<D6B5>վ<EFBFBD><D5BE><EFBFBD><EFBFBD><EFBFBD>
        {
            Dom.AddMember(rapidjson::StringRef(key), BB, Dom.GetAllocator());
        }
        else//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>
        {
            Dom[key] = BB;
        }

        rapidjson::StringBuffer jsonBuffer;
        rapidjson::Writer<rapidjson::StringBuffer> writer(jsonBuffer);
        Dom.Accept(writer);
        Json_STL[Name] = jsonBuffer.GetString();
        SQPushBool(v, true);

        delete []key;
    }
    else if (ParameterNum == 5)
    {
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetString(v, 2, &WName);
        char* CName = DNFTOOL::wchar_tTochar(WName);
        std::string Name = CName;

        //<2F><>ȡStr <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        wchar_t* str;
        SQGetString(v, 3, &str);
        //ת<><D7AA>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        char* Jso = DNFTOOL::wchar_tTochar(str);

        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>
        int Type;
        SQGetInt(v, 4, &Type);
        switch (Type)
        {
        case 0:
            Json_STL[Name] = Jso;
            break;
        case 1:
            if(Json_STL[Name].empty())Json_STL[Name] = Jso;
            break;
        default:
            break;
        }
        delete []CName;
        delete []Jso;
    }
    else
    {
        SQPushBool(v, false);
    }
    
    return 1;
}
#endif



//<2F>ַ<EFBFBD> STL
#if defined CODE_STL
extern  std::vector< DrawCodestruct>DrawCodeT1_STL;
extern  std::vector< DrawCodestruct>DrawCodeT2_STL;
extern  std::vector< DrawCodestruct>DrawCodeT3_STL;
int squirrel::Coder_STL(uint32_t v)
{
    wchar_t* Str;
    int XPos;
    int YPos;
    int Color;
    int Type;
    int ParameterNum = SQGetTop(v);
    
    if (ParameterNum == 6)
    {
        //<2F><>ȡ<EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        SQGetString(v, 2, &Str);
        //<2F><>ȡX<C8A1><58><EFBFBD><EFBFBD>
        SQGetInt(v, 3, &XPos);
        //<2F><>ȡX<C8A1><58><EFBFBD><EFBFBD>
        SQGetInt(v, 4, &YPos);
        //<2F><>ȡ<EFBFBD><C8A1>ɫ
        SQGetInt(v, 5, &Color);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>
        SQGetInt(v, 6, &Type);
        
        //<2F><><EFBFBD><EFBFBD> Wchar_t  ת<><D7AA>Ϊ  Unicode
        char* OutPutText = DNFTOOL::SquirrelU2W(Str);
        std::string str = OutPutText;
        //wchar_t * str = DNFTOOL::char2wchar(OutPutText);
        delete []OutPutText;
        //delete Str;

        DrawCodestruct Buffer;
        Buffer.str = str;
        Buffer.Xpos = XPos;
        Buffer.Ypos = YPos;
        Buffer.Color = Color;

        switch (Type)
        {
        case 0:
        {
            DrawCodeT1_STL.push_back(Buffer);
        }
        break;
        case 1:
        {
            DrawCodeT2_STL.push_back(Buffer);
        }
        break;
        case 2:
        {
            DrawCodeT3_STL.push_back(Buffer);
        }
        break;
        }
        
        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
    }
    
    return 1;
}
#endif


//<2F><><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>
#ifdef DRAW_CODE
typedef DWORD(_fastcall _FontInit)(DWORD thisc, DWORD Seat);
static _FontInit* sub_11BE9A0 = (_FontInit*)0x11BE9A0;
static _FontInit* sub_11BE980 = (_FontInit*)0x11BE980;
typedef DWORD(_fastcall _BFontInit)(DWORD thisc, DWORD Seat);
static _BFontInit* sub_1206570 = (_BFontInit*)0x1206570;
typedef DWORD(_fastcall _FontC)(DWORD thisc, DWORD Seat, DWORD Font);
static _FontC* sub_1206550 = (_FontC*)0x1206550;
static DrawCode NewDrawCodeF = (DrawCode)0x01206BD0;

int squirrel::sq_DrawCode(uint32_t v)
{
    wchar_t* Str;
    int XPos;
    int YPos;
    int Color;
    int Type;
    int Stroke;

    int ParameterNum = SQGetTop(v);

    if (ParameterNum == 4)
    {
        Color = 0xfffffffff;
        Type = 1;
        Stroke = 0;

        SQPushBool(v, true);
    }
    else if (ParameterNum == 5)
    {
        //<2F><>ȡ<EFBFBD><C8A1>ɫ
        SQGetInt(v, 5, &Color);
        Type = 1;
        Stroke = 0;

        SQPushBool(v, true);
    }
    else if (ParameterNum == 6)
    {
        //<2F><>ȡ<EFBFBD><C8A1>ɫ
        SQGetInt(v, 5, &Color);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>
        SQGetInt(v, 6, &Type);
        Stroke = 0;

        SQPushBool(v, true);
    }
    else if (ParameterNum == 7)
    {
        //<2F><>ȡ<EFBFBD><C8A1>ɫ
        SQGetInt(v, 5, &Color);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>
        SQGetInt(v, 6, &Type);
        //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>
        SQGetInt(v, 7, &Stroke);

        SQPushBool(v, true);
    }
    else
    {
        SQPushBool(v, false);
        return 1;
    }

    //<2F><>ȡ<EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    SQGetString(v, 2, &Str);
    //<2F><>ȡX<C8A1><58><EFBFBD><EFBFBD>
    SQGetInt(v, 3, &XPos);
    //<2F><>ȡX<C8A1><58><EFBFBD><EFBFBD>
    SQGetInt(v, 4, &YPos);
    //<2F><><EFBFBD><EFBFBD> Wchar_t  ת<><D7AA>Ϊ  Unicode
    char* OutPutText = DNFTOOL::SquirrelU2W(Str);
    //תΪ<D7AA><CEAA>ȷ<EFBFBD><C8B7>Unicode<64>ַ<EFBFBD>
    wchar_t* str = DNFTOOL::char2wchar(OutPutText);

    //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    unsigned char* font = new unsigned char[1000];
    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>
    sub_11BE9A0((DWORD)font, 0);
    sub_11BE980((DWORD)font, 0);
    //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
    font[1] = Stroke;

    int FontObj;

    switch (Type)
    {
    case 1:
        FontObj = *(int*)0x1B468CC;
        break;
    case 2:
        FontObj = *(int*)0x1B468DC;
        break;
    case 3:
        FontObj = *(int*)0x1B468D4;
        break;
    default:
        FontObj = *(int*)0x1B468CC;
        break;
    }

    //<2F><><EFBFBD><EFBFBD>
    *(int*)((int)font + 8) = FontObj;

    //<2F>õ<EFBFBD><C3B5><EFBFBD><EFBFBD>ƾ<EFBFBD><C6BE><EFBFBD>
    DWORD base = *(int*)0x1B45B94;
    //<2F><><EFBFBD>ñ<EFBFBD>
    sub_1206550(base, 0, (DWORD)font);
    //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    NewDrawCodeF(base, 0, XPos, YPos, Color, (int)str);
    //ȡ<><C8A1><EFBFBD><EFBFBD>
    sub_1206570(base, 0);


    delete[]OutPutText;
    delete[]str;
    delete[]font;
    return 1;
}

#endif 





typedef int(_Sq_Err)(uint32_t v);
static _Sq_Err* Sq_Err = (_Sq_Err*)0x13542F0;

//<2F><>ȡSquirrel v <20><>ַ
inline uint32_t GetSqVm()
{
    return *(uint32_t*)0x1AF3544;
}
//ע<><D7A2> Nut API
void squirrel::RegisterNutApi(const wchar_t* funcName, void* funcAddr, uint32_t v = NULL)
{
    if (v == NULL)
        v = GetSqVm();
    SQPushRootTable(v);
    SQPushString(v, funcName, -1);
    RealSqNewClosure(v, funcAddr, 0);
    SQNewSlot(v, -3, false);
    SQPopTop(v);
}

void squirrel::R_Register_Nut()
{
    RegisterNutApi(L"L_sq_Test", squirrel::sq_Test);
    RegisterNutApi(L"L_Sq_Err", Sq_Err);

    RegisterNutApi(L"L_Sq_GetImg", sq_GetImg);
    RegisterNutApi(L"L_Sq_DrawItem", sq_DrawItem);

    RegisterNutApi(L"L_Sq_GetObjectAddress", GetObjectAddress);
    RegisterNutApi(L"L_Sq_GetObjectName", GetObjectName);
    RegisterNutApi(L"L_Sq_GetObjectLevel", GetObjectLevel);


    //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>鿴 <20>޸<EFBFBD> <20><><EFBFBD><EFBFBD>
#if defined CHRATRBT_SWITCH
    RegisterNutApi(L"L_sq_GetCharacterAttribute", squirrel::GetCharacterAttribute);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_sq_SetCharacterAttribute", squirrel::SetCharacterAttribute);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
#endif

#if defined TOWN_SWITCH
    RegisterNutApi(L"L_sq_GetTownIndex", squirrel::GetTownIndex);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_sq_GetRegionIndex", squirrel::GetRegionIndex);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_sq_GetTownXpos", squirrel::GetTownXpos);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_sq_GetTownYpos", squirrel::GetTownYpos);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>Y<EFBFBD><59><EFBFBD><EFBFBD>
#endif

#if defined CHRINFO_SWITCH
    RegisterNutApi(L"L_sq_GetFatigue", squirrel::GetFatigue);//<2F><>ȡƣ<C8A1><C6A3>ֵ
    RegisterNutApi(L"L_sq_GetExp", squirrel::GetExp);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>ֵ
#endif

#if defined SEND_PACK_SWITCH
    RegisterNutApi(L"L_sq_SendPackType", squirrel::SendPackType);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_sq_SendPackByte", squirrel::SendPackByte);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Byte
    RegisterNutApi(L"L_sq_SendPackWord", squirrel::SendPackWord);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Word
    RegisterNutApi(L"L_sq_SendPackDWord", squirrel::SendPackDWord);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DWord
    RegisterNutApi(L"L_sq_SendPackWChar", squirrel::SendPackWChar);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DWord
    RegisterNutApi(L"L_sq_SendPack", squirrel::SendPack);//<2F><><EFBFBD><EFBFBD>
#if defined SEND_API_SWITCH
    RegisterNutApi(L"L_sq_GoDungeon", squirrel::GoDungeon);//ȥ<><C8A5><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_sq_GoTown", squirrel::GoTown);//ȥ<><C8A5><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_sq_MoveTown", squirrel::MoveTown);//ȥ<><C8A5><EFBFBD><EFBFBD>
#endif
#endif


#ifdef DRAW_CODE
    RegisterNutApi(L"L_sq_DrawCode", squirrel::sq_DrawCode);//<2F><><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>
#endif

#if defined DOFILE_API_SWITCH
    RegisterNutApi(L"L_sq_Dofile", squirrel::LDofile);//<2F><><EFBFBD>ܶ<EFBFBD>ȡ
#endif

#if defined ADDRESS_API_SWITCH
    RegisterNutApi(L"L_sq_RA", squirrel::LReadAddress);//<2F><><EFBFBD>ڴ<EFBFBD>
    RegisterNutApi(L"L_sq_WA", squirrel::LWriteAddress);//д<>ڴ<EFBFBD>
#endif

#if defined LCOUT_API_SWITCH
    RegisterNutApi(L"L_cout", squirrel::Lcout);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    RegisterNutApi(L"Sout", squirrel::Sout);//<2F><><EFBFBD><EFBFBD>
#endif

#if defined NEW_WINDOW_API_SWITCH
    RegisterNutApi(L"L_NewWindows", squirrel::NewWindows);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
#endif

#if defined SET_SLOT_API_SWITCH
    RegisterNutApi(L"L_SetSlot", squirrel::SetSlot);//<2F><><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD>
#endif

    //<2F><>ͨ STL
#if defined NORMAL_STL
    RegisterNutApi(L"L_New_STL", squirrel::New_STL);//<2F>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_Set_STL", squirrel::Set_STL);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    RegisterNutApi(L"L_Get_STL", squirrel::Get_STL);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>
#endif

    //ʱ<><CAB1> STL
#if defined TIME_STL
    RegisterNutApi(L"L_Timer_STL", squirrel::Timer_STL);//ʱ<><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
#endif

    //Json STL
#if defined JSON_STL
    RegisterNutApi(L"L_Json_STL", squirrel::Jsoner_STL);//Json<6F><6E><EFBFBD><EFBFBD>
#endif

    //<2F>ַ<EFBFBD> STL
#if defined CODE_STL
    RegisterNutApi(L"L_Code_STL", squirrel::Coder_STL);//<2F>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>
#endif


#ifdef ITEMRARITY
    RegisterNutApi(L"L_RegisterItemColor_STL", squirrel::RegisterItemColor_STL);//ע<><D7A2>Item<65><6D>ɫ
#endif

    //<2F><><EFBFBD><EFBFBD>
#if defined DRAGONBOX_SWITCH
    //RegisterNutApi(L"L_Get_DragonModel", squirrel::Get_DragonModel);//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>ģʽ
    //RegisterNutApi(L"L_Set_DragonModel", squirrel::Set_DragonModel);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģʽ
    //RegisterNutApi(L"L_Redom_Dragon", squirrel::Redom_Dragon);//<2F>齱
    //RegisterNutApi(L"L_Get_Dragon_Pack", squirrel::Get_Dragon_Pack);//<2F><>ѯ<EFBFBD><D1AF><EFBFBD>а<EFBFBD>
    //RegisterNutApi(L"L_Sync_Dragon_Pack", squirrel::Sync_Dragon_Pack);//ͬ<><CDAC><EFBFBD><EFBFBD><EFBFBD>а<EFBFBD>
#endif
}

//<2F>߳<EFBFBD>ѭ<EFBFBD><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Sqr<71>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>
void squirrel::SqrCallBackFunc()
{
    static int SqrCallBackFuncTimer = clock();
    int NowTime = clock();
    if ((NowTime - SqrCallBackFuncTimer) >= 2000)
    {
        uint32_t v = GetSqVm();
        DWORD Time = clock();
        DWORD VmTop = SQGetTop(v);
        //std::cout << "stack: " << VmTop << std::endl;
        SQPushRootTable(v);
        SQPushString(v, L"Lenheart", -1);
        SQ_Get(v, -2);
        SQPushRootTable(v);
        SQPushInt(v, VmTop);
        SQ_Call(v, 2, 0, 1);
        SQPop(v, 2);

        SqrCallBackFuncTimer = NowTime;
    }

}


void squirrel::InitGameScript()
{
    uint32_t v = GetSqVm();



#ifdef SELL
    SQPushRootTable(v);
    SQPushString(v, L"L_sq_Dofile", -1);
    SQ_Get(v, -2);
    SQPushRootTable(v);
    SQPushString(v, L"licbylist.dll", -1);
    SQ_Call(v, 2, 0, 1);
    SQPop(v, 2);
#else
    SQPushRootTable(v);
    SQPushString(v, L"dofile", -1);
    SQ_Get(v, -2);
    SQPushRootTable(v);
    SQPushString(v, L"sqr/DofileList.nut", -1);
    SQ_Call(v, 2, 0, 1);
    SQPop(v, 2);
#endif 

}