capturetheflag/mods/ctf_stats/gui.lua

function ctf_stats.get_formspec_match_summary(stats)
	local players = {}
	for name, pstat in pairs(stats.red) do
		pstat.name = name
		pstat.color = ctf.flag_colors.red
		table.insert(players, pstat)
	end
	for name, pstat in pairs(stats.blue) do
		pstat.name = name
		pstat.color = ctf.flag_colors.blue
		table.insert(players, pstat)
	end
	local ret = ctf_stats.get_formspec("Match Summary", players)
	ret = ret .. "label[3.5,6.2;Tip: type /rankings for league tables]"
	return ret
end

function ctf_stats.get_formspec(title, players)
	table.sort(players, function(one, two)
		return one.score > two.score
	end)

	local ret = "size[12,6.5]"
	ret = ret .. "vertlabel[0,0;" .. title .. "]"
	ret = ret .. "tablecolumns[color;text;text;text;text;text;text;text;text]"
	ret = ret .. "tableoptions[highlight=#00000000]"
	ret = ret .. "table[0.5,0;11.25,6;scores;"
	ret = ret .. "#ffffff,,username,kills,deaths,K/D ratio,captures,attempts,score"

	for i = 1, #players do
		local pstat = players[i]
		local color = pstat.color or "#ffffff"
		local kd = pstat.kills
		if pstat.deaths > 0 then
			kd = kd / pstat.deaths
		end
		ret = ret ..
			"," .. string.gsub(color, "0x", "#") ..
			"," .. i ..
			"," .. pstat.name ..
			"," .. pstat.kills ..
			"," .. pstat.deaths ..
			"," .. math.floor(kd*10)/10  ..
			"," .. pstat.captures ..
			"," .. pstat.attempts ..
			"," .. math.floor(pstat.score*10)/10
		if i > 49 then
			break
		end
	end

	ret = ret .. ";-1]"
	ret = ret .. "button_exit[0.5,6;3,1;close;Close]"
	return ret
end

function ctf_stats.get_html(title, players)
	table.sort(players, function(one, two)
		return one.score > two.score
	end)

	local ret = "<h1>" .. title .. "</h1>"
	ret = ret .. "<table>" ..
		"<tr><th></th>" ..
		"<th>username</th>" ..
		"<th>kills</th>" ..
		"<th>deaths</th>" ..
		"<th>K/D ratio</th>" ..
		"<th>captures</th>" ..
		"<th>attempts</th>" ..
		"<th>score</th></tr>"

	for i = 1, #players do
		local pstat = players[i]
		local color = pstat.color or "#ffffff"
		local kd = pstat.kills
		if pstat.deaths > 0 then
			kd = kd / pstat.deaths
		end
		ret = ret ..
			"<tr><td>" .. i ..
			"</td><td>" .. pstat.name ..
			"</td><td>" .. pstat.kills ..
			"</td><td>" .. pstat.deaths ..
			"</td><td>" .. math.floor(kd*10)/10 ..
			"</td><td>" .. pstat.captures ..
			"</td><td>" .. pstat.attempts ..
			"</td><td>" .. math.floor(pstat.score*10)/10 .. "</td></tr>"
		if i > 49 then
			break
		end
	end

	ret = ret .. "</table>\n"
	return ret
end

function ctf_stats.html_to_file(filepath)
	local players = {}
	for name, pstat in pairs(ctf_stats.players) do
		pstat.name = name
		pstat.color = nil
		table.insert(players, pstat)
	end
	local html = ctf_stats.get_html("Player Rankings", players)
	local f = io.open(filepath, "w")
	f:write("<!doctype html>\n")
	f:write("<html><head>\n")
	f:write("<meta charset=\"utf-8\">\n")
	f:write("<title>Player Rankings</title>\n")
	f:write("<link rel=\"stylesheet\" href=\"score_style.css\">\n")
	f:write("</head><body>\n")
	f:write(html)
	f:write("</body></html>\n")
	f:close()
end

local function send_as_chat_result(to, name)
	local players = {}
	for pname, pstat in pairs(ctf_stats.players) do
		pstat.name = pname
		pstat.color = nil
		table.insert(players, pstat)
	end

	table.sort(players, function(one, two)
		return one.score > two.score
	end)

	local place = -1
	local me = nil
	for i = 1, #players do
		local pstat = players[i]
		if pstat.name == name then
			me = pstat
			place = i
			break
		end
	end
	if place < 1 then
		place = #players + 1
	end
	local you_are_in = (to == name) and "You are in " or "They are in "
	local result = you_are_in .. place .. " place.\n"
	if me then
		local kd = me.kills
		if me.deaths > 0 then
			kd = kd / me.deaths
		end
		result = result .. "Kills: " .. me.kills ..
			" | Deaths: " .. me.deaths ..
			" | K/D: " .. math.floor(kd*10)/10 ..
			" | Captures: " .. me.captures ..
			" | Attempts: " .. me.attempts ..
			" | Score: " .. math.floor(me.score)
	end
	return true, result
