[WoW] [3.0.9] [Info] LUA Callbacks

[Nesox]

Cant get it to work perfectley. GetTop seems to allways return 0 somehow. Maybe it's my Lua_DoString that doesnt work properley or is it impossible to use Lua_DoString and then pop the values?
Here's the class im using.

public class Lua
    {

        private BlackMagic wow { get; set; }
        private uint State;

        public Lua(BlackMagic _BlackMagic)
        {
            this.wow = _BlackMagic;
            State = GetState();
        }


        private enum Offsets : uint
        {
            GetLuaState = 0x0077D0F0, 
            lua_gettop = 0x007ADAD0,
            lua_tostring = 0x007ADFE0,
         }

        public uint GetState()
        {
            uint codeCave = wow.AllocateMemory(0x1048);

            wow.Asm.Clear();
            wow.Asm.AddLine("call {0}", (uint)Offsets.GetLuaState);
            wow.Asm.AddLine("retn");

            uint result = wow.Asm.InjectAndExecute(codeCave);
            wow.FreeMemory(codeCave);
            return result;
        }

        public int GetTop()
        {
            uint codeCave = wow.AllocateMemory(0x1048);
            wow.Asm.Clear();
            wow.Asm.AddLine("push {0}", State);
            wow.Asm.AddLine("call {0}", (uint)Offsets.lua_gettop);
            wow.Asm.AddLine("add esp, 0x4");
            wow.Asm.AddLine("retn");

            uint result = wow.Asm.InjectAndExecute(codeCave);
            wow.FreeMemory(codeCave);
            return (int)result;
        }

        public override string ToString()
        {
            return ToString(GetTop(), 64);
        }

        public string ToString(int index, int length)
        {
            uint codeCave = wow.AllocateMemory(0x2048);

            wow.Asm.Clear();
            wow.Asm.AddLine("push 0");
            wow.Asm.AddLine("push {0}", index);
            wow.Asm.AddLine("push {0}", State);
            wow.Asm.AddLine("call {0}", (uint)Offsets.lua_tostring);
            wow.Asm.AddLine("add esp, 0xC");
            wow.Asm.AddLine("retn");

            uint result = wow.Asm.InjectAndExecute(codeCave);
            wow.FreeMemory(codeCave);

            try
            {
                return wow.ReadASCIIString(result, length);
            }
            catch (Exception e)
            {
                return "";
            }
        }

        public void Lua_DoString(string pszString)
        {
            ObjectManager __ObjectManager = new ObjectManager(this.wow);
            ObjectManager.WoWObjectManager _ObjectManager = __ObjectManager.GetWowObjectManager();

            wow.Asm.Clear();
            uint pScript = wow.AllocateMemory(pszString.Length + 1);
            wow.WriteASCIIString(pScript, pszString);

            wow.Asm.AddLine("mov EDX, [{0}]", _ObjectManager.g_clientConnection);   //Start UpdateCurMgr
            wow.Asm.AddLine("mov EDX, [EDX+{0}]", _ObjectManager.Offset);
            wow.Asm.AddLine("FS mov EAX, [0x2C]");
            wow.Asm.AddLine("mov EAX, [EAX]");
            wow.Asm.AddLine("add EAX, 8");
            wow.Asm.AddLine("mov [EAX], EDX"); // End UpdateCurMgr

            wow.Asm.AddLine("mov ecx, [{0}]", State );//0x00FC54EC);
            wow.Asm.AddLine("push ecx");
            wow.Asm.AddLine("mov eax, {0}", pScript);
            wow.Asm.AddLine("push eax");
            wow.Asm.AddLine("mov edx, {0}", pScript);
            wow.Asm.AddLine("push edx");

            wow.Asm.AddLine("call {0}", WowDecompile.FindOffset(this.wow, WowDecompile.Offsets.Lua_DoString));
            wow.Asm.AddLine("add esp, 0xC");
            wow.Asm.AddLine("retn");

            uint codeCave = wow.AllocateMemory(0x2048);
            wow.Asm.InjectAndExecuteEx(this.wow.ProcessHandle, codeCave);
        }

      }

