windows.cpp

#include "stdafx.h"
#include "windowUniMod.h"
/*
sub_450B70 - ñòåðåòü âñå èç êîíñîëè?
*/

int (__cdecl *noxWndGetID)(void *Window);
void *(__cdecl *noxWndGetChildByID)(void *Window,int Id);
void (__cdecl *parseWindowStatus)(void *WddPtr,const char *Str);


wndStruct* (__cdecl *wndLoadControl)
	(const char *ControlName, void *ParentWnd, int wndFlags, 
		int Left, int Top, int Width, int Height, void *Wdd, void *DataPtr);

wndStruct* (__cdecl *wndCreate2)(void *parentWnd, int wndFlags, 
							int screenLeft, int screenTop, int screenWidth, int screenHeight, 
							void *wndProc);
void (__cdecl *wndShowHide)(void *Wnd,int Hide);
void (__cdecl *wndShowModalMB)(void *Wnd);
void (__cdecl *wndSetFocusMainMB)(void *Wnd);


// êàêîå îêíî ñõàð÷èëî ìûøü
void *(__cdecl *wndGetCaptureMain)(); 
int (__cdecl *wndSetCaptureMain)(void *Wnd);
void (__cdecl *wndClearCaptureMain)(void *Wnd);

int (__cdecl *noxWindowDestroy)(void *Window);

//ASSIGN(,0x);

extern int (__cdecl *noxSetRectColorMB) (int);
extern int (__cdecl *noxDrawGetStringSize) (int FontPtr, wchar_t *String,int *Width,int,int);
extern void *(__cdecl *guiFontPtrByName)(const char *FontName);
extern DWORD parseColor(const char *Color);
extern void wstringFromLua(lua_State *L,wchar_t *Dst,int MaxLen);
extern void *imageFromLua(lua_State *L);

extern int (__cdecl uniWindowDrawFn) (void *Window,void *WindowDD);
extern int (__cdecl uniListBoxDrawFn) (wndStruct *Window,void *WindowDD);


namespace 
{
	int nowCreating=0;

	bool getChildLuaByPtr(void *Ptr)
	{
		lua_getfield(L,-1,"children");
		if (!lua_istable(L,-1))
			return false;
		lua_pushlightuserdata(L,Ptr);
		lua_gettable(L,-2);
		if (!lua_istable(L,-1)) // äî÷åðíåå îêíî
			return false;
		return true;

	}
	int __cdecl parseChildProc(byte* Window,int Msg,int A,int B)
	{
		int Top=lua_gettop(L);
		bool isChild=false;
		switch(Msg)
		{
		case 5: // òóò ëîâèì êëèê (ëåâûé) ÷òî áû îí äàëüøå íå óøåë
			lua_getfield(L,-1,"onLMDown");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,-5);  /// òàáëèöà - ðîäèòåëü 
			if (0!=lua_pcall(L,2,1,0))
			{
				const char *S=lua_tostring(L,-2);
				break;
			}
			if (lua_tonumber(L,-1)==1)
				return 1;
			return 0;
		case 6: //LMB up
		case 7:
			if (wndGetCaptureMain()==Window)
			{
				wndClearCaptureMain(Window);
				lua_getfield(L,-1,"onGrabMouse");
				if (!lua_isfunction(L,-1))
					break;
				lua_pushvalue(L,-2);
				lua_pushinteger(L,(short)(A&0xFFFF));
				lua_pushinteger(L,(short)(A>>16));
				lua_pcall(L,3,0,0);
				return 0;
			}
			else
			{
				lua_getfield(L,-1,"onClick");
				if (!lua_isfunction(L,-1))
					break;
				lua_pushvalue(L,-2);
				lua_pushinteger(L,1);
				lua_pushinteger(L,(short)(A&0xFFFF));
				lua_pushinteger(L,(short)(A>>16));
				lua_pcall(L,4,0,0);
				return 0;
			}
			break;
		case 9: // Ëîâèì ïðàâûé êëèê (òóò îí äîëãèé)
			lua_getfield(L,-1,"onRMDown");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,-5);  /// òàáëèöà - ðîäèòåëü 
			if (0!=lua_pcall(L,2,1,0))
			{
				const char *S=lua_tostring(L,-2);
				break;
			}
			if (lua_tonumber(L,-1)==1)
				return 1;
			return 0;
		case 0xC: // Ëîâèì ïðàâûé êëèê (òóò äîëãèé)
			lua_getfield(L,-1,"onRMDown");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,-5);  /// òàáëèöà - ðîäèòåëü 
			if (0!=lua_pcall(L,2,1,0))
			{
				const char *S=lua_tostring(L,-2);
				break;
			}
			if (lua_tonumber(L,-1)==1)
				return 1;
			return 0;
		case 0x11: /// mouse Enter
			lua_getfield(L,-1,"onEnter");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,(short)(A&0xFFFF));
			lua_pushvalue(L,(short)(A>>16));
			if (0!=lua_pcall(L,3,1,0))
			{
				const char *S=lua_tostring(L,-1);
				break;
			}
			if (lua_tonumber(L,-1)==1)
				return 1;
		case 0x12: // on leave
			lua_getfield(L,-1,"onLeave");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,(short)(A&0xFFFF));
			lua_pushvalue(L,(short)(A>>16));
			if (0!=lua_pcall(L,3,1,0))
			{
				const char *S=lua_tostring(L,-1);
				break;
			}
			if (lua_tonumber(L,-1)==1)
				return 1;
		case 0x15: /// íàæàòèå íà êíîïêó A- êîä, B - 1-îòïóñêàíèå,2- íàæàòèå
			/// ïîõîæå return 1 ñúåäàåò êíîïêó, return 0 ïåðåäàåò äàëüøå
			return 0;
