srb2k-leaderboard/leaderboard.lua

1326 lines
26 KiB
Lua
Raw Normal View History

2022-03-28 12:48:16 +02:00
-- Leaderboards written by Not
2022-03-28 13:14:30 +02:00
-- Reusable
2022-03-28 12:48:16 +02:00
2022-03-28 13:15:29 +02:00
-- Leaderboard Table
-- [mode][mapnum][scoreTable]
2022-03-28 12:48:16 +02:00
local lb = {}
2022-03-28 13:15:29 +02:00
2022-03-28 12:48:16 +02:00
local timeFinished = 0
2022-03-28 13:12:43 +02:00
local disable = false
2022-03-28 12:48:16 +02:00
local prevLap = 0
local splits = {}
2022-03-28 13:08:08 +02:00
local PATCH = nil
2022-03-28 13:11:00 +02:00
local help = true
2022-04-18 20:51:18 +02:00
local EncoreInitial = nil
local cv_teamchange
2022-03-28 13:15:29 +02:00
2022-04-18 20:39:58 +02:00
-- Tracks if stats have been written or not
local StatTrack = false
2022-03-28 13:15:01 +02:00
local UNCLAIMED = "Unclaimed Record"
2022-04-05 12:12:32 +02:00
local HELP_MESSAGE = "\x89Leaderboard Commands:\nretry exit findmap changelevel spba_clearcheats lb_gui rival scroll encore"
2022-03-28 13:15:29 +02:00
local FILENAME = "leaderboard.txt"
2022-03-28 13:08:08 +02:00
2022-03-28 13:13:42 +02:00
-- Retry / changelevel map
local nextMap = nil
2022-03-28 13:08:08 +02:00
local Flags = 0
2022-04-04 20:56:03 +02:00
local F_ENCORE = 0x80
2022-03-28 13:08:08 +02:00
-- SPB flags with the least significance first
local F_SPBATK = 0x1
local F_SPBJUS = 0x2
local F_SPBBIG = 0x4
local F_SPBEXP = 0x8
-- Score table separator
local ST_SEP = F_SPBATK
2022-03-28 13:08:08 +02:00
local clearcheats = false
2022-04-18 19:39:22 +02:00
local START_TIME = 6 * TICRATE + (3 * TICRATE / 4) + 1
2022-03-28 13:13:21 +02:00
local AFK_TIMEOUT = TICRATE * 5
local AFK_BALANCE = TICRATE * 60
2022-04-19 13:02:01 +02:00
local AFK_BALANCE_WARN = AFK_BALANCE - TICRATE * 10
2022-03-28 13:13:21 +02:00
local PREVENT_JOIN_TIME = START_TIME + TICRATE * 5
2022-03-28 13:08:08 +02:00
2022-03-28 13:14:30 +02:00
local GUI_OFF = 0x0
local GUI_SPLITS = 0x1
local GUI_ON = 0x2
2022-03-28 13:15:29 +02:00
-- Draw states
local DS_DEFAULT = 0x0
local DS_SCROLL = 0x1
local DS_AUTO = 0x2
local DS_SCRLTO = 0x4
local drawState = DS_DEFAULT
-- fixed_t scroll position
local scrollY = 50 * FRACUNIT
local scrollAcc = 0
-- functions --
-- patch caching
2022-03-28 13:08:08 +02:00
local cachePatches
2022-03-28 13:15:29 +02:00
-- clamp(min, v, max)
local clamp
local scroll_to
local ticsToTime
2022-04-04 23:07:31 +02:00
local allowJoin
2022-03-28 13:15:29 +02:00
---------------
2022-03-28 13:14:30 +02:00
local cv_gui = CV_RegisterVar({
name = "lb_gui",
defaultvalue = GUI_ON,
flags = 0,
PossibleValue = {Off = GUI_OFF, Splits = GUI_SPLITS, On = GUI_ON}
})
local cv_afk = CV_RegisterVar({
name = "lb_afk",
defaultvalue = 1,
flags = CV_NETVAR,
PossibleValue = CV_OnOff
})
local cv_enable = CV_RegisterVar({
name = "lb_enable",
defaultvalue = 1,
flags = CV_NETVAR | CV_CALL,
PossibleValue = CV_OnOff,
func = function(v)
disable = $ or not v.value
2022-04-04 23:07:31 +02:00
if disable then
allowJoin(true)
end
2022-03-28 13:14:30 +02:00
end
})
2022-03-28 13:15:01 +02:00
local cv_saves = CV_RegisterVar({
name = "lb_save_count",
defaultvalue = 20,
flags = CV_NETVAR,
PossibleValue = CV_Natural
})
2022-03-28 13:14:30 +02:00
local cv_interrupt = CV_RegisterVar({
name = "lb_interrupt",
defaultvalue = 0,
flags = CV_NETVAR | CV_CALL,
PossibleValue = CV_OnOff,
func = function(v)
if v.value then
COM_BufInsertText(server, "allowteamchange yes")
end
end
})
local function setST(t, map, flags, scoreTable)
local mode = flags & ST_SEP
t[mode] = t[mode] or {}
t[mode][map] = scoreTable
end
local function getST(t, map, flags)
local mode = flags & ST_SEP
return t[mode] and t[mode][map] or nil
end
2022-03-28 13:15:29 +02:00
local function setScoreTable(map, flags, scoreTable)
setST(lb, map, flags, scoreTable)
2022-03-28 13:15:29 +02:00
end
2022-03-28 13:14:30 +02:00
2022-03-28 13:15:29 +02:00
local function getScoreTable(map, flags)
return getST(lb, map, flags)
end
2022-03-28 13:15:29 +02:00
-- True if a is better than b
local function lbComp(a, b)
-- Calculates the difficulty, harder has higher priority
-- if s is positive then a is harder
-- if s is negative then b is harder
-- if s is 0 then compare time
local s = (a["flags"] & (F_SPBEXP | F_SPBBIG)) - (b["flags"] & (F_SPBEXP | F_SPBBIG))
return s > 0 or not(s < 0 or a["time"] >= b["time"])
end
2022-03-28 13:08:08 +02:00
local function sortScores()
for mode, t in pairs(lb) do
for map, scoreTable in pairs(t) do
table.sort(scoreTable, lbComp)
setScoreTable(map, mode, scoreTable)
end
end
2022-03-28 13:08:08 +02:00
end
-- Reinitialize lb based on new ST_SEP value
local function reinit_lb()
local nlb = {}
for mode, t in pairs(lb) do
for map, scoreTable in pairs(t) do
for i, score in ipairs(scoreTable) do
local st = getST(nlb, map, score["flags"]) or {}
table.insert(st, score)
setST(nlb, map, score["flags"], st)
end
end
end
lb = nlb
sortScores()
end
local cv_spb_separate = CV_RegisterVar({
name = "lb_spb_combined",
defaultvalue = 1,
flags = CV_NETVAR | CV_CALL,
PossibleValue = CV_YesNo,
func = function(v)
if v.value then
ST_SEP = F_SPBATK
else
ST_SEP = F_SPBATK | F_SPBBIG | F_SPBEXP
end
reinit_lb()
end
})
2022-04-18 20:39:58 +02:00
local function score_t(map, name, skin, color, time, splits, flags, stat)
2022-03-28 13:08:08 +02:00
return {
["map"] = map,
["name"] = name,
["skin"] = skin,
["color"] = color,
["time"] = time,
["splits"] = splits,
2022-03-28 13:15:29 +02:00
["flags"] = flags,
2022-04-18 20:39:58 +02:00
["stat"] = stat
2022-03-28 13:08:08 +02:00
}
end
2022-03-28 12:48:16 +02:00
2022-04-18 20:39:58 +02:00
local function stat_t(speed, weight)
2022-03-28 13:15:29 +02:00
if speed and weight then
return {
["speed"] = speed,
["weight"] = weight
}
end
return nil
end
2022-04-18 20:39:58 +02:00
local function stat_str(stat)
if stat then
return string.format("%d%d", stat["speed"], stat["weight"])
2022-03-28 13:15:29 +02:00
end
return "0"
end
2022-03-28 12:48:16 +02:00
-- Read the leaderboard
local f = io.open(FILENAME, "r")
if f then
for l in f:lines() do
2022-03-28 13:08:08 +02:00
-- Leaderboard is stored in the following tab separated format
2022-04-18 20:39:58 +02:00
-- mapnum, name, skin, color, time, splits, flags, stat
2022-03-28 12:48:16 +02:00
local t = {}
for word in (l+"\t"):gmatch("(.-)\t") do
table.insert(t, word)
end
2022-03-28 13:08:08 +02:00
local flags = 0
if t[7] != nil then
flags = tonumber(t[7])
end
2022-03-28 13:16:00 +02:00
local scoreTable = getScoreTable(tonumber(t[1]), flags) or {}
2022-03-28 13:08:08 +02:00
2022-03-28 12:48:16 +02:00
local spl = {}
if t[6] != nil then
for str in t[6]:gmatch("([^ ]+)") do
table.insert(spl, tonumber(str))
end
end
2022-03-28 13:08:08 +02:00
2022-03-28 13:15:29 +02:00
local stats = nil
if t[8] != nil then
if #t[8] >= 2 then
2022-04-18 20:39:58 +02:00
local speed = tonumber(string.sub(t[8], 1, 1))
local weight = tonumber(string.sub(t[8], 2, 2))
stats = stat_t(speed, weight)
2022-03-28 13:15:29 +02:00
end
end
2022-03-28 13:08:08 +02:00
table.insert(
2022-03-28 13:15:29 +02:00
scoreTable,
2022-03-28 13:08:08 +02:00
score_t(
2022-03-28 13:15:29 +02:00
tonumber(t[1]),
2022-03-28 13:08:08 +02:00
t[2],
t[3],
t[4],
tonumber(t[5]),
spl,
2022-03-28 13:15:29 +02:00
flags,
stats
2022-03-28 13:08:08 +02:00
)
)
2022-03-28 13:15:29 +02:00
setScoreTable(tonumber(t[1]), flags, scoreTable)
2022-03-28 12:48:16 +02:00
end
2022-03-28 13:15:29 +02:00
sortScores()
2022-03-28 12:48:16 +02:00
f:close()
else
print("Failed to open file: ", FILENAME)
end
2022-04-04 23:07:31 +02:00
function allowJoin(v)
2022-03-28 13:14:30 +02:00
if not cv_interrupt.value then
local y
if v then
y = "yes"
hud.enable("freeplay")
else
y = "no"
hud.disable("freeplay")
end
2022-03-28 13:13:21 +02:00
2022-03-28 13:14:30 +02:00
COM_BufInsertText(server, "allowteamchange " + y)
end
2022-03-28 13:13:21 +02:00
end
2022-03-28 13:11:21 +02:00
local function ingame()
local n = 0
2022-03-28 12:48:16 +02:00
for p in players.iterate do
if p.valid and not p.spectator then
2022-03-28 13:11:21 +02:00
n = $ + 1
2022-03-28 12:48:16 +02:00
end
end
2022-03-28 13:11:21 +02:00
return n
end
2022-03-28 12:48:16 +02:00
2022-03-28 13:11:21 +02:00
local function initLeaderboard(player)
2022-03-28 13:13:21 +02:00
if disable and leveltime < START_TIME then
2022-03-28 13:12:43 +02:00
disable = ingame() > 1
else
disable = disable or ingame() > 1
end
2022-03-28 13:14:30 +02:00
disable = $ or not cv_enable.value
2022-04-18 20:51:18 +02:00
-- Restore encore mode to initial value
if disable and EncoreInitial != nil then
COM_BufInsertText(server, string.format("kartencore %d", EncoreInitial))
EncoreInitial = nil
end
2022-03-28 13:14:30 +02:00
player.afkTime = leveltime
2022-03-28 12:48:16 +02:00
end
addHook("PlayerSpawn", initLeaderboard)
2022-03-28 13:10:13 +02:00
local function doyoudare(player)
2022-03-28 13:12:43 +02:00
if ingame() > 1 or player.spectator then
2022-03-28 13:08:08 +02:00
CONS_Printf(player, "How dare you")
2022-03-28 13:10:13 +02:00
return false
2022-03-28 12:48:16 +02:00
end
2022-03-28 13:10:13 +02:00
return true
end
2022-03-28 12:48:16 +02:00
2022-03-28 13:10:13 +02:00
local function retry(player, ...)
if doyoudare(player) then
2022-03-28 13:13:00 +02:00
-- Prevents bind crash
2022-03-28 13:13:42 +02:00
if leveltime < 20 then
2022-03-28 13:13:00 +02:00
return
end
2022-03-28 13:13:42 +02:00
nextMap = G_BuildMapName(gamemap)
2022-03-28 13:10:13 +02:00
end
2022-03-28 12:48:16 +02:00
end
COM_AddCommand("retry", retry)
2022-03-28 13:08:08 +02:00
local function exitlevel(player, ...)
2022-03-28 13:10:13 +02:00
if doyoudare(player) then
G_ExitLevel()
2022-03-28 13:08:08 +02:00
end
end
COM_AddCommand("exit", exitlevel)
2022-03-28 13:14:30 +02:00
local function findMap(player, ...)
local search = ...
if search == nil then
return
end
for i = 1, #mapheaderinfo do
local map = mapheaderinfo[i]
if map == nil then
continue
end
if map.lvlttl:lower():find(search:lower()) then
CONS_Printf(
player,
string.format(
"%s - %s",
G_BuildMapName(i),
map.lvlttl
)
)
end
end
end
COM_AddCommand("findmap", findMap)
2022-03-28 13:10:13 +02:00
local function mapNotExists(player, map)
CONS_Printf(player, string.format("Map doesn't exist: %s", map:upper()))
end
local ALPH = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local function changelevel(player, ...)
if not doyoudare(player) then
return
end
2022-03-28 13:13:42 +02:00
if leveltime < 20 then
2022-03-28 13:13:00 +02:00
return
end
2022-03-28 13:10:13 +02:00
local map = ...
2022-03-28 13:11:00 +02:00
if map == nil then
CONS_Printf(player, "Usage: changelevel MAPXX")
return
end
2022-03-28 13:10:13 +02:00
local p, q = map:upper():match("MAP(%w)(%w)$", 1)
if not (p and q) then
CONS_Printf(player, string.format("Invalid map name: %s", map))
return
end
local mapnum = 0
if tonumber(p) != nil then
-- Non extended map numbers
if tonumber(q) == nil then
mapNotExists(player, map)
return
end
mapnum = tonumber(p) * 10 + tonumber(q)
else
--Extended map numbers
p = ALPH:find(p) - 1
2022-03-28 13:15:01 +02:00
local qn = tonumber(q)
if qn == nil then
qn = ALPH:find(q) + 9
end
mapnum = 36 * p + qn + 100
2022-03-28 13:10:13 +02:00
end
if mapheaderinfo[mapnum] == nil then
mapNotExists(player, map)
return
end
2022-03-28 13:13:42 +02:00
nextMap = G_BuildMapName(mapnum)
2022-03-28 13:10:13 +02:00
end
COM_AddCommand("changelevel", changelevel)
2022-04-04 20:56:03 +02:00
local function toggleEncore(player)
if not doyoudare(player) then
return
end
local enc = CV_FindVar("kartencore")
2022-04-18 20:51:18 +02:00
if EncoreInitial == nil then
EncoreInitial = enc.value
end
2022-04-04 20:56:03 +02:00
if enc.value then
COM_BufInsertText(server, "kartencore off")
else
COM_BufInsertText(server, "kartencore on")
end
end
COM_AddCommand("encore", toggleEncore)
2022-03-28 13:09:23 +02:00
local function clearcheats(player)
if not player.spectator then
2022-03-28 13:08:08 +02:00
clearcheats = true
CONS_Printf(player, "SPB Attack cheats will be cleared on next round")
end
2022-03-28 13:09:23 +02:00
end
COM_AddCommand("spba_clearcheats", clearcheats)
2022-03-28 12:48:16 +02:00
2022-03-28 13:15:29 +02:00
local function scrollGUI(player, ...)
if not doyoudare(player) then return end
if drawState == DS_DEFAULT then
scroll_to(player)
else
drawState = DS_DEFAULT
end
end
COM_AddCommand("scroll", scrollGUI)
local function findRival(player, ...)
local rival, page = ...
page = (tonumber(page) or 1) - 1
if rival == nil then
CONS_Printf(player, "Print the times of your rival.\nUsage: rival <playername> <page>")
return
end
local colors = {
[1] = "\x85",
[0] = "\x89",
[-1] = "\x88"
}
local sym = {
[true] = "-",
[false] = "",
}
local scores = {}
local totalScores = 0
local totalDiff = 0
CONS_Printf(player, string.format("\x89%s's times:", rival))
CONS_Printf(player, "MAP Time Diff Mode")
for mode, tbl in pairs(lb) do
scores[mode] = {}
for map, scoreTable in pairs(tbl) do
local rivalScore = nil
local yourScore = nil
for _, score in pairs(scoreTable) do
if score["name"] == player.name then
yourScore = score
elseif score["name"] == rival then
rivalScore = score
end
if rivalScore and yourScore then
break
end
end
if rivalScore and yourScore then
totalDiff = totalDiff + yourScore["time"] - rivalScore["time"]
end
if rivalScore then
totalScores = totalScores + 1
table.insert(
scores[mode],
{
["rival"] = rivalScore,
["your"] = yourScore
}
)
end
end
end
local i = 0
local stop = 19
local o = page * stop
local function sortf(a, b)
return a["rival"]["map"] < b["rival"]["map"]
end
local modestrings = {
[F_SPBEXP] = "X",
[F_SPBBIG] = "B",
[F_SPBJUS] = "J",
}
2022-03-28 13:15:29 +02:00
for mode, tbl in pairs(scores) do
if i >= stop then break end
table.sort(tbl, sortf)
for _, score in ipairs(tbl) do
if o then
o = o - 1
continue
end
if i >= stop then break end
i = i + 1
local modestr = "TA"
if score["rival"]["flags"] & F_SPBATK then
modestr = "SPB"
for k, v in pairs(modestrings) do
if score["rival"]["flags"] & k then
modestr = $ + v
end
end
end
2022-03-28 13:15:29 +02:00
if score["your"] then
local diff = score["your"]["time"] - score["rival"]["time"]
local color = colors[clamp(-1, diff, 1)]
CONS_Printf(
player,
string.format(
"%s %8s %s%9s \x80%s",
G_BuildMapName(score["rival"]["map"]),
ticsToTime(score["rival"]["time"]),
color,
sym[diff<0] + ticsToTime(abs(diff)),
modestr
2022-03-28 13:15:29 +02:00
)
)
else
CONS_Printf(
player,
string.format(
"%s %8s %9s %s",
G_BuildMapName(score["rival"]["map"]),
ticsToTime(score["rival"]["time"]),
ticsToTime(0, true),
modestr
2022-03-28 13:15:29 +02:00
)
)
end
end
end
CONS_Printf(
player,
string.format(
"Your score = %s%s%s",
colors[clamp(-1, totalDiff, 1)],
sym[totalDiff<0],
ticsToTime(abs(totalDiff))
)
)
CONS_Printf(
player,
string.format(
"Page %d out of %d",
page + 1,
totalScores / stop + 1
)
)
end
COM_AddCommand("rival", findRival)
2022-03-28 12:48:16 +02:00
--DEBUGGING
--local function printTable(tb)
2022-03-28 13:15:29 +02:00
-- for mode, tbl in pairs(tb) do
-- for map, scoreTable in pairs(tbl) do
-- print(string.format("[%d][%d] #%d", mode, map, #scoreTable))
--
-- --if scoreTable != nil then
-- -- print(
-- -- v[i]["name"],
-- -- v[i]["skin"],
-- -- v[i]["color"],
-- -- v[i]["time"],
-- -- table.concat(v[i]["splits"]),
-- -- v[i]["flags"],
-- -- ","
-- -- )
-- --
-- --end
2022-03-28 12:48:16 +02:00
-- end
-- end
--end
addHook("MapLoad", function()
timeFinished = 0
splits = {}
prevLap = 0
2022-03-28 13:15:29 +02:00
drawState = DS_DEFAULT
scrollY = 50 * FRACUNIT
scrollAcc = 0
2022-03-28 13:13:21 +02:00
allowJoin(true)
2022-03-28 13:08:08 +02:00
--printTable(lb)
2022-03-28 12:48:16 +02:00
end
)
2022-03-28 13:15:29 +02:00
function ticsToTime(tics, pure)
if tics == 0 and pure then
2022-03-28 13:15:01 +02:00
return "-:--:--"
end
2022-03-28 12:48:16 +02:00
return string.format(
"%d:%02d:%02d",
2022-04-30 21:00:55 +02:00
G_TicsToMinutes(tics, true),
2022-03-28 12:48:16 +02:00
G_TicsToSeconds(tics),
G_TicsToCentiseconds(tics)
)
end
2022-03-28 13:08:08 +02:00
-- Item patches have the amazing property of being displaced 12x 13y pixels
local iXoffset = 13 * FRACUNIT
local iYoffset = 12 * FRACUNIT
local function drawitem(v, x, y, scale, itempatch, vflags)
v.drawScaled(
x * FRACUNIT - FixedMul(iXoffset, scale),
y * FRACUNIT - FixedMul(iYoffset, scale),
scale,
itempatch,
vflags
)
end
2022-04-22 17:10:30 +02:00
local modePatches = {
[F_SPBATK] = "SPB",
[F_SPBJUS] = "HYUD",
[F_SPBBIG] = "BIG",
[F_SPBEXP] = "INV"
}
local function modePatch(flag)
if flag == F_SPBEXP then
return PATCH[modePatches[flag]][(leveltime / 4) % 6]
end
return PATCH[modePatches[flag]]
end
2022-03-28 13:15:01 +02:00
local cursors = {
[1] = ". ",
[2] = " ."
}
2022-03-28 13:09:52 +02:00
local function marquee(text, maxwidth)
if #text <= maxwidth then
return text
end
local shift = 16
2022-03-28 13:15:01 +02:00
-- Creates an index range ranging from -shift to #text + shift
2022-03-28 13:09:52 +02:00
local pos = ((leveltime / 16) % (#text - maxwidth + shift * 2)) + 1 - shift
2022-03-28 13:15:01 +02:00
local cursor = ""
if pos < #text - maxwidth + 1 then
cursor = cursors[((leveltime / 11) % #cursors) + 1]
end
-- The pos is the index going from -shift to #text + shift
-- It's clamped within the text boundaries ie.
-- 0 < pos < #text - maxwidth
2022-03-28 13:09:52 +02:00
pos = min(max(pos, 1), #text - maxwidth + 1)
2022-03-28 13:15:01 +02:00
return text:sub(pos, pos + maxwidth - 1) + cursor
2022-03-28 13:09:52 +02:00
end
2022-03-28 13:14:30 +02:00
-- Bats on ...
2022-03-28 13:04:34 +02:00
local bodium = {V_YELLOWMAP, V_GRAYMAP, V_BROWNMAP, 0}
2022-03-28 13:14:30 +02:00
2022-03-28 13:15:29 +02:00
local splitColor = {
[-1] = V_SKYMAP,
[0] = V_PURPLEMAP,
[1] = V_REDMAP
}
local splitSymbol = {
[-1] = "-",
[0] = "",
[1] = "+"
}
2022-03-28 12:48:16 +02:00
local showSplit = 0
2022-03-28 13:12:16 +02:00
local VFLAGS = V_SNAPTOLEFT
2022-03-28 13:15:01 +02:00
local FACERANK_DIM = 16
2022-03-28 13:15:29 +02:00
local FACERANK_SPC = FACERANK_DIM + 4
local function drawScore(v, player, pos, x, y, gui, faceRank, score, drawPos, textVFlags)
textVFlags = textVFlags or V_HUDTRANSHALF
2022-04-04 20:56:03 +02:00
2022-03-28 13:15:01 +02:00
--draw Patch/chili
2022-03-28 13:15:29 +02:00
v.draw(x, y, faceRank, V_HUDTRANS | VFLAGS, v.getColormap("sonic", score["color"]))
if player.name == score["name"] then
v.draw(x, y, PATCH["CHILI"][(leveltime / 4) % 8], V_HUDTRANS | VFLAGS)
end
2022-04-04 20:56:03 +02:00
-- Encore
if score["flags"] & F_ENCORE then
local bob = sin((leveltime + i * 5) * (ANG10))
v.drawScaled(
x * FRACUNIT,
bob + (y + FACERANK_DIM / 2) * FRACUNIT,
FRACUNIT / 6,
PATCH["RUBY"],
V_HUDTRANS
)
end
2022-03-28 13:15:29 +02:00
-- SPB
if score["flags"] & F_SPBATK then
local scale = FRACUNIT / 4
drawitem(
v,
x - 2,
y - 2,
scale,
2022-04-22 17:10:30 +02:00
modePatch(F_SPBATK),
2022-03-28 13:15:29 +02:00
V_HUDTRANS | VFLAGS
)
if score["flags"] & F_SPBEXP then
drawitem(
v,
x + FACERANK_DIM - 4,
y - 2,
scale,
2022-04-22 17:10:30 +02:00
modePatch(F_SPBEXP),
2022-03-28 13:15:29 +02:00
V_HUDTRANS | VFLAGS
)
end
if score["flags"] & F_SPBBIG then
drawitem(
v,
x - 2,
y + FACERANK_DIM - 4,
scale,
2022-04-27 13:11:07 +02:00
modePatch(F_SPBBIG),
2022-03-28 13:15:29 +02:00
V_HUDTRANS | VFLAGS
)
end
if score["flags"] & F_SPBJUS then
drawitem(
v,
x + FACERANK_DIM - 4,
y + FACERANK_DIM - 4,
scale,
2022-04-27 13:11:07 +02:00
modePatch(F_SPBJUS),
2022-03-28 13:15:29 +02:00
V_HUDTRANS | VFLAGS
)
end
end
-- Position
if drawPos then
v.drawNum(x, y + 3, pos, textVFlags | VFLAGS)
end
2022-03-28 13:15:01 +02:00
2022-04-18 20:39:58 +02:00
-- Stats
local stat = score["stat"]
2022-04-19 11:36:31 +02:00
local pskin = score["skin"] and skins[score["skin"]]
2022-04-18 20:39:58 +02:00
if stat and not (
pskin
and pskin.kartweight == stat["weight"]
and pskin.kartspeed == stat["speed"]
) then
v.drawString(x + FACERANK_DIM - 2, y + 4, stat["speed"], V_HUDTRANS | VFLAGS, "small")
v.drawString(x + FACERANK_DIM - 2, y + 8, stat["weight"], V_HUDTRANS | VFLAGS, "small")
2022-03-28 13:15:01 +02:00
end
2022-03-28 13:15:29 +02:00
2022-03-28 13:15:01 +02:00
if gui == GUI_ON or (gui == GUI_SPLITS and showSplit) then
2022-03-28 13:15:29 +02:00
local name = score["name"]
2022-03-28 13:15:01 +02:00
-- Shorten long names
local stralign = "left"
local MAXWIDTH = 70
2022-03-28 13:15:29 +02:00
local px = 2
2022-03-28 13:15:01 +02:00
local py = 0
if v.stringWidth(name) > MAXWIDTH then
stralign = "thin"
py = -1
if v.stringWidth(name, 0, "thin") > MAXWIDTH then
stralign = "small"
py = 2
if v.stringWidth(name, 0, "small") > MAXWIDTH then
name = marquee(name, 15)
end
end
end
v.drawString(
2022-03-28 13:15:29 +02:00
x + FACERANK_DIM + px,
y + py,
2022-03-28 13:15:01 +02:00
name,
2022-03-28 13:15:29 +02:00
textVFlags | V_ALLOWLOWERCASE | VFLAGS,
2022-03-28 13:15:01 +02:00
stralign
)
-- Draw splits
2022-03-28 13:15:29 +02:00
if showSplit and score["splits"] and score["splits"][prevLap] != nil then
local split = splits[prevLap] - score["splits"][prevLap]
2022-03-28 13:15:01 +02:00
v.drawString(
2022-03-28 13:15:29 +02:00
x + px + FACERANK_DIM,
y + 8,
splitSymbol[clamp(-1, split, 1)] + ticsToTime(abs(split)),
textVFlags | splitColor[clamp(-1, split, 1)] | VFLAGS
2022-03-28 13:15:01 +02:00
)
else
v.drawString(
2022-03-28 13:15:29 +02:00
x + px + FACERANK_DIM,
y + 8,
ticsToTime(score["time"], true),
textVFlags | bodium[min(pos, 4)] | VFLAGS
)
end
end
end
local function drawDefault(v, player, scoreTable, gui)
local yoffset = (200 / 4) + 4
local x = 4
-- Draw placeholder score
if scoreTable == nil then
drawScore(v, player, 1, x, y, gui, PATCH["NORANK"], {["name"] = UNCLAIMED, ["time"] = 0, ["flags"] = 0})
else
for pos, score in ipairs(scoreTable) do
if pos > 5 then break end
local faceRank = PATCH["FACERANK"][score.skin] or PATCH["NORANK"]
local y = yoffset + (FACERANK_SPC) * (pos - 1)
drawScore(
v, player, pos,
x, y,
gui, faceRank,
score
2022-03-28 13:15:01 +02:00
)
end
end
end
2022-03-28 13:15:29 +02:00
local function drawScroll(v, player, scoreTable, gui)
if scoreTable then
scrollY = scrollY + FixedMul(1 * FRACUNIT, scrollAcc)
local minim = -((#scoreTable - 1) * FACERANK_SPC * FRACUNIT)
local maxim = (200 - FACERANK_DIM) * FRACUNIT
scrollY = clamp(minim, scrollY, maxim)
-- Bounceback
if scrollY == minim or scrollY == maxim then
scrollAcc = -FixedMul(scrollAcc, FRACUNIT / 3)
end
local x = 10
if #scoreTable >= 10 then
2022-03-28 13:15:29 +02:00
x = x + 8
2022-04-30 22:49:28 +02:00
if #scoreTable >= 100 then
x = x + 8
end
2022-03-28 13:15:29 +02:00
end
local y = FixedInt(scrollY)
for pos, score in ipairs(scoreTable) do
local faceRank = PATCH["FACERANK"][score.skin] or PATCH["NORANK"]
drawScore(
v, player, pos,
x, y + ((pos - 1) * FACERANK_SPC),
gui, faceRank,
score,
true,
V_HUDTRANS
)
end
end
end
local function drawAuto(v, player, scoreTable, gui)
end
local scrollToPos = nil
local function drawScrollTo(v, player, scoreTable, gui)
drawState = DS_SCROLL
if scrollToPos == nil then return end
scrollY = (-(scrollToPos * FACERANK_SPC) + (100 - FACERANK_SPC / 2)) * FRACUNIT
scrollToPos = nil
drawScroll(v, player, scoreTable, gui)
end
local stateFunctions = {
[DS_DEFAULT] = drawDefault,
[DS_SCROLL] = drawScroll,
[DS_AUTO] = drawAuto,
[DS_SCRLTO] = drawScrollTo
}
2022-04-22 17:10:30 +02:00
-- Draw mode and return pos + 1 if success
local function drawMode(v, pos, flag)
if not (Flags & flag) then return pos end
drawitem(v, pos * 6 + 1, 194, FRACUNIT / 4, modePatch(flag), V_SNAPTOBOTTOM | V_SNAPTOLEFT)
return pos + 1
end
2022-03-28 13:04:34 +02:00
local function drawScoreboard(v, player)
2022-03-28 12:48:16 +02:00
if disable then return end
2022-03-28 13:04:34 +02:00
if player != displayplayers[0] then return end
2022-03-28 13:08:08 +02:00
cachePatches(v)
2022-03-28 13:04:34 +02:00
2022-03-28 13:15:29 +02:00
local scoreTable = getScoreTable(gamemap, Flags)
2022-03-28 12:48:16 +02:00
2022-03-28 13:14:30 +02:00
local gui = cv_gui.value
if leveltime < START_TIME or player.exiting or player.lives == 0 then
gui = GUI_ON
end
2022-03-28 12:48:16 +02:00
2022-03-28 13:14:30 +02:00
if gui then
2022-03-28 13:15:29 +02:00
stateFunctions[drawState](v, player, scoreTable, gui)
2022-03-28 12:48:16 +02:00
end
2022-04-22 17:10:30 +02:00
local pos = 0
-- Draw current active modes bottom left
pos = drawMode(v, pos, F_SPBJUS)
pos = drawMode(v, pos, F_SPBBIG)
pos = drawMode(v, pos, F_SPBEXP)
2022-03-28 12:48:16 +02:00
end
hud.add(drawScoreboard, "game")
2022-03-28 13:08:08 +02:00
function cachePatches(v)
if PATCH == nil then
PATCH = {}
PATCH["CHILI"] = {}
for i = 1, 8 do
PATCH["CHILI"][i-1] = v.cachePatch("K_CHILI" + i)
end
2022-03-28 13:15:01 +02:00
PATCH["NORANK"] = v.cachePatch("M_NORANK")
2022-03-28 13:08:08 +02:00
PATCH["FACERANK"] = {}
for skin in skins.iterate do
PATCH["FACERANK"][skin.name] = v.cachePatch(skin.facerank)
end
PATCH["SPB"] = v.cachePatch("K_ISSPB")
PATCH["INV"] = {}
for i = 1, 6 do
PATCH["INV"][i - 1] = v.cachePatch("K_ISINV" + i)
end
PATCH["BIG"] = v.cachePatch("K_ISGROW")
PATCH["HYUD"] = v.cachePatch("K_ISHYUD")
2022-04-04 20:56:03 +02:00
PATCH["RUBY"] = v.cachePatch("RUBYICON")
2022-03-28 13:08:08 +02:00
end
end
2022-03-28 13:15:29 +02:00
-- Find location of player and scroll to it
function scroll_to(player)
2022-03-28 13:16:00 +02:00
local m = getScoreTable(gamemap, Flags) or {}
2022-03-28 13:15:29 +02:00
scrollToPos = 2
for pos, score in ipairs(m) do
if player.name == score["name"] then
scrollToPos = max(2, pos - 1)
break
end
2022-03-28 12:48:16 +02:00
end
2022-03-28 13:15:29 +02:00
drawState = DS_SCRLTO
end
2022-04-18 20:39:58 +02:00
-- Write skin stats to each score where there are none
local function writeStats()
for _, t in pairs(lb) do
for _, scoreTable in pairs(t) do
for _, score in ipairs(scoreTable) do
local skin = skins[score["skin"]]
if skin and not score["stat"] then
local stats = stat_t(skin.kartspeed, skin.kartweight)
score["stat"] = stats
end
end
end
end
end
2022-03-28 13:15:29 +02:00
local function saveTime(player)
2022-03-28 13:16:00 +02:00
local scoreTable = getScoreTable(gamemap, Flags) or {}
2022-03-28 13:15:29 +02:00
2022-04-18 20:39:58 +02:00
local pskin = skins[player.mo.skin]
2022-03-28 13:08:08 +02:00
local newscore = score_t(
gamemap,
player.name,
player.mo.skin,
2022-03-28 13:09:23 +02:00
player.skincolor,
2022-03-28 13:08:08 +02:00
timeFinished,
splits,
2022-03-28 13:15:29 +02:00
Flags,
2022-04-18 20:39:58 +02:00
stat_t(player.HMRs or pskin.kartspeed, player.HMRw or pskin.kartweight)
2022-03-28 13:08:08 +02:00
)
2022-03-28 12:48:16 +02:00
2022-03-28 13:08:08 +02:00
-- Check if you beat your previous best
2022-03-28 13:15:29 +02:00
for i = 1, #scoreTable do
if scoreTable[i]["name"] == player.name then
if lbComp(newscore, scoreTable[i]) then
table.remove(scoreTable, i)
2022-03-28 12:48:16 +02:00
S_StartSound(nil, 130)
break
else
-- You suck lol
S_StartSound(nil, 201)
2022-03-28 13:15:29 +02:00
scroll_to(player)
2022-03-28 12:48:16 +02:00
return
end
end
end
print("Saving score")
2022-03-28 13:08:08 +02:00
table.insert(
2022-03-28 13:15:29 +02:00
scoreTable,
2022-03-28 13:08:08 +02:00
newscore
)
2022-03-28 12:48:16 +02:00
2022-03-28 13:15:29 +02:00
table.sort(scoreTable, lbComp)
while #scoreTable > cv_saves.value do
table.remove(scoreTable)
2022-03-28 12:48:16 +02:00
end
2022-03-28 13:15:29 +02:00
scroll_to(player)
setScoreTable(gamemap, Flags, scoreTable)
2022-03-28 12:48:16 +02:00
2022-04-18 20:39:58 +02:00
if not StatTrack then
writeStats()
StatTrack = true
end
2022-03-28 12:48:16 +02:00
local f = assert(io.open(FILENAME, "w"))
if f == nil then
print("Failed to open file for writing: " + FILENAME)
return
end
2022-03-28 13:15:29 +02:00
for _, tbl in pairs(lb) do
for _, scoreTable in pairs(tbl) do
for _, score in ipairs(scoreTable) do
f:write(
score["map"], "\t",
score["name"], "\t",
score["skin"], "\t",
score["color"], "\t",
score["time"], "\t",
table.concat(score["splits"], " "), "\t",
score["flags"], "\t",
2022-04-18 20:39:58 +02:00
stat_str(score["stat"]), "\n"
2022-03-28 13:15:29 +02:00
)
end
2022-03-28 12:48:16 +02:00
end
end
f:close()
end
-- DEBUGGING
--local function saveLeaderboard(player, ...)
2022-03-28 13:14:08 +02:00
-- timeFinished = tonumber(... or player.realtime)
2022-03-28 12:48:16 +02:00
-- splits = {1000, 2000, 3000}
-- saveTime(player)
--end
--COM_AddCommand("save", saveLeaderboard)
local function regLap(player)
if player.laps > prevLap and timeFinished == 0 then
prevLap = player.laps
table.insert(splits, player.realtime)
showSplit = 5 * TICRATE
end
end
2022-03-28 13:13:21 +02:00
local function getGamer()
for p in players.iterate do
if p.valid and not p.spectator then
return p
end
end
end
2022-03-28 13:08:08 +02:00
local function think()
2022-03-28 13:13:42 +02:00
if nextMap then
COM_BufInsertText(server, "map " + nextMap)
nextMap = nil
end
2022-03-28 13:13:21 +02:00
2022-03-28 12:48:16 +02:00
if disable then
if cv_afk.value then
if ingame() > 1 then
for p in players.iterate do
if p.valid and not p.spectator and not p.exiting and p.lives > 0 then
if p.cmd.buttons then
p.afkTime = leveltime
end
--Away from kart
if p.afkTime + AFK_BALANCE_WARN == leveltime then
chatprintf(p, "[AFK] \x89You will be moved to spectator in 10 seconds!", false)
S_StartSound(nil, 26, p)
end
if p.afkTime + AFK_BALANCE < leveltime then
p.spectator = true
chatprint("\x89" + p.name + " was moved to the other team for game balance", true)
end
2022-03-28 13:13:21 +02:00
end
end
else
for p in players.iterate do
if p.valid and not p.spectator then
p.afkTime = leveltime
end
2022-03-28 13:13:21 +02:00
end
end
end
2022-03-28 13:11:21 +02:00
help = true
2022-03-28 12:48:16 +02:00
return
end
2022-03-28 13:15:29 +02:00
showSplit = max(0, showSplit - 1)
2022-03-28 12:48:16 +02:00
2022-03-28 13:13:21 +02:00
local p = getGamer()
if leveltime < START_TIME then
2022-03-28 13:11:00 +02:00
-- Help message
2022-03-28 13:13:21 +02:00
if leveltime == START_TIME - TICRATE * 3 then
2022-03-28 13:11:21 +02:00
if ingame() == 1 then
if help then
help = false
2022-03-28 13:15:29 +02:00
chatprint(HELP_MESSAGE, true)
2022-03-28 13:11:21 +02:00
end
else
help = true
end
2022-03-28 13:11:00 +02:00
end
2022-03-28 13:11:51 +02:00
-- Autospec
2022-04-04 20:56:03 +02:00
-- Encore
2022-03-28 13:11:51 +02:00
if leveltime == 1 then
2022-04-04 20:56:03 +02:00
Flags = $ & !F_ENCORE
if encoremode then
Flags = $ | F_ENCORE
end
2022-03-28 13:13:21 +02:00
if p then
for s in players.iterate do
if s.valid and s.spectator then
COM_BufInsertText(s, string.format("view \"%d\"", #p))
2022-03-28 13:11:51 +02:00
end
end
end
end
-- Gamemode flags
2022-03-28 13:08:08 +02:00
Flags = $ & !(F_SPBATK | F_SPBEXP | F_SPBBIG | F_SPBJUS)
2022-03-28 13:13:21 +02:00
if leveltime > START_TIME - (3 * TICRATE) / 2 and server.SPBArunning then
2022-03-28 13:08:08 +02:00
Flags = $ | F_SPBATK
if server.SPBAexpert then
Flags = $ | F_SPBEXP
end
if clearcheats then
clearcheats = false
for q in players.iterate do
q.SPBAKARTBIG = false
q.SPBAjustice = false
q.SPBAshutup = false
2022-03-28 13:08:08 +02:00
end
end
if p then
if p.SPBAKARTBIG then
Flags = $ | F_SPBBIG
end
if p.SPBAjustice then
Flags = $ | F_SPBJUS
2022-03-28 13:08:08 +02:00
end
end
2022-03-28 13:08:08 +02:00
end
2022-03-28 13:14:30 +02:00
if not (Flags & F_SPBATK) then
hud.enable("freeplay")
end
2022-03-28 13:08:08 +02:00
end
if not cv_teamchange then
cv_teamchange = CV_FindVar("allowteamchange")
end
2022-03-28 13:13:21 +02:00
if p then
2022-03-28 13:15:29 +02:00
-- Scroll controller
-- Spectators can't input buttons so let the gamer do it
if drawState == DS_SCROLL then
if p.cmd.buttons & BT_BACKWARD then
scrollAcc = scrollAcc - FRACUNIT / 3
elseif p.cmd.buttons & BT_FORWARD then
scrollAcc = scrollAcc + FRACUNIT / 3
else
scrollAcc = FixedMul(scrollAcc, (FRACUNIT * 90) / 100)
if scrollAcc < FRACUNIT and scrollAcc > -FRACUNIT then
scrollAcc = 0
end
end
end
if p.lives == 0 then
drawState = DS_SCROLL
end
2022-03-28 13:13:21 +02:00
if p.cmd.buttons then
2022-03-28 13:14:30 +02:00
p.afkTime = leveltime
2022-03-28 13:13:21 +02:00
end
2022-03-28 13:14:30 +02:00
if leveltime > PREVENT_JOIN_TIME and p.afkTime + AFK_TIMEOUT > leveltime then
2022-03-28 13:13:21 +02:00
if cv_teamchange.value then
allowJoin(false)
end
2022-03-28 13:14:30 +02:00
elseif p.afkTime + AFK_TIMEOUT < leveltime then
2022-03-28 13:13:21 +02:00
if not cv_teamchange.value then
allowJoin(true)
end
end
2022-03-28 12:48:16 +02:00
if p.laps >= mapheaderinfo[gamemap].numlaps and timeFinished == 0 then
timeFinished = p.realtime
saveTime(p)
end
regLap(p)
2022-03-28 13:13:21 +02:00
elseif cv_teamchange.value == 0 then
allowJoin(true)
2022-03-28 12:48:16 +02:00
end
end
2022-03-28 13:08:08 +02:00
addHook("ThinkFrame", think)
2022-03-28 12:48:16 +02:00
2022-03-28 13:13:42 +02:00
local function interThink()
if nextMap then
COM_BufInsertText(server, "map " + nextMap)
nextMap = nil
end
if not cv_teamchange then
cv_teamchange = CV_FindVar("allowteamchange")
end
if not cv_teamchange.value then
2022-03-28 13:13:21 +02:00
allowJoin(true)
end
end
2022-03-28 13:13:42 +02:00
addHook("IntermissionThinker", interThink)
2022-04-30 20:55:38 +02:00
addHook("VoteThinker", interThink)
2022-03-28 13:13:21 +02:00
2022-03-28 13:15:29 +02:00
-- Returns the values clamed between min, max
function clamp(min_v, v, max_v)
return max(min_v, min(v, max_v))
end
2022-03-28 12:48:16 +02:00
local function netvars(net)
2022-04-18 19:34:06 +02:00
Flags = net($)
2022-03-28 13:14:30 +02:00
splits = net($)
prevLap = net($)
2022-03-28 13:15:29 +02:00
drawState = net($)
2022-04-18 20:39:58 +02:00
StatTrack = net($)
2022-04-18 20:51:18 +02:00
EncoreInitial = net($)
2022-04-18 19:34:06 +02:00
lb = net($)
2022-03-28 12:48:16 +02:00
end
addHook("NetVars", netvars)