Как подключить и использовать LUA-скрипты в своих приложениях написанных на C++Builder (6)

class TLua
{
lua_State*lua;
bool isowner;
public:
TLua()
     {
     lua=luaL_newstate();
     isowner=true;
     if(lua==NULL)
          {
          lua=NULL;
          throw Exception("Lua was not initialized");
          }
     LoadAllStdLibs();
     }
TLua(lua_State*lua_state)
     {
     lua=lua_state;
     isowner=false;
     }
 
~TLua()
     {
     if(isowner==true)
          {
          if(lua!=NULL)
               {
               lua_close(lua);
               }
          }
     }
__inline void LoadAllStdLibs()
     {
     luaL_openlibs(lua);
     }
__inline void DoStr(char*str)
     {
     int res=luaL_dostring(lua, str);
     if(res!=0)throw Exception(lua_tostring(lua,-1));
     }
 
__inline void DoFile(char*str)
     {
     int res=luaL_dofile(lua, str);
     if(res!=0)throw Exception(lua_tostring(lua,-1));
     }
__inline int RegFunction(char*name,int(*poin)(lua_State*st))
     {
     lua_register(lua,name,poin);
     return 0;
     }
__inline void GlobalField(char*field)
     {
     lua_getfield(lua,LUA_GLOBALSINDEX,field);
     }
__inline int ToInteger(int index)
     {
     return lua_tointeger(lua,index);
     }
__inline double ToNumber(int index)
     {
     return lua_tonumber(lua,index);
     }
__inline const char*ToString(int index)
     {
     return lua_tostring(lua,index);
     }
__inline void Push(int i)
     {
     lua_pushinteger(lua,i);
     }
__inline void Push(char*str)
     {
     lua_pushstring(lua,str);
     }
__inline void PushNil()
     {
     lua_pushnil(lua);
     }
__inline void PushNumber(double d)
     {
     lua_pushnumber(lua,d);
     }
__inline void  Pop(int count)
     {
     lua_pop(lua,count);
     }
__inline int GetTop()
     {
     return lua_gettop(lua);
     }
__inline void SetTop(int top)
     {
     lua_settop(lua,top);
     }
__inline int GetType(int index)
     {
     return lua_type(lua,index);
     }
__inline const char*GetTypeName(int TypeCode)
     {
     return lua_typename(lua,TypeCode);
     }
void Error()
     {
     lua_error(lua);
     }
};

TLua lua;

int Lua_Message(lua_State*st)
{
TLua lua(st);
int top=lua.GetTop();//Передали ли нам параметры?
if(top>0)
        {
        Form1->Label1->Caption=lua.ToString(top);
        }
return 0;
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
lua.RegFunction("Message",Lua_Message);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
lua.DoStr(Memo1->Text.c_str());
}

int Lua_GetGreeting(lua_State*st)
{
TLua lua(st);
char*greetings[]=
        {
         "Привет, Мир",
        "Hello World",
        "Konnichi wa, Sekai",
        "Hello Botё",
        "Прывітаньне, Свет",
        "Привіт, Cвіт",
        "Здравей, Свят",
        "Ola Mundo",
        "Hallo wereld",
        "Dia duit domhan"        };
lua.Push(greetings[random(10)]);
return 1;
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
randomize();
lua.RegFunction("Message",Lua_Message);
lua.RegFunction("GetGreeting",Lua_GetGreeting);
}

class TMTH
{
public:
AnsiString name;
AnsiString str;
TTimer *Timer;
void __fastcall TimerTimer(TObject *Sender);
TMTH(AnsiString name_of_memory, AnsiString string_of_code)
{
Timer=new TTimer(Application);
str=string_of_code;
name=name_of_memory;
Timer->Interval=1;
Timer->OnTimer=TimerTimer;
}
void Start()
{
Timer->Enabled=true;
}
void End()
{
Timer->Enabled=false;
}
};
 
