Add vote and ctf_match

mods/ctf_match/chat.lua

@@ -0,0 +1,9 @@
+minetest.register_chatcommand("ctf_next", {
+	description = "Skip to the next match",
+	privs = {
+		ctf_admin = true
+	},
+	func = function(name, param)
+		ctf_match.next()
+	end
+})

mods/ctf_match/depends.txt

@@ -0,0 +1,3 @@
+ctf
+ctf_flag
+vote

mods/ctf_match/init.lua

@@ -0,0 +1,154 @@
+ctf.register_on_init(function()
+	ctf._set("match",                    false)
+	ctf._set("match.destroy_team",       false)
+	ctf._set("match.break_alliances",    true)
+	ctf._set("match.teams",              "")
+	ctf._set("match.clear_inv",          false)
+	ctf._set("match.map_reset_limit",    0)
+end)
+
+ctf_match = {}
+
+-- Load next match
+function ctf_match.next()
+	local r = ctf.setting("match.map_reset_limit")
+	if r > 0 then
+		minetest.chat_send_all("Resetting the map, this may take a few moments...")
+		minetest.after(0.5, function()
+			minetest.delete_area(vector.new(-r, -r, -r), vector.new(r, r, r))
+
+			minetest.after(1, function()
+				ctf.reset()
+			end)
+		end)
+	else
+		ctf.reset()
+	end
+
+	-- Note: ctf.reset calls register_on_new_game, below.
+end
+
+-- Check for winner
+function ctf_match.check_for_winner()
+	local winner
+	for name, team in pairs(ctf.teams) do
+		if winner then
+			return
+		end
+		winner = name
+	end
+
+	-- There is a winner!
+	ctf.action("match", winner .. " won!")
+	minetest.chat_send_all("Team " .. winner .. " won!")
+	if ctf.setting("match") then
+		ctf_match.next()
+	end
+end
+
+ctf.register_on_new_game(function()
+	local function safe_place(pos, node)
+		ctf.log("match", "attempting to place...")
+		minetest.get_voxel_manip(pos, { x = pos.x + 1, y = pos.y + 1, z = pos.z + 1})
+		minetest.set_node(pos, node)
+		if minetest.get_node(pos).name ~= node.name then
+			ctf.error("match", "failed to place node, retrying...")
+			minetest.after(0.5, function()
+				safe_place(pos, node)
+			end)
+		end
+	end
+
+	local teams = ctf.setting("match.teams")
+	if teams:trim() == "" then
+		return
+	end
+	ctf.log("match", "Setting up new game!")
+
+	teams = teams:split(";")
+	local pos = {}
+	for i, v in pairs(teams) do
+		local team = v:split(",")
+		if #team == 5 then
+			local name  = team[1]:trim()
+			local color = team[2]:trim()
+			local x     = tonumber(team[3]:trim())
+			local y     = tonumber(team[4]:trim())
+			local z     = tonumber(team[5]:trim())
+			pos[name] = {
+				x = x,
+				y = y,
+				z = z
+			}
+
+			ctf.team({
+				name     = name,
+				color    = color,
+				add_team = true
+			})
+
+			ctf_flag.add(name, pos[name])
+		else
+			ctf.warning("match", "Invalid team setup: " .. dump(v))
+		end
+	end
+
+	minetest.after(0, function()
+		for name, p in pairs(pos) do
+			safe_place(p, {name = "ctf_flag:flag"})
+			ctf_flag.update(p)
+		end
+	end)
+
+	for i, player in pairs(minetest.get_connected_players()) do
+		local name       = player:get_player_name()
+		local alloc_mode = tonumber(ctf.setting("allocate_mode"))
+		local team       = ctf.autoalloc(name, alloc_mode)
+
+		if alloc_mode ~= 0 and team then
+			ctf.log("autoalloc", name .. " was allocated to " .. team)
+			ctf.join(name, team)
+		end
+
+		team = ctf.player(name).team
+		if ctf.team(team) then
+			local spawn = ctf.get_spawn(team)
+			if spawn then
+				player:moveto(spawn, false)
+			end
+		end
+
+		if ctf.setting("match.clear_inv") then
+			local inv = player:get_inventory()
+			inv:set_list("main", {})
+			inv:set_list("craft", {})
+			give_initial_stuff(player)
+		end
+
+		player:set_hp(20)
+	end
+	minetest.chat_send_all("Next round!")
+end)
+
+ctf_flag.register_on_capture(function(attname, flag)
+	if not ctf.setting("match.destroy_team") then
+		return
+	end
+
+	local fl_team = ctf.team(flag.team)
+	if fl_team and #fl_team.flags == 0 then
+		ctf.action("match", flag.team .. " was defeated.")
+		ctf.remove_team(flag.team)
+		minetest.chat_send_all(flag.team .. " has been defeated!")
+	end
+
+	ctf_match.check_for_winner()
+end)
+
+local claimed = ctf_flag.collect_claimed()
+for i, flag in pairs(claimed) do
+	flag.claimed = nil
+end
+
+dofile(minetest.get_modpath("ctf_match") .. "/chat.lua")
+dofile(minetest.get_modpath("ctf_match") .. "/vote.lua")

mods/ctf_match/vote.lua

@@ -0,0 +1,28 @@
+minetest.register_chatcommand("vote_next", {
+	privs = {
+		interact = true
+	},
+	func = function(name, param)
+		vote.new_vote(name, {
+			description = "Skip to next map",
+			help = "/yes,  /no  or  /abstain",
+			duration = 60,
+			perc_needed = 0.5,
+			unanimous = 5,
+
+			on_result = function(self, result, results)
+				if result == "yes" then
+					ctf_match.next()
+				else
+					minetest.chat_send_all("Vote to skip map failed, " ..
+							#results.yes .. " to " .. #results.no)
+				end
+			end,
+
+			on_vote = function(self, name, value)
+				minetest.chat_send_all(name .. " voted " .. value .. " to '" ..
+						self.description .. "'")
+			end
+		})
+	end
+})