And here is how i use it.

                BlackMagic wow = new BlackMagic(p.Id);
                Lua _Lua = new Lua(wow);

                _Lua.Lua_DoString("status, mapName, instanceID, lowestlevel, highestlevel, teamSize, registeredMatch = GetBattlefieldStatus(1);");

                for (int i = 0; i < _Lua.GetTop(); i++)
                {
                       if(i != 0)
                             Console.WriteLine(_Lua.ToString(i, 64));

                       else
                             Console.WriteLine("GetTop:{0}", _Lua.GetTop());
                }

Any suggestions?

[jjaa]

Cant get it to work perfectley. GetTop seems to allways return 0 somehow. Maybe it's my Lua_DoString that doesnt work properley or is it impossible to use Lua_DoString and then pop the values?
Here's the class im using.

....

[/code]Any suggestions?

lua_DoString will not put anything on the lua stack, thats why you register your own lua function and pass the lua you want to execute as a pram to your lua function.

typedef int ( __cdecl * Lua_CFunction )( struct lua_State *L);
FUNCTION_AT_ADDRESS(void __cdecl lua_RegisterFunction( char * szName, Lua_CFunction pFunc ), 0x0077D290);

int __cdecl lua_ISXWoWPrint (struct lua_State *L) 
{

  
int n = LuaGetTop(L);  /* number of arguments */
  for (int i=1; i<=n; i++) 
  {
        const char *out=lua_tostring(L,i,NULL);
        if (out && out[0])
            printf("%s",out);
  }
  return 0;


}
//007CB790 must be patched to stop the invalid function pointer crap

int __cdecl CMD_tester(int argc, char *argv[])
{
    lua_RegisterFunction("ISXWoWPrint",lua_ISXWoWPrint);
    MyDoString("ISXWoWPrint(luafunc())","ISXWoWPrint(luafunc())");
}

I haven't tested it yet because the servers are down but it should work...i hope

[Nesox]

Ah ok thank you ill try to figure out how to do that later ^^
Edit: it's gonna take a while

[jagged software]

Cypher great work. I'd hump your leg but it seems inappropriate.
Thanks for this and your other posts today.

Nesox, Re: Porting to C#.
You should have a custom library in both languages. The more tools in your toolbox the better.

[Nesox]

Nesox, Re: Porting to C#.
You should have a custom library in both languages. The more tools in your toolbox the better.

My C++ skills arent really fresh gonna start learning it more serious in a while when i got some more time

[jagged software]

it's the best way to go IMO. but whatever gets the job done. if you have any questions when learning, feel free to send me a PM.

[SKU]

[COLOR=Cyan]lua_DoString will not put anything on the lua stack, thats why you register your own lua function and pass the lua you want to execute as a pram to your lua function.

Ah good to know, not that I was trying to get the value off the stack for 3 hours. Gonna look into it, although my brain refuses to convert C++ to sense.

Until then, my 'loldetour' of the print() function has to be enough. :/

[ostapus]

Nice,

thanks for isxwow source Cypher. I was wondering for a long time how facing been implemented in isxwow. I wish someone had more fresh sources where -lineofsight parameter (for target command) is implemented.

[ostapus]

lua_DoString will not put anything on the lua stack, thats why you register your own lua function and pass the lua you want to execute as a pram to your lua function.

Hmm, in theory - after lua_dostring you should be able to pull results (if there any) from the stack... lua_dostring is actually macros as
lua_load(....) with following lua_pcall

where lua_load compiles and puts bytecode in the stack and lua_pcall calling that compiled chunk of code.. so if that chunk - puts anything in the stack - it should be popable. once again - in theory

[Cypher]

Nice,

thanks for isxwow source Cypher. I was wondering for a long time how facing been implemented in isxwow. I wish someone had more fresh sources where -lineofsight parameter (for target command) is implemented.

1.9.x (the version I just posted) was the last version with a source release.

[argh44z]

Thanks for that file Cypher, I had found a copy a while back and then lost it again while switching computers. Maytricksmath was a p. cool dude.

[ggg898]

Is there anything one have to do in order to "prepare" for a DoString call? I have a wrapper much like the one in this post, but when it gets called, the state pointer param is pointing to something else than a lua state. (at least something which Lua_getTop doesnt return the correct values for).