/*
ñîîáùåíèå î èçìåíåíèè ôîêóñà 
A=0 ôîêóñ ïîëó÷åí
A=1 ôîêóñ ïîòåðÿí
B - ChildId
*/
		case 0x4003:
			{
				void *P=noxWndGetChildByID(Window,B);
				if (P==0 || !getChildLuaByPtr(P))
					return 1;
				lua_getfield(L,-1,"onFocus");
				if (!lua_isfunction(L,-1))
					return 1;
				lua_pushvalue(L,-2);
				lua_pushvalue(L,-5);
				lua_pushinteger(L,A);
				if (0!=lua_pcall(L,3,1,0))
				{
					const char *S=lua_tostring(L,-1);
					return 1;
				}
				return 1;//lua_toboolean(L,-1);
			}
		}
		lua_settop(L,Top);
/*		char Buf[40]="";
		sprintf(Buf,"%04x %p %p",Msg,A,B);
		conPrintI(Buf);*/

		if (getChildLuaByPtr((void*)A))
			switch (Msg)
		{
		case 0x4007:
			lua_getfield(L,-1,"onPress");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,-5);  /// òàáëèöà - ðîäèòåëü //  control click control childrens table <top>
			if (0!=lua_pcall(L,2,0,0))
			{
				const char *S=lua_tostring(L,-1);
				break;
			}
			return 0;
		case 0x4010: /// ëèñòáîêñ, ñìåíà ýëåìåíòà
			lua_getfield(L,-1,"onSelChange");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,-5);  /// òàáëèöà - ðîäèòåëü //  control click control childrens table <top>
			lua_pushinteger(L,B); /// Íîìåð â ñïèñêå
			if (0!=lua_pcall(L,3,0,0))
			{
				const char *S=lua_tostring(L,-1);
				break;
			}
			break;
		case 0x401F: // ýäèò òåêñò, Enter
			lua_getfield(L,-1,"onChange");
			if (!lua_isfunction(L,-1))
				break;
			lua_pushvalue(L,-2); /// òàáëèöà îêíà
			lua_pushvalue(L,-5);  /// òàáëèöà - ðîäèòåëü //  control click control childrens table <top>
			if (0!=lua_pcall(L,2,0,0))
			{
				const char *S=lua_tostring(L,-1);
				break;
			}
			break;
		default:
			break;
		}
		
		return 0;
	}

	int __cdecl newWindowProc(wndStruct* Window,int Msg,int A,int B)
	{
		int Top=lua_gettop(L);
		int Ret=0;
		switch(Msg)
		{
			case 0x02://destroy window
				lua_pushlightuserdata(L,&noxWndLoad);
				lua_gettable(L,LUA_REGISTRYINDEX);
				lua_pushlightuserdata(L,Window);// Óäàëÿåì òàáëèöó èç ðååñòðà
				lua_pushnil(L);
				lua_settable(L,-3);
				break;
			case 0x01:
				lua_pushlightuserdata(L,&noxWndLoad);
				lua_gettable(L,LUA_REGISTRYINDEX);
				lua_pushinteger(L,nowCreating);
				lua_gettable(L,-2);
				if(lua_type(L,-1) ==LUA_TNIL)
					break;
				lua_pushlightuserdata(L,Window);
				lua_pushvalue(L,-2);
				lua_settable(L,-4);

				lua_getfield(L,-1,"wndProc");
				if(lua_type(L,-1)==LUA_TFUNCTION)
				{
					lua_pushvalue(L,-2);///ñàìà òàáëèöà
					lua_pushinteger(L,Msg);
					lua_pushinteger(L,A);
					lua_pushinteger(L,B);
					lua_pcall(L,4,1,0);
				}
				if (!lua_isboolean(L,-1) || !lua_toboolean(L,-1))
				{
					lua_getfield(L,-2,"oldWndProc");
					if (lua_type(L,-1)==LUA_TLIGHTUSERDATA)
					{
						int (__cdecl *oldProc)(void* Window,int Msg,int A,int B);
						*((void**)&oldProc)=lua_touserdata(L,-1);
						if (oldProc)
							Ret=oldProc(Window,Msg,A,B);
					}
				}
				break;
			case 0x17:/// óíè÷òîæåíî äî÷åðíåå îêíî
/*çäåñü íàäî äî÷åðíåå óäàëèòü
				lua_pushlightuserdata(L,&noxWndLoad);
				lua_gettable(L,LUA_REGISTRYINDEX);
				lua_pushlightuserdata(L,Window);// Óäàëÿåì òàáëèöó èç ðååñòðà
				lua_pushnil(L);
				lua_settable(L,-3);*/
			/// ïðî÷èå ñëó÷àè
			case 0x16:// ñîçäàíî äî÷åðíåå îêíî + A= ID			

			default:
				lua_pushlightuserdata(L,&noxWndLoad);
				lua_gettable(L,LUA_REGISTRYINDEX);
				lua_pushlightuserdata(L,Window);// Óäàëÿåì òàáëèöó èç ðååñòðà
				lua_gettable(L,-2);
				if(lua_type(L,-1) ==LUA_TNIL)
					break;
				lua_getfield(L,-1,"wndProc");
				if (lua_isnil(L,-1)) /// âîçìîæíî èñïîëüçóåì ðåàêöèè íà äî÷åðíèå ôóíêöèè
				{
					lua_pop(L,1);
					Ret=parseChildProc((byte*)Window,Msg,A,B);
				}
				else
				{
					if(lua_type(L,-1)==LUA_TFUNCTION)
					{
						lua_pushvalue(L,-2);///ñàìà òàáëèöà
						lua_pushinteger(L,Msg);
						lua_pushlightuserdata(L,(void *)A);
						lua_pushinteger(L,B);
						lua_pcall(L,4,1,0);
					}
					if (!lua_isboolean(L,-1) || !lua_toboolean(L,-1))
					{
						lua_getfield(L,-2,"oldWndProc");
						if (lua_type(L,-1)==LUA_TLIGHTUSERDATA)
						{
							int (__cdecl *oldProc)(void* Window,int Msg,int A,int B);
							*((void**)&oldProc)=lua_touserdata(L,-1);
							if (oldProc)
								Ret=oldProc(Window,Msg,A,B);
						}
					}
				}
		}
		lua_settop(L,Top);
		return Ret;
	}
	int __cdecl newWindowControlProc(wndStruct* Window,int Msg,int A,int B) // ñïåöèàëüíî äëÿ êîíòðîëîâ
	{
		int Top=lua_gettop(L);
		int Ret=0;

		wndStruct *Parent=Window->drawData.wndPtr; // íå ñîâñåì ïàðåíò, íî â ýòî îêíî ïî èäåå èäóò ìñæ 
		lua_pushlightuserdata(L,&noxWndLoad);
		lua_gettable(L,LUA_REGISTRYINDEX);
		lua_pushlightuserdata(L,Parent);
		lua_gettable(L,-2);
		lua_getfield(L,-1,"children");

		if (Msg==2)
		{
			lua_pushlightuserdata(L,Window);
			lua_pushnil(L);
			lua_settable(L,-3);
			
		}
		lua_pushlightuserdata(L,Window);
		lua_gettable(L,-2);
		if	(!lua_type(L,-1)==LUA_TTABLE)
			return 0;
		int Tops=lua_gettop(L);
		parseChildProc((byte*)Window,Msg,A,B);
		lua_settop(L,Tops);
		lua_getfield(L,-1,"wndControlProc");
		if (lua_type(L,-1)==LUA_TLIGHTUSERDATA)
		{
			int (__cdecl *wndControlProc)(wndStruct* Window,int Msg,int A,int B);
			*((void**)&wndControlProc)=lua_touserdata(L,-1);
			if (wndControlProc)
				Ret=wndControlProc(Window,Msg,A,B);
		}
		lua_settop(L,Top);
		return Ret;
	}
	int __cdecl newDrawProc(byte *Window,byte *drawData)
	{
		int Top=lua_gettop(L);
		lua_pushlightuserdata(L,&noxWndLoad);
		lua_gettable(L,LUA_REGISTRYINDEX);
		lua_pushlightuserdata(L,Window);
		lua_gettable(L,-2);
		if (lua_type(L,-1)!=LUA_TTABLE)
		{
			lua_settop(L,Top);
			return 0;
		}
		lua_getfield(L,-1,"drawFn");
		lua_pushlightuserdata(L,Window);
		lua_pcall(L,1,0,0);

		lua_settop(L,Top);
		return 0;
	}
	ParseAttrib attrOffsets[]=
	{
		{"textColor",0x68,3},
		{0,0,0}
	};

	int wndSetAttr(lua_State *L)
	{
		lua_settop(L,3);
		if (lua_type(L,2)!=LUA_TSTRING)
		{
			lua_pushstring(L,"wrong args!");
			lua_error(L);
		}
		wndStruct *H=wndGetHandleByLua(1);
		parseAttr(L,2,3,H,attrOffsets);
		return 1;
	}
	int wndDestroyL(lua_State *L)
	{
		wndStruct *H=wndGetHandleByLua(1);
		lua_pushinteger(L,noxWindowDestroy(H));
		return 1;
	}
	int getChildByIdL(lua_State *L)
	{
		void *R;
		if(lua_type(L,2)!=LUA_TNUMBER)
		{
			lua_pushstring(L,"wrong args!");
			lua_error(L);
		}
		wndStruct *H=wndGetHandleByLua(1);
		if(H==0)
		{
			lua_pushnil(L);
			return 1;
		}
		R=noxWndGetChildByID(H,lua_tonumber(L,2));
		if(R==0)
			lua_pushnil(L);
		else
			lua_pushlightuserdata(L,R);
		return 1;
	}
	int wndShow(lua_State *L)
	{
		lua_settop(L,2);
		wndStruct *H=wndGetHandleByLua(1);
		wndShowHide(H,lua_toboolean(L,2)?0:1);
		return 0;
	}	
	int wndUnGrabMouse(lua_State *L)
	{
		lua_settop(L,1);
		wndStruct *H=wndGetHandleByLua(1);
		wndClearCaptureMain(H);
		return 0;
	}
	int wndGrabMouse(lua_State *L)
	{
		lua_settop(L,2);
		wndStruct *H=wndGetHandleByLua(1);
		if (0==lua_toboolean(L,2) && ( 0!=wndGetCaptureMain() ))// åñëè âòîðîé ïàðàìåòð true - ñõàð÷èì â ëþáîì ñëó÷àå
			return 0;
		wndSetCaptureMain(H);
		return 0;
	}
	int wndGetIdL(lua_State *L)
	{
		wndStruct *H=wndGetHandleByLua(1);
		if(H==0)
		{
			lua_pushnil(L);
			return 1;
		}
		lua_pushinteger(L,noxWndGetID(H));
		return 1;
	}
	int callWndProcL(lua_State *L)
	{
		void *R;
		wndStruct *H=wndGetHandleByLua(1);
		lua_settop(L,4);
		R=noxCallWndProc(H,lua_tointeger(L,2),
			(lua_type(L,3)==LUA_TLIGHTUSERDATA)?(int)lua_touserdata(L,3):lua_tointeger(L,3),
			(lua_type(L,4)==LUA_TLIGHTUSERDATA)?(int)lua_touserdata(L,4):lua_tointeger(L,4));
		if(R==0)
			lua_pushinteger(L,0);
		else if(R==(void *)1)
			lua_pushinteger(L,1);
		else
		{
			lua_pushlightuserdata(L,R);
		}
		return 1;
	}
	int wndSetProcL(lua_State *L) // wnd+0x178 - ïðîê îêíà
	{
		wndStruct *Window=wndGetHandleByLua(1);
		bool haveTable=false;
		 if(lua_type(L,1)==LUA_TTABLE)
			haveTable=true;		
		if(lua_type(L,2)!=LUA_TFUNCTION)
		{
			lua_pushstring(L,"wrong args!");
			lua_error(L);
		}
		lua_pushlightuserdata(L,&noxWndLoad);
		lua_gettable(L,LUA_REGISTRYINDEX);
		if (haveTable)
			lua_pushvalue(L,1);
		{
			lua_newtable(L);
			lua_pushlightuserdata(L,Window);
			lua_setfield(L,-2,"handle");
			lua_pushvalue(L,2);
			lua_setfield(L,-2,"wndProc");
		}
		lua_pushlightuserdata(L,Window->wndProcPre);
		lua_setfield(L,-2,"oldFn");/// ñîõðàíèì ñòàðóþ ôóíêöèþ
		lua_pushlightuserdata(L,Window);
		lua_pushvalue(L,-2);
		/// ñåé÷àñ ñòýê óñòðîåí òàê: -1=íîâàÿòàáëèöà, -2=þçåðäàòà, íîâàÿ òàáëèöà, 
		// òàáë èç ðååñòðà, [þçåðäàòà èç ïåðâîãî], ôóíêöèÿ,  âòîðîé àðãóìåíò
		lua_settable(L,-4);
		/// 174 - 178 - êàêîé èç ïðîêîâ?
		Window->wndProcPre=&newWindowProc;

		return 1;
	}