end

minetest.register_chatcommand("rankings", {
	func = function(name, param)
		if param == "me" then
			return send_as_chat_result(name, name)
		elseif param ~= "" then
			if ctf_stats.players[param:trim()] then
				return send_as_chat_result(name, param:trim())
			else
				return false, "Can't find player '" .. param:trim() .. "'"
			end
		else
			local players = {}
			for pname, pstat in pairs(ctf_stats.players) do
				pstat.name = pname
				pstat.color = nil
				table.insert(players, pstat)
			end
			local fs = ctf_stats.get_formspec("Player Rankings", players)
			fs = fs .. "label[3.5,6.2;Tip: to see where you are, type /rankings me]"
			minetest.show_formspec(name, "ctf_stats:rankings", fs)
		end
	end
})

local reset_y = {}
minetest.register_chatcommand("reset_rankings", {
	func = function(name, param)
		param = param:trim()
		if param ~= "" and not minetest.check_player_privs(name, { ctf_admin = true}) then
			return false, "Missing privilege: ctf_admin"
		end

		local reset_name = param == "" and name or param

		if reset_name == name and not reset_y[name] then
			reset_y[name] = true
			return true, "This will reset your stats and rankings completely. You will lose access to any special privileges such as the team chest or userlimit skip. This is irreversable. If you're sure, type /reset_rankings again to perform the reset"
		end
		reset_y[name] = nil

		ctf_stats.players[name] = nil
		ctf_stats.player(reset_name)
		return true, "Reset the stats and ranking of " .. reset_name
	end
})
Add end of match score board 2015-12-03 23:46:52 +00:00			`function ctf_stats.get_formspec_match_summary(stats)`
			`local players = {}`
			`for name, pstat in pairs(stats.red) do`
			`pstat.name = name`
			`pstat.color = ctf.flag_colors.red`
			`table.insert(players, pstat)`
			`end`
			`for name, pstat in pairs(stats.blue) do`
			`pstat.name = name`
			`pstat.color = ctf.flag_colors.blue`
			`table.insert(players, pstat)`
			`end`
Add league tables 2015-12-03 23:57:28 +00:00			`local ret = ctf_stats.get_formspec("Match Summary", players)`
Add end of match score board 2015-12-03 23:46:52 +00:00			`ret = ret .. "label[3.5,6.2;Tip: type /rankings for league tables]"`
			`return ret`
			`end`

Rewrite scoring algorithm 2017-10-12 23:09:25 +00:00			`function ctf_stats.get_formspec(title, players)`
Add end of match score board 2015-12-03 23:46:52 +00:00			`table.sort(players, function(one, two)`
Hopefully fix bug 2015-12-04 11:14:22 +00:00			`return one.score > two.score`
Add end of match score board 2015-12-03 23:46:52 +00:00			`end)`

Wider again 2015-12-04 11:21:25 +00:00			`local ret = "size[12,6.5]"`
Add end of match score board 2015-12-03 23:46:52 +00:00			`ret = ret .. "vertlabel[0,0;" .. title .. "]"`
Add league tables 2015-12-03 23:57:28 +00:00			`ret = ret .. "tablecolumns[color;text;text;text;text;text;text;text;text]"`
Add end of match score board 2015-12-03 23:46:52 +00:00			`ret = ret .. "tableoptions[highlight=#00000000]"`
Wider again 2015-12-04 11:21:25 +00:00			`ret = ret .. "table[0.5,0;11.25,6;scores;"`
Add league tables 2015-12-03 23:57:28 +00:00			`ret = ret .. "#ffffff,,username,kills,deaths,K/D ratio,captures,attempts,score"`
Add end of match score board 2015-12-03 23:46:52 +00:00
Correct typo 2015-12-04 11:16:33 +00:00			`for i = 1, #players do`
Hopefully fix bug 2015-12-04 11:14:22 +00:00			`local pstat = players[i]`
Add end of match score board 2015-12-03 23:46:52 +00:00			`local color = pstat.color or "#ffffff"`
Add /rankings me 2015-12-18 02:14:33 +00:00			`local kd = pstat.kills`
			`if pstat.deaths > 0 then`
			`kd = kd / pstat.deaths`
			`end`
