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