class staticTextDataClass /// äàííûå äëÿ ñòàòèêñòåêñòà
{
public:
	staticTextDataStruct staticTextData;

	static void *Create(lua_State *L,int Idx)/// ïîëó÷àåò òàáëèöó ñ ïàðàìåòðàìè îêíà, è êëàäåò â íåå ñåáÿ
	{
		lua_getfield(L,Idx,"text");
		int NeedSize=lua_objlen(L,-1)*2; // êàêîé äëèííû ñòðîêó íàì ïðèñëàëè
		NeedSize=(sizeof(staticTextDataStruct)+NeedSize+0x3F)&(~0x3F);//âû÷èñëÿåì ñêîëüêî íàì íàäî ïàìÿòè (ñ øàãîì â 64áàéòà)
		
		staticTextDataStruct *Me=(staticTextDataStruct *)lua_newuserdata(L,NeedSize); // ïóñêàé ëóà âûäåëèò íàì ïàìÿòü - îíà æå è áóäåò çà íåé ñëåäèòü
		Me->BoolA=0;Me->BoolB=0;
		Me->Size=NeedSize-sizeof(staticTextDataStruct);
		Me->DataPtr=Me->Buf;
		mbstowcs(Me->Buf,lua_tostring(L,-2),Me->Size>>1);
		lua_remove(L,-2);
		return Me;
	}
};
class editboxDataClass
{
public:
	editBoxDataStruct editboxData;

