mirror of
https://github.com/etlegacy/etlegacy-lua-scripts.git
synced 2024-11-22 20:41:12 +00:00
added initial skill rating script
This commit is contained in:
Remy Marquis
parent
84986f4b75
commit
c57137d82b
1 changed files with 322 additions and 0 deletions
322
rating/rating.lua
Executable file
322
rating/rating.lua
Executable file
|
|
@ -0,0 +1,322 @@
|
||||||
|
--[[
|
||||||
|
Author: [Spyhawk]
|
||||||
|
License: ISC
|
||||||
|
Website: http://www.etlegacy.com
|
||||||
|
Mod: compatible with Legacy mod only
|
||||||
|
|
||||||
|
Description: Skill Rating (aka TrueSkill) data management
|
||||||
|
Use in conjunction with g_skillRating cvar
|
||||||
|
]]--
|
||||||
|
|
||||||
|
--[[
|
||||||
|
TODO:
|
||||||
|
* 0.1: handle basic rating update functionality
|
||||||
|
* 0.2: handle disconnected clients
|
||||||
|
* 0.3: handle map bias parameter
|
||||||
|
* 0.4: add useful commands
|
||||||
|
]]--
|
||||||
|
|
||||||
|
-- Lua module version
|
||||||
|
local version = "0.1"
|
||||||
|
|
||||||
|
-- load sqlite driver (or mysql..)
|
||||||
|
local luasql = require "luasql.sqlite3"
|
||||||
|
|
||||||
|
local env -- environment object
|
||||||
|
local con -- database connection
|
||||||
|
local cur -- cursor
|
||||||
|
|
||||||
|
-- check feature
|
||||||
|
local g_skillRating = tonumber(et.trap_Cvar_Get("g_skillRating"))
|
||||||
|
|
||||||
|
--[[
|
||||||
|
Functions
|
||||||
|
]]--
|
||||||
|
|
||||||
|
-- database helper function
|
||||||
|
-- returns database rows matching sql_statement
|
||||||
|
function rows(connection, sql_statement)
|
||||||
|
local cursor = assert(connection:execute (sql_statement))
|
||||||
|
return function ()
|
||||||
|
return cursor:fetch()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- con:prepare with bind_names should be used to prevent SQL injections
|
||||||
|
-- but it isn't currently implemented in LuaSQL
|
||||||
|
function validateGUID(clientNum, guid)
|
||||||
|
-- allow only alphanumeric characters in guid
|
||||||
|
if(string.match(guid, "%W")) then
|
||||||
|
-- Invalid characters detected. We should probably drop this client
|
||||||
|
et.G_Print("^1[Skill Rating]:^7 User with ID " .. clientNum .. " has an invalid GUID: " .. guid .. "\n")
|
||||||
|
et.trap_SendServerCommand (clientNum, "cpm \"^2Your Skill Rating won't be saved because you have an invalid GUID!\n\"")
|
||||||
|
return false
|
||||||
|
end
|
||||||
|
|
||||||
|
return true
|
||||||
|
end
|
||||||
|
|
||||||
|
-- saves SR values of a player with id 'clientNum' into database
|
||||||
|
function saveSR(clientNum)
|
||||||
|
local name = et.Info_ValueForKey(et.trap_GetUserinfo(clientNum), "name")
|
||||||
|
local guid = et.Info_ValueForKey(et.trap_GetUserinfo(clientNum), "cl_guid")
|
||||||
|
|
||||||
|
if not validateGUID(clientNum, guid) then return end
|
||||||
|
|
||||||
|
cur = assert(con:execute(string.format("SELECT * FROM users WHERE guid='%s' LIMIT 1", guid)))
|
||||||
|
local player = cur:fetch({}, 'a')
|
||||||
|
|
||||||
|
if not player then
|
||||||
|
-- should not happen
|
||||||
|
et.G_Print("^1[Skill Rating]:^7 User not found in database!\n")
|
||||||
|
-- cur:close()
|
||||||
|
return
|
||||||
|
else
|
||||||
|
-- save data
|
||||||
|
cur = assert(con:execute(string.format([[UPDATE users SET
|
||||||
|
last_seen='%s',
|
||||||
|
mu='%s',
|
||||||
|
sigma='%s'
|
||||||
|
WHERE guid='%s']],
|
||||||
|
os.date("%Y-%m-%d %H:%M:%S"),
|
||||||
|
et.gentity_get(clientNum, "sess.mu"),
|
||||||
|
et.gentity_get(clientNum, "sess.sigma"),
|
||||||
|
guid
|
||||||
|
)))
|
||||||
|
end
|
||||||
|
-- cur:close()
|
||||||
|
end
|
||||||
|
|
||||||
|
--[[
|
||||||
|
Callbacks
|
||||||
|
]]--
|
||||||
|
|
||||||
|
-- called when game initializes
|
||||||
|
function et_InitGame(levelTime, randomSeed, restart)
|
||||||
|
-- register name of this module
|
||||||
|
et.RegisterModname("Skill Rating " .. version)
|
||||||
|
|
||||||
|
-- check status
|
||||||
|
if tonumber(et.trap_Cvar_Get("g_skillRating")) < 1 then return end
|
||||||
|
|
||||||
|
-- create environement object
|
||||||
|
env = assert(luasql.sqlite3())
|
||||||
|
|
||||||
|
-- connect to database
|
||||||
|
con = assert(env:connect("rating.sqlite"))
|
||||||
|
|
||||||
|
-- drop database
|
||||||
|
-- cur = assert(con:execute("DROP TABLE users"))
|
||||||
|
|
||||||
|
-- create database
|
||||||
|
cur = assert(con:execute[[
|
||||||
|
CREATE TABLE IF NOT EXISTS users(
|
||||||
|
guid VARCHAR(64),
|
||||||
|
last_seen VARCHAR(64),
|
||||||
|
mu REAL,
|
||||||
|
sigma REAL,
|
||||||
|
UNIQUE (guid)
|
||||||
|
)
|
||||||
|
]])
|
||||||
|
--cur:close()
|
||||||
|
end
|
||||||
|
|
||||||
|
-- called when game shuts down
|
||||||
|
function et_ShutdownGame(restart)
|
||||||
|
-- check status
|
||||||
|
if g_skillRating < 1 then return end
|
||||||
|
-- clean up
|
||||||
|
cur:close()
|
||||||
|
con:close()
|
||||||
|
env:close()
|
||||||
|
end
|
||||||
|
|
||||||
|
-- called every server frame
|
||||||
|
function et_RunFrame(levelTime)
|
||||||
|
-- check status
|
||||||
|
if g_skillRating < 1 then return end
|
||||||
|
|
||||||
|
-- check gamestate changes
|
||||||
|
gamestate = tonumber(et.trap_Cvar_Get("gamestate"))
|
||||||
|
|
||||||
|
if oldgamestate ~= gamestate then
|
||||||
|
oldgamestate = tonumber(et.trap_Cvar_Get("gamestate"))
|
||||||
|
|
||||||
|
-- GS_WARMUP
|
||||||
|
-- if gamestate == 1 then
|
||||||
|
-- et.G_Print("^1[Skill Rating]:^7 GS_WARMUP\n")
|
||||||
|
-- end
|
||||||
|
|
||||||
|
-- GS_PLAYING
|
||||||
|
-- if gamestate == 0 then
|
||||||
|
-- et.G_Print("^1[Skill Rating]:^7 GS_PLAYING\n")
|
||||||
|
-- end
|
||||||
|
|
||||||
|
-- GS_INTERMISSION
|
||||||
|
if gamestate == 3 then
|
||||||
|
-- et.G_Print("^1[Skill Rating]:^7 GS_INTERMISSION\n")
|
||||||
|
|
||||||
|
local clientNum = 0
|
||||||
|
local maxclients = tonumber(et.trap_Cvar_Get("sv_maxclients"))
|
||||||
|
|
||||||
|
-- iterate through clients
|
||||||
|
while clientNum < maxclients do
|
||||||
|
local cs = et.trap_GetConfigstring(tonumber(et.CS_PLAYERS) + clientNum)
|
||||||
|
-- save new ratings
|
||||||
|
if cs ~= nil and cs ~= "" then
|
||||||
|
saveSR(clientNum)
|
||||||
|
end
|
||||||
|
clientNum = clientNum + 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- called for every ClientConnect
|
||||||
|
function et_ClientConnect(clientNum, firstTime, isBot)
|
||||||
|
-- check status
|
||||||
|
if g_skillRating < 1 then return end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- called for every ClientDisconnect
|
||||||
|
function et_ClientDisconnect(clientNum)
|
||||||
|
-- check status
|
||||||
|
if g_skillRating < 1 then return end
|
||||||
|
|
||||||
|
local guid = et.Info_ValueForKey(et.trap_GetUserinfo(clientNum), "cl_guid")
|
||||||
|
local name = et.Info_ValueForKey(et.trap_GetUserinfo(clientNum), "name")
|
||||||
|
|
||||||
|
if not validateGUID(clientNum, guid) then return end
|
||||||
|
|
||||||
|
cur = assert(con:execute(string.format("SELECT * FROM users WHERE guid='%s' LIMIT 1", guid)))
|
||||||
|
local player = cur:fetch({}, 'a')
|
||||||
|
|
||||||
|
if not player then
|
||||||
|
-- should not happen
|
||||||
|
et.G_Print("^1[Skill Rating]:^7 User not found in database!\n")
|
||||||
|
-- cur:close()
|
||||||
|
return
|
||||||
|
else
|
||||||
|
cur = assert(con:execute(string.format([[UPDATE users SET
|
||||||
|
last_seen='%s'
|
||||||
|
WHERE guid='%s']],
|
||||||
|
os.date("%Y-%m-%d %H:%M:%S"),
|
||||||
|
guid
|
||||||
|
)))
|
||||||
|
-- cur:close()
|
||||||
|
end
|
||||||
|
-- cur:close()
|
||||||
|
end
|
||||||
|
|
||||||
|
-- called for every ClientBegin
|
||||||
|
function et_ClientBegin(clientNum)
|
||||||
|
-- check status
|
||||||
|
if g_skillRating < 1 then return end
|
||||||
|
|
||||||
|
local guid = et.Info_ValueForKey(et.trap_GetUserinfo(clientNum), "cl_guid")
|
||||||
|
local name = et.Info_ValueForKey(et.trap_GetUserinfo(clientNum), "name")
|
||||||
|
|
||||||
|
if not validateGUID(clientNum, guid) then return end
|
||||||
|
|
||||||
|
cur = assert(con:execute(string.format("SELECT * FROM users WHERE guid='%s'", guid)))
|
||||||
|
local player = cur:fetch({}, 'a')
|
||||||
|
|
||||||
|
if not player then
|
||||||
|
-- first time this player is seen
|
||||||
|
et.trap_SendServerCommand(clientNum, "cpm \"^2[Skill Rating]:^7 Welcome, " .. name .. "^7! You are playing on an Skill Rating enabled server\n\"")
|
||||||
|
|
||||||
|
-- use default values
|
||||||
|
cur = assert(con:execute(string.format("INSERT INTO users VALUES ('%s', '%s', '%s', '%s')",
|
||||||
|
guid,
|
||||||
|
os.date("%Y-%m-%d %H:%M:%S"),
|
||||||
|
25,
|
||||||
|
25/3
|
||||||
|
)))
|
||||||
|
-- cur:close()
|
||||||
|
else
|
||||||
|
-- load current rating
|
||||||
|
et.gentity_set(clientNum, "sess.mu", tonumber(player.mu))
|
||||||
|
et.gentity_set(clientNum, "sess.sigma", tonumber(player.sigma))
|
||||||
|
-- create copy for delta rating
|
||||||
|
et.gentity_set(clientNum, "sess.oldmu", tonumber(player.mu))
|
||||||
|
et.gentity_set(clientNum, "sess.oldsigma", tonumber(player.sigma))
|
||||||
|
|
||||||
|
et.trap_SendServerCommand(clientNum, string.format("cpm \"^2[Skill Rating]:^7 Welcome back, %s^7! Your rating is ^3%s\n\"",
|
||||||
|
name, string.format("%.2f", math.max(player.mu - 3 * player.sigma, 0))
|
||||||
|
))
|
||||||
|
-- et.trap_SendServerCommand(clientNum, string.format("cpm \"^2[Skill Rating]:^7 Welcome back, %s^7! Your rating is ^3%s ^7(^1%s^7,^4%s^7)\n\"",
|
||||||
|
-- name,
|
||||||
|
-- string.format("%.2f", math.max(player.mu - 3 * player.sigma, 0)),
|
||||||
|
-- string.format("%.2f", player.mu),
|
||||||
|
-- string.format("%.2f", player.sigma)
|
||||||
|
-- ))
|
||||||
|
end
|
||||||
|
-- cur:close()
|
||||||
|
end
|
||||||
|
|
||||||
|
-- called for every client command
|
||||||
|
-- return 1 if intercepted, 0 if passthrough
|
||||||
|
function et_ClientCommand(clientNum, cmd)
|
||||||
|
-- check status
|
||||||
|
if g_skillRating < 1 then return 0 end
|
||||||
|
|
||||||
|
-- local cmd = et.trap_Argv(0)
|
||||||
|
cmd = string.lower(cmd)
|
||||||
|
|
||||||
|
-- display current rating
|
||||||
|
if cmd == "!sr" then
|
||||||
|
local mu = et.gentity_get(clientNum, "sess.mu")
|
||||||
|
local sigma = et.gentity_get(clientNum, "sess.sigma")
|
||||||
|
|
||||||
|
et.trap_SendServerCommand(clientNum, string.format("cpm \"^2[Skill Rating]:^7 Your rating is ^3%s\n\"",
|
||||||
|
string.format("%.2f", math.max(mu - 3 * sigma, 0))
|
||||||
|
))
|
||||||
|
-- et.trap_SendServerCommand(clientNum, string.format("cpm \"^2[Skill Rating]:^7 Your rating is ^3%s^7 (^1%s^7, ^4%s^7)\n\"",
|
||||||
|
-- string.format("%.2f", math.max(mu - 3 * sigma, 0)),
|
||||||
|
-- string.format("%.2f", mu),
|
||||||
|
-- string.format("%.2f", sigma)
|
||||||
|
-- ))
|
||||||
|
return 1
|
||||||
|
end
|
||||||
|
|
||||||
|
return 0
|
||||||
|
end
|
||||||
|
|
||||||
|
-- called for every console command
|
||||||
|
-- return 1 if intercepted, 0 if passthrough
|
||||||
|
function et_ConsoleCommand()
|
||||||
|
-- check status
|
||||||
|
if g_skillRating < 1 then return 0 end
|
||||||
|
|
||||||
|
local cmd = et.trap_Argv(0)
|
||||||
|
cmd = string.lower(cmd)
|
||||||
|
|
||||||
|
-- drop users
|
||||||
|
if cmd == "!srdbdrop" then
|
||||||
|
-- FIXME: LuaSQL: database table is locked
|
||||||
|
cur = assert(con:execute("DROP TABLE users"))
|
||||||
|
et.G_Print("^2[Skill Rating]:^7 Dropped users table\n")
|
||||||
|
-- cur:close()
|
||||||
|
return 1
|
||||||
|
end
|
||||||
|
|
||||||
|
-- list all users
|
||||||
|
if cmd == "!srdblist" then
|
||||||
|
cur = assert(con:execute("SELECT COUNT(*) FROM users"))
|
||||||
|
et.G_Print("^2[Skill Rating]:^3 " .. tonumber(cur:fetch(row, 'a')) .. "^7 users in database\n")
|
||||||
|
local guid, lastseen, mu, sigma
|
||||||
|
for guid, lastseen, mu, sigma in rows(con, "SELECT * FROM users") do
|
||||||
|
et.G_Print(string.format("\tGUID %s\tLast seen: %s mu: ^1%s^: sigma: ^4%s^: Rating: ^3%s\n",
|
||||||
|
guid,
|
||||||
|
lastseen,
|
||||||
|
string.format("%.2f", mu),
|
||||||
|
string.format("%.2f", sigma),
|
||||||
|
string.format("%.2f", math.max(mu - 3 * sigma, 0))
|
||||||
|
))
|
||||||
|
end
|
||||||
|
-- cur:close()
|
||||||
|
return 1
|
||||||
|
end
|
||||||
|
|
||||||
|
return 0
|
||||||
|
end
|
||||||
Loading…
Reference in a new issue