Add end of match score board 2015-12-03 23:46:52 +00:00			`ret = ret ..`
			`"," .. string.gsub(color, "0x", "#") ..`
Add league tables 2015-12-03 23:57:28 +00:00			`"," .. i ..`
Add end of match score board 2015-12-03 23:46:52 +00:00			`"," .. pstat.name ..`
			`"," .. pstat.kills ..`
			`"," .. pstat.deaths ..`
Add /rankings me 2015-12-18 02:14:33 +00:00			`"," .. math.floor(kd*10)/10 ..`
Add end of match score board 2015-12-03 23:46:52 +00:00			`"," .. pstat.captures ..`
			`"," .. pstat.attempts ..`
Round score entry in ctf_stats 2015-12-05 19:12:34 +00:00			`"," .. math.floor(pstat.score*10)/10`
Make bounties dynamic, plus small ctf_stats change Top 50 (instead of 41) players in the league table 2018-04-06 10:21:44 +00:00			`if i > 49 then`
Add league tables 2015-12-03 23:57:28 +00:00			`break`
			`end`
Add end of match score board 2015-12-03 23:46:52 +00:00			`end`

			`ret = ret .. ";-1]"`
			`ret = ret .. "button_exit[0.5,6;3,1;close;Close]"`
			`return ret`
			`end`
Add league tables 2015-12-03 23:57:28 +00:00
Add ctf_stats.get_html() and ctf_stats.html_to_file() 2015-12-07 23:49:58 +00:00			`function ctf_stats.get_html(title, players)`
Rewrite scoring algorithm 2017-10-12 23:09:25 +00:00			`table.sort(players, function(one, two)`
			`return one.score > two.score`
			`end)`
Add ctf_stats.get_html() and ctf_stats.html_to_file() 2015-12-07 23:49:58 +00:00
			`local ret = "<h1>" .. title .. "</h1>"`
			`ret = ret .. "<table>" ..`
			`"<tr><th></th>" ..`
			`"<th>username</th>" ..`
			`"<th>kills</th>" ..`
			`"<th>deaths</th>" ..`
			`"<th>K/D ratio</th>" ..`
			`"<th>captures</th>" ..`
			`"<th>attempts</th>" ..`
			`"<th>score</th></tr>"`

			`for i = 1, #players do`
			`local pstat = players[i]`
			`local color = pstat.color or "#ffffff"`
Add /rankings me 2015-12-18 02:14:33 +00:00			`local kd = pstat.kills`
			`if pstat.deaths > 0 then`
			`kd = kd / pstat.deaths`
			`end`
Add ctf_stats.get_html() and ctf_stats.html_to_file() 2015-12-07 23:49:58 +00:00			`ret = ret ..`
			`"<tr><td>" .. i ..`
			`"</td><td>" .. pstat.name ..`
			`"</td><td>" .. pstat.kills ..`
			`"</td><td>" .. pstat.deaths ..`
Add /rankings me 2015-12-18 02:14:33 +00:00			`"</td><td>" .. math.floor(kd*10)/10 ..`
Add ctf_stats.get_html() and ctf_stats.html_to_file() 2015-12-07 23:49:58 +00:00			`"</td><td>" .. pstat.captures ..`
			`"</td><td>" .. pstat.attempts ..`
			`"</td><td>" .. math.floor(pstat.score*10)/10 .. "</td></tr>"`
Make bounties dynamic, plus small ctf_stats change Top 50 (instead of 41) players in the league table 2018-04-06 10:21:44 +00:00			`if i > 49 then`
Add ctf_stats.get_html() and ctf_stats.html_to_file() 2015-12-07 23:49:58 +00:00			`break`
			`end`
			`end`

			`ret = ret .. "</table>\n"`
			`return ret`
			`end`

			`function ctf_stats.html_to_file(filepath)`
			`local players = {}`
			`for name, pstat in pairs(ctf_stats.players) do`
			`pstat.name = name`
			`pstat.color = nil`
			`table.insert(players, pstat)`
			`end`
			`local html = ctf_stats.get_html("Player Rankings", players)`
			`local f = io.open(filepath, "w")`
			`f:write("<!doctype html>\n")`
			`f:write("<html><head>\n")`
			`f:write("<meta charset=\"utf-8\">\n")`
			`f:write("<title>Player Rankings</title>\n")`
			`f:write("<link rel=\"stylesheet\" href=\"score_style.css\">\n")`
			`f:write("</head><body>\n")`
			`f:write(html)`
			`f:write("</body></html>\n")`
			`f:close()`
			`end`