	void *Create(lua_State *L,int Idx)/// ïîëó÷àåò òàáëèöó ñ ïàðàìåòðàìè îêíà
	{
		int Top=lua_gettop(L);
		editBoxDataStruct *Me=&this->editboxData;
		lua_getfield(L,Idx,"password");
		Me->Password=lua_toboolean(L,-1);
		lua_getfield(L,Idx,"onlyNumbers");
		Me->onlyNumbers=lua_toboolean(L,-1);
		lua_getfield(L,Idx,"onlyAlphaNum");
		Me->onlyAlphaNum=lua_toboolean(L,-1);
		lua_getfield(L,Idx,"maxLen");
		Me->maxLen=lua_tointeger(L,-1); // âîçìîæíî MaxLen
		if (Me->maxLen<1)
			Me->maxLen=255;

		Me->entryWidth=-1;// ñòàðòîâàÿ øèðèíà MB
		Me->Param_6=0;
		lua_settop(L,Top);
		return Me;
	}
};
class ListboxDataClass
{
public:
	listBoxDataStruct listboxData;

	void *Create(lua_State *L,int Idx)/// ïîëó÷àåò òàáëèöó ñ ïàðàìåòðàìè îêíà
	{
		listBoxDataStruct *Me=&this->listboxData;
		memset(this,0,sizeof(listBoxDataStruct));
		int Top=lua_gettop(L);
		lua_getfield(L,Idx,"maxLines");
		Me->maxLines=lua_tointeger(L,-1); // âîçìîæíî MaxLen
		if (Me->maxLines<1)
			Me->maxLines=100;/// íå ñòîèò èõ ìíîãî äåëàòü, ïàìÿòü êóøàåò
		Me->LineHeight=18;
		lua_getfield(L,Idx,"lineUnSelected");
		if (lua_isboolean(L,-1) || lua_toboolean(L,-1))	
			Me->LineCanUnSelected=1;
		else
			Me->LineCanUnSelected=0;
/*		Me->Password=lua_toboolean(L,-1);
		lua_getfield(L,Idx,"maxLen");

		lua_settop(L,Top);
		return Me;*/
		return this;
	}

