]> git.lizzy.rs Git - dragonfireclient.git/blobdiff - src/script/lua_api/l_env.cpp
Merge branch 'master' of https://github.com/minetest/minetest
[dragonfireclient.git] / src / script / lua_api / l_env.cpp
index 438669feb5060120875a66c4c2ff1653d405661b..a489d245c431e18b0a4f079b3f5a85283f3ff0c3 100644 (file)
@@ -33,24 +33,35 @@ with this program; if not, write to the Free Software Foundation, Inc.,
 #include "nodedef.h"
 #include "daynightratio.h"
 #include "util/pointedthing.h"
-#include "content_sao.h"
 #include "mapgen/treegen.h"
 #include "emerge.h"
 #include "pathfinder.h"
 #include "face_position_cache.h"
 #include "remoteplayer.h"
+#include "server/luaentity_sao.h"
 #include "server/player_sao.h"
+#include "util/string.h"
+#include "translation.h"
 #ifndef SERVER
 #include "client/client.h"
 #endif
 
-struct EnumString ModApiEnvMod::es_ClearObjectsMode[] =
+const EnumString ModApiEnvMod::es_ClearObjectsMode[] =
 {
        {CLEAR_OBJECTS_MODE_FULL,  "full"},
        {CLEAR_OBJECTS_MODE_QUICK, "quick"},
        {0, NULL},
 };
 
+const EnumString ModApiEnvMod::es_BlockStatusType[] =
+{
+       {ServerEnvironment::BS_UNKNOWN, "unknown"},
+       {ServerEnvironment::BS_EMERGING, "emerging"},
+       {ServerEnvironment::BS_LOADED,  "loaded"},
+       {ServerEnvironment::BS_ACTIVE,  "active"},
+       {0, NULL},
+};
+
 ///////////////////////////////////////////////////////////////////////////////
 
 
@@ -73,7 +84,7 @@ void LuaABM::trigger(ServerEnvironment *env, v3s16 p, MapNode n,
        lua_remove(L, -2); // Remove core
 
        // Get registered_abms[m_id]
-       lua_pushnumber(L, m_id);
+       lua_pushinteger(L, m_id);
        lua_gettable(L, -2);
        if(lua_isnil(L, -1))
                FATAL_ERROR("");
@@ -116,7 +127,7 @@ void LuaLBM::trigger(ServerEnvironment *env, v3s16 p, MapNode n)
        lua_remove(L, -2); // Remove core
 
        // Get registered_lbms[m_id]
-       lua_pushnumber(L, m_id);
+       lua_pushinteger(L, m_id);
        lua_gettable(L, -2);
        FATAL_ERROR_IF(lua_isnil(L, -1), "Entry with given id not found in registered_lbms table");
        lua_remove(L, -2); // Remove registered_lbms
@@ -226,7 +237,7 @@ void LuaRaycast::Register(lua_State *L)
 
        lua_pop(L, 1);
 
-       luaL_openlib(L, 0, methods, 0);
+       luaL_register(L, nullptr, methods);
        lua_pop(L, 1);
 
        lua_register(L, className, create_object);
@@ -405,6 +416,46 @@ int ModApiEnvMod::l_get_node_light(lua_State *L)
        return 1;
 }
 
+
+// get_natural_light(pos, timeofday)
+// pos = {x=num, y=num, z=num}
+// timeofday: nil = current time, 0 = night, 0.5 = day
+int ModApiEnvMod::l_get_natural_light(lua_State *L)
+{
+       GET_ENV_PTR;
+
+       v3s16 pos = read_v3s16(L, 1);
+
+       bool is_position_ok;
+       MapNode n = env->getMap().getNode(pos, &is_position_ok);
+       if (!is_position_ok)
+               return 0;
+
+       // If the daylight is 0, nothing needs to be calculated
+       u8 daylight = n.param1 & 0x0f;
+       if (daylight == 0) {
+               lua_pushinteger(L, 0);
+               return 1;
+       }
+
+       u32 time_of_day;
+       if (lua_isnumber(L, 2)) {
+               time_of_day = 24000.0 * lua_tonumber(L, 2);
+               time_of_day %= 24000;
+       } else {
+               time_of_day = env->getTimeOfDay();
+       }
+       u32 dnr = time_to_daynight_ratio(time_of_day, true);
+
+       // If it's the same as the artificial light, the sunlight needs to be
+       // searched for because the value may not emanate from the sun
+       if (daylight == n.param1 >> 4)
+               daylight = env->findSunlight(pos);
+
+       lua_pushinteger(L, dnr * daylight / 1000);
+       return 1;
+}
+
 // place_node(pos, node)
 // pos = {x=num, y=num, z=num}
 int ModApiEnvMod::l_place_node(lua_State *L)
