lazarr/mods/lzr_levels/init.lua

local S = minetest.get_translator("lzr_levels")

lzr_levels = {}

local ROOM_NODE = "lzr_core:wood"
local WINDOW_NODE = "xdecor:woodframed_glass"
local WINDOW_HEIGHT = 3
local WINDOW_DIST = 3
local LAST_LEVEL = 10

local current_level = nil

local build_room = function(param)
	local pos = param.pos
	local psize = param.size
	local posses_border = {}
	local posses_window = {}
	local posses_air = {}
	local size = vector.add(psize, {x=1,y=1,z=1})
	for x=0,size.x do
	for z=0,size.z do
	for y=0,size.y do
		local offset = {x=x-1, y=y-1, z=z-1}
		if (x >= 1 and x < size.x) and
		(y >= 1 and y < size.y) and
		(z >= 1 and z < size.z) then
			table.insert(posses_air, vector.add(pos, offset))
		elseif y == WINDOW_HEIGHT and ((x >= 1 and x < size.x and x % WINDOW_DIST == 0) or (z >= 1 and z < size.z and z % WINDOW_DIST == 0)) then
			table.insert(posses_window, vector.add(pos, offset))
		else
			table.insert(posses_border, vector.add(pos, offset))
		end
	end
	end
	end
	minetest.bulk_set_node(posses_border, {name=ROOM_NODE})
	minetest.bulk_set_node(posses_window, {name=WINDOW_NODE})
	minetest.bulk_set_node(posses_air, {name="air"})
end

local emerge_callback = function(blockpos, action, calls_remaining, param)
	minetest.log("verbose", "[lzr_levels] emerge_callback() ...")
	if action == minetest.EMERGE_ERRORED then
		minetest.log("error", "[lzr_levels] Room emerging error.")
	elseif action == minetest.EMERGE_CANCELLED then
		minetest.log("error", "[lzr_levels] Room emerging cancelled.")
	elseif calls_remaining == 0 and (action == minetest.EMERGE_GENERATED or action == minetest.EMERGE_FROM_DISK or action == minetest.EMERGE_FROM_MEMORY) then
		build_room(param)
		lzr_levels.build_level(param.level)
		minetest.log("action", "[lzr_levels] Room emerged and built.")
	end
end

local prepare_room = function(pos, size, level)
	minetest.emerge_area(pos, vector.add(pos, size), emerge_callback, {pos=pos, size=size, level=level})
end

function lzr_levels.build_room(pos, size, level)
	prepare_room(pos, size, level)
end

function lzr_levels.prepare_and_build_level(level)
	lzr_levels.build_room(lzr_globals.LEVEL_POS, {x=10, y=6, z=10}, level)
end

function lzr_levels.build_level(level)
	return minetest.place_schematic(lzr_globals.LEVEL_POS, minetest.get_modpath("lzr_levels").."/schematics/lzr_levels_level_"..tonumber(level)..".mts", "0", {}, true, "")
end

local function clear_inventory(player)
	local inv = player:get_inventory()
	for i=1,inv:get_size("main") do
		inv:set_stack("main", i, "")
	end
end

local function reset_inventory(player)
	clear_inventory(player)
	local inv = player:get_inventory()
	inv:add_item("main", "screwdriver2:screwdriver")
end

local get_singleplayer = function()
	return minetest.get_player_by_name("singleplayer")
end

function lzr_levels.start_level(level)
	current_level = level
	local player = get_singleplayer()
	reset_inventory(player)
	player:set_pos({x=5,y=2,z=5})
	lzr_levels.prepare_and_build_level(level)
	lzr_messages.show_message(player, S("Level @1", level), 3)
	lzr_gamestate.state = lzr_gamestate.LEVEL
end

function lzr_levels.next_level()
	local player = get_singleplayer()
	current_level = current_level + 1
	if current_level > 10 then
		lzr_messages.show_message(player, S("Final level completed!"), 5)
	else
		lzr_levels.start_level(current_level)
	end
end

function lzr_levels.leave_level()
	local player = get_singleplayer()
	current_level = nil
	clear_inventory(player)
	player:set_pos(vector.add(lzr_globals.MENU_SHIP_POS, lzr_globals.MENU_SHIP_PLAYER_SPAWN_OFFSET))
	lzr_gamestate.state = lzr_gamestate.MENU
end

minetest.register_chatcommand("level", {
	privs = { server = true },
	description = S("Go to level"),
	params = S("<level>"),
	func = function(name, param)
		local level = tonumber(param)
		if not level then
			return false
		end
		if level < 1 or level > LAST_LEVEL then
			return false, S("Invalid level!")
		end
		lzr_levels.start_level(level)
		return true
	end,

})

minetest.register_chatcommand("restart", {
	privs = {},
	params = "",
	description = S("Restart current level"),
	func = function(name, param)
		if lzr_gamestate.state == lzr_gamestate.LEVEL then
			lzr_levels.start_level(current_level)
			return true
		else
			return false, S("Not playing in a level!")
		end
	end,
})

minetest.register_chatcommand("leave", {
	privs = {},
	params = "",
	description = S("Leave current level"),
	func = function(name, param)
		if lzr_gamestate.state == lzr_gamestate.LEVEL then
			lzr_levels.leave_level(current_level)
			return true
		else
			return false, S("Not playing in a level!")
		end
	end,
})