	void CreateSlider(lua_State *L,wndStruct *Wnd)
	{
		int isSlider=false;
		lua_getfield(L,1,"slider"); // ÷òî áû ýòî òàáëèöà ëåæàëà ïîä èíäåêñîì 2
		getClientVar("wndCreate");
		if (lua_type(L,2)==LUA_TTABLE)
		{
			for (int i=1;i<=3;i++)
			{
				lua_pushnumber(L,i);
				lua_gettable(L,2);
				if (lua_type(L,-1)!=LUA_TTABLE)
					break;
				lua_getfield(L,-1,"type");
				if (lua_type(L,-1)==LUA_TSTRING)
				{
					const char *ControlType=lua_tostring(L,-1);
					if (0==strcmpi(ControlType,"PUSHBUTTON"))
					{
						isSlider=false;
					}else if (0==strcmpi(ControlType,"VERTSLIDER"))
					{
						isSlider=true;
					}
					else
						break; // åñëè íè òî è íè äðóãåî òî íàôèãà ìû òóò âîîáùå
				}
				lua_pop(L,1);
				lua_pushvalue(L,3);
				lua_pushvalue(L,-2);
				lua_pushlightuserdata(L,Wnd);
				if (0!=lua_pcall(L,2,1,0))
				{
					const char *S=lua_tostring(L,-1);
					lua_settop(L,1);	
					return;
				}
				lua_getfield(L,-1,"handle");

				wndStruct *createdWnd=(wndStruct*) lua_touserdata(L,-1);
				lua_getfield(L,-2,"wndControlProc"); // íóæíî âåðíóòü äåôëîòíûé ïðîê, èáî ýòè îêíà íå èìåþò ñâîèõ òàáëèö
				createdWnd->wndProc=lua_touserdata(L,-1);

				listBoxDataStruct *listboxData=(listBoxDataStruct*)Wnd->someData;
				if (isSlider)
					listboxData->slider=createdWnd;
				else if (listboxData->buttonUp==0)
					listboxData->buttonUp=createdWnd;
				else 
					listboxData->buttonDown=createdWnd;		
				Wnd->drawFn=&uniListBoxDrawFn;
				lua_settop(L,3);
			}
		}
		lua_settop(L,1);
		return;
	}


};
class scrollboxDataClass
{
public:
	scrollBoxDataStruct scrollboxData;

