mirror of https://github.com/minetest/minetest.git
762 lines
15 KiB
C++
762 lines
15 KiB
C++
/*
|
|
Minetest-c55
|
|
Copyright (C) 2010-2011 celeron55, Perttu Ahola <celeron55@gmail.com>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 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 General Public License for more details.
|
|
|
|
You should have received a copy of the GNU 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 "serverobject.h"
|
|
#include <fstream>
|
|
#include "environment.h"
|
|
|
|
ServerActiveObject::ServerActiveObject(ServerEnvironment *env, u16 id, v3f pos):
|
|
ActiveObject(id),
|
|
m_known_by_count(0),
|
|
m_removed(false),
|
|
m_env(env),
|
|
m_base_position(pos)
|
|
{
|
|
}
|
|
|
|
ServerActiveObject::~ServerActiveObject()
|
|
{
|
|
}
|
|
|
|
/*
|
|
TestSAO
|
|
*/
|
|
|
|
TestSAO::TestSAO(ServerEnvironment *env, u16 id, v3f pos):
|
|
ServerActiveObject(env, id, pos),
|
|
m_timer1(0),
|
|
m_age(0)
|
|
{
|
|
}
|
|
|
|
void TestSAO::step(float dtime, Queue<ActiveObjectMessage> &messages)
|
|
{
|
|
m_age += dtime;
|
|
if(m_age > 10)
|
|
{
|
|
m_removed = true;
|
|
return;
|
|
}
|
|
|
|
m_base_position.Y += dtime * BS * 2;
|
|
if(m_base_position.Y > 8*BS)
|
|
m_base_position.Y = 2*BS;
|
|
|
|
m_timer1 -= dtime;
|
|
if(m_timer1 < 0.0)
|
|
{
|
|
m_timer1 += 0.125;
|
|
//dstream<<"TestSAO: id="<<getId()<<" sending data"<<std::endl;
|
|
|
|
std::string data;
|
|
|
|
data += itos(0); // 0 = position
|
|
data += " ";
|
|
data += itos(m_base_position.X);
|
|
data += " ";
|
|
data += itos(m_base_position.Y);
|
|
data += " ";
|
|
data += itos(m_base_position.Z);
|
|
|
|
ActiveObjectMessage aom(getId(), false, data);
|
|
messages.push_back(aom);
|
|
}
|
|
}
|
|
|
|
/*
|
|
LuaSAO
|
|
*/
|
|
|
|
extern "C"{
|
|
#include "lstring.h"
|
|
}
|
|
|
|
/*
|
|
Callbacks in script:
|
|
|
|
on_step(self, dtime)
|
|
on_get_client_init_data(self)
|
|
on_get_server_init_data(self)
|
|
on_initialize(self, data)
|
|
*/
|
|
|
|
/*
|
|
object_set_base_position(self, {X=,Y=,Z=})
|
|
*/
|
|
static int lf_object_set_base_position(lua_State *L)
|
|
{
|
|
// 2: position
|
|
assert(lua_istable(L, -1));
|
|
lua_pushstring(L, "X");
|
|
lua_gettable(L, -2);
|
|
lua_Number x = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Y");
|
|
lua_gettable(L, -2);
|
|
lua_Number y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Z");
|
|
lua_gettable(L, -2);
|
|
lua_Number z = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pop(L, 1);
|
|
// 1: self
|
|
LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
|
|
lua_pop(L, 1);
|
|
|
|
assert(self);
|
|
|
|
self->setBasePosition(v3f(x*BS,y*BS,z*BS));
|
|
|
|
return 0; // Number of return values
|
|
}
|
|
|
|
/*
|
|
{X=,Y=,Z=} object_get_base_position(self)
|
|
*/
|
|
static int lf_object_get_base_position(lua_State *L)
|
|
{
|
|
// 1: self
|
|
LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
|
|
lua_pop(L, 1);
|
|
|
|
assert(self);
|
|
|
|
v3f pos = self->getBasePosition();
|
|
|
|
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
|
|
}
|
|
|
|
/*
|
|
object_add_message(self, string data)
|
|
lf = luafunc
|
|
*/
|
|
static int lf_object_add_message(lua_State *L)
|
|
{
|
|
// 2: data
|
|
size_t datalen = 0;
|
|
const char *data_c = lua_tolstring(L, -1, &datalen);
|
|
lua_pop(L, 1);
|
|
// 1: self
|
|
LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
|
|
lua_pop(L, 1);
|
|
|
|
assert(self);
|
|
assert(data_c);
|
|
|
|
std::string data(data_c, datalen);
|
|
//dstream<<"object_add_message: data="<<data<<std::endl;
|
|
|
|
// Create message and add to queue
|
|
ActiveObjectMessage aom(self->getId());
|
|
aom.reliable = true;
|
|
aom.datastring = data;
|
|
self->m_message_queue.push_back(aom);
|
|
|
|
return 0; // Number of return values
|
|
}
|
|
|
|
/*
|
|
object_get_node(self, {X=,Y=,Z=})
|
|
*/
|
|
static int lf_object_get_node(lua_State *L)
|
|
{
|
|
// 2: position
|
|
assert(lua_istable(L, -1));
|
|
lua_pushstring(L, "X");
|
|
lua_gettable(L, -2);
|
|
lua_Number x = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Y");
|
|
lua_gettable(L, -2);
|
|
lua_Number y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Z");
|
|
lua_gettable(L, -2);
|
|
lua_Number z = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pop(L, 1);
|
|
// 1: self
|
|
LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
|
|
lua_pop(L, 1);
|
|
|
|
assert(self);
|
|
|
|
v3s16 pos = floatToInt(v3f(x,y,z), 1.0);
|
|
|
|
/*dstream<<"Checking node from pos=("<<pos.X<<","<<pos.Y<<","<<pos.Z
|
|
<<")"<<std::endl;*/
|
|
|
|
// Get the node
|
|
MapNode n(CONTENT_IGNORE);
|
|
n = self->getEnv()->getMap().getNodeNoEx(pos);
|
|
|
|
// Create a table with some data about the node
|
|
lua_newtable(L);
|
|
lua_pushstring(L, "content");
|
|
lua_pushinteger(L, n.d);
|
|
lua_settable(L, -3);
|
|
lua_pushstring(L, "param1");
|
|
lua_pushinteger(L, n.param);
|
|
lua_settable(L, -3);
|
|
lua_pushstring(L, "param2");
|
|
lua_pushinteger(L, n.param2);
|
|
lua_settable(L, -3);
|
|
|
|
// Return the table
|
|
return 1;
|
|
}
|
|
|
|
#if 0
|
|
/*
|
|
get_node_features(node)
|
|
node = {content=,param1=,param2=}
|
|
*/
|
|
static int lf_get_node_features(lua_State *L)
|
|
{
|
|
MapNode n;
|
|
|
|
// 1: node
|
|
assert(lua_istable(L, -1));
|
|
lua_pushstring(L, "content");
|
|
lua_gettable(L, -2);
|
|
n.d = lua_tointeger(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "param1");
|
|
lua_gettable(L, -2);
|
|
n.param = lua_tointeger(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "param2");
|
|
lua_gettable(L, -2);
|
|
n.param2 = lua_tointeger(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pop(L, 1);
|
|
|
|
ContentFeatures &f = content_features(n.d);
|
|
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
get_content_features(content)
|
|
*/
|
|
static int lf_get_content_features(lua_State *L)
|
|
{
|
|
MapNode n;
|
|
|
|
// 1: content
|
|
n.d = lua_tointeger(L, -1);
|
|
lua_pop(L, 1);
|
|
|
|
// Get and return information
|
|
ContentFeatures &f = content_features(n.d);
|
|
|
|
lua_newtable(L);
|
|
lua_pushstring(L, "walkable");
|
|
lua_pushboolean(L, f.walkable);
|
|
lua_settable(L, -3);
|
|
lua_pushstring(L, "diggable");
|
|
lua_pushboolean(L, f.diggable);
|
|
lua_settable(L, -3);
|
|
lua_pushstring(L, "buildable_to");
|
|
lua_pushboolean(L, f.buildable_to);
|
|
lua_settable(L, -3);
|
|
|
|
return 1;
|
|
}
|
|
|
|
/*
|
|
bool object_dig_node(self, {X=,Y=,Z=})
|
|
Return true on success
|
|
*/
|
|
static int lf_object_dig_node(lua_State *L)
|
|
{
|
|
// 2: position
|
|
assert(lua_istable(L, -1));
|
|
lua_pushstring(L, "X");
|
|
lua_gettable(L, -2);
|
|
lua_Number x = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Y");
|
|
lua_gettable(L, -2);
|
|
lua_Number y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Z");
|
|
lua_gettable(L, -2);
|
|
lua_Number z = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pop(L, 1);
|
|
// 1: self
|
|
LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
|
|
lua_pop(L, 1);
|
|
|
|
assert(self);
|
|
|
|
v3s16 pos = floatToInt(v3f(x,y,z), 1.0);
|
|
|
|
/*
|
|
Do stuff.
|
|
This gets sent to the server by the map through the edit
|
|
event system.
|
|
*/
|
|
bool succeeded = self->getEnv()->getMap().removeNodeWithEvent(pos);
|
|
|
|
lua_pushboolean(L, succeeded);
|
|
return 1;
|
|
}
|
|
|
|
/*
|
|
bool object_place_node(self, {X=,Y=,Z=}, node)
|
|
node={content=,param1=,param2=}
|
|
param1 and param2 are optional
|
|
Return true on success
|
|
*/
|
|
static int lf_object_place_node(lua_State *L)
|
|
{
|
|
// 3: node
|
|
MapNode n(CONTENT_STONE);
|
|
assert(lua_istable(L, -1));
|
|
{
|
|
lua_pushstring(L, "content");
|
|
lua_gettable(L, -2);
|
|
if(lua_isnumber(L, -1))
|
|
n.d = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "param1");
|
|
lua_gettable(L, -2);
|
|
if(lua_isnumber(L, -1))
|
|
n.param = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "param2");
|
|
lua_gettable(L, -2);
|
|
if(lua_isnumber(L, -1))
|
|
n.param2 = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
}
|
|
lua_pop(L, 1);
|
|
// 2: position
|
|
assert(lua_istable(L, -1));
|
|
lua_pushstring(L, "X");
|
|
lua_gettable(L, -2);
|
|
lua_Number x = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Y");
|
|
lua_gettable(L, -2);
|
|
lua_Number y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pushstring(L, "Z");
|
|
lua_gettable(L, -2);
|
|
lua_Number z = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_pop(L, 1);
|
|
// 1: self
|
|
LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
|
|
lua_pop(L, 1);
|
|
|
|
assert(self);
|
|
|
|
v3s16 pos = floatToInt(v3f(x,y,z), 1.0);
|
|
|
|
/*
|
|
Do stuff.
|
|
This gets sent to the server by the map through the edit
|
|
event system.
|
|
*/
|
|
bool succeeded = self->getEnv()->getMap().addNodeWithEvent(pos, n);
|
|
|
|
lua_pushboolean(L, succeeded);
|
|
return 1;
|
|
}
|
|
|
|
/*
|
|
object_remove(x,y,z)
|
|
*/
|
|
static int lf_object_remove(lua_State *L)
|
|
{
|
|
// 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;
|
|
return;
|
|
}
|
|
}
|
|
|
|
void LuaSAO::loadScripts(const std::string &script_name)
|
|
{
|
|
m_script_name = script_name;
|
|
|
|
std::string relative_path;
|
|
relative_path += "luaobjects/";
|
|
relative_path += script_name;
|
|
std::string server_file = relative_path + "/server.lua";
|
|
std::string server_path = porting::getDataPath(server_file.c_str());
|
|
|
|
// Load the file
|
|
int ret;
|
|
ret = luaL_loadfile(L, server_path.c_str());
|
|
if(ret)
|
|
{
|
|
const char *message = lua_tostring(L, -1);
|
|
lua_pop(L, 1);
|
|
dstream<<"LuaSAO::loadScript(): lua_loadfile failed: "
|
|
<<message<<std::endl;
|
|
assert(0);
|
|
return;
|
|
}
|
|
ret = lua_pcall(L, 0, 0, 0);
|
|
if(ret)
|
|
{
|
|
const char *message = lua_tostring(L, -1);
|
|
lua_pop(L, 1);
|
|
dstream<<"LuaSAO::loadScript(): lua_pcall failed: "
|
|
<<message<<std::endl;
|
|
assert(0);
|
|
return;
|
|
}
|
|
}
|
|
|
|
void LuaSAO::step(float dtime, Queue<ActiveObjectMessage> &messages)
|
|
{
|
|
const char *funcname = "on_step";
|
|
lua_getglobal(L, funcname);
|
|
if(!lua_isfunction(L,-1))
|
|
{
|
|
lua_pop(L,1);
|
|
dstream<<"WARNING: LuaSAO::step(): Function not found: "
|
|
<<funcname<<std::endl;
|
|
return;
|
|
}
|
|
|
|
// Parameters:
|
|
// 1: self
|
|
lua_pushlightuserdata(L, this);
|
|
// 2: dtime
|
|
lua_pushnumber(L, dtime);
|
|
|
|
// Call (2 parameters, 0 result)
|
|
if(lua_pcall(L, 2, 0, 0))
|
|
{
|
|
dstream<<"WARNING: LuaSAO::step(): Error running function "
|
|
<<funcname<<": "
|
|
<<lua_tostring(L,-1)<<std::endl;
|
|
return;
|
|
}
|
|
|
|
// Move messages
|
|
while(m_message_queue.size() != 0)
|
|
{
|
|
messages.push_back(m_message_queue.pop_front());
|
|
}
|
|
}
|
|
|
|
|
|
|