capturetheflag/mods/ctf_map/schem_map.lua

assert(minetest.get_mapgen_setting("mg_name") == "singlenode", "singlenode mapgen is required.")

minetest.register_alias("mapgen_singlenode", "ctf_map:ignore")

function ctf_map.place_map(map)
	local r = map.r
	local h = map.h
	minetest.emerge_area({ x = -r, y = -h / 2, z = -r }, { x = r, y = h / 2, z = r })

	local res = minetest.place_schematic({ x = -r, y = -h / 2, z = -r },
		minetest.get_modpath("ctf_map") .. "/maps/" .. map.schematic, map.rotation == "z" and "0" or "90")

	if res ~= nil then
		local seed = minetest.get_mapgen_setting("seed")
		place_chests({ x = -r, y = -h / 2, z = -r }, { x = r, y = h / 2, z = 0 }, seed)
		place_chests({ x = -r, y = -h / 2, z =  0 }, { x = r, y = h / 2, z = r }, seed)
	end

	return res ~= nil
end

local mapdir = minetest.get_modpath("ctf_map") .. "/maps/"

do
	local files_hash = {}
	local files = minetest.get_dir_list(mapdir, false)
	for i=1, #files do
		files_hash[files[i]:split(".")[1]] = true
	end

	ctf_map.available_maps = {}
	for key, _ in pairs(files_hash) do
		table.insert(ctf_map.available_maps, key)
	end
end


ctf_map.map = nil

function ctf_match.load_map_meta(name)
	local meta = Settings(mapdir .. name .. ".conf")
	local map = {
		name      = meta:get("name"),
		author    = meta:get("author"),
		rotation  = meta:get("rotation"),
		schematic = name .. ".mts",
		r         = tonumber(meta:get("r")),
		h         = tonumber(meta:get("h")),
		teams     = {}
	}

	local i = 1
	while meta:get("team." .. i) do
		local tname  = meta:get("team." .. i)
		local tcolor = meta:get("team." .. i .. ".color")
		local tpos   = minetest.string_to_pos(meta:get("team." .. i .. ".pos"))

		map.teams[tname] = {
			color = tcolor,
			pos = tpos,
		}

		i = i + 1
	end

	return map
end

ctf_match.register_on_new_match(function()
	local name = ctf_map.available_maps[math.random(#ctf_map.available_maps)]
	ctf_map.map = ctf_match.load_map_meta(name)
	ctf_map.place_map(ctf_map.map)

	minetest.after(0.1, function()
		for _, player in pairs(minetest.get_connected_players()) do
			ctf.move_to_spawn(player:get_player_name())
		end
	end)
end)

function ctf_match.create_teams()
	local number = ctf.setting("match.teams")

	for key, value in pairs(ctf_map.map.teams) do
		local name  = key
		local color = value.color
		local flag  = value.pos

		if name and color and flag then
			print(" - creating " .. key)
			ctf.team({
				name     = name,
				color    = color,
				add_team = true
			})

			ctf_flag.add(name, flag)

			minetest.after(0, function()
				ctf_flag.assert_flag(flag)
			end)
		else
			minetest.log("error", " - Failed to create " .. key)
		end
	end
end