	void *Create(lua_State *L,int Idx)/// ïîëó÷àåò òàáëèöó ñ ïàðàìåòðàìè îêíà
	{
		int Top=lua_gettop(L);
		scrollBoxDataStruct *Me=&this->scrollboxData;
		memset(this,0,sizeof(scrollBoxDataStruct));
		return Me;
	}
};

	int wndLoad(lua_State *L)
	{
		void * Window;
		if(lua_type(L,1)!=LUA_TSTRING)
		{
			lua_pushstring(L,"wrong args!");
			lua_error(L);
		}
		lua_settop(L,2);
		if(lua_type(L,2)==LUA_TNIL)
			{lua_pop(L,1);lua_newtable(L);}// åñëè íè÷åãî íå äàëè - òî ñîçäàäèì íîâóþ
		else if(lua_type(L,2)!=LUA_TTABLE)
		{
			lua_pushstring(L,"wrong args!");
			lua_error(L);
		}
		lua_pushlightuserdata(L,&noxWndLoad);
		lua_gettable(L,LUA_REGISTRYINDEX);

		lua_pushinteger(L,++nowCreating);// çàïèñûâàåì ýëåìåíò
		lua_pushvalue(L,2);
		lua_settable(L,-3);//çàïèñûâàåì â ðååñòð òó òàáëèöó, ÷òî íàì ïîäñóíóëè
		Window=noxWndLoad(lua_tostring(L,1),&newWindowProc);
		lua_pushinteger(L,nowCreating--);// óäàëÿåì íîìåðíîé ýëåìåíò
		lua_pushnil(L);
		lua_settable(L,-3);
		
		if(Window==0)
		{
			lua_pushnil(L);
			return 1;
		}
		lua_pushlightuserdata(L,Window);
		lua_pushvalue(L,2);
		lua_pushstring(L,"handle");
		lua_pushlightuserdata(L,Window);
		lua_settable(L,-3);// Çàïèñûâàåì â òàáëèöó õýíäë
		lua_settable(L,-3);//çàïèñûâàåì â ðååñòð òó òàáëèöó, ÷òî íàì ïîäñóíóëè
		lua_settop(L,2);/// è åå æå è âåðíåì
		return 1;
	}
	inline int lua_getint(lua_State*L,const char *Name)
	{
		lua_getfield(L,1,Name);
		return lua_tointeger(L,-1);
	}
	ListboxDataClass LD;
	editboxDataClass ED;
	scrollboxDataClass VS;

	int wndCreate(lua_State *L)
	{
		lua_settop(L,2);
		if (lua_type(L,1)!=LUA_TTABLE)
		{
			lua_pushstring(L,"wrong args!");
			lua_error(L);
		}
		void *Parent=0; // ðîäèòåëüñêîå îêíî
		if(lua_type(L,2)==LUA_TTABLE)
		{
			lua_getfield(L,-1,"handle");
			lua_insert(L,2);
			lua_settop(L,2);
		}
		if (lua_type(L,2)==LUA_TLIGHTUSERDATA)
		{
			Parent=lua_touserdata(L,2);
		}
/*
ïðèìåðíîå ïðèìåíåíèå
	wndCreate(
	{	
		x=100,y=100,w=200,h=30,
		bgcolor='#FF00FF';
		{
			type="PUSHBUTTON",
			x=10,y=10,w=100,h=20,
			id=1000,
			status = "IMAGE+NOFOCUS"
			wndProc=fn | nil
			click=fn,
			highlight=fn | "none" | "default";
			font="large";
			bgcolor='#332211';
			color='#112233';
			alpha=false;
			hiliteColor='#123233';
			disabledColor='#112233';
			selectedColor='#112233';
			disabledImage="somename";
			selectedImage="somename";
			image="somename"
			hiliteImage="somename"
			text="Test1";
			tooltip="Test1 tooltip";
			drawFn=function (me) end
		}
	}
	)
*/
/*
	WINDOW
	  10112 201 272 45 15 PUSHBUTTON;
	  STATUS = ENABLED+IMAGE+NOFOCUS;
	  STYLE = MOUSETRACK;
	  SELECTEDIMAGE = UIButtonSmLit;
	  HILITEIMAGE = UIButtonSmLit;
	  BACKGROUNDIMAGE = UIButtonSm;
	  ENABLEDIMAGE = NULL;
	  DISABLEDIMAGE = UIButtonSmDis;
	  IMAGEOFFSET = 0 -5;
	  TEXT = Access.wnd:Add;
	  TOOLTIP = Access.wnd:AddTT;
	END


*/
		int x,y,w,h;
		DWORD Flags=wfNoFocus+wfEnabled;

		x=lua_getint(L,"x");
		y=lua_getint(L,"y");
		w=lua_getint(L,"w");
		h=lua_getint(L,"h");
		if (w<1) w=10;
		if (h<1) h=10;

		wddControl Wdd={0};
		lua_getfield(L,1,"status");
		if (lua_type(L,-1)==LUA_TNUMBER)
			Wdd.status=lua_tointeger(L,-1);
		else if (lua_type(L,-1)==LUA_TSTRING)
			parseWindowStatus(&Wdd,lua_tostring(L,-1));

		lua_getfield(L,1,"bgcolor");
		if (lua_type(L,-1)==LUA_TSTRING)
			Wdd.BgColor=parseColor(lua_tostring(L,-1));
		lua_getfield(L,1,"image");
		Wdd.imageH=imageFromLua(L);
		if (Wdd.imageH)
 			Flags|=0x80;

		lua_getfield(L,1,"enabledColor");
		if (lua_type(L,-1)==LUA_TSTRING)
			Wdd.EnabledRectColor=parseColor(lua_tostring(L,-1));

		lua_getfield(L,1,"disabledColor");
		if (lua_type(L,-1)==LUA_TSTRING)
			Wdd.DisabledRectColor=parseColor(lua_tostring(L,-1));
		lua_getfield(L,1,"disabledImage");
		Wdd.imageDisabledH=imageFromLua(L);
		lua_getfield(L,1,"hiliteColor");
		if (lua_type(L,-1)==LUA_TSTRING)
			Wdd.HiliteColor=parseColor(lua_tostring(L,-1));
		lua_getfield(L,1,"hiliteImage");
		Wdd.imageHiliteH=imageFromLua(L);
		lua_getfield(L,1,"selectedColor");
		if (lua_type(L,-1)==LUA_TSTRING)
			Wdd.SelectedColor=parseColor(lua_tostring(L,-1));
		lua_getfield(L,1,"selectedImage");
		Wdd.imageSelectedH=imageFromLua(L);

		lua_settop(L,1);
		lua_getfield(L,1,"offsetX");
		Wdd.offsetX=lua_tointeger(L,-1);
		lua_getfield(L,1,"offsetY");
		Wdd.offsetY=lua_tointeger(L,-1);

		lua_getfield(L,1,"textColor");
		if (lua_type(L,-1)==LUA_TSTRING)
			Wdd.TextColor=parseColor(lua_tostring(L,-1));
		lua_getfield(L,1,"text");
		if (lua_type(L,-1)==LUA_TSTRING)
			wstringFromLua(L,Wdd.String,60);// âîçìîæíî 64
		lua_getfield(L,1,"tooltip");
		if (lua_type(L,-1)==LUA_TSTRING)
		{
			wstringFromLua(L,Wdd.tooltipStr,62);// âîçìîæíî 64
		}
		lua_getfield(L,1,"font");
		if (lua_type(L,-1)==LUA_TSTRING)
		{
			Wdd.FontPtr=guiFontPtrByName(lua_tostring(L,-1));// âîçìîæíî 64
		}
		lua_settop(L,1);

		static int nextChildId=0x100;
		lua_getfield(L,1,"type");
		if (lua_type(L,-1)==LUA_TSTRING)
		{
			const char *ControlType=lua_tostring(L,-1);
			if (0==strcmpi(ControlType,"listbox"))
				ControlType="SCROLLLISTBOX";
			void *DataPtr=NULL;
			if (0==strcmpi(ControlType,"STATICTEXT"))
			{
				lua_pushstring(L,"__bindata");
				DataPtr=staticTextDataClass::Create(L,1);
				lua_settable(L,1); // ïîëîæèì äàííûå â òàáëèöó îêíà
			}else if (0==strcmpi(ControlType,"ENTRYFIELD"))
			{
				ED.Create(L,1);
				DataPtr=&ED;
			}else if (0==strcmpi(ControlType,"SCROLLLISTBOX"))
			{
				LD.Create(L,1);
				DataPtr=&LD;
			}else if (0==strcmpi(ControlType,"VERTSLIDER"))
			{
				VS.Create(L,1);
				DataPtr=&VS;
			}else if (0==strcmpi(ControlType,"PUSHBUTTON"))
			{
				Wdd.controlType=0x100;
			}
			wndStruct *Wnd=wndLoadControl(ControlType,Parent, Wdd.status,x,y,w,h, &Wdd,DataPtr);
			if (Wnd==NULL)
			{
				lua_pushstring(L,"wrong args - unable to create control");
				lua_error(L);
			}

			if ((Wnd->drawData.controlType & ctListBox)!=0) // åñëè ëèñòáîêñ, òî ïðîâåðÿåì íà ñëàéäåð
			{
				lua_settop(L,1);
				LD.CreateSlider(L,Wnd);	
			} 

			Wnd->wndId=nextChildId;
			lua_pushstring(L,"wndControlProc");
			lua_pushlightuserdata(L,Wnd->wndProc);
			lua_settable(L,1);
			Wnd->wndProc=&newWindowControlProc;
			lua_pushstring(L,"childId");
			lua_pushinteger(L,nextChildId++);
			lua_settable(L,1);
			lua_pushstring(L,"handle");
			lua_pushlightuserdata(L,Wnd);
			lua_settable(L,1);
			/*lua_pushlightuserdata(L,&noxWndLoad);
			lua_gettable(L,LUA_REGISTRYINDEX);
			lua_pushlightuserdata(L,Wnd);
			lua_pushvalue(L,1);
			lua_settable(L,-3);*/
			lua_settop(L,1);
			return 1;
		}

		Wdd.controlType|=ctUser;// êàñòîìíûé êîíòðîë


		lua_pushlightuserdata(L,&noxWndLoad);
		lua_gettable(L,LUA_REGISTRYINDEX);
			lua_pushinteger(L,++nowCreating);
			lua_pushvalue(L,1);
		lua_settable(L,-3);/// êëàäåì òàáëèöó äëÿ ñîáûòèÿ
	
		wndStruct *Wnd=wndCreate2(Parent,Wdd.status,x,y,w,h,&newWindowProc);
			lua_pushinteger(L,nowCreating--); /// óäàëÿåì íîìåðíóþ òàáëèöó
			lua_pushnil(L);
		lua_settable(L,-3);
		if (Wnd==0)
		{
			lua_pushstring(L,"wndCreate2 Fail!");
			lua_error(L);
		}
		Wnd->drawFn=&uniWindowDrawFn; // íàà ðèñîâàëêà
		Wnd->wndProcPre=&newWindowProc;

		Wnd->wndId=nextChildId;
		lua_pushstring(L,"childId");
		lua_pushinteger(L,nextChildId++);
		lua_settable(L,1);

		lua_getfield(L,1,"drawFn");
		if (lua_type(L,-1)==LUA_TFUNCTION)
		{
			Wnd->drawFn=&newDrawProc;
		}
		lua_settop(L,1);

		lua_pushlightuserdata(L,Wnd);
		lua_pushvalue(L,1);
				lua_pushstring(L,"handle");
				lua_pushlightuserdata(L,Wnd);
			lua_settable(L,-3);// Çàïèñûâàåì â òàáëèöó õýíäë
		lua_settable(L,-3);
		Wnd->drawData=Wdd;
	

		lua_settop(L,1);
		lua_getfield(L,1,"children");
		if (!lua_istable(L,-1))
		{
			lua_settop(L,1);
			lua_newtable(L);
			lua_pushvalue(L,-1);
			lua_setfield(L,1,"children");
		}
		getClientVar("wndCreate"); //wndcreaet, children, table, <end>
		for (int i=1;;i++)/// ñîçäàåì äî÷åðíèå îêíà
		{
			lua_pushvalue(L,-1);
			lua_pushinteger(L,i);
			lua_gettable(L,1);
			if (lua_type(L,-1)!=LUA_TTABLE)
				break;
			lua_getfield(L,-1,"handle");
			if (lua_type(L,-1)!=LUA_TNIL)
			{
				//÷òî åùå çà õðåíü? ïî÷åìó äî÷åðíåå îêíî óæå ñîçäàíî?
				lua_pop(L,3);
				continue;
			}
			lua_pop(L,1);
			lua_pushvalue(L,1);
			if (0!=lua_pcall(L,2,1,0))
			{
				const char *S=lua_tostring(L,-1);
				break;
			}
			lua_getfield(L,-1,"handle");
			lua_pushvalue(L,-2);
			lua_settable(L,2);/// children
			lua_settop(L,3);
		}
		lua_settop(L,1);
		return 1;
	}

};
extern void InjectAddr(DWORD Addr,void *Fn);
extern void InjectJumpTo(DWORD Addr,void *Fn);

