v1.2.13

leaderboard.lua

@@ -3,12 +3,15 @@
 local FILENAME = "leaderboard.txt"
 local lb = {}
 local timeFinished = 0
-local disable = true
+local disable = false
 local prevLap = 0
 local splits = {}
 local PATCH = nil
 local help = true
 
+-- Retry / changelevel map
+local nextMap = nil
+
 local Flags = 0
 
 -- SPB flags with the least significance first
@@ -19,7 +22,10 @@ local F_SPBEXP = 0x8
 
 local clearcheats = false
 
-local startTime = 6 * TICRATE + (3 * TICRATE / 4)
+local START_TIME = 6 * TICRATE + (3 * TICRATE / 4)
+local AFK_TIMEOUT = TICRATE * 5
+local AFK_BALANCE = TICRATE * 60
+local PREVENT_JOIN_TIME = START_TIME + TICRATE * 5
 
 -- patch caching function
 local cachePatches
@@ -92,6 +98,19 @@ else
 	print("Failed to open file: ", FILENAME)
 end
 
+local function allowJoin(v)
+	local y
+	if v then
+		y = "yes"
+		hud.enable("freeplay")
+	else
+		y = "no"
+		hud.disable("freeplay")
+	end
+
+	COM_BufInsertText(server, "allowteamchange " + y)
+end
+
 local function ingame()
 	local n = 0
 	for p in players.iterate do
@@ -103,12 +122,17 @@ local function ingame()
 end
 
 local function initLeaderboard(player)
+	if disable and leveltime < START_TIME then
 		disable = ingame() > 1
+	else
+		disable = disable or ingame() > 1
+	end
+	player.afkTimeout = leveltime
 end
 addHook("PlayerSpawn", initLeaderboard)
 
 local function doyoudare(player)
-	if disable or player.spectator then
+	if ingame() > 1 or player.spectator then
 		CONS_Printf(player, "How dare you")
 		return false
 	end
@@ -117,7 +141,11 @@ end
 
 local function retry(player, ...)
 	if doyoudare(player) then
-		COM_BufInsertText(server, "map " + G_BuildMapName(gamemap))
+		-- Prevents bind crash
+		if leveltime < 20 then
+			return
+		end
+		nextMap = G_BuildMapName(gamemap)
 	end
 end
 COM_AddCommand("retry", retry)
@@ -139,6 +167,9 @@ local function changelevel(player, ...)
 	if not doyoudare(player) then
 		return
 	end
+	if leveltime < 20 then
+		return
+	end
 
 	local map = ...
 	if map == nil then
@@ -172,7 +203,7 @@ local function changelevel(player, ...)
 		return
 	end
 
-	COM_BufInsertText(server, "map " + (G_BuildMapName(mapnum)))
+	nextMap = G_BuildMapName(mapnum)
 end
 COM_AddCommand("changelevel", changelevel)
 
@@ -209,6 +240,8 @@ addHook("MapLoad", function()
 		timeFinished = 0
 		splits = {}
 		prevLap = 0
+
+		allowJoin(true)
 		--printTable(lb)
 	end
 )
@@ -251,6 +284,7 @@ local splitColor = {[true]=V_SKYMAP, [false]=V_REDMAP}
 local splitSymbol = {[true]="-", [false]="+"}
 
 local showSplit = 0
+local VFLAGS = V_SNAPTOLEFT
 local function drawScoreboard(v, player)
 	if disable then return end
 	if player != displayplayers[0] then return end
@@ -273,9 +307,9 @@ local function drawScoreboard(v, player)
 		--        |    OFFSET   | + |      PADDING       | * |INDEX|
 		local h = ((200 / 4) + 4) + (skinPatch.height + 4) * (i - 1)
 
-		v.draw(4, h, skinPatch, V_HUDTRANS, v.getColormap("sonic", score["color"]))
+		v.draw(4, h, skinPatch, V_HUDTRANS | VFLAGS, v.getColormap("sonic", score["color"]))
 		if player.name == name then
-			v.draw(4, h, PATCH["CHILI"][(leveltime / 4) % 8], V_HUDTRANS)
+			v.draw(4, h, PATCH["CHILI"][(leveltime / 4) % 8], V_HUDTRANS | VFLAGS)
 		end
 
 		-- SPB
@@ -287,7 +321,7 @@ local function drawScoreboard(v, player)
 				h - 2,
 				scale,
 				PATCH["SPB"],
-				V_HUDTRANS
+				V_HUDTRANS | VFLAGS
 			)
 			if score["flags"] & F_SPBEXP then
 				drawitem(
@@ -296,7 +330,7 @@ local function drawScoreboard(v, player)
 					h - 2,
 					scale,
 					PATCH["INV"][(leveltime / 4) % 6],
-					V_HUDTRANS
+					V_HUDTRANS | VFLAGS
 				)
 			end
 			if score["flags"] & F_SPBBIG then
@@ -306,7 +340,7 @@ local function drawScoreboard(v, player)
 					h + skinPatch.height - 4,
 					scale,
 					PATCH["BIG"],
-					V_HUDTRANS
+					V_HUDTRANS | VFLAGS
 				)
 			end
 			if score["flags"] & F_SPBJUS then
@@ -316,7 +350,7 @@ local function drawScoreboard(v, player)
 					h + skinPatch.height - 4,
 					scale,
 					PATCH["HYUD"],
