l_mapgen.cpp: Fix LINT broken since b1b40fe
[oweals/minetest.git] / src / script / lua_api / l_mapgen.cpp
index bc1c32f030c15a42a464c6171fc2fdf68048d3c2..e7e002c160fc439e374929403cbf5aa927fa122b 100644 (file)
@@ -27,12 +27,12 @@ with this program; if not, write to the Free Software Foundation, Inc.,
 #include "server.h"
 #include "environment.h"
 #include "emerge.h"
-#include "mg_biome.h"
-#include "mg_ore.h"
-#include "mg_decoration.h"
-#include "mg_schematic.h"
-#include "mapgen_v5.h"
-#include "mapgen_v7.h"
+#include "mapgen/mg_biome.h"
+#include "mapgen/mg_ore.h"
+#include "mapgen/mg_decoration.h"
+#include "mapgen/mg_schematic.h"
+#include "mapgen/mapgen_v5.h"
+#include "mapgen/mapgen_v7.h"
 #include "filesys.h"
 #include "settings.h"
 #include "log.h"
@@ -40,10 +40,6 @@ with this program; if not, write to the Free Software Foundation, Inc.,
 struct EnumString ModApiMapgen::es_BiomeTerrainType[] =
 {
        {BIOMETYPE_NORMAL, "normal"},
-       {BIOMETYPE_LIQUID, "liquid"},
-       {BIOMETYPE_NETHER, "nether"},
-       {BIOMETYPE_AETHER, "aether"},
-       {BIOMETYPE_FLAT,   "flat"},
        {0, NULL},
 };
 
@@ -73,6 +69,7 @@ struct EnumString ModApiMapgen::es_OreType[] =
        {ORE_PUFF,    "puff"},
        {ORE_BLOB,    "blob"},
        {ORE_VEIN,    "vein"},
+       {ORE_STRATUM, "stratum"},
        {0, NULL},
 };
 
@@ -98,16 +95,16 @@ ObjDef *get_objdef(lua_State *L, int index, ObjDefManager *objmgr);
 
 Biome *get_or_load_biome(lua_State *L, int index,
        BiomeManager *biomemgr);
-Biome *read_biome_def(lua_State *L, int index, INodeDefManager *ndef);
+Biome *read_biome_def(lua_State *L, int index, const NodeDefManager *ndef);
 size_t get_biome_list(lua_State *L, int index,
-       BiomeManager *biomemgr, UNORDERED_SET<u8> *biome_id_list);
+       BiomeManager *biomemgr, std::unordered_set<u8> *biome_id_list);
 
 Schematic *get_or_load_schematic(lua_State *L, int index,
        SchematicManager *schemmgr, StringMap *replace_names);
-Schematic *load_schematic(lua_State *L, int index, INodeDefManager *ndef,
+Schematic *load_schematic(lua_State *L, int index, const NodeDefManager *ndef,
        StringMap *replace_names);
 Schematic *load_schematic_from_def(lua_State *L, int index,
-       INodeDefManager *ndef, StringMap *replace_names);
+       const NodeDefManager *ndef, StringMap *replace_names);
 bool read_schematic_def(lua_State *L, int index,
        Schematic *schem, std::vector<std::string> *names);
 
@@ -159,7 +156,7 @@ Schematic *get_or_load_schematic(lua_State *L, int index,
 }
 
 