void windowsInit()
{
	ASSIGN(noxWndGetID,0x46B0A0);
	ASSIGN(noxWndGetChildByID,0x46B0C0);
	ASSIGN(noxWindowDestroy,0x46C4E0);
	ASSIGN(parseWindowStatus,0x004A0A00);

	ASSIGN(wndShowHide,0x0046AC00);
	ASSIGN(wndShowModalMB,0x0046A8C0);
	ASSIGN(wndSetFocusMainMB,0x0046ADC0);
	
	ASSIGN(wndLoadControl,0x004A1510);
	ASSIGN(wndCreate2,0x0046C3E0);

	ASSIGN(wndGetCaptureMain,0x0046AE00);
	ASSIGN(wndSetCaptureMain,0x0046ADC0);
	ASSIGN(wndClearCaptureMain,0x0046ADE0);


	lua_pushlightuserdata(L,&noxWndLoad);
	lua_newtable(L);
	lua_settable(L,LUA_REGISTRYINDEX);


	registerclient("wndSetProc",&wndSetProcL);
	registerclient("wndCall",&callWndProcL);
	registerclient("wndGrabMouse",&wndGrabMouse);
	registerclient("wndUnGrabMouse",&wndUnGrabMouse);

	registerclient("wndShow",&wndShow); // ïîêàçûâàåò/ñêðûâàåò
	registerclient("wndClose",&wndDestroyL);
	registerclient("wndCreate",&wndCreate,1);
	registerclient("wndLoad",&wndLoad);

	registerclient("wndGetId",&wndGetIdL);
	registerclient("wndChildById",&getChildByIdL);
	registerclient("wndSetAttr",&wndSetAttr); // äëÿ çàäàíèÿ ðàçíûõ ïàðàìåòðîâ

}