@@ -426,7 +477,7 @@ int ModApiEnvMod::l_place_node(lua_State *L)
                return 1;
        }
        // Create item to place
-       ItemStack item(ndef->get(n).name, 1, 0, idef);
+       Optional<ItemStack> item = ItemStack(ndef->get(n).name, 1, 0, idef);
        // Make pointed position
        PointedThing pointed;
        pointed.type = POINTEDTHING_NODE;
@@ -527,13 +578,13 @@ int ModApiEnvMod::l_set_node_level(lua_State *L)
 
 // add_node_level(pos, level)
 // pos = {x=num, y=num, z=num}
-// level: 0..63
+// level: -127..127
 int ModApiEnvMod::l_add_node_level(lua_State *L)
 {
        GET_ENV_PTR;
 
        v3s16 pos = read_v3s16(L, 1);
-       u8 level = 1;
+       s16 level = 1;
        if(lua_isnumber(L, 2))
                level = lua_tonumber(L, 2);
        MapNode n = env->getMap().getNode(pos);
@@ -550,7 +601,7 @@ int ModApiEnvMod::l_find_nodes_with_meta(lua_State *L)
        std::vector<v3s16> positions = env->getMap().findNodesWithMetadata(
                check_v3s16(L, 1), check_v3s16(L, 2));
 
-       lua_newtable(L);
+       lua_createtable(L, positions.size(), 0);
        for (size_t i = 0; i != positions.size(); i++) {
                push_v3s16(L, positions[i]);
                lua_rawseti(L, -2, i + 1);
@@ -577,7 +628,7 @@ int ModApiEnvMod::l_get_node_timer(lua_State *L)
 
        // Do it
        v3s16 p = read_v3s16(L, 1);
-       NodeTimerRef::create(L, p, env);
+       NodeTimerRef::create(L, p, &env->getServerMap());
        return 1;
 }
 
@@ -587,19 +638,19 @@ int ModApiEnvMod::l_add_entity(lua_State *L)
 {
        GET_ENV_PTR;
 
-       // pos
        v3f pos = checkFloatPos(L, 1);
-       // content
        const char *name = luaL_checkstring(L, 2);
-       // staticdata
        const char *staticdata = luaL_optstring(L, 3, "");
-       // Do it
+
        ServerActiveObject *obj = new LuaEntitySAO(env, pos, name, staticdata);
        int objectid = env->addActiveObject(obj);
        // If failed to add, return nothing (reads as nil)
        if(objectid == 0)
                return 0;
-       // Return ObjectRef
+
+       // If already deleted (can happen in on_activate), return nil
+       if (obj->isGone())
+               return 0;
        getScriptApiBase(L)->objectrefGetOrCreate(L, obj);
        return 1;
 }
@@ -681,22 +732,47 @@ int ModApiEnvMod::l_get_player_by_name(lua_State *L)
 int ModApiEnvMod::l_get_objects_inside_radius(lua_State *L)
 {
        GET_ENV_PTR;
+       ScriptApiBase *script = getScriptApiBase(L);
 
        // Do it
        v3f pos = checkFloatPos(L, 1);
        float radius = readParam<float>(L, 2) * BS;
-       std::vector<u16> ids;
-       env->getObjectsInsideRadius(ids, pos, radius);
+       std::vector<ServerActiveObject *> objs;
+
+       auto include_obj_cb = [](ServerActiveObject *obj){ return !obj->isGone(); };
+       env->getObjectsInsideRadius(objs, pos, radius, include_obj_cb);
+
+       int i = 0;
+       lua_createtable(L, objs.size(), 0);
+       for (const auto obj : objs) {
+               // Insert object reference into table
+               script->objectrefGetOrCreate(L, obj);
+               lua_rawseti(L, -2, ++i);
+       }
+       return 1;
+}
+
+// get_objects_in_area(pos, minp, maxp)
+int ModApiEnvMod::l_get_objects_in_area(lua_State *L)
+{
+       GET_ENV_PTR;
        ScriptApiBase *script = getScriptApiBase(L);
-       lua_createtable(L, ids.size(), 0);
-       std::vector<u16>::const_iterator iter = ids.begin();
-       for(u32 i = 0; iter != ids.end(); ++iter) {
-               ServerActiveObject *obj = env->getActiveObject(*iter);
-               if (!obj->isGone()) {
-                       // Insert object reference into table
-                       script->objectrefGetOrCreate(L, obj);
-                       lua_rawseti(L, -2, ++i);
-               }
+
+       v3f minp = read_v3f(L, 1) * BS;
+       v3f maxp = read_v3f(L, 2) * BS;
+       aabb3f box(minp, maxp);
+       box.repair();
+       std::vector<ServerActiveObject *> objs;
+
+       auto include_obj_cb = [](ServerActiveObject *obj){ return !obj->isGone(); };
+       env->getObjectsInArea(objs, box, include_obj_cb);
+
+       int i = 0;
+       lua_createtable(L, objs.size(), 0);
+       for (const auto obj : objs) {
+               // Insert object reference into table
+               script->objectrefGetOrCreate(L, obj);
+               lua_rawseti(L, -2, ++i);
        }
        return 1;
 }
@@ -709,8 +785,9 @@ int ModApiEnvMod::l_set_timeofday(lua_State *L)
 
        // Do it
        float timeofday_f = readParam<float>(L, 1);
-       sanity_check(timeofday_f >= 0.0 && timeofday_f <= 1.0);
-       int timeofday_mh = (int)(timeofday_f * 24000.0);
+       luaL_argcheck(L, timeofday_f >= 0.0f && timeofday_f <= 1.0f, 1,
+               "value must be between 0 and 1");
+       int timeofday_mh = (int)(timeofday_f * 24000.0f);
        // This should be set directly in the environment but currently
        // such changes aren't immediately sent to the clients, so call
        // the server instead.
@@ -750,43 +827,49 @@ int ModApiEnvMod::l_get_gametime(lua_State *L)
        return 1;
 }
 
-
-// find_node_near(pos, radius, nodenames, search_center) -> pos or nil
-// nodenames: eg. {"ignore", "group:tree"} or "default:dirt"
-int ModApiEnvMod::l_find_node_near(lua_State *L)
+void ModApiEnvMod::collectNodeIds(lua_State *L, int idx, const NodeDefManager *ndef,
+       std::vector<content_t> &filter)
 {
-       GET_PLAIN_ENV_PTR;
-
-       const NodeDefManager *ndef = env->getGameDef()->ndef();
-       v3s16 pos = read_v3s16(L, 1);
-       int radius = luaL_checkinteger(L, 2);
-       std::vector<content_t> filter;
-       if (lua_istable(L, 3)) {
+       if (lua_istable(L, idx)) {
                lua_pushnil(L);
-               while (lua_next(L, 3) != 0) {
+               while (lua_next(L, idx) != 0) {
                        // key at index -2 and value at index -1
                        luaL_checktype(L, -1, LUA_TSTRING);
                        ndef->getIds(readParam<std::string>(L, -1), filter);
                        // removes value, keeps key for next iteration
                        lua_pop(L, 1);
                }
-       } else if (lua_isstring(L, 3)) {
+       } else if (lua_isstring(L, idx)) {
                ndef->getIds(readParam<std::string>(L, 3), filter);
        }
+}
 
+// find_node_near(pos, radius, nodenames, [search_center]) -> pos or nil
+// nodenames: eg. {"ignore", "group:tree"} or "default:dirt"
+int ModApiEnvMod::l_find_node_near(lua_State *L)
+{
+       GET_PLAIN_ENV_PTR;
+
+       const NodeDefManager *ndef = env->getGameDef()->ndef();
+       Map &map = env->getMap();
+
+       v3s16 pos = read_v3s16(L, 1);
+       int radius = luaL_checkinteger(L, 2);
+       std::vector<content_t> filter;
+       collectNodeIds(L, 3, ndef, filter);
        int start_radius = (lua_isboolean(L, 4) && readParam<bool>(L, 4)) ? 0 : 1;
 
 #ifndef SERVER
        // Client API limitations
-       if (getClient(L))
-               radius = getClient(L)->CSMClampRadius(pos, radius);
+       if (Client *client = getClient(L))
+               radius = client->CSMClampRadius(pos, radius);
 #endif
 
        for (int d = start_radius; d <= radius; d++) {
-               std::vector<v3s16> list = FacePositionCache::getFacePositions(d);
+               const std::vector<v3s16> &list = FacePositionCache::getFacePositions(d);
                for (const v3s16 &i : list) {
                        v3s16 p = pos + i;
-                       content_t c = env->getMap().getNode(p).getContent();
+                       content_t c = map.getNode(p).getContent();
                        if (CONTAINS(filter, c)) {
                                push_v3s16(L, p);
                                return 1;
@@ -796,75 +879,277 @@ int ModApiEnvMod::l_find_node_near(lua_State *L)
        return 0;
 }
 
-// find_nodes_in_area(minp, maxp, nodenames) -> list of positions
+// find_nodes_near(pos, radius, nodenames, [search_center])
 // nodenames: eg. {"ignore", "group:tree"} or "default:dirt"
-int ModApiEnvMod::l_find_nodes_in_area(lua_State *L)
+int ModApiEnvMod::l_find_nodes_near(lua_State *L)
 {
        GET_PLAIN_ENV_PTR;
 
-       v3s16 minp = read_v3s16(L, 1);
-       v3s16 maxp = read_v3s16(L, 2);
-       sortBoxVerticies(minp, maxp);
-
        const NodeDefManager *ndef = env->getGameDef()->ndef();
+       Map &map = env->getMap();
+
+       v3s16 pos = read_v3s16(L, 1);
+       int radius = luaL_checkinteger(L, 2);
+       std::vector<content_t> filter;
+       collectNodeIds(L, 3, ndef, filter);
+
+       int start_radius = (lua_isboolean(L, 4) && readParam<bool>(L, 4)) ? 0 : 1;
 
 #ifndef SERVER
-       if (getClient(L)) {
-               minp = getClient(L)->CSMClampPos(minp);
-               maxp = getClient(L)->CSMClampPos(maxp);
-       }
+       // Client API limitations
+       if (Client *client = getClient(L))
+               radius = client->CSMClampRadius(pos, radius);
 #endif
 
-       v3s16 cube = maxp - minp + 1;
-       // Volume limit equal to 8 default mapchunks, (80 * 2) ^ 3 = 4,096,000
-       if ((u64)cube.X * (u64)cube.Y * (u64)cube.Z > 4096000) {
-               luaL_error(L, "find_nodes_in_area(): area volume"
-                               " exceeds allowed value of 4096000");
-               return 0;
+       std::vector<u32> individual_count;
+       individual_count.resize(filter.size());
+
+       lua_newtable(L);
+       u32 i = 0;
+
+       for (int d = start_radius; d <= radius; d++) {
+               const std::vector<v3s16> &list = FacePositionCache::getFacePositions(d);
+               for (const v3s16 &posi : list) {
+                       v3s16 p = pos + posi;
+                       content_t c = map.getNode(p).getContent();
+                       auto it = std::find(filter.begin(), filter.end(), c);
+                       if (it != filter.end()) {
+                               push_v3s16(L, p);
+                               lua_rawseti(L, -2, ++i);
+
+                               u32 filt_index = it - filter.begin();
+                               individual_count[filt_index]++;
+                       }
+               }
+       }
+       lua_createtable(L, 0, filter.size());
+       for (u32 i = 0; i < filter.size(); i++) {
+               lua_pushinteger(L, individual_count[i]);
+               lua_setfield(L, -2, ndef->get(filter[i]).name.c_str());
        }
+       return 2;
+}
+
+// find_nodes_near_under_air(pos, radius, nodenames, [search_center])
+// nodenames: eg. {"ignore", "group:tree"} or "default:dirt"
+int ModApiEnvMod::l_find_nodes_near_under_air(lua_State *L)
+{
+       GET_PLAIN_ENV_PTR;
+
+       const NodeDefManager *ndef = env->getGameDef()->ndef();
+       Map &map = env->getMap();
 
+       v3s16 pos = read_v3s16(L, 1);
+       int radius = luaL_checkinteger(L, 2);
        std::vector<content_t> filter;
-       if (lua_istable(L, 3)) {
-               lua_pushnil(L);
-               while (lua_next(L, 3) != 0) {
-                       // key at index -2 and value at index -1
-                       luaL_checktype(L, -1, LUA_TSTRING);
-                       ndef->getIds(readParam<std::string>(L, -1), filter);
-                       // removes value, keeps key for next iteration
-                       lua_pop(L, 1);
+       collectNodeIds(L, 3, ndef, filter);
+       int start_radius = (lua_isboolean(L, 4) && readParam<bool>(L, 4)) ? 0 : 1;
+
+#ifndef SERVER
+       // Client API limitations
+       if (Client *client = getClient(L))
+               radius = client->CSMClampRadius(pos, radius);
+#endif
+
+       std::vector<u32> individual_count;
+       individual_count.resize(filter.size());
+
+       lua_newtable(L);
+       u32 i = 0;
+
+       for (int d = start_radius; d <= radius; d++) {
+               const std::vector<v3s16> &list = FacePositionCache::getFacePositions(d);
+               for (const v3s16 &posi : list) {
+                       v3s16 p = pos + posi;
+                       content_t c = map.getNode(p).getContent();
+                       v3s16 psurf(p.X, p.Y + 1, p.Z);
+                       content_t csurf = map.getNode(psurf).getContent();
+                       if (c == CONTENT_AIR || csurf != CONTENT_AIR)
+                               continue;
+                       auto it = std::find(filter.begin(), filter.end(), c);
+                       if (it != filter.end()) {
+                               push_v3s16(L, p);
+                               lua_rawseti(L, -2, ++i);
+
+                               u32 filt_index = it - filter.begin();
+                               individual_count[filt_index]++;
+                       }
                }
-       } else if (lua_isstring(L, 3)) {
-               ndef->getIds(readParam<std::string>(L, 3), filter);
        }
+       lua_createtable(L, 0, filter.size());
+       for (u32 i = 0; i < filter.size(); i++) {
+               lua_pushinteger(L, individual_count[i]);
+               lua_setfield(L, -2, ndef->get(filter[i]).name.c_str());
+       }
+       return 2;
+}
+
+// find_nodes_near_under_air_except(pos, radius, nodenames, [search_center])
+// nodenames: eg. {"ignore", "group:tree"} or "default:dirt"
+int ModApiEnvMod::l_find_nodes_near_under_air_except(lua_State *L)
+{
+       GET_PLAIN_ENV_PTR;
+
+       const NodeDefManager *ndef = env->getGameDef()->ndef();
+       Map &map = env->getMap();
+
+       v3s16 pos = read_v3s16(L, 1);
+       int radius = luaL_checkinteger(L, 2);
+       std::vector<content_t> filter;
+       collectNodeIds(L, 3, ndef, filter);
+       int start_radius = (lua_isboolean(L, 4) && readParam<bool>(L, 4)) ? 0 : 1;
+
+#ifndef SERVER
+       // Client API limitations
+       if (Client *client = getClient(L))
+               radius = client->CSMClampRadius(pos, radius);
+#endif
 
        std::vector<u32> individual_count;
        individual_count.resize(filter.size());
 
        lua_newtable(L);
-       u64 i = 0;
-       for (s16 x = minp.X; x <= maxp.X; x++)
-       for (s16 y = minp.Y; y <= maxp.Y; y++)
-       for (s16 z = minp.Z; z <= maxp.Z; z++) {
-               v3s16 p(x, y, z);
-               content_t c = env->getMap().getNode(p).getContent();
-
-               std::vector<content_t>::iterator it = std::find(filter.begin(), filter.end(), c);
-               if (it != filter.end()) {
-                       push_v3s16(L, p);
-                       lua_rawseti(L, -2, ++i);
+       u32 i = 0;
+
+       for (int d = start_radius; d <= radius; d++) {
+               const std::vector<v3s16> &list = FacePositionCache::getFacePositions(d);
+               for (const v3s16 &posi : list) {
+                       v3s16 p = pos + posi;
+                       content_t c = map.getNode(p).getContent();
+                       v3s16 psurf(p.X, p.Y + 1, p.Z);
+                       content_t csurf = map.getNode(psurf).getContent();
+                       if (c == CONTENT_AIR || csurf != CONTENT_AIR)
+                               continue;
+                       auto it = std::find(filter.begin(), filter.end(), c);
+                       if (it == filter.end()) {
+                               push_v3s16(L, p);
+                               lua_rawseti(L, -2, ++i);
 
-                       u32 filt_index = it - filter.begin();
-                       individual_count[filt_index]++;
+                               u32 filt_index = it - filter.begin();
+                               individual_count[filt_index]++;
+                       }
                }
        }
-       lua_newtable(L);
+       lua_createtable(L, 0, filter.size());
        for (u32 i = 0; i < filter.size(); i++) {
-               lua_pushnumber(L, individual_count[i]);
+               lua_pushinteger(L, individual_count[i]);
                lua_setfield(L, -2, ndef->get(filter[i]).name.c_str());
        }
        return 2;
 }
 
+static void checkArea(v3s16 &minp, v3s16 &maxp)
+{
+       auto volume = VoxelArea(minp, maxp).getVolume();
+       // Volume limit equal to 8 default mapchunks, (80 * 2) ^ 3 = 4,096,000
+       if (volume > 4096000) {
+               throw LuaError("Area volume exceeds allowed value of 4096000");
+       }
+
+       // Clamp to map range to avoid problems
+#define CLAMP(arg) core::clamp(arg, (s16)-MAX_MAP_GENERATION_LIMIT, (s16)MAX_MAP_GENERATION_LIMIT)
+       minp = v3s16(CLAMP(minp.X), CLAMP(minp.Y), CLAMP(minp.Z));
+       maxp = v3s16(CLAMP(maxp.X), CLAMP(maxp.Y), CLAMP(maxp.Z));
+#undef CLAMP
+}
+
+// find_nodes_in_area(minp, maxp, nodenames, [grouped])
+int ModApiEnvMod::l_find_nodes_in_area(lua_State *L)
+{
+       GET_PLAIN_ENV_PTR;
+
+       v3s16 minp = read_v3s16(L, 1);
+       v3s16 maxp = read_v3s16(L, 2);
+       sortBoxVerticies(minp, maxp);
+
+       const NodeDefManager *ndef = env->getGameDef()->ndef();
+       Map &map = env->getMap();
+
+#ifndef SERVER
+       if (Client *client = getClient(L)) {
+               minp = client->CSMClampPos(minp);
+               maxp = client->CSMClampPos(maxp);
+       }
+#endif
+
+       checkArea(minp, maxp);
+
+       std::vector<content_t> filter;
+       collectNodeIds(L, 3, ndef, filter);
+
+       bool grouped = lua_isboolean(L, 4) && readParam<bool>(L, 4);
+
+       if (grouped) {
+               // create the table we will be returning
+               lua_createtable(L, 0, filter.size());
+               int base = lua_gettop(L);
+
+               // create one table for each filter
+               std::vector<u32> idx;
+               idx.resize(filter.size());
+               for (u32 i = 0; i < filter.size(); i++)
+                       lua_newtable(L);
+
+               v3s16 p;
+               for (p.X = minp.X; p.X <= maxp.X; p.X++)
+               for (p.Y = minp.Y; p.Y <= maxp.Y; p.Y++)
+               for (p.Z = minp.Z; p.Z <= maxp.Z; p.Z++) {
+                       content_t c = map.getNode(p).getContent();
+
+                       auto it = std::find(filter.begin(), filter.end(), c);
+                       if (it != filter.end()) {
+                               // Calculate index of the table and append the position
+                               u32 filt_index = it - filter.begin();
+                               push_v3s16(L, p);
+                               lua_rawseti(L, base + 1 + filt_index, ++idx[filt_index]);
+                       }
+               }
+
+               // last filter table is at top of stack
+               u32 i = filter.size() - 1;
+               do {
+                       if (idx[i] == 0) {
+                               // No such node found -> drop the empty table
+                               lua_pop(L, 1);
+                       } else {
+                               // This node was found -> put table into the return table
+                               lua_setfield(L, base, ndef->get(filter[i]).name.c_str());
+                       }
+               } while (i-- != 0);
+
+               assert(lua_gettop(L) == base);
+               return 1;
+       } else {
+               std::vector<u32> individual_count;
+               individual_count.resize(filter.size());
+
+               lua_newtable(L);
+               u32 i = 0;
+               v3s16 p;
+               for (p.X = minp.X; p.X <= maxp.X; p.X++)
+               for (p.Y = minp.Y; p.Y <= maxp.Y; p.Y++)
+               for (p.Z = minp.Z; p.Z <= maxp.Z; p.Z++) {
+                       content_t c = env->getMap().getNode(p).getContent();
+
+                       auto it = std::find(filter.begin(), filter.end(), c);
+                       if (it != filter.end()) {
+                               push_v3s16(L, p);
+                               lua_rawseti(L, -2, ++i);
+
+                               u32 filt_index = it - filter.begin();
+                               individual_count[filt_index]++;
+                       }
+               }
+
+               lua_createtable(L, 0, filter.size());
+               for (u32 i = 0; i < filter.size(); i++) {
+                       lua_pushinteger(L, individual_count[i]);
+                       lua_setfield(L, -2, ndef->get(filter[i]).name.c_str());
+               }
+               return 2;
+       }
+}
+
 // find_nodes_in_area_under_air(minp, maxp, nodenames) -> list of positions
 // nodenames: e.g. {"ignore", "group:tree"} or "default:dirt"
 int ModApiEnvMod::l_find_nodes_in_area_under_air(lua_State *L)
@@ -883,50 +1168,33 @@ int ModApiEnvMod::l_find_nodes_in_area_under_air(lua_State *L)
        sortBoxVerticies(minp, maxp);
 
        const NodeDefManager *ndef = env->getGameDef()->ndef();
+       Map &map = env->getMap();
 
 #ifndef SERVER
-       if (getClient(L)) {
-               minp = getClient(L)->CSMClampPos(minp);
-               maxp = getClient(L)->CSMClampPos(maxp);
+       if (Client *client = getClient(L)) {
+               minp = client->CSMClampPos(minp);
+               maxp = client->CSMClampPos(maxp);
        }
 #endif
 
-       v3s16 cube = maxp - minp + 1;
-       // Volume limit equal to 8 default mapchunks, (80 * 2) ^ 3 = 4,096,000
-       if ((u64)cube.X * (u64)cube.Y * (u64)cube.Z > 4096000) {
-               luaL_error(L, "find_nodes_in_area_under_air(): area volume"
-                               " exceeds allowed value of 4096000");
-               return 0;
-       }
+       checkArea(minp, maxp);
 
        std::vector<content_t> filter;
-
-       if (lua_istable(L, 3)) {
-               lua_pushnil(L);
-               while (lua_next(L, 3) != 0) {
-                       // key at index -2 and value at index -1
-                       luaL_checktype(L, -1, LUA_TSTRING);
-                       ndef->getIds(readParam<std::string>(L, -1), filter);
-                       // removes value, keeps key for next iteration
-                       lua_pop(L, 1);
-               }
-       } else if (lua_isstring(L, 3)) {
-               ndef->getIds(readParam<std::string>(L, 3), filter);
-       }
+       collectNodeIds(L, 3, ndef, filter);
 
        lua_newtable(L);
-       u64 i = 0;
-       for (s16 x = minp.X; x <= maxp.X; x++)
-       for (s16 z = minp.Z; z <= maxp.Z; z++) {
-               s16 y = minp.Y;
-               v3s16 p(x, y, z);
-               content_t c = env->getMap().getNode(p).getContent();
-               for (; y <= maxp.Y; y++) {
-                       v3s16 psurf(x, y + 1, z);
-                       content_t csurf = env->getMap().getNode(psurf).getContent();
+       u32 i = 0;
+       v3s16 p;
+       for (p.X = minp.X; p.X <= maxp.X; p.X++)
+       for (p.Z = minp.Z; p.Z <= maxp.Z; p.Z++) {
+               p.Y = minp.Y;
+               content_t c = map.getNode(p).getContent();
+               for (; p.Y <= maxp.Y; p.Y++) {
+                       v3s16 psurf(p.X, p.Y + 1, p.Z);
+                       content_t csurf = map.getNode(psurf).getContent();
                        if (c != CONTENT_AIR && csurf == CONTENT_AIR &&
                                        CONTAINS(filter, c)) {
-                               push_v3s16(L, v3s16(x, y, z));
+                               push_v3s16(L, p);
                                lua_rawseti(L, -2, ++i);
                        }
                        c = csurf;
@@ -1175,7 +1443,7 @@ int ModApiEnvMod::l_delete_area(lua_State *L)
 //     max_jump, max_drop, algorithm) -> table containing path
 int ModApiEnvMod::l_find_path(lua_State *L)
 {
-       GET_ENV_PTR;
+       Environment *env = getEnv(L);
 
        v3s16 pos1                  = read_v3s16(L, 1);
        v3s16 pos2                  = read_v3s16(L, 2);
@@ -1193,11 +1461,11 @@ int ModApiEnvMod::l_find_path(lua_State *L)
                        algo = PA_DIJKSTRA;
        }
 
-       std::vector<v3s16> path = get_path(env, pos1, pos2,
+       std::vector<v3s16> path = get_path(&env->getMap(), env->getGameDef()->ndef(), pos1, pos2,
                searchdistance, max_jump, max_drop, algo);
 
        if (!path.empty()) {
-               lua_newtable(L);
+               lua_createtable(L, path.size(), 0);
                int top = lua_gettop(L);
                unsigned int index = 1;
                for (const v3s16 &i : path) {
@@ -1257,8 +1525,9 @@ int ModApiEnvMod::l_spawn_tree(lua_State *L)
        else
                return 0;
 
+       ServerMap *map = &env->getServerMap();
        treegen::error e;
-       if ((e = treegen::spawn_ltree (env, p0, ndef, tree_def)) != treegen::SUCCESS) {
+       if ((e = treegen::spawn_ltree (map, p0, ndef, tree_def)) != treegen::SUCCESS) {
                if (e == treegen::UNBALANCED_BRACKETS) {
                        luaL_error(L, "spawn_tree(): closing ']' has no matching opening bracket");
                } else {
@@ -1275,7 +1544,7 @@ int ModApiEnvMod::l_transforming_liquid_add(lua_State *L)
        GET_ENV_PTR;
 
        v3s16 p0 = read_v3s16(L, 1);
-       env->getMap().transforming_liquid_add(p0);
+       env->getServerMap().transforming_liquid_add(p0);
        return 1;
 }
 
@@ -1290,6 +1559,24 @@ int ModApiEnvMod::l_forceload_block(lua_State *L)
        return 0;
 }
 
+// compare_block_status(nodepos)
+int ModApiEnvMod::l_compare_block_status(lua_State *L)
+{
+       GET_ENV_PTR;
+
+       v3s16 nodepos = check_v3s16(L, 1);
+       std::string condition_s = luaL_checkstring(L, 2);
+       auto status = env->getBlockStatus(getNodeBlockPos(nodepos));
+
+       int condition_i = -1;
+       if (!string_to_enum(es_BlockStatusType, condition_i, condition_s))
+               return 0; // Unsupported
+
+       lua_pushboolean(L, status >= condition_i);
+       return 1;
+}
+
+
 // forceload_free_block(blockpos)
 // blockpos = {x=num, y=num, z=num}
 int ModApiEnvMod::l_forceload_free_block(lua_State *L)
@@ -1301,6 +1588,19 @@ int ModApiEnvMod::l_forceload_free_block(lua_State *L)
        return 0;
 }
 
+// get_translated_string(lang_code, string)
+int ModApiEnvMod::l_get_translated_string(lua_State * L)
+{
+       GET_ENV_PTR;
+       std::string lang_code = luaL_checkstring(L, 1);
+       std::string string = luaL_checkstring(L, 2);
+
+       auto *translations = getServer(L)->getTranslationLanguage(lang_code);
+       string = wide_to_utf8(translate_string(utf8_to_wide(string), translations));
+       lua_pushstring(L, string.c_str());
+       return 1;
+}
+
 void ModApiEnvMod::Initialize(lua_State *L, int top)
 {
        API_FCT(set_node);
@@ -1312,6 +1612,7 @@ void ModApiEnvMod::Initialize(lua_State *L, int top)
        API_FCT(get_node);
        API_FCT(get_node_or_nil);
        API_FCT(get_node_light);
+       API_FCT(get_natural_light);
        API_FCT(place_node);
        API_FCT(dig_node);
        API_FCT(punch_node);
@@ -1325,6 +1626,7 @@ void ModApiEnvMod::Initialize(lua_State *L, int top)
        API_FCT(get_node_timer);
        API_FCT(get_connected_players);
        API_FCT(get_player_by_name);
+       API_FCT(get_objects_in_area);
        API_FCT(get_objects_inside_radius);
        API_FCT(set_timeofday);
        API_FCT(get_timeofday);
@@ -1348,6 +1650,8 @@ void ModApiEnvMod::Initialize(lua_State *L, int top)
        API_FCT(transforming_liquid_add);
        API_FCT(forceload_block);
        API_FCT(forceload_free_block);
+       API_FCT(compare_block_status);
+       API_FCT(get_translated_string);
 }
 
 void ModApiEnvMod::InitializeClient(lua_State *L, int top)
@@ -1358,8 +1662,13 @@ void ModApiEnvMod::InitializeClient(lua_State *L, int top)
        API_FCT(get_node_level);
        API_FCT(find_nodes_with_meta);
        API_FCT(find_node_near);
+       API_FCT(find_nodes_near);
+       API_FCT(find_nodes_near_under_air);
+       API_FCT(find_nodes_near_under_air_except);
        API_FCT(find_nodes_in_area);
        API_FCT(find_nodes_in_area_under_air);
+       API_FCT(get_voxel_manip);
+       API_FCT(find_path);
        API_FCT(line_of_sight);
        API_FCT(raycast);
 }