-					V_HUDTRANS
+					V_HUDTRANS | VFLAGS
 				)
 			end
 		end
@@ -338,14 +372,30 @@ local function drawScoreboard(v, player)
 			end
 		end
 
-		v.drawString(px + skinPatch.width, h + py, name, V_HUDTRANSHALF | V_ALLOWLOWERCASE, stralign)
+		v.drawString(
+			px + skinPatch.width,
+			h + py,
+			name,
+			V_HUDTRANSHALF | V_ALLOWLOWERCASE | VFLAGS,
+			stralign
+		)
 
 		-- Draw splits
 		if showSplit > 0 and score["splits"][prevLap] != nil then
 			local split = splits[prevLap] - score["splits"][prevLap]
-			v.drawString(px + skinPatch.width, h + 8, splitSymbol[split < 0] + ticsToTime(abs(split)), V_HUDTRANSHALF | splitColor[split < 0])
+			v.drawString(
+				px + skinPatch.width,
+				h + 8,
+				splitSymbol[split < 0] + ticsToTime(abs(split)),
+				V_HUDTRANSHALF | splitColor[split < 0] | VFLAGS
+			)
 		else
-			v.drawString(px + skinPatch.width, h + 8, ticsToTime(score["time"]), V_HUDTRANSHALF | bodium[min(i, 4)])
+			v.drawString(
+				px + skinPatch.width,
+				h + 8,
+				ticsToTime(score["time"]),
+				V_HUDTRANSHALF | bodium[min(i, 4)] | VFLAGS
+			)
 		end
 	end
 end
@@ -468,8 +518,41 @@ local function regLap(player)
 	end
 end
 
+local function getGamer()
+	for p in players.iterate do
+		if p.valid and not p.spectator then
+			return p
+		end
+	end
+end
+
 local function think()
+	if nextMap then
+		COM_BufInsertText(server, "map " + nextMap)
+		nextMap = nil
+	end
+
 	if disable then
+		if ingame() > 1 then
+			for p in players.iterate do
+				if p.valid and not p.spectator and not p.exiting then
+					if p.cmd.buttons then
+						p.afkTimeout = leveltime
+					end
+					if p.afkTimeout + AFK_BALANCE < leveltime then
+						p.spectator = true
+						chatprint("\x89" + p.name + " was moved to the other team for game balance", true)
+					end
+				end
+			end
+		else
+			for p in players.iterate do
+				if p.valid and not p.spectator then
+					p.afkTimeout = leveltime
+				end
+			end
+		end
+
 		help = true
 		return
 	end
@@ -477,9 +560,10 @@ local function think()
 		showSplit = showSplit - 1
 	end
 
-	if leveltime < startTime then
+	local p = getGamer()
+	if leveltime < START_TIME then
 		-- Help message
-		if leveltime == startTime - TICRATE * 3 then
+		if leveltime == START_TIME - TICRATE * 3 then
 			if ingame() == 1  then
 				if help then
 					help = false
@@ -492,16 +576,10 @@ local function think()
 
 		-- Autospec
 		if leveltime == 1 then
-			local gamer = nil
+			if p then
-			for p in players.iterate do
+				for s in players.iterate do
-				if p.valid and not p.spectator then
+					if s.valid and s.spectator then
-					gamer = #p
+						COM_BufInsertText(s, string.format("view \"%d\"", #p))
-				end
-			end
-			if gamer then
-				for p in players.iterate do
-					if p.valid and p.spectator then
-						COM_BufInsertText(p, string.format("view \"%d\"", gamer))
 					end
 				end
 			end
@@ -509,7 +587,7 @@ local function think()
 		
 		-- Gamemode flags
 		Flags = $ & !(F_SPBATK | F_SPBEXP | F_SPBBIG | F_SPBJUS)
-		if leveltime > startTime - (3 * TICRATE) / 2 and server.SPBArunning then
+		if leveltime > START_TIME - (3 * TICRATE) / 2 and server.SPBArunning then
 			Flags = $ | F_SPBATK
 			if server.SPBAexpert then
 				Flags = $ | F_SPBEXP
@@ -535,16 +613,44 @@ local function think()
 		end
 	end
 
-	for p in players.iterate do
+	local cv_teamchange = CV_FindVar("allowteamchange")
+	if p then
+		if p.cmd.buttons then
+			p.afkTimeout = leveltime
+		end
+
+		if leveltime > PREVENT_JOIN_TIME and p.afkTimeout + AFK_TIMEOUT > leveltime then
+			if cv_teamchange.value then
+				allowJoin(false)
+			end
+		elseif p.afkTimeout + AFK_TIMEOUT < leveltime then
+			if not cv_teamchange.value then
+				allowJoin(true)
+			end
+		end
+
 		if p.laps >= mapheaderinfo[gamemap].numlaps and timeFinished == 0 then
 			timeFinished = p.realtime
 			saveTime(p)
 		end
 		regLap(p)
+	elseif cv_teamchange.value == 0 then
+		allowJoin(true)
 	end
 end
 addHook("ThinkFrame", think)
 
+local function interThink()
+	if nextMap then
+		COM_BufInsertText(server, "map " + nextMap)
+		nextMap = nil
+	end
+	if not CV_FindVar("allowteamchange").value then
+		allowJoin(true)
+	end
+end
+addHook("IntermissionThinker", interThink)
+
 local function netvars(net)
 	lb = net($)
 end