- // 1: self
- LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
- lua_pop(L, 1);
-
- assert(self);
-
- self->m_removed = true;
-
- return 0;
-}
-
-/*
- {X=,Y=,Z=} object_get_nearest_player_position(self)
-*/
-/*static int lf_object_get_nearest_player_position(lua_State *L)
-{
- // 1: self
- LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
- lua_pop(L, 1);
-
- assert(self);
-
- ServerEnvironment *env = self->getEnv();
- env->
- v3f pos = ;
-
- lua_newtable(L);
-
- lua_pushstring(L, "X");
- lua_pushnumber(L, pos.X/BS);
- lua_settable(L, -3);
-
- lua_pushstring(L, "Y");
- lua_pushnumber(L, pos.Y/BS);
- lua_settable(L, -3);
-
- lua_pushstring(L, "Z");
- lua_pushnumber(L, pos.Z/BS);
- lua_settable(L, -3);
-
- return 1; // Number of return values
-}*/
-
-LuaSAO::LuaSAO(ServerEnvironment *env, u16 id, v3f pos):
- ServerActiveObject(env, id, pos),
- L(NULL)
-{
- dstream<<"LuaSAO::LuaSAO(): id="<<id<<std::endl;
- L = lua_open();
- assert(L);
-
- // Load libraries
- luaopen_base(L);
- luaopen_table(L);
- luaopen_string(L);
- luaopen_math(L);
-
- // Add globals
- //lua_pushlightuserdata(L, this);
- //lua_setglobal(L, "self");
-
- // Register functions
- lua_register(L, "object_set_base_position", lf_object_set_base_position);
- lua_register(L, "object_get_base_position", lf_object_get_base_position);
- lua_register(L, "object_add_message", lf_object_add_message);
- lua_register(L, "object_get_node", lf_object_get_node);
- lua_register(L, "get_content_features", lf_get_content_features);
- lua_register(L, "object_dig_node", lf_object_dig_node);
- lua_register(L, "object_place_node", lf_object_place_node);
- lua_register(L, "object_remove", lf_object_remove);
-}
-
-LuaSAO::~LuaSAO()
-{
- lua_close(L);
-}
-
-std::string LuaSAO::getClientInitializationData()
-{
- /*
- Read client-side script from file
- */
-
- std::string relative_path;
- relative_path += "luaobjects/";
- relative_path += m_script_name;
- relative_path += "/client.lua";
- std::string full_path = porting::getDataPath(relative_path.c_str());
- std::string script;
- std::ifstream file(full_path.c_str(), std::ios::binary | std::ios::ate);
- int size = file.tellg();
- SharedBuffer<char> buf(size);
- file.seekg(0, std::ios::beg);
- file.read(&buf[0], size);
- file.close();
-
- /*
- Create data string
- */
- std::string data;
-
- // Append script
- std::string script_string(&buf[0], buf.getSize());
- data += serializeLongString(script_string);
-
- /*
- Get data from server-side script for inclusion
- */
- std::string other_data;
-
- do{
-
- const char *funcname = "on_get_client_init_data";
- lua_getglobal(L, funcname);
- if(!lua_isfunction(L,-1))
- {
- lua_pop(L,1);
- dstream<<"WARNING: LuaSAO: Function not found: "
- <<funcname<<std::endl;
- break;
- }
-
- // Parameters:
- // 1: self
- lua_pushlightuserdata(L, this);
-
- // Call (1 parameters, 1 result)
- if(lua_pcall(L, 1, 1, 0))
- {
- dstream<<"WARNING: LuaSAO: Error running function "
- <<funcname<<": "
- <<lua_tostring(L,-1)<<std::endl;
- break;
- }
-
- // Retrieve result
- if(!lua_isstring(L,-1))
- {
- dstream<<"WARNING: LuaSAO: Function "<<funcname
- <<" didn't return a string"<<std::endl;
- break;
- }
-
- size_t cs_len = 0;
- const char *cs = lua_tolstring(L, -1, &cs_len);
- lua_pop(L,1);
-
- other_data = std::string(cs, cs_len);
-
- }while(0);
-
- data += serializeLongString(other_data);
-
- return data;
-}
-
-std::string LuaSAO::getServerInitializationData()
-{
- std::string data;
-
- // Script name
- data.append(serializeString(m_script_name));
-
- /*
- Get data from server-side script for inclusion
- */
- std::string other_data;
-
- do{
-
- const char *funcname = "on_get_server_init_data";
- lua_getglobal(L, funcname);
- if(!lua_isfunction(L,-1))
- {
- lua_pop(L,1);
- dstream<<"WARNING: LuaSAO: Function not found: "
- <<funcname<<std::endl;
- break;
- }
-
- // Parameters:
- // 1: self
- lua_pushlightuserdata(L, this);
-
- // Call (1 parameters, 1 result)
- if(lua_pcall(L, 1, 1, 0))
- {
- dstream<<"WARNING: LuaSAO: Error running function "
- <<funcname<<": "
- <<lua_tostring(L,-1)<<std::endl;
- break;
- }
-
- // Retrieve result
- if(!lua_isstring(L,-1))
- {
- dstream<<"WARNING: LuaSAO: Function "<<funcname
- <<" didn't return a string"<<std::endl;
- break;
- }
-
- size_t cs_len = 0;
- const char *cs = lua_tolstring(L, -1, &cs_len);
- lua_pop(L,1);
-
- other_data = std::string(cs, cs_len);
-
- }while(0);
-
- data += serializeLongString(other_data);
-
- return data;
-}
-
-void LuaSAO::initializeFromNothing(const std::string &script_name)
-{
- loadScripts(script_name);
-
- /*
- Call on_initialize(self, data) in the script
- */
-
- const char *funcname = "on_initialize";
- lua_getglobal(L, funcname);
- if(!lua_isfunction(L,-1))
- {
- lua_pop(L,1);
- dstream<<"WARNING: LuaSAO: Function not found: "
- <<funcname<<std::endl;
- return;
- }
-
- // Parameters:
- // 1: self
- lua_pushlightuserdata(L, this);
- // 2: data (other)
- lua_pushstring(L, "");
-
- // Call (2 parameters, 0 result)
- if(lua_pcall(L, 2, 0, 0))
- {
- dstream<<"WARNING: LuaSAO: Error running function "
- <<funcname<<": "
- <<lua_tostring(L,-1)<<std::endl;
- return;
- }
-}
-
-void LuaSAO::initializeFromSave(const std::string &data)
-{
- std::istringstream is(data, std::ios::binary);
- std::string script_name = deSerializeString(is);
- std::string other = deSerializeLongString(is);
-
- loadScripts(script_name);
-
- /*
- Call on_initialize(self, data) in the script
- */
-
- const char *funcname = "on_initialize";
- lua_getglobal(L, funcname);
- if(!lua_isfunction(L,-1))
- {
- lua_pop(L,1);
- dstream<<"WARNING: LuaSAO: Function not found: "
- <<funcname<<std::endl;
- return;
- }
-
- // Parameters:
- // 1: self
- lua_pushlightuserdata(L, this);
- // 2: data (other)
- lua_pushlstring(L, other.c_str(), other.size());
-
- // Call (2 parameters, 0 result)
- if(lua_pcall(L, 2, 0, 0))
- {
- dstream<<"WARNING: LuaSAO: Error running function "
- <<funcname<<": "
- <<lua_tostring(L,-1)<<std::endl;