If i call GetState in my regged fucntion first, it works ok. (or at least in 99% of the cases, it does return wrong number of parameters once in a while compared to what it should when looking at wow api wiki). This really gives me the feel that some sync or threading problem is occuring.

I call DoString with the last paramter set to null, and in the context of wows rendering thread, this is the only place any of my lua calls occurs, so I cant really understand where the threading probs occur....

Do wows other threads call Lua so i have to suspend them even when executing in the rendering thread?

What state does a Lua_doString with null third parameter use? Anyone knows? Or have i missunderstood something real bad?

Many thanks to all users on this site

[Cypher]

Third param is just zero, you don't need to pass it anything.

If you're in the render thread you don't need to worry about thread synchronization because all of WoWs thread-local stuff happens in that thread, so obviously it can't change anything while your code is being executed.

You don't need to call GetState, you're probably calling GetTop wrong.

[slcavos]

Not to resurrect a dead thread, but this is the closest, most recent match to what I am doing. I am currently trying to get simple DoString support in C# using BlackMagic, and have hit a brick wall.

When I invoke the function, it doesn't crash the client, it doesn't throw an exception, but nothing happens. No response whatsoever. Same story with CastSpellById, incidentally. I have double checked the function offsets in IDA to verify the parameters and everything looks ok there. I have all the required DLLs in the executable folder. I have read every LUA thread I could find, and aside from constantly being reminded that I should be using C++ for this, I can't find anything that I might be doing wrong.

Here's what I am using:

        public static void Lua_DoString(string command)
        {
           // command is something like "DoEmote(\"dance\")"

            wow.SuspendThread();

            uint codecave = wow.AllocateMemory();
            uint stringcave = wow.AllocateMemory(command.Length + 1);
            WriteString(stringcave, command, true);

            wow.Asm.Clear();
            wow.Asm.AddLine("fs mov eax, [0x2C]");
            wow.Asm.AddLine("mov eax, [eax]");
            wow.Asm.AddLine("add eax, 8");
            wow.Asm.AddLine("mov dword [eax], {0}", s_curMgr);

            wow.Asm.AddLine("push {0}", 0);
            wow.Asm.AddLine("mov eax, {0}", stringcave);
            wow.Asm.AddLine("push eax");
            wow.Asm.AddLine("push eax");
            wow.Asm.AddLine("call {0}", 0x0049AE30);
            wow.Asm.AddLine("add esp, 0xC");
            wow.Asm.AddLine("retn");

            wow.Asm.InjectAndExecute(codecave);
            wow.FreeMemory(codecave);
            wow.FreeMemory(stringcave);
            wow.ResumeThread();
        }

This seems like it should be quite simple and I can't help the nagging feeling that I am missing something obvious. I don't really care about getting return values at this point, just basic commands. If anyone could give my function a looksie, I would really appreciate it.

[lanman92]

Here's mine...

 
public bool lua_DoString(BlackMagic bm, string command)
{
space = bm.AllocateMemory(0x2048);
bm.WriteASCIIString(space + 0x1024, command);
g_clientCon = bm.ReadUInt(0x1132F60);
s_curMgr = bm.ReadUInt(g_clientCon + 0x2C24);
bm.Asm.Clear();
bm.Asm.AddLine("FS mov eax, [0x2C]");
bm.Asm.AddLine("mov eax, [eax]");
bm.Asm.AddLine("add eax, 0x10");
bm.Asm.AddLine("mov dword [eax], {0}", s_curMgr);
bm.Asm.AddLine("mov ecx, 0");
bm.Asm.AddLine("mov eax, " + (space + 0x1024));
bm.Asm.AddLine("push ecx");
bm.Asm.AddLine("push eax");
bm.Asm.AddLine("push eax");
bm.Asm.AddLine("mov eax, " + luaDoString);
bm.Asm.AddLine("call eax");
bm.Asm.AddLine("add esp, 0xC");
bm.Asm.AddLine("retn");
bm.SuspendThread();
bm.Asm.InjectAndExecute(space);
bm.ResumeThread();
bm.FreeMemory(space);
return true;
}