Compare commits

..

6 Commits

Author SHA1 Message Date
e25b417fbd fix function name 2022-05-15 22:31:51 +02:00
3d54350dae Use strings as the default cvar value 2022-05-14 08:12:58 +02:00
89da89fbfe Simplify allowJoin() 2022-05-14 08:04:28 +02:00
906444ae08 change ingame() to only check if there is 2 players in game
as ingame() is only used to check if there is more than 1 player then it is changed to not look for more than 2 since its not needed. name changed to reflect that.
2022-05-14 08:02:05 +02:00
405a0e50f2 save player iteration on thinker
we know that there are no more than one player as `disable` is false and you know there is 1 if `p` exist
2022-05-14 07:41:40 +02:00
6ea3341b06 better init logic + make sure we are not in battle 2022-05-14 07:33:03 +02:00

View File

@ -15,27 +15,12 @@ local EncoreInitial = nil
local cv_teamchange
local scoreTable
-- Text flash on finish
local FlashTics = 0
local FlashRate
local FlashVFlags
local YellowFlash = {
[0] = V_YELLOWMAP,
[1] = V_ORANGEMAP,
[2] = 0
}
local RedFlash = {
[0] = V_REDMAP,
[1] = 0
}
-- Tracks if stats have been written or not
local StatTrack = false
local UNCLAIMED = "Unclaimed Record"
local HELP_MESSAGE = "\x89Leaderboard Commands:\nretry exit findmap changelevel spba_clearcheats lb_gui rival scroll encore"
local FILENAME = "leaderboard"
local FILENAME = "leaderboard.txt"
-- Retry / changelevel map
local nextMap = nil
@ -93,7 +78,7 @@ local allowJoin
local cv_gui = CV_RegisterVar({
name = "lb_gui",
defaultvalue = GUI_ON,
defaultvalue = "On",
flags = 0,
PossibleValue = {Off = GUI_OFF, Splits = GUI_SPLITS, On = GUI_ON}
})
@ -101,7 +86,7 @@ local cv_gui = CV_RegisterVar({
local AntiAFK = true
CV_RegisterVar({
name = "lb_afk",
defaultvalue = 1,
defaultvalue = "On",
flags = CV_NETVAR | CV_CALL,
PossibleValue = CV_OnOff,
func = function(v)
@ -120,7 +105,7 @@ CV_RegisterVar({
local cv_enable = CV_RegisterVar({
name = "lb_enable",
defaultvalue = 1,
defaultvalue = "On",
flags = CV_NETVAR | CV_CALL,
PossibleValue = CV_OnOff,
func = function(v)
@ -140,7 +125,7 @@ local cv_saves = CV_RegisterVar({
local cv_interrupt = CV_RegisterVar({
name = "lb_interrupt",
defaultvalue = 0,
defaultvalue = "Off",
flags = CV_NETVAR | CV_CALL,
PossibleValue = CV_OnOff,
func = function(v)
@ -150,36 +135,15 @@ local cv_interrupt = CV_RegisterVar({
end
})
local function djb2(message)
local digest = 5381
for c in message:gmatch(".") do
digest = (($ << 5) + $) + string.byte(c)
end
return digest
end
local function mapChecksum(mapnum)
local mh = mapheaderinfo[mapnum]
if not mh then
return nil
end
local digest = string.format("%04x", djb2(mh.lvlttl+mh.subttl+mh.zonttl))
return string.sub(digest, #digest - 3)
end
local function setST(t, map, flags, scoreTable)
local mode = flags & ST_SEP
local cks = mapChecksum(map)
t[mode] = t[mode] or {}
t[mode][tostring(map)..(cks or "")] = scoreTable
t[mode][map] = scoreTable
end
local function getST(t, map, flags)
local mode = flags & ST_SEP
local cks = mapChecksum(map)
return t[mode] and t[mode][tostring(map)..(cks or "")] or nil
return t[mode] and t[mode][map] or nil
end
local function setScoreTable(map, flags, scoreTable)
@ -229,7 +193,7 @@ end
local cv_spb_separate = CV_RegisterVar({
name = "lb_spb_combined",
defaultvalue = 1,
defaultvalue = "On",
flags = CV_NETVAR | CV_CALL,
PossibleValue = CV_YesNo,
func = function(v)
@ -243,7 +207,7 @@ local cv_spb_separate = CV_RegisterVar({
end
})
local function score_t(map, name, skin, color, time, splits, flags, stat, checksum)
local function score_t(map, name, skin, color, time, splits, flags, stat)
return {
["map"] = map,
["name"] = name,
@ -252,8 +216,7 @@ local function score_t(map, name, skin, color, time, splits, flags, stat, checks
["time"] = time,
["splits"] = splits,
["flags"] = flags,
["stat"] = stat,
["checksum"] = checksum
["stat"] = stat
}
end
@ -275,47 +238,12 @@ local function stat_str(stat)
return "0"
end
local function writeScore(fh, score)
fh:write(
score["map"], "\t",
score["name"], "\t",
score["skin"], "\t",
score["color"], "\t",
score["time"], "\t",
table.concat(score["splits"], " "), "\t",
score["flags"], "\t",
stat_str(score["stat"]), "\t",
score["checksum"], "\n"
)
end
local function saveScores()
local f = assert(io.open(FILENAME + ".txt", "w"))
if f == nil then
print("Failed to open file for writing: " + FILENAME + ".txt")
return
end
for _, tbl in pairs(lb) do
for _, scoreTable in pairs(tbl) do
for _, score in ipairs(scoreTable) do
writeScore(f, score)
end
end
end
f:close()
end
-- Read the leaderboard
local f = io.open(FILENAME + ".txt", "r")
local f = io.open(FILENAME, "r")
if f then
-- track if scores checksums have been written
local checksumWrite = false
for l in f:lines() do
-- Leaderboard is stored in the following tab separated format
-- mapnum, name, skin, color, time, splits, flags, stat, map_checksum
-- mapnum, name, skin, color, time, splits, flags, stat
local t = {}
for word in (l+"\t"):gmatch("(.-)\t") do
table.insert(t, word)
@ -344,41 +272,17 @@ if f then
end
end
local mapnum = tonumber(t[1])
-- Checksums
local cks = t[9]
if cks == nil then
checksumWrite = true
cks = mapChecksum(mapnum)
-- We have no previous recognition of this map
-- remove it
if cks == nil then
local rsfh = io.open(FILENAME + "_removed_scores.txt", "a")
if not rsfh then
print("Failed to open file: ", FILENAME + "_removed_scores.txt")
continue
end
rsfh:write(l, "\n")
rsfh:close()
continue
end
end
table.insert(
scoreTable,
score_t(
mapnum,
tonumber(t[1]),
t[2],
t[3],
t[4],
tonumber(t[5]),
spl,
flags,
stats,
cks
stats
)
)
@ -387,51 +291,45 @@ if f then
sortScores()
f:close()
-- save scores
if checksumWrite then
saveScores()
end
else
print("Failed to open file: ", FILENAME + ".txt")
print("Failed to open file: ", FILENAME)
end
function allowJoin(v)
if not cv_interrupt.value then
local y
if v then
y = "yes"
COM_BufInsertText(server, "allowteamchange Yes")
hud.enable("freeplay")
else
y = "no"
COM_BufInsertText(server, "allowteamchange No")
hud.disable("freeplay")
end
COM_BufInsertText(server, "allowteamchange " + y)
end
end
-- Returns true if there is a single player ingame
local function singleplayer()
local function TwoPlusInGame()
local n = 0
for p in players.iterate do
if p.valid and not p.spectator then
n = $ + 1
if n > 1 then
return false
end
end
end
if n == 2 then
return true
end
end
end
return false
end
local function initLeaderboard(player)
if cv_enable.value and G_RaceGametype() then
if disable and leveltime < START_TIME then
disable = not singleplayer()
disable = TwoPlusInGame()
else
disable = disable or not singleplayer()
disable = $ or TwoPlusInGame()
end
else
disable = true
end
disable = $ or not cv_enable.value or not (maptol & (TOL_SP | TOL_RACE))
-- Restore encore mode to initial value
if disable and EncoreInitial != nil then
@ -444,7 +342,7 @@ end
addHook("PlayerSpawn", initLeaderboard)
local function doyoudare(player)
if not singleplayer() or player.spectator then
if TwoPlusInGame() or player.spectator then
CONS_Printf(player, "How dare you")
return false
end
@ -471,57 +369,24 @@ COM_AddCommand("exit", exitlevel)
local function findMap(player, ...)
local search = ...
if search == nil then
local hell = "\x85HELL"
local tol = {
[TOL_SP] = "\x81Race\x80", -- Nuked race maps
[TOL_COOP] = "\x8D\Battle\x80", -- Nuked battle maps
[TOL_RACE] = "\x88Race\x80",
[TOL_MATCH] = "\x87\Battle\x80"
}
local lvltype, map, lvlttl
local zoneAct = function(zone, act, levelflags)
local z = ""
if zone != "" then
z = " " + zone
elseif not(levelflags & LF_NOZONE) then
z = " Zone"
return
end
if act != "" then
z = $ + " " + act
end
return z
end
for i = 1, #mapheaderinfo do
map = mapheaderinfo[i]
local map = mapheaderinfo[i]
if map == nil then
continue
end
lvlttl = map.lvlttl + zoneAct(map.zonttl, map.actnum, map.levelflags)
if not search or lvlttl:lower():find(search:lower()) then
-- Only care for up to TOL_MATCH (0x10)
lvltype = tol[map.typeoflevel & 0x1F] or map.typeoflevel
-- If not battle print numlaps
lvltype = (map.typeoflevel & (TOL_MATCH | TOL_COOP) and lvltype)
or string.format("%s \x82%-2d\x80", lvltype, map.numlaps)
if map.lvlttl:lower():find(search:lower()) then
CONS_Printf(
player,
string.format(
"%s %-9s %-30s - %s\t%s",
"%s - %s",
G_BuildMapName(i),
lvltype,
lvlttl,
map.subttl,
(map.menuflags & LF2_HIDEINMENU and hell) or ""
map.lvlttl
)
)
end
@ -533,6 +398,8 @@ 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
@ -554,8 +421,6 @@ local function changelevel(player, ...)
end
local mapnum = 0
local A = string.byte("A")
if tonumber(p) != nil then
-- Non extended map numbers
if tonumber(q) == nil then
@ -565,12 +430,11 @@ local function changelevel(player, ...)
mapnum = tonumber(p) * 10 + tonumber(q)
else
--Extended map numbers
p = string.byte(p) - A
p = ALPH:find(p) - 1
local qn = tonumber(q)
if qn == nil then
qn = string.byte(q) - A + 10
qn = ALPH:find(q) + 9
end
mapnum = 36 * p + qn + 100
end
@ -579,12 +443,6 @@ local function changelevel(player, ...)
return
end
-- Verify valid race level
if not (mapheaderinfo[mapnum].typeoflevel & (TOL_SP | TOL_RACE)) then
CONS_Printf(player, "Battle maps are not supported")
return
end
nextMap = G_BuildMapName(mapnum)
end
COM_AddCommand("changelevel", changelevel)
@ -807,7 +665,6 @@ addHook("MapLoad", function()
drawState = DS_DEFAULT
scrollY = 50 * FRACUNIT
scrollAcc = 0
FlashTics = 0
allowJoin(true)
--printTable(lb)
@ -900,11 +757,10 @@ local FACERANK_DIM = 16
local FACERANK_SPC = FACERANK_DIM + 4
local function drawScore(v, player, pos, x, y, gui, faceRank, score, drawPos, textVFlags)
textVFlags = textVFlags or V_HUDTRANSHALF
local me = player.name == score["name"]
--draw Patch/chili
v.draw(x, y, faceRank, V_HUDTRANS | VFLAGS, v.getColormap("sonic", score["color"]))
if me then
if player.name == score["name"] then
v.draw(x, y, PATCH["CHILI"][(leveltime / 4) % 8], V_HUDTRANS | VFLAGS)
end
@ -916,7 +772,7 @@ local function drawScore(v, player, pos, x, y, gui, faceRank, score, drawPos, te
bob + (y + FACERANK_DIM / 2) * FRACUNIT,
FRACUNIT / 6,
PATCH["RUBY"],
V_HUDTRANS | VFLAGS
V_HUDTRANS
)
end
@ -1000,16 +856,11 @@ local function drawScore(v, player, pos, x, y, gui, faceRank, score, drawPos, te
end
end
local flashV = 0
if me and FlashTics > leveltime then
flashV = FlashVFlags[leveltime / FlashRate % (#FlashVFlags + 1)]
end
v.drawString(
x + FACERANK_DIM + px,
y + py,
name,
textVFlags | V_ALLOWLOWERCASE | VFLAGS | flashV,
textVFlags | V_ALLOWLOWERCASE | VFLAGS,
stralign
)
@ -1027,7 +878,7 @@ local function drawScore(v, player, pos, x, y, gui, faceRank, score, drawPos, te
x + px + FACERANK_DIM,
y + 8,
ticsToTime(score["time"], true),
textVFlags | bodium[min(pos, 4)] | VFLAGS | flashV
textVFlags | bodium[min(pos, 4)] | VFLAGS
)
end
end
@ -1215,8 +1066,7 @@ local function saveTime(player)
timeFinished,
splits,
Flags,
stat_t(player.HMRs or pskin.kartspeed, player.HMRw or pskin.kartweight),
mapChecksum(gamemap)
stat_t(player.HMRs or pskin.kartspeed, player.HMRw or pskin.kartweight)
)
-- Check if you beat your previous best
@ -1225,16 +1075,10 @@ local function saveTime(player)
if lbComp(newscore, scoreTable[i]) then
table.remove(scoreTable, i)
S_StartSound(nil, 130)
FlashTics = leveltime + TICRATE * 3
FlashRate = 1
FlashVFlags = YellowFlash
break
else
-- You suck lol
S_StartSound(nil, 201)
FlashTics = leveltime + TICRATE * 3
FlashRate = 3
FlashVFlags = RedFlash
scroll_to(player)
return
end
@ -1261,7 +1105,30 @@ local function saveTime(player)
StatTrack = true
end
saveScores()
local f = assert(io.open(FILENAME, "w"))
if f == nil then
print("Failed to open file for writing: " + FILENAME)
return
end
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",
stat_str(score["stat"]), "\n"
)
end
end
end
f:close()
end
-- DEBUGGING
@ -1288,17 +1155,15 @@ local function getGamer()
end
end
local function changeMap()
COM_BufInsertText(server, "map " + nextMap + " -force -gametype race")
nextMap = nil
end
local function think()
if nextMap then changeMap() end
if nextMap then
COM_BufInsertText(server, "map " + nextMap)
nextMap = nil
end
if disable then
if AntiAFK then
if not singleplayer() then
if TwoPlusInGame() 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
@ -1335,7 +1200,7 @@ local function think()
if leveltime < START_TIME then
-- Help message
if leveltime == START_TIME - TICRATE * 3 then
if singleplayer() then
if p then
if help then
help = false
chatprint(HELP_MESSAGE, true)
@ -1447,7 +1312,10 @@ end
addHook("ThinkFrame", think)
local function interThink()
if nextMap then changeMap() end
if nextMap then
COM_BufInsertText(server, "map " + nextMap)
nextMap = nil
end
if not cv_teamchange then
cv_teamchange = CV_FindVar("allowteamchange")