-Schematic *load_schematic(lua_State *L, int index, INodeDefManager *ndef,
+Schematic *load_schematic(lua_State *L, int index, const NodeDefManager *ndef,
        StringMap *replace_names)
 {
        if (index < 0)
@@ -195,7 +192,7 @@ Schematic *load_schematic(lua_State *L, int index, INodeDefManager *ndef,
 
 
 Schematic *load_schematic_from_def(lua_State *L, int index,
-       INodeDefManager *ndef, StringMap *replace_names)
+       const NodeDefManager *ndef, StringMap *replace_names)
 {
        Schematic *schem = SchematicManager::create(SCHEMATIC_NORMAL);
 
@@ -244,7 +241,7 @@ bool read_schematic_def(lua_State *L, int index,
        schem->schemdata = new MapNode[numnodes];
 
        size_t names_base = names->size();
-       UNORDERED_MAP<std::string, content_t> name_id_map;
+       std::unordered_map<std::string, content_t> name_id_map;
 
        u32 i = 0;
        for (lua_pushnil(L); lua_next(L, -2); i++, lua_pop(L, 1)) {
@@ -266,7 +263,7 @@ bool read_schematic_def(lua_State *L, int index,
                u8 param2 = getintfield_default(L, -1, "param2", 0);
 
                //// Find or add new nodename-to-ID mapping
-               UNORDERED_MAP<std::string, content_t>::iterator it = name_id_map.find(name);
+               std::unordered_map<std::string, content_t>::iterator it = name_id_map.find(name);
                content_t name_index;
                if (it != name_id_map.end()) {
                        name_index = it->second;
@@ -325,14 +322,22 @@ void read_schematic_replacements(lua_State *L, int index, StringMap *replace_nam
 
                if (lua_istable(L, -1)) { // Old {{"x", "y"}, ...} format
                        lua_rawgeti(L, -1, 1);
+                       if (!lua_isstring(L, -1))
+                               throw LuaError("schematics: replace_from field is not a string");
                        replace_from = lua_tostring(L, -1);
                        lua_pop(L, 1);
 
                        lua_rawgeti(L, -1, 2);
+                       if (!lua_isstring(L, -1))
+                               throw LuaError("schematics: replace_to field is not a string");
                        replace_to = lua_tostring(L, -1);
                        lua_pop(L, 1);
                } else { // New {x = "y", ...} format
+                       if (!lua_isstring(L, -2))
+                               throw LuaError("schematics: replace_from field is not a string");
                        replace_from = lua_tostring(L, -2);
+                       if (!lua_isstring(L, -1))
+                               throw LuaError("schematics: replace_to field is not a string");
                        replace_to = lua_tostring(L, -1);
                }
 
@@ -365,7 +370,7 @@ Biome *get_or_load_biome(lua_State *L, int index, BiomeManager *biomemgr)
 }
 
 
-Biome *read_biome_def(lua_State *L, int index, INodeDefManager *ndef)
+Biome *read_biome_def(lua_State *L, int index, const NodeDefManager *ndef)
 {
        if (!lua_istable(L, index))
                return NULL;
@@ -379,21 +384,40 @@ Biome *read_biome_def(lua_State *L, int index, INodeDefManager *ndef)
        b->depth_filler    = getintfield_default(L,    index, "depth_filler",    -31000);
        b->depth_water_top = getintfield_default(L,    index, "depth_water_top", 0);
        b->depth_riverbed  = getintfield_default(L,    index, "depth_riverbed",  0);
-       b->y_min           = getintfield_default(L,    index, "y_min",           -31000);
-       b->y_max           = getintfield_default(L,    index, "y_max",           31000);
        b->heat_point      = getfloatfield_default(L,  index, "heat_point",      0.f);
        b->humidity_point  = getfloatfield_default(L,  index, "humidity_point",  0.f);
-       b->flags           = 0; //reserved
+       b->vertical_blend  = getintfield_default(L,    index, "vertical_blend",  0);
+       b->flags           = 0; // reserved
+
+       b->min_pos = getv3s16field_default(
+               L, index, "min_pos", v3s16(-31000, -31000, -31000));
+       getintfield(L, index, "y_min", b->min_pos.Y);
+       b->max_pos = getv3s16field_default(
+               L, index, "max_pos", v3s16(31000, 31000, 31000));
+       getintfield(L, index, "y_max", b->max_pos.Y);
 
        std::vector<std::string> &nn = b->m_nodenames;
-       nn.push_back(getstringfield_default(L, index, "node_top",         ""));
-       nn.push_back(getstringfield_default(L, index, "node_filler",      ""));
-       nn.push_back(getstringfield_default(L, index, "node_stone",       ""));
-       nn.push_back(getstringfield_default(L, index, "node_water_top",   ""));
-       nn.push_back(getstringfield_default(L, index, "node_water",       ""));
-       nn.push_back(getstringfield_default(L, index, "node_river_water", ""));
-       nn.push_back(getstringfield_default(L, index, "node_riverbed",    ""));
-       nn.push_back(getstringfield_default(L, index, "node_dust",        ""));
+       nn.push_back(getstringfield_default(L, index, "node_top",           ""));
+       nn.push_back(getstringfield_default(L, index, "node_filler",        ""));
+       nn.push_back(getstringfield_default(L, index, "node_stone",         ""));
+       nn.push_back(getstringfield_default(L, index, "node_water_top",     ""));
+       nn.push_back(getstringfield_default(L, index, "node_water",         ""));
+       nn.push_back(getstringfield_default(L, index, "node_river_water",   ""));
+       nn.push_back(getstringfield_default(L, index, "node_riverbed",      ""));
+       nn.push_back(getstringfield_default(L, index, "node_dust",          ""));
+
+       size_t nnames = getstringlistfield(L, index, "node_cave_liquid", &nn);
+       // If no cave liquids defined, set list to "ignore" to trigger old hardcoded
+       // cave liquid behaviour.
+       if (nnames == 0) {
+               nn.emplace_back("ignore");
+               nnames = 1;
+       }
+       b->m_nnlistsizes.push_back(nnames);
+
+       nn.push_back(getstringfield_default(L, index, "node_dungeon",       ""));
+       nn.push_back(getstringfield_default(L, index, "node_dungeon_alt",   ""));
+       nn.push_back(getstringfield_default(L, index, "node_dungeon_stair", ""));
        ndef->pendNodeResolve(b);
 
        return b;
@@ -401,7 +425,7 @@ Biome *read_biome_def(lua_State *L, int index, INodeDefManager *ndef)
 
 
 size_t get_biome_list(lua_State *L, int index,
-       BiomeManager *biomemgr, UNORDERED_SET<u8> *biome_id_list)
+       BiomeManager *biomemgr, std::unordered_set<u8> *biome_id_list)
 {
        if (index < 0)
                index = lua_gettop(L) + 1 + index;
@@ -419,7 +443,7 @@ size_t get_biome_list(lua_State *L, int index,
        if (is_single) {
                Biome *biome = get_or_load_biome(L, index, biomemgr);
                if (!biome) {
-                       errorstream << "get_biome_list: failed to get biome '"
+                       infostream << "get_biome_list: failed to get biome '"
                                << (lua_isstring(L, index) ? lua_tostring(L, index) : "")
                                << "'." << std::endl;
                        return 1;
@@ -438,7 +462,7 @@ size_t get_biome_list(lua_State *L, int index,
                Biome *biome = get_or_load_biome(L, -1, biomemgr);
                if (!biome) {
                        fail_count++;
-                       errorstream << "get_biome_list: failed to get biome '"
+                       infostream << "get_biome_list: failed to get biome '"
                                << (lua_isstring(L, -1) ? lua_tostring(L, -1) : "")
                                << "'" << std::endl;
                        continue;
@@ -453,7 +477,7 @@ size_t get_biome_list(lua_State *L, int index,
 ///////////////////////////////////////////////////////////////////////////////
 
 // get_biome_id(biomename)
-// returns the biome id used in biomemap
+// returns the biome id as used in biomemap and returned by 'get_biome_data()'
 int ModApiMapgen::l_get_biome_id(lua_State *L)
 {
        NO_MAP_LOCK_REQUIRED;
@@ -463,16 +487,181 @@ int ModApiMapgen::l_get_biome_id(lua_State *L)
                return 0;
 
        BiomeManager *bmgr = getServer(L)->getEmergeManager()->biomemgr;
-
        if (!bmgr)
                return 0;
 
        Biome *biome = (Biome *)bmgr->getByName(biome_str);
+       if (!biome || biome->index == OBJDEF_INVALID_INDEX)
+               return 0;
+
+       lua_pushinteger(L, biome->index);
+
+       return 1;
+}
+
+
+// get_biome_name(biome_id)
+// returns the biome name string
+int ModApiMapgen::l_get_biome_name(lua_State *L)
+{
+       NO_MAP_LOCK_REQUIRED;
+
+       int biome_id = luaL_checkinteger(L, 1);
+
+       BiomeManager *bmgr = getServer(L)->getEmergeManager()->biomemgr;
+       if (!bmgr)
+               return 0;
+
+       Biome *b = (Biome *)bmgr->getRaw(biome_id);
+       lua_pushstring(L, b->name.c_str());
+
+       return 1;
+}
+
+
+// get_heat(pos)
+// returns the heat at the position
+int ModApiMapgen::l_get_heat(lua_State *L)
+{
+       NO_MAP_LOCK_REQUIRED;
+
+       v3s16 pos = read_v3s16(L, 1);
+
+       NoiseParams np_heat;
+       NoiseParams np_heat_blend;
+
+       MapSettingsManager *settingsmgr =
+               getServer(L)->getEmergeManager()->map_settings_mgr;
+
+       if (!settingsmgr->getMapSettingNoiseParams("mg_biome_np_heat",
+                       &np_heat) ||
+                       !settingsmgr->getMapSettingNoiseParams("mg_biome_np_heat_blend",
+                       &np_heat_blend))
+               return 0;
+
+       std::string value;
+       if (!settingsmgr->getMapSetting("seed", &value))
+               return 0;
+       std::istringstream ss(value);
+       u64 seed;
+       ss >> seed;
+
+       BiomeManager *bmgr = getServer(L)->getEmergeManager()->biomemgr;
+       if (!bmgr)
+               return 0;
+
+       float heat = bmgr->getHeatAtPosOriginal(pos, np_heat, np_heat_blend, seed);
+       if (!heat)
+               return 0;
+
+       lua_pushnumber(L, heat);
 
+       return 1;
+}
+
+
+// get_humidity(pos)
+// returns the humidity at the position
+int ModApiMapgen::l_get_humidity(lua_State *L)
+{
+       NO_MAP_LOCK_REQUIRED;
+
+       v3s16 pos = read_v3s16(L, 1);
+
+       NoiseParams np_humidity;
+       NoiseParams np_humidity_blend;
+
+       MapSettingsManager *settingsmgr =
+               getServer(L)->getEmergeManager()->map_settings_mgr;
+
+       if (!settingsmgr->getMapSettingNoiseParams("mg_biome_np_humidity",
+                       &np_humidity) ||
+                       !settingsmgr->getMapSettingNoiseParams("mg_biome_np_humidity_blend",
+                       &np_humidity_blend))
+               return 0;
+
+       std::string value;
+       if (!settingsmgr->getMapSetting("seed", &value))
+               return 0;
+       std::istringstream ss(value);
+       u64 seed;
+       ss >> seed;
+
+       BiomeManager *bmgr = getServer(L)->getEmergeManager()->biomemgr;
+       if (!bmgr)
+               return 0;
+
+       float humidity = bmgr->getHumidityAtPosOriginal(pos, np_humidity,
+               np_humidity_blend, seed);
+       if (!humidity)
+               return 0;
+
+       lua_pushnumber(L, humidity);
+
+       return 1;
+}
+
+
+// get_biome_data(pos)
+// returns a table containing the biome id, heat and humidity at the position
+int ModApiMapgen::l_get_biome_data(lua_State *L)
+{
+       NO_MAP_LOCK_REQUIRED;
+
+       v3s16 pos = read_v3s16(L, 1);
+
+       NoiseParams np_heat;
+       NoiseParams np_heat_blend;
+       NoiseParams np_humidity;
+       NoiseParams np_humidity_blend;
+
+       MapSettingsManager *settingsmgr =
+               getServer(L)->getEmergeManager()->map_settings_mgr;
+
+       if (!settingsmgr->getMapSettingNoiseParams("mg_biome_np_heat",
+                       &np_heat) ||
+                       !settingsmgr->getMapSettingNoiseParams("mg_biome_np_heat_blend",
+                       &np_heat_blend) ||
+                       !settingsmgr->getMapSettingNoiseParams("mg_biome_np_humidity",
+                       &np_humidity) ||
+                       !settingsmgr->getMapSettingNoiseParams("mg_biome_np_humidity_blend",
+                       &np_humidity_blend))
+               return 0;
+
+       std::string value;
+       if (!settingsmgr->getMapSetting("seed", &value))
+               return 0;
+       std::istringstream ss(value);
+       u64 seed;
+       ss >> seed;
+
+       BiomeManager *bmgr = getServer(L)->getEmergeManager()->biomemgr;
+       if (!bmgr)
+               return 0;
+
+       float heat = bmgr->getHeatAtPosOriginal(pos, np_heat, np_heat_blend, seed);
+       if (!heat)
+               return 0;
+
+       float humidity = bmgr->getHumidityAtPosOriginal(pos, np_humidity,
+               np_humidity_blend, seed);
+       if (!humidity)
+               return 0;
+
+       Biome *biome = (Biome *)bmgr->getBiomeFromNoiseOriginal(heat, humidity, pos);
        if (!biome || biome->index == OBJDEF_INVALID_INDEX)
                return 0;
 
+       lua_newtable(L);
+
        lua_pushinteger(L, biome->index);
+       lua_setfield(L, -2, "biome");
+
+       lua_pushnumber(L, heat);
+       lua_setfield(L, -2, "heat");
+
+       lua_pushnumber(L, humidity);
+       lua_setfield(L, -2, "humidity");
 
        return 1;
 }
@@ -596,6 +785,27 @@ int ModApiMapgen::l_get_mapgen_object(lua_State *L)
 }
 
 
+// get_spawn_level(x = num, z = num)
+int ModApiMapgen::l_get_spawn_level(lua_State *L)
+{
+       NO_MAP_LOCK_REQUIRED;
+
+       s16 x = luaL_checkinteger(L, 1);
+       s16 z = luaL_checkinteger(L, 2);
+
+       EmergeManager *emerge = getServer(L)->getEmergeManager();
+       int spawn_level = emerge->getSpawnLevelAtPoint(v2s16(x, z));
+       // Unsuitable spawn point
+       if (spawn_level == MAX_MAP_GENERATION_LIMIT)
+               return 0;
+
+       // 'findSpawnPos()' in server.cpp adds at least 1
+       lua_pushinteger(L, spawn_level + 1);
+
+       return 1;
+}
+
+
 int ModApiMapgen::l_get_mapgen_params(lua_State *L)
 {
        NO_MAP_LOCK_REQUIRED;
@@ -654,26 +864,26 @@ int ModApiMapgen::l_set_mapgen_params(lua_State *L)
 
        lua_getfield(L, 1, "mgname");
        if (lua_isstring(L, -1))
-               settingsmgr->setMapSetting("mg_name", lua_tostring(L, -1), true);
+               settingsmgr->setMapSetting("mg_name", readParam<std::string>(L, -1), true);
 
        lua_getfield(L, 1, "seed");
        if (lua_isnumber(L, -1))
-               settingsmgr->setMapSetting("seed", lua_tostring(L, -1), true);
+               settingsmgr->setMapSetting("seed", readParam<std::string>(L, -1), true);
 
        lua_getfield(L, 1, "water_level");
        if (lua_isnumber(L, -1))
-               settingsmgr->setMapSetting("water_level", lua_tostring(L, -1), true);
+               settingsmgr->setMapSetting("water_level", readParam<std::string>(L, -1), true);
 
        lua_getfield(L, 1, "chunksize");
        if (lua_isnumber(L, -1))
-               settingsmgr->setMapSetting("chunksize", lua_tostring(L, -1), true);
+               settingsmgr->setMapSetting("chunksize", readParam<std::string>(L, -1), true);
 
        warn_if_field_exists(L, 1, "flagmask",
                "Deprecated: flags field now includes unset flags.");
 
        lua_getfield(L, 1, "flags");
        if (lua_isstring(L, -1))
-               settingsmgr->setMapSetting("mg_flags", lua_tostring(L, -1), true);
+               settingsmgr->setMapSetting("mg_flags", readParam<std::string>(L, -1), true);
 
        return 0;
 }
@@ -723,7 +933,7 @@ int ModApiMapgen::l_set_mapgen_setting(lua_State *L)
 
        const char *name   = luaL_checkstring(L, 1);
        const char *value  = luaL_checkstring(L, 2);
-       bool override_meta = lua_isboolean(L, 3) ? lua_toboolean(L, 3) : false;
+       bool override_meta = readParam<bool>(L, 3, false);
 
        if (!settingsmgr->setMapSetting(name, value, override_meta)) {
                errorstream << "set_mapgen_setting: cannot set '"
@@ -752,7 +962,7 @@ int ModApiMapgen::l_set_mapgen_setting_noiseparams(lua_State *L)
                return 0;
        }
 
-       bool override_meta = lua_isboolean(L, 3) ? lua_toboolean(L, 3) : false;
+       bool override_meta = readParam<bool>(L, 3, false);
 
        if (!settingsmgr->setMapSettingNoiseParams(name, &np, override_meta)) {
                errorstream << "set_mapgen_setting_noiseparams: cannot set '"
@@ -778,7 +988,7 @@ int ModApiMapgen::l_set_noiseparams(lua_State *L)
                return 0;
        }
 
-       bool set_default = lua_isboolean(L, 3) ? lua_toboolean(L, 3) : true;
+       bool set_default = !lua_isboolean(L, 3) || readParam<bool>(L, 3);
 
        g_settings->setNoiseParams(name, np, set_default);
 
@@ -839,16 +1049,40 @@ int ModApiMapgen::l_get_gen_notify(lua_State *L)
 
        lua_newtable(L);
        int i = 1;
-       for (std::set<u32>::iterator it = emerge->gen_notify_on_deco_ids.begin();
-                       it != emerge->gen_notify_on_deco_ids.end(); ++it) {
-               lua_pushnumber(L, *it);
-               lua_rawseti(L, -2, i);
-               i++;
+       for (u32 gen_notify_on_deco_id : emerge->gen_notify_on_deco_ids) {
+               lua_pushnumber(L, gen_notify_on_deco_id);
+               lua_rawseti(L, -2, i++);
        }
        return 2;
 }
 
 
+// get_decoration_id(decoration_name)
+// returns the decoration ID as used in gennotify
+int ModApiMapgen::l_get_decoration_id(lua_State *L)
+{
+       NO_MAP_LOCK_REQUIRED;
+
+       const char *deco_str = luaL_checkstring(L, 1);
+       if (!deco_str)
+               return 0;
+
+       DecorationManager *dmgr = getServer(L)->getEmergeManager()->decomgr;
+
+       if (!dmgr)
+               return 0;
+
+       Decoration *deco = (Decoration *)dmgr->getByName(deco_str);
+
+       if (!deco)
+               return 0;
+
+       lua_pushinteger(L, deco->index);
+
+       return 1;
+}
+
+
 // register_biome({lots of stuff})
 int ModApiMapgen::l_register_biome(lua_State *L)
 {
@@ -857,8 +1091,8 @@ int ModApiMapgen::l_register_biome(lua_State *L)
        int index = 1;
        luaL_checktype(L, index, LUA_TTABLE);
 
-       INodeDefManager *ndef = getServer(L)->getNodeDefManager();
-       BiomeManager *bmgr    = getServer(L)->getEmergeManager()->biomemgr;
+       const NodeDefManager *ndef = getServer(L)->getNodeDefManager();
+       BiomeManager *bmgr = getServer(L)->getEmergeManager()->biomemgr;
 
        Biome *biome = read_biome_def(L, index, ndef);
        if (!biome)
@@ -883,7 +1117,7 @@ int ModApiMapgen::l_register_decoration(lua_State *L)
        int index = 1;
        luaL_checktype(L, index, LUA_TTABLE);
 
-       INodeDefManager *ndef      = getServer(L)->getNodeDefManager();
+       const NodeDefManager *ndef      = getServer(L)->getNodeDefManager();
        DecorationManager *decomgr = getServer(L)->getEmergeManager()->decomgr;
        BiomeManager *biomemgr     = getServer(L)->getEmergeManager()->biomemgr;
        SchematicManager *schemmgr = getServer(L)->getEmergeManager()->schemmgr;
@@ -898,12 +1132,13 @@ int ModApiMapgen::l_register_decoration(lua_State *L)
                return 0;
        }
 
-       deco->name       = getstringfield_default(L, index, "name", "");
-       deco->fill_ratio = getfloatfield_default(L, index, "fill_ratio", 0.02);
-       deco->y_min      = getintfield_default(L, index, "y_min", -31000);
-       deco->y_max      = getintfield_default(L, index, "y_max", 31000);
-       deco->nspawnby   = getintfield_default(L, index, "num_spawn_by", -1);
-       deco->sidelen    = getintfield_default(L, index, "sidelen", 8);
+       deco->name           = getstringfield_default(L, index, "name", "");
+       deco->fill_ratio     = getfloatfield_default(L, index, "fill_ratio", 0.02);
+       deco->y_min          = getintfield_default(L, index, "y_min", -31000);
+       deco->y_max          = getintfield_default(L, index, "y_max", 31000);
+       deco->nspawnby       = getintfield_default(L, index, "num_spawn_by", -1);
+       deco->place_offset_y = getintfield_default(L, index, "place_offset_y", 0);
+       deco->sidelen        = getintfield_default(L, index, "sidelen", 8);
        if (deco->sidelen <= 0) {
                errorstream << "register_decoration: sidelen must be "
                        "greater than 0" << std::endl;
@@ -927,7 +1162,7 @@ int ModApiMapgen::l_register_decoration(lua_State *L)
        //// Get biomes associated with this decoration (if any)
        lua_getfield(L, index, "biomes");
        if (get_biome_list(L, -1, biomemgr, &deco->biomes))
-               errorstream << "register_decoration: couldn't get all biomes " << std::endl;
+               infostream << "register_decoration: couldn't get all biomes " << std::endl;
        lua_pop(L, 1);
 
        //// Get node name(s) to 'spawn by'
@@ -973,6 +1208,7 @@ bool read_deco_simple(lua_State *L, DecoSimple *deco)
 {
        int index = 1;
        int param2;
+       int param2_max;
 
        deco->deco_height     = getintfield_default(L, index, "height", 1);
        deco->deco_height_max = getintfield_default(L, index, "height_max", 0);
@@ -985,6 +1221,7 @@ bool read_deco_simple(lua_State *L, DecoSimple *deco)
 
        size_t nnames = getstringlistfield(L, index, "decoration", &deco->m_nodenames);
        deco->m_nnlistsizes.push_back(nnames);
+
        if (nnames == 0) {
                errorstream << "register_decoration: no decoration nodes "
                        "defined" << std::endl;
@@ -992,12 +1229,16 @@ bool read_deco_simple(lua_State *L, DecoSimple *deco)
        }
 
        param2 = getintfield_default(L, index, "param2", 0);
-       if ((param2 < 0) || (param2 > 255)) {
-               errorstream << "register_decoration: param2 out of bounds (0-255)"
+       param2_max = getintfield_default(L, index, "param2_max", 0);
+
+       if (param2 < 0 || param2 > 255 || param2_max < 0 || param2_max > 255) {
+               errorstream << "register_decoration: param2 or param2_max out of bounds (0-255)"
                        << std::endl;
                return false;
        }
+
        deco->deco_param2 = (u8)param2;
+       deco->deco_param2_max = (u8)param2_max;
 
        return true;
 }
@@ -1033,7 +1274,7 @@ int ModApiMapgen::l_register_ore(lua_State *L)
        int index = 1;
        luaL_checktype(L, index, LUA_TTABLE);
 
-       INodeDefManager *ndef = getServer(L)->getNodeDefManager();
+       const NodeDefManager *ndef = getServer(L)->getNodeDefManager();
        BiomeManager *bmgr    = getServer(L)->getEmergeManager()->biomemgr;
        OreManager *oremgr    = getServer(L)->getEmergeManager()->oremgr;
 
@@ -1092,7 +1333,7 @@ int ModApiMapgen::l_register_ore(lua_State *L)
        //// Get biomes associated with this decoration (if any)
        lua_getfield(L, index, "biomes");
        if (get_biome_list(L, -1, bmgr, &ore->biomes))
-               errorstream << "register_ore: couldn't get all biomes " << std::endl;
+               infostream << "register_ore: couldn't get all biomes " << std::endl;
        lua_pop(L, 1);
 
        //// Get noise parameters if needed
@@ -1101,7 +1342,7 @@ int ModApiMapgen::l_register_ore(lua_State *L)
                ore->flags |= OREFLAG_USE_NOISE;
        } else if (ore->NEEDS_NOISE) {
                errorstream << "register_ore: specified ore type requires valid "
-                       "noise parameters" << std::endl;
+                       "'noise_params' parameter" << std::endl;
                delete ore;
                return 0;
        }
@@ -1142,6 +1383,19 @@ int ModApiMapgen::l_register_ore(lua_State *L)
 
                        break;
                }
+               case ORE_STRATUM: {
+                       OreStratum *orestratum = (OreStratum *)ore;
+
+                       lua_getfield(L, index, "np_stratum_thickness");
+                       if (read_noiseparams(L, -1, &orestratum->np_stratum_thickness))
+                               ore->flags |= OREFLAG_USE_NOISE2;
+                       lua_pop(L, 1);
+
+                       orestratum->stratum_thickness = getintfield_default(L, index,
+                               "stratum_thickness", 8);
+
+                       break;
+               }
                default:
                        break;
        }
@@ -1292,7 +1546,7 @@ int ModApiMapgen::l_create_schematic(lua_State *L)
 {
        MAP_LOCK_REQUIRED;
 
-       INodeDefManager *ndef = getServer(L)->getNodeDefManager();
+       const NodeDefManager *ndef = getServer(L)->getNodeDefManager();
 
        const char *filename = luaL_checkstring(L, 4);
        CHECK_SECURE_PATH(L, filename, true);
@@ -1314,7 +1568,7 @@ int ModApiMapgen::l_create_schematic(lua_State *L)
                                lua_pop(L, 1);
 
                                u8 prob = getintfield_default(L, -1, "prob", MTSCHEM_PROB_ALWAYS);
-                               prob_list.push_back(std::make_pair(pos, prob));
+                               prob_list.emplace_back(pos, prob);
                        }
 
                        lua_pop(L, 1);
@@ -1328,7 +1582,7 @@ int ModApiMapgen::l_create_schematic(lua_State *L)
                        if (lua_istable(L, -1)) {
                                s16 ypos = getintfield_default(L, -1, "ypos", 0);
                                u8 prob  = getintfield_default(L, -1, "prob", MTSCHEM_PROB_ALWAYS);
-                               slice_prob_list.push_back(std::make_pair(ypos, prob));
+                               slice_prob_list.emplace_back(ypos, prob);
                        }
 
                        lua_pop(L, 1);
@@ -1352,12 +1606,15 @@ int ModApiMapgen::l_create_schematic(lua_State *L)
 }
 
 
-// place_schematic(p, schematic, rotation, replacement)
+// place_schematic(p, schematic, rotation,
+//     replacements, force_placement, flagstring)
 int ModApiMapgen::l_place_schematic(lua_State *L)
 {
        MAP_LOCK_REQUIRED;
 
-       Map *map = &(getEnv(L)->getMap());
+       GET_ENV_PTR;
+
+       ServerMap *map = &(env->getServerMap());
        SchematicManager *schemmgr = getServer(L)->getEmergeManager()->schemmgr;
 
        //// Read position
@@ -1365,14 +1622,14 @@ int ModApiMapgen::l_place_schematic(lua_State *L)
 
        //// Read rotation
        int rot = ROTATE_0;
-       const char *enumstr = lua_tostring(L, 3);
-       if (enumstr)
-               string_to_enum(es_Rotation, rot, std::string(enumstr));
+       std::string enumstr = readParam<std::string>(L, 3, "");
+       if (!enumstr.empty())
+               string_to_enum(es_Rotation, rot, enumstr);
 
        //// Read force placement
        bool force_placement = true;
        if (lua_isboolean(L, 5))
-               force_placement = lua_toboolean(L, 5);
+               force_placement = readParam<bool>(L, 5);
 
        //// Read node replacements
        StringMap replace_names;
@@ -1386,12 +1643,19 @@ int ModApiMapgen::l_place_schematic(lua_State *L)
                return 0;
        }
 
-       schem->placeOnMap(map, p, 0, (Rotation)rot, force_placement);
+       //// Read flags
+       u32 flags = 0;
+       read_flags(L, 6, flagdesc_deco, &flags, NULL);
+
+       schem->placeOnMap(map, p, flags, (Rotation)rot, force_placement);
 
        lua_pushboolean(L, true);
        return 1;
 }
 
+
+// place_schematic_on_vmanip(vm, p, schematic, rotation,
+//     replacements, force_placement, flagstring)
 int ModApiMapgen::l_place_schematic_on_vmanip(lua_State *L)
 {
        NO_MAP_LOCK_REQUIRED;
@@ -1406,14 +1670,14 @@ int ModApiMapgen::l_place_schematic_on_vmanip(lua_State *L)
 
        //// Read rotation
        int rot = ROTATE_0;
-       const char *enumstr = lua_tostring(L, 4);
-       if (enumstr)
+       std::string enumstr = readParam<std::string>(L, 4, "");
+       if (!enumstr.empty())
                string_to_enum(es_Rotation, rot, std::string(enumstr));
 
        //// Read force placement
        bool force_placement = true;
        if (lua_isboolean(L, 6))
-               force_placement = lua_toboolean(L, 6);
+               force_placement = readParam<bool>(L, 6);
 
        //// Read node replacements
        StringMap replace_names;
@@ -1427,13 +1691,18 @@ int ModApiMapgen::l_place_schematic_on_vmanip(lua_State *L)
                return 0;
        }
 
+       //// Read flags
+       u32 flags = 0;
+       read_flags(L, 7, flagdesc_deco, &flags, NULL);
+
        bool schematic_did_fit = schem->placeOnVManip(
-               vm, p, 0, (Rotation)rot, force_placement);
+               vm, p, flags, (Rotation)rot, force_placement);
 
        lua_pushboolean(L, schematic_did_fit);
        return 1;
 }
 
+
 // serialize_schematic(schematic, format, options={...})
 int ModApiMapgen::l_serialize_schematic(lua_State *L)
 {
@@ -1459,9 +1728,9 @@ int ModApiMapgen::l_serialize_schematic(lua_State *L)
 
        //// Read format of definition to save as
        int schem_format = SCHEM_FMT_MTS;
-       const char *enumstr = lua_tostring(L, 2);
-       if (enumstr)
-               string_to_enum(es_SchematicFormatType, schem_format, std::string(enumstr));
+       std::string enumstr = readParam<std::string>(L, 2, "");
+       if (!enumstr.empty())
+               string_to_enum(es_SchematicFormatType, schem_format, enumstr);
 
        //// Serialize to binary string
        std::ostringstream os(std::ios_base::binary);
@@ -1489,7 +1758,12 @@ int ModApiMapgen::l_serialize_schematic(lua_State *L)
 void ModApiMapgen::Initialize(lua_State *L, int top)
 {
        API_FCT(get_biome_id);
+       API_FCT(get_biome_name);
+       API_FCT(get_heat);
+       API_FCT(get_humidity);
+       API_FCT(get_biome_data);
        API_FCT(get_mapgen_object);
+       API_FCT(get_spawn_level);
 
        API_FCT(get_mapgen_params);
        API_FCT(set_mapgen_params);
@@ -1501,6 +1775,7 @@ void ModApiMapgen::Initialize(lua_State *L, int top)
        API_FCT(get_noiseparams);
        API_FCT(set_gen_notify);
        API_FCT(get_gen_notify);
+       API_FCT(get_decoration_id);
 
        API_FCT(register_biome);
        API_FCT(register_decoration);