Added ThroughWalls, InventoryActions API and AutoTotem

1 files changed, 216 insertions, 0 deletions

diff --git a/src/script/lua_api/l_inventoryaction.cpp b/src/script/lua_api/l_inventoryaction.cpp
new file mode 100644
index 000000000..516d6d3b2
--- /dev/null
+++ b/src/script/lua_api/l_inventoryaction.cpp
@@ -0,0 +1,216 @@
+/*
+Dragonfire
+Copyright (C) 2020 Elias Fleckenstein <eliasfleckenstein@web.de>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU Lesser General Public License as published by
+the Free Software Foundation; either version 2.1 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public License along
+with this program; if not, write to the Free Software Foundation, Inc.,
+51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+*/
+
+#include "l_inventoryaction.h"
+#include "l_internal.h"
+#include "client/client.h"
+
+int LuaInventoryAction::gc_object(lua_State *L)
+{
+	LuaInventoryAction *o = *(LuaInventoryAction **)(lua_touserdata(L, 1));
+	delete o;
+	return 0;
+}
+
+int LuaInventoryAction::mt_tostring(lua_State *L)
+{
+	LuaInventoryAction *o = checkobject(L, 1);
+	std::ostringstream os(std::ios::binary);
+	o->m_action->serialize(os);
+	lua_pushfstring(L, "InventoryAction(\"%s\")", os.str().c_str());
+	return 1;
+}
+
+int LuaInventoryAction::l_apply(lua_State *L)
+{
+	LuaInventoryAction *o = checkobject(L, 1);
+
+	std::ostringstream os(std::ios::binary);
+	o->m_action->serialize(os);
+	
+	std::istringstream is(os.str(), std::ios_base::binary);
+	
+	InventoryAction *a = InventoryAction::deSerialize(is);
+
+	getClient(L)->inventoryAction(a);
+	return 0;
+}
+
+int LuaInventoryAction::l_from(lua_State *L)
+{
+	GET_MOVE_ACTION
+	readFullInventoryLocationInto(L, &act->from_inv, &act->from_list, &act->from_i);
+	return 0;
+}
+
+int LuaInventoryAction::l_to(lua_State *L)
+{
+	GET_MOVE_ACTION
+	readFullInventoryLocationInto(L, &act->to_inv, &act->to_list, &act->to_i);
+	return 0;
+}
+
+int LuaInventoryAction::l_craft(lua_State *L)
+{
+	LuaInventoryAction *o = checkobject(L, 1);
+	
+	if (o->m_action->getType() != IAction::Craft)
+		return 0;
+		
+	std::string locStr;
+	InventoryLocation loc;
+	
+	locStr = readParam<std::string>(L, 2);
+	
+	try {
+		loc.deSerialize(locStr);
+		dynamic_cast<ICraftAction *>(o->m_action)->craft_inv = loc;
+	} catch (SerializationError &) {}
+	
+	return 0;
+}
+
+int LuaInventoryAction::l_set_count(lua_State *L)
+{
+	LuaInventoryAction *o = checkobject(L, 1);
+	
+	s16 count = luaL_checkinteger(L, 2);
+	
+	switch (o->m_action->getType()) {
+	case IAction::Move:
+		((IMoveAction *)o->m_action)->count = count;
+		break;
+	case IAction::Drop:
+		((IDropAction *)o->m_action)->count = count;
+		break;
+	case IAction::Craft:
+		((ICraftAction *)o->m_action)->count = count;
+		break;
+	}
+	
+	return 0;
+}
+
+LuaInventoryAction::LuaInventoryAction(const IAction &type) : m_action(nullptr)
+{
+	switch (type) {
+	case IAction::Move:
+		m_action = new IMoveAction();
+		break;
+	case IAction::Drop:
+		m_action = new IDropAction();
+		break;
+	case IAction::Craft:
+		m_action = new ICraftAction();
+		break;
+	}
+}
+
+LuaInventoryAction::~LuaInventoryAction()
+{
+	delete m_action;
+}
+
+void LuaInventoryAction::readFullInventoryLocationInto(lua_State *L, InventoryLocation *loc, std::string *list, s16 *index)
+{
+	try {
+		loc->deSerialize(readParam<std::string>(L, 2));
+		std::string l = readParam<std::string>(L, 3);
+		*list = l;
+		*index = luaL_checkinteger(L, 4);
+	} catch (SerializationError &) {}
+}
+
+int LuaInventoryAction::create_object(lua_State *L)
+{
+	IAction type;
+	std::string typeStr;
+	
+	typeStr = readParam<std::string>(L, 1);
+	
+	if (typeStr == "move")
+		type = IAction::Move;
+	else if (typeStr == "drop")
+		type = IAction::Drop;
+	else if (typeStr == "craft")
+		type = IAction::Craft;
+	else
+		return 0;
+
+	LuaInventoryAction *o = new LuaInventoryAction(type);
+	*(void **)(lua_newuserdata(L, sizeof(void *))) = o;
+	luaL_getmetatable(L, className);
+	lua_setmetatable(L, -2);
+	return 1;
+}
+
+int LuaInventoryAction::create(lua_State *L, const IAction &type)
+{
+	LuaInventoryAction *o = new LuaInventoryAction(type);
+	*(void **)(lua_newuserdata(L, sizeof(void *))) = o;
+	luaL_getmetatable(L, className);
+	lua_setmetatable(L, -2);
+	return 1;
+}
+
+LuaInventoryAction *LuaInventoryAction::checkobject(lua_State *L, int narg)
+{
+	return *(LuaInventoryAction **)luaL_checkudata(L, narg, className);
+}
+
+void LuaInventoryAction::Register(lua_State *L)
+{
+	lua_newtable(L);
+	int methodtable = lua_gettop(L);
+	luaL_newmetatable(L, className);
+	int metatable = lua_gettop(L);
+
+	lua_pushliteral(L, "__metatable");
+	lua_pushvalue(L, methodtable);
+	lua_settable(L, metatable);
+
+	lua_pushliteral(L, "__index");
+	lua_pushvalue(L, methodtable);
+	lua_settable(L, metatable);
+
+	lua_pushliteral(L, "__gc");
+	lua_pushcfunction(L, gc_object);
+	lua_settable(L, metatable);
+
+	lua_pushliteral(L, "__tostring");
+	lua_pushcfunction(L, mt_tostring);
+	lua_settable(L, metatable);
+
+	lua_pop(L, 1);
+
+	luaL_openlib(L, 0, methods, 0);
+	lua_pop(L, 1);
+
+	lua_register(L, className, create_object);
+}
+
+const char LuaInventoryAction::className[] = "InventoryAction";
+const luaL_Reg LuaInventoryAction::methods[] = {
+	luamethod(LuaInventoryAction, apply),
+	luamethod(LuaInventoryAction, from),
+	luamethod(LuaInventoryAction, to),
+	luamethod(LuaInventoryAction, craft),
+	luamethod(LuaInventoryAction, set_count),
+	{0,0}
+};