Add league tables 2015-12-03 23:57:28 +00:00
Fix /rankings <name> not returning as chat command result 2018-01-26 23:51:36 +00:00			`local function send_as_chat_result(to, name)`
Add ability to list a certain user's score 2018-01-03 00:23:38 +00:00			`local players = {}`
			`for pname, pstat in pairs(ctf_stats.players) do`
			`pstat.name = pname`
			`pstat.color = nil`
			`table.insert(players, pstat)`
			`end`

			`table.sort(players, function(one, two)`
			`return one.score > two.score`
			`end)`

			`local place = -1`
			`local me = nil`
			`for i = 1, #players do`
			`local pstat = players[i]`
			`if pstat.name == name then`
			`me = pstat`
			`place = i`
			`break`
			`end`
			`end`
			`if place < 1 then`
			`place = #players + 1`
			`end`
			`local you_are_in = (to == name) and "You are in " or "They are in "`
Fix /rankings <name> not returning as chat command result 2018-01-26 23:51:36 +00:00			`local result = you_are_in .. place .. " place.\n"`
Add ability to list a certain user's score 2018-01-03 00:23:38 +00:00			`if me then`
			`local kd = me.kills`
			`if me.deaths > 0 then`
			`kd = kd / me.deaths`
			`end`
Fix /rankings <name> not returning as chat command result 2018-01-26 23:51:36 +00:00			`result = result .. "Kills: " .. me.kills ..`
Add ability to list a certain user's score 2018-01-03 00:23:38 +00:00			`" \| Deaths: " .. me.deaths ..`
			`" \| K/D: " .. math.floor(kd*10)/10 ..`
			`" \| Captures: " .. me.captures ..`
			`" \| Attempts: " .. me.attempts ..`
Add rounding to score given by /rankings 2018-01-27 22:17:15 +00:00			`" \| Score: " .. math.floor(me.score)`
Add ability to list a certain user's score 2018-01-03 00:23:38 +00:00			`end`
Fix /rankings <name> not returning as chat command result 2018-01-26 23:51:36 +00:00			`return true, result`
Add ability to list a certain user's score 2018-01-03 00:23:38 +00:00			`end`

Add league tables 2015-12-03 23:57:28 +00:00			`minetest.register_chatcommand("rankings", {`
Add /rankings me 2015-12-18 02:14:33 +00:00			`func = function(name, param)`
			`if param == "me" then`
Fix /rankings <name> not returning as chat command result 2018-01-26 23:51:36 +00:00			`return send_as_chat_result(name, name)`
Add ability to list a certain user's score 2018-01-03 00:23:38 +00:00			`elseif param ~= "" then`
			`if ctf_stats.players[param:trim()] then`
Fix /rankings <name> not returning as chat command result 2018-01-26 23:51:36 +00:00			`return send_as_chat_result(name, param:trim())`
Add ability to list a certain user's score 2018-01-03 00:23:38 +00:00			`else`
			`return false, "Can't find player '" .. param:trim() .. "'"`
Add /rankings me 2015-12-18 02:14:33 +00:00			`end`
			`else`
			`local players = {}`
			`for pname, pstat in pairs(ctf_stats.players) do`
			`pstat.name = pname`
			`pstat.color = nil`
			`table.insert(players, pstat)`
			`end`
			`local fs = ctf_stats.get_formspec("Player Rankings", players)`
			`fs = fs .. "label[3.5,6.2;Tip: to see where you are, type /rankings me]"`
			`minetest.show_formspec(name, "ctf_stats:rankings", fs)`
Add league tables 2015-12-03 23:57:28 +00:00			`end`
			`end`
			`})`
Add reset_rankings command 2018-01-27 00:01:17 +00:00
			`local reset_y = {}`
			`minetest.register_chatcommand("reset_rankings", {`
			`func = function(name, param)`
			`param = param:trim()`
			`if param ~= "" and not minetest.check_player_privs(name, { ctf_admin = true}) then`
			`return false, "Missing privilege: ctf_admin"`
			`end`

			`local reset_name = param == "" and name or param`

			`if reset_name == name and not reset_y[name] then`
			`reset_y[name] = true`
			`return true, "This will reset your stats and rankings completely. You will lose access to any special privileges such as the team chest or userlimit skip. This is irreversable. If you're sure, type /reset_rankings again to perform the reset"`
			`end`
			`reset_y[name] = nil`

			`ctf_stats.players[name] = nil`
			`ctf_stats.player(reset_name)`
			`return true, "Reset the stats and ranking of " .. reset_name`
			`end`
			`})`