capturetheflag/mods/ctf/ctf_alloc/init.lua
ANAND 2653a09329
Allocate players into teams on the basis of cumulative team scores (#319)
Implement `ctf.custom_alloc`, which recalculates cumulative team scores and returns the name of the team with the lowest cumulative score.
2019-10-31 20:00:50 +05:30

135 lines
3 KiB
Lua

local storage = minetest.get_mod_storage()
local data = minetest.parse_json(storage:get_string("locktoteam")) or {}
-- Override autoalloc function to implement team-locking
local ctf_autoalloc = ctf.autoalloc
function ctf.autoalloc(name, alloc_mode)
if data[name] then
return data[name]
end
return ctf_autoalloc(name, alloc_mode)
end
ChatCmdBuilder.new("ctf_lock_to_team", function(cmd)
cmd:sub(":name :team", function(name, pname, team)
if team == "!" then
data[pname] = nil
storage:set_string("locktoteam", minetest.write_json(data))
return true, "Unlocked " .. pname
else
data[pname] = team
storage:set_string("locktoteam", minetest.write_json(data))
return true, "Locked " .. pname .. " to " .. team
end
end)
end, {
description = "Lock a player to a team",
privs = {
ctf_admin = true,
}
})
-- Struct containing the name and score of the team with lowest cumulative score
local lowest = {}
--[[
lowest = {
team =,
score =
}
]]
-- List of cumulative team scores indexed by team name
local scores = {}
--[[
scores = {
red = ,
blue
}
]]
local function update_lowest()
-- Update lowest.score and lowest.team
lowest = {}
for tname, score in pairs(scores) do
if not lowest.score or score <= lowest.score then
lowest.score = score
lowest.team = tname
end
end
print("\nlowest = " .. dump(lowest) .. "\n")
end
local function calc_scores()
-- Update the cumulative score of all teams
print("\n[calc_scores]")
for tname, team in pairs(ctf.teams) do
local score = 0
for pname, _ in pairs(team.players) do
score = score + ctf_stats.player(pname).score
end
scores[tname] = score
print("\t" .. tname .. " = " .. score)
end
update_lowest()
print("[calc_scores] ********\n")
end
-- Override team-allocation logic
-- Allocate player into the team with the lowest cumulative score
function ctf.custom_alloc(name)
calc_scores()
return lowest.team
end
function table.map_inplace(t, f) -- luacheck: ignore
for key, value in pairs(t) do
t[key] = f(value)
end
return t
end
ctf_alloc = {}
function ctf_alloc.set_all()
local players = minetest.get_connected_players()
table.map_inplace(players, function(a)
local stats, _ = ctf_stats.player(a:get_player_name())
return {
player = a,
score = stats.score,
}
end)
table.sort(players, function(a, b)
return a.score > b.score
end)
local to_red = math.random(2) == 2
for _, spair in pairs(players) do
local player = spair.player
local name = player:get_player_name()
local alloc_mode = tonumber(ctf.setting("allocate_mode"))
local team
if to_red then
team = "red"
else
team = "blue"
end
to_red = not to_red
if alloc_mode ~= 0 and team then
ctf.log("autoalloc", name .. " was allocated to " .. team)
ctf.join(name, team)
end
ctf.move_to_spawn(name)
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
end