void __fastcall TMTH::TimerTimer(TObject *Sender)
{
try
{
Lua.DoStr(str.c_str());
}catch(...) {End(); ShowMessage("Process Stoped!!!");};
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "lua.h"
 
TLua Lua;
 
#include "myclasses.cpp" //Классы Otakи
#include "test.h" //Класс TMTH
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int hp=100; //Переменная
TTList<TMTH*>*mths=new TTList<TMTH*>();//Так мы создадим возможность запуска большого кол-ва потоков
 
int Lua_ShowMessage(lua_State*st) //Функция, которая выводит сообщения
{
TLua lua(st);
int top=lua.GetTop();
if(top==1) ShowMessage(lua.ToString(top));
return 0;
}
 
int Lua_ReturnHP(lua_State*st) //Функция, которая возвращает значения переменной HP
{
TLua lua(st);
lua.Push(hp);
return 1;
}
 
 
int Lua_SetHP(lua_State*st) //Функция, которая устанавливает значение HP
{
TLua lua(st);
int top=lua.GetTop();
if(top==1) hp=lua.ToInteger(top);
return 0;
}
 
 
int Lua_end_thread(lua_State*st)//Функция, которая завершает поток (пример: end_thread("name")) где "name" индификатор потока, т.е. имя заданное в памяти
{
TLua lua(st);
int top=lua.GetTop();
if(top==1)
{
int t;
AnsiString n=lua.ToString(top);
for(int i=0;i<mths->Count;i++)
{
t=i;
if(mths->Get(t)->name==n)
{
mths->Get(t)->End();
delete mths->Get(t);
mths->Delete(t);
ShowMessage("Thread end :)");// Можно убрать :)
break;
}
}
}
return 0;
}
 
int Lua_thread(lua_State*st)
/*
Функция, которая создаёт поток, пример:
thread("name","script+end_thread(\"name\")"), где "name" - индификатор потока script+end_thread(\"name\") - скрипт, который будет выполняться в потоке "name"
script - сам скрипт
???Почему script+end_thread(\"name\")???
Ответ - потому-что, я не знаю как прикрутить end_thread(\"name\") в поток :(
???Почему мы пишем end_thread(\"name\"), а не end_thread("name")???
Ответ - так надо когда мы задаём текст(в нашем случае скрипт), в память... Иначе бы луа посчитал "name" функцией
*/
{
TLua lua(st);
int top=lua.GetTop();
if(top==2)
{
AnsiString name=lua.ToString(top-1);
AnsiString code=lua.ToString(top);
TMTH *mth=new TMTH(name,code);
int cnt=mths->Count;
mths->Add(mth);
mths->Get(cnt)->Start();
}
return 0;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
//Указываем функции
Lua.RegFunction("ShowMessage",Lua_ShowMessage);
Lua.RegFunction("ReturnHP",Lua_ReturnHP);
Lua.RegFunction("SetHP",Lua_SetHP);
Lua.RegFunction("end_thread",Lua_end_thread);
Lua.RegFunction("thread",Lua_thread);
//Запускаем файл
try
{
Lua.DoFile("test.lua");
}catch(...) {ShowMessage("Process Stoped!!!"); Application->Terminate();};
}
//---------------------------------------------------------------------------

__inline void LoadAllStdLibs()
     {
     luaL_openlibs(lua);
     }
__inline void DoStr(char*str)
     {
     int res=luaL_dostring(lua, str);
     if(res!=0)throw Exception(lua_tostring(lua,-1));
     }
 
__inline void DoFile(char*str)
     {
     int res=luaL_dofile(lua, str);
     if(res!=0)throw Exception(lua_tostring(lua,-1));
     }
__inline int RegFunction(char*name,int(*poin)(lua_State*st))
     {
     lua_register(lua,name,poin);
     return 0;
     }
__inline void GlobalField(char*field)
     {
     lua_getfield(lua,LUA_GLOBALSINDEX,field);
     }
__inline int ToInteger(int index)
     {
     return lua_tointeger(lua,index);
     }
__inline double ToNumber(int index)
     {
     return lua_tonumber(lua,index);
     }
__inline const char*ToString(int index)
     {
     return lua_tostring(lua,index);
     }
__inline void Push(int i)
     {
     lua_pushinteger(lua,i);
     }
__inline void Push(char*str)
     {
     lua_pushstring(lua,str);
     }
__inline void PushNil()
     {
     lua_pushnil(lua);
     }
__inline void PushNumber(double d)
     {
     lua_pushnumber(lua,d);
     }
__inline void  Pop(int count)
     {
     lua_pop(lua,count);
     }
__inline int GetTop()
     {
     return lua_gettop(lua);
     }
__inline void SetTop(int top)
     {
     lua_settop(lua,top);
     }
__inline int GetType(int index)
     {
     return lua_type(lua,index);
     }
__inline const char*GetTypeName(int TypeCode)
     {
     return lua_typename(lua,TypeCode);
     }
void Error()
     {
     lua_error(lua);
     }