starting playing the wherigo

Signed-off-by: Peter Siegmund <mars3142@noreply.mars3142.dev>

main/src/lua/zobject.cpp

@@ -0,0 +1,64 @@
+#include "lua/zobject.h"
+#include "lua/game_engine.h"
+
+extern "C" {
+#include <lua.h>
+}
+
+#include <wx/log.h>
+
+namespace wherigo {
+
+int zobject_MoveTo(lua_State *L) {
+  // Get source object name
+  lua_getfield(L, 1, "Name");
+  const char *srcName = lua_isstring(L, -1) ? lua_tostring(L, -1) : "(unknown)";
+  lua_pop(L, 1);
+
+  // Get target container name
+  const char *dstName = "(nil)";
+  if (lua_istable(L, 2)) {
+    lua_getfield(L, 2, "Name");
+    dstName = lua_isstring(L, -1) ? lua_tostring(L, -1) : "(unknown)";
+    lua_pop(L, 1);
+
+    lua_pushvalue(L, 2);
+    lua_setfield(L, 1, "Container");
+  }
+
+  wxLogDebug("MoveTo: %s -> %s", srcName, dstName);
+
+  // Notify game state change
+  GameEngine::getInstance().notifyStateChanged();
+
+  return 0;
+}
+
+int zobject_Contains(lua_State *L) {
+  // self (container) at index 1, item to check at index 2
+
+  lua_getfield(L, 1, "Name");
+  const char *containerName = lua_isstring(L, -1) ? lua_tostring(L, -1) : "(unknown)";
+  lua_pop(L, 1);
+
+  lua_getfield(L, 2, "Name");
+  const char *itemName = lua_isstring(L, -1) ? lua_tostring(L, -1) : "(unknown)";
+  lua_pop(L, 1);
+
+  // Check if item's Container is the same as self (container)
+  bool contains = false;
+
+  lua_getfield(L, 2, "Container"); // Get item.Container
+  if (lua_istable(L, -1)) {
+    // Compare by reference - check if it's the same table as self
+    contains = lua_rawequal(L, 1, -1);
+  }
+  lua_pop(L, 1); // pop Container
+
+  wxLogDebug("Contains: %s in %s? -> %s", itemName, containerName, contains ? "true" : "false");
+  lua_pushboolean(L, contains ? 1 : 0);
+  return 1;
+}
+
+} // namespace wherigo
+