//#include "luna.h"
#include "luaentity_common.h"
#include "content_sao.h" // For LuaEntitySAO
+#include "tooldef.h"
+#include "nodedef.h"
+#include "craftdef.h"
/*
TODO:
-- Global environment step function
-- Random node triggers
+- Node definition
+- Random node triggers (like grass growth)
+- Deterministic node triggers (like falling sand)
- Object visual client-side stuff
- Blink effect
- Spritesheets and animation
-- Named node types and dynamic id allocation
- LuaNodeMetadata
- blockdef.has_metadata = true/false
+ blockdef.metadata_type =
+ ""
+ "sign"
+ "furnace"
+ "chest"
+ "locked_chest"
+ "lua"
- Stores an inventory and stuff in a Settings object
meta.inventory_add_list("main")
blockdef.on_inventory_modified
meta.set("owner", playername)
meta.get("owner")
+- Item definition (actually, only CraftItem)
*/
static void stackDump(lua_State *L, std::ostream &o)
}
};
-v3f readFloatPos(lua_State *L, int index)
+static v3f readFloatPos(lua_State *L, int index)
{
v3f pos;
- lua_pushvalue(L, index); // Push pos
- luaL_checktype(L, -1, LUA_TTABLE);
- lua_getfield(L, -1, "x");
+ luaL_checktype(L, index, LUA_TTABLE);
+ lua_getfield(L, index, "x");
pos.X = lua_tonumber(L, -1);
lua_pop(L, 1);
- lua_getfield(L, -1, "y");
+ lua_getfield(L, index, "y");
pos.Y = lua_tonumber(L, -1);
lua_pop(L, 1);
- lua_getfield(L, -1, "z");
+ lua_getfield(L, index, "z");
pos.Z = lua_tonumber(L, -1);
lua_pop(L, 1);
- lua_pop(L, 1); // Pop pos
pos *= BS; // Scale to internal format
return pos;
}
+static void pushpos(lua_State *L, v3s16 p)
+{
+ lua_newtable(L);
+ lua_pushnumber(L, p.X);
+ lua_setfield(L, -2, "x");
+ lua_pushnumber(L, p.Y);
+ lua_setfield(L, -2, "y");
+ lua_pushnumber(L, p.Z);
+ lua_setfield(L, -2, "z");
+}
+
+static v3s16 readpos(lua_State *L, int index)
+{
+ v3s16 p;
+ lua_getfield(L, index, "x");
+ p.X = lua_tonumber(L, -1);
+ lua_getfield(L, index, "y");
+ p.Y = lua_tonumber(L, -1);
+ lua_getfield(L, index, "z");
+ p.Z = lua_tonumber(L, -1);
+ return p;
+}
+
+static void pushnode(lua_State *L, const MapNode &n, INodeDefManager *ndef)
+{
+ lua_newtable(L);
+ lua_pushstring(L, ndef->get(n).name.c_str());
+ lua_setfield(L, -2, "name");
+ lua_pushnumber(L, n.getParam1());
+ lua_setfield(L, -2, "param1");
+ lua_pushnumber(L, n.getParam2());
+ lua_setfield(L, -2, "param2");
+}
+
+static MapNode readnode(lua_State *L, int index, INodeDefManager *ndef)
+{
+ lua_getfield(L, index, "name");
+ const char *name = lua_tostring(L, -1);
+ lua_pop(L, 1);
+ u8 param1;
+ lua_getfield(L, index, "param1");
+ if(lua_isnil(L, -1))
+ param1 = 0;
+ else
+ param1 = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+ u8 param2;
+ lua_getfield(L, index, "param2");
+ if(lua_isnil(L, -1))
+ param2 = 0;
+ else
+ param2 = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+ return MapNode(ndef, name, param1, param2);
+}
+
/*
Global functions
*/
static int l_register_entity(lua_State *L)
{
const char *name = luaL_checkstring(L, 1);
- luaL_checktype(L, 2, LUA_TTABLE);
infostream<<"register_entity: "<<name<<std::endl;
+ luaL_checktype(L, 2, LUA_TTABLE);
// Get minetest.registered_entities
lua_getglobal(L, "minetest");
return 0; /* number of results */
}
+// register_tool(name, {lots of stuff})
+static int l_register_tool(lua_State *L)
+{
+ const char *name = luaL_checkstring(L, 1);
+ infostream<<"register_tool: "<<name<<std::endl;
+ luaL_checktype(L, 2, LUA_TTABLE);
+ int table = 2;
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable tool definition manager from the server
+ IWritableToolDefManager *tooldef =
+ server->getWritableToolDefManager();
+
+ ToolDefinition def;
+
+ lua_getfield(L, table, "image");
+ if(lua_isstring(L, -1))
+ def.imagename = lua_tostring(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "basetime");
+ def.properties.basetime = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_weight");
+ def.properties.dt_weight = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_crackiness");
+ def.properties.dt_crackiness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_crumbliness");
+ def.properties.dt_crumbliness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_cuttability");
+ def.properties.dt_cuttability = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "basedurability");
+ def.properties.basedurability = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_weight");
+ def.properties.dd_weight = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_crackiness");
+ def.properties.dd_crackiness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_crumbliness");
+ def.properties.dd_crumbliness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_cuttability");
+ def.properties.dd_cuttability = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ tooldef->registerTool(name, def);
+ return 0; /* number of results */
+}
+
+// register_node(name, {lots of stuff})
+static int l_register_node(lua_State *L)
+{
+ const char *name = luaL_checkstring(L, 1);
+ infostream<<"register_node: "<<name<<std::endl;
+ luaL_checktype(L, 2, LUA_TTABLE);
+ int table0 = 2;
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable node definition manager from the server
+ IWritableNodeDefManager *nodedef =
+ server->getWritableNodeDefManager();
+
+ ContentFeatures f;
+ f.name = name;
+
+ lua_getfield(L, table0, "tile_images");
+ if(lua_istable(L, -1)){
+ int table = lua_gettop(L);
+ lua_pushnil(L);
+ int i = 0;
+ while(lua_next(L, table) != 0){
+ // key at index -2 and value at index -1
+ if(lua_isstring(L, -1))
+ f.tname_tiles[i] = lua_tostring(L, -1);
+ else
+ f.tname_tiles[i] = "";
+ // removes value, keeps key for next iteration
+ lua_pop(L, 1);
+ i++;
+ if(i==6){
+ lua_pop(L, 1);
+ break;
+ }
+ }
+ }
+ lua_pop(L, 1);
+
+ lua_getfield(L, table0, "inventory_image");
+ if(lua_isstring(L, -1))
+ f.tname_inventory = lua_tostring(L, -1);
+ lua_pop(L, 1);
+
+ // TODO: Replace with actual parameter reading
+ // Temporarily set some sane parameters to allow digging
+ f.material.diggability = DIGGABLE_NORMAL;
+ f.material.weight = 0;
+ f.material.crackiness = 0;
+ f.material.crumbliness = 0;
+ f.material.cuttability = 0;
+ f.dug_item = std::string("NodeItem \"")+name+"\" 1";
+
+ nodedef->set(name, f);
+ return 0; /* number of results */
+}
+
+// register_craft({output=item, recipe={{item00,item10},{item01,item11}})
+static int l_register_craft(lua_State *L)
+{
+ infostream<<"register_craft"<<std::endl;
+ luaL_checktype(L, 1, LUA_TTABLE);
+ int table0 = 1;
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable craft definition manager from the server
+ IWritableCraftDefManager *craftdef =
+ server->getWritableCraftDefManager();
+
+ std::string output;
+ int width = 0;
+ std::vector<std::string> input;
+
+ lua_getfield(L, table0, "output");
+ luaL_checktype(L, -1, LUA_TSTRING);
+ if(lua_isstring(L, -1))
+ output = lua_tostring(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table0, "recipe");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ if(lua_istable(L, -1)){
+ int table1 = lua_gettop(L);
+ lua_pushnil(L);
+ int rowcount = 0;
+ while(lua_next(L, table1) != 0){
+ int colcount = 0;
+ // key at index -2 and value at index -1
+ luaL_checktype(L, -1, LUA_TTABLE);
+ if(lua_istable(L, -1)){
+ int table2 = lua_gettop(L);
+ lua_pushnil(L);
+ while(lua_next(L, table2) != 0){
+ // key at index -2 and value at index -1
+ luaL_checktype(L, -1, LUA_TSTRING);
+ input.push_back(lua_tostring(L, -1));
+ // removes value, keeps key for next iteration
+ lua_pop(L, 1);
+ colcount++;
+ }
+ }
+ if(rowcount == 0){
+ width = colcount;
+ } else {
+ if(colcount != width){
+ script_error(L, "error: %s\n", "Invalid crafting recipe");
+ }
+ }
+ // removes value, keeps key for next iteration
+ lua_pop(L, 1);
+ rowcount++;
+ }
+ }
+ lua_pop(L, 1);
+
+ CraftDefinition def(output, width, input);
+ craftdef->registerCraft(def);
+
+ return 0; /* number of results */
+}
+
+// Register a global step function
+// register_globalstep(function)
+static int l_register_globalstep(lua_State *L)
+{
+ luaL_checktype(L, 1, LUA_TFUNCTION);
+ infostream<<"register_globalstep"<<std::endl;
+
+ lua_getglobal(L, "table");
+ lua_getfield(L, -1, "insert");
+ int table_insert = lua_gettop(L);
+ // Get minetest.registered_globalsteps
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_globalsteps");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int registered_globalsteps = lua_gettop(L);
+ // table.insert(registered_globalsteps, func)
+ lua_pushvalue(L, table_insert);
+ lua_pushvalue(L, registered_globalsteps);
+ lua_pushvalue(L, 1); // push function from argument 1
+ // Call insert
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+
+ return 0; /* number of results */
+}
+
+// register_on_placenode(function)
+static int l_register_on_placenode(lua_State *L)
+{
+ luaL_checktype(L, 1, LUA_TFUNCTION);
+ infostream<<"register_on_placenode"<<std::endl;
+
+ lua_getglobal(L, "table");
+ lua_getfield(L, -1, "insert");
+ int table_insert = lua_gettop(L);
+ // Get minetest.registered_on_placenodes
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_on_placenodes");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int registered_on_placenodes = lua_gettop(L);
+ // table.insert(registered_on_placenodes, func)
+ lua_pushvalue(L, table_insert);
+ lua_pushvalue(L, registered_on_placenodes);
+ lua_pushvalue(L, 1); // push function from argument 1
+ // Call insert
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+
+ return 0; /* number of results */
+}
+
+// register_on_dignode(function)
+static int l_register_on_dignode(lua_State *L)
+{
+ luaL_checktype(L, 1, LUA_TFUNCTION);
+ infostream<<"register_on_dignode"<<std::endl;
+
+ lua_getglobal(L, "table");
+ lua_getfield(L, -1, "insert");
+ int table_insert = lua_gettop(L);
+ // Get minetest.registered_on_dignodes
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_on_dignodes");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int registered_on_dignodes = lua_gettop(L);
+ // table.insert(registered_on_dignodes, func)
+ lua_pushvalue(L, table_insert);
+ lua_pushvalue(L, registered_on_dignodes);
+ lua_pushvalue(L, 1); // push function from argument 1
+ // Call insert
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+
+ return 0; /* number of results */
+}
+
static const struct luaL_Reg minetest_f [] = {
{"register_entity", l_register_entity},
+ {"register_tool", l_register_tool},
+ {"register_node", l_register_node},
+ {"register_craft", l_register_craft},
+ {"register_globalstep", l_register_globalstep},
+ {"register_on_placenode", l_register_on_placenode},
+ {"register_on_dignode", l_register_on_dignode},
{NULL, NULL}
};
// Exported functions
- // EnvRef:add_node(pos, content)
+ // EnvRef:add_node(pos, node)
// pos = {x=num, y=num, z=num}
- // content = number
static int l_add_node(lua_State *L)
{
infostream<<"EnvRef::l_add_node()"<<std::endl;
ServerEnvironment *env = o->m_env;
if(env == NULL) return 0;
// pos
- v3s16 pos;
- lua_pushvalue(L, 2); // Push pos
- luaL_checktype(L, -1, LUA_TTABLE);
- lua_getfield(L, -1, "x");
- pos.X = lua_tonumber(L, -1);
- lua_pop(L, 1);
- lua_getfield(L, -1, "y");
- pos.Y = lua_tonumber(L, -1);
- lua_pop(L, 1);
- lua_getfield(L, -1, "z");
- pos.Z = lua_tonumber(L, -1);
- lua_pop(L, 1);
- lua_pop(L, 1); // Pop pos
+ v3s16 pos = readpos(L, 2);
+ // content
+ MapNode n = readnode(L, 3, env->getGameDef()->ndef());
+ // Do it
+ env->getMap().addNodeWithEvent(pos, n);
+ return 0;
+ }
+
+ // EnvRef:remove_node(pos)
+ // pos = {x=num, y=num, z=num}
+ static int l_remove_node(lua_State *L)
+ {
+ infostream<<"EnvRef::l_remove_node()"<<std::endl;
+ EnvRef *o = checkobject(L, 1);
+ ServerEnvironment *env = o->m_env;
+ if(env == NULL) return 0;
+ // pos
+ v3s16 pos = readpos(L, 2);
+ // Do it
+ env->getMap().removeNodeWithEvent(pos);
+ return 0;
+ }
+
+ // EnvRef:get_node(pos)
+ // pos = {x=num, y=num, z=num}
+ static int l_get_node(lua_State *L)
+ {
+ infostream<<"EnvRef::l_get_node()"<<std::endl;
+ EnvRef *o = checkobject(L, 1);
+ ServerEnvironment *env = o->m_env;
+ if(env == NULL) return 0;
+ // pos
+ v3s16 pos = readpos(L, 2);
+ // Do it
+ MapNode n = env->getMap().getNodeNoEx(pos);
+ // Return node
+ pushnode(L, n, env->getGameDef()->ndef());
+ return 1;
+ }
+
+ // EnvRef:add_luaentity(pos, entityname)
+ // pos = {x=num, y=num, z=num}
+ static int l_add_luaentity(lua_State *L)
+ {
+ infostream<<"EnvRef::l_add_luaentity()"<<std::endl;
+ EnvRef *o = checkobject(L, 1);
+ ServerEnvironment *env = o->m_env;
+ if(env == NULL) return 0;
+ // pos
+ v3f pos = readFloatPos(L, 2);
// content
- u16 content = 0;
- lua_pushvalue(L, 3); // Push content
- content = lua_tonumber(L, -1);
- lua_pop(L, 1); // Pop content
+ const char *name = lua_tostring(L, 3);
// Do it
- env->getMap().addNodeWithEvent(pos, MapNode(content));
+ ServerActiveObject *obj = new LuaEntitySAO(env, pos, name, "");
+ env->addActiveObject(obj);
return 0;
}
const char EnvRef::className[] = "EnvRef";
const luaL_reg EnvRef::methods[] = {
method(EnvRef, add_node),
+ method(EnvRef, remove_node),
+ method(EnvRef, get_node),
+ method(EnvRef, add_luaentity),
{0,0}
};
<<" itemstring=\""<<itemstring<<"\""<<std::endl;
// Do it
std::istringstream is(itemstring, std::ios::binary);
- InventoryItem *item = InventoryItem::deSerialize(is);
+ ServerEnvironment *env = co->getEnv();
+ assert(env);
+ IGameDef *gamedef = env->getGameDef();
+ InventoryItem *item = InventoryItem::deSerialize(is, gamedef);
+ infostream<<"item="<<env<<std::endl;
bool fits = co->addToInventory(item);
// Return
lua_pushboolean(L, fits);
};
// Creates a new anonymous reference if id=0
-static void objectref_get_or_create(lua_State *L, ServerActiveObject *cobj)
+static void objectref_get_or_create(lua_State *L,
+ ServerActiveObject *cobj)
{
if(cobj->getId() == 0){
ObjectRef::create(L, cobj);
assert(lua_checkstack(L, 20));
infostream<<"scriptapi_export"<<std::endl;
StackUnroller stack_unroller(L);
+
+ // Store server as light userdata in registry
+ lua_pushlightuserdata(L, server);
+ lua_setfield(L, LUA_REGISTRYINDEX, "minetest_server");
// Register global functions in table minetest
lua_newtable(L);
// Get the main minetest table
lua_getglobal(L, "minetest");
- // Add registered_entities table in minetest
+ // Add tables to minetest
+
+ /*lua_newtable(L);
+ lua_setfield(L, -2, "registered_blocks");*/
+
lua_newtable(L);
lua_setfield(L, -2, "registered_entities");
- // Add object_refs table in minetest
+ lua_newtable(L);
+ lua_setfield(L, -2, "registered_globalsteps");
+
+ lua_newtable(L);
+ lua_setfield(L, -2, "registered_on_placenodes");
+
+ lua_newtable(L);
+ lua_setfield(L, -2, "registered_on_dignodes");
+
lua_newtable(L);
lua_setfield(L, -2, "object_refs");
- // Add luaentities table in minetest
lua_newtable(L);
lua_setfield(L, -2, "luaentities");
{
realitycheck(L);
assert(lua_checkstack(L, 20));
- //infostream<<"scriptapi_luaentity_step: id="<<id<<std::endl;
+ //infostream<<"scriptapi_environment_step"<<std::endl;
StackUnroller stack_unroller(L);
- lua_getglobal(L, "on_step");
- if(lua_type(L, -1) != LUA_TFUNCTION)
- return; // If no on_step function exist, do nothing
- lua_pushnumber(L, dtime);
- if(lua_pcall(L, 1, 0, 0))
- script_error(L, "error: %s\n", lua_tostring(L, -1));
+ // Get minetest.registered_globalsteps
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_globalsteps");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int table = lua_gettop(L);
+ // Foreach
+ lua_pushnil(L);
+ while(lua_next(L, table) != 0){
+ // key at index -2 and value at index -1
+ luaL_checktype(L, -1, LUA_TFUNCTION);
+ // Call function
+ lua_pushnumber(L, dtime);
+ if(lua_pcall(L, 1, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+ // value removed, keep key for next iteration
+ }
+}
+
+void scriptapi_environment_on_placenode(lua_State *L, v3s16 p, MapNode newnode)
+{
+ realitycheck(L);
+ assert(lua_checkstack(L, 20));
+ //infostream<<"scriptapi_environment_on_placenode"<<std::endl;
+ StackUnroller stack_unroller(L);
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable node definition manager from the server
+ IWritableNodeDefManager *ndef =
+ server->getWritableNodeDefManager();
+
+ // Get minetest.registered_on_placenodes
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_on_placenodes");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int table = lua_gettop(L);
+ // Foreach
+ lua_pushnil(L);
+ while(lua_next(L, table) != 0){
+ // key at index -2 and value at index -1
+ luaL_checktype(L, -1, LUA_TFUNCTION);
+ // Call function
+ pushpos(L, p);
+ pushnode(L, newnode, ndef);
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+ // value removed, keep key for next iteration
+ }
+}
+
+void scriptapi_environment_on_dignode(lua_State *L, v3s16 p, MapNode oldnode)
+{
+ realitycheck(L);
+ assert(lua_checkstack(L, 20));
+ //infostream<<"scriptapi_environment_on_dignode"<<std::endl;
+ StackUnroller stack_unroller(L);
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable node definition manager from the server
+ IWritableNodeDefManager *ndef =
+ server->getWritableNodeDefManager();
+
+ // Get minetest.registered_on_dignodes
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_on_dignodes");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int table = lua_gettop(L);
+ // Foreach
+ lua_pushnil(L);
+ while(lua_next(L, table) != 0){
+ // key at index -2 and value at index -1
+ luaL_checktype(L, -1, LUA_TFUNCTION);
+ // Call function
+ pushpos(L, p);
+ pushnode(L, oldnode, ndef);
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+ // value removed, keep key for next iteration
+ }
}
/*
luaentity
*/
-void scriptapi_luaentity_add(lua_State *L, u16 id, const char *name,
+bool scriptapi_luaentity_add(lua_State *L, u16 id, const char *name,
const char *init_state)
{
realitycheck(L);
lua_pushstring(L, name);
lua_gettable(L, -2);
// Should be a table, which we will use as a prototype
- luaL_checktype(L, -1, LUA_TTABLE);
+ //luaL_checktype(L, -1, LUA_TTABLE);
+ if(lua_type(L, -1) != LUA_TTABLE){
+ errorstream<<"LuaEntity name \""<<name<<"\" not defined"<<std::endl;
+ return false;
+ }
int prototype_table = lua_gettop(L);
//dump2(L, "prototype_table");
if(lua_pcall(L, 1, 0, 0))
script_error(L, "error running function %s:on_activate: %s\n",
name, lua_tostring(L, -1));*/
+
+ return true;
}
void scriptapi_luaentity_rm(lua_State *L, u16 id)
// State: object is at top of stack
// Get step function
lua_getfield(L, -1, "on_step");
+ if(lua_isnil(L, -1))
+ return;
luaL_checktype(L, -1, LUA_TFUNCTION);
lua_pushvalue(L, object); // self
lua_pushnumber(L, dtime); // dtime
// State: object is at top of stack
// Get function
lua_getfield(L, -1, "on_punch");
+ if(lua_isnil(L, -1))
+ return;
luaL_checktype(L, -1, LUA_TFUNCTION);
lua_pushvalue(L, object); // self
objectref_get_or_create(L, puncher); // Clicker reference
// State: object is at top of stack
// Get function
lua_getfield(L, -1, "on_rightclick");
+ if(lua_isnil(L, -1))
+ return;
luaL_checktype(L, -1, LUA_TFUNCTION);
lua_pushvalue(L, object); // self
objectref_get_or_create(L, clicker); // Clicker reference