mirror of
https://github.com/etlegacy/etlegacy-lua-scripts.git
synced 2024-11-30 08:01:29 +00:00
122 lines
4 KiB
Lua
122 lines
4 KiB
Lua
--[[
|
|
Author: ET:Legacy Team
|
|
Description: Ensure the server is connected to IRC - see irc_* cvars. Set irc_mode flag 1 and 2.
|
|
]]--
|
|
|
|
modname ="IRC announcer"
|
|
version ="0.2"
|
|
|
|
usecolor = 0
|
|
|
|
function et_InitGame()
|
|
et.RegisterModname(modname.." "..version)
|
|
end
|
|
|
|
function ircColorStr(str)
|
|
local escape = "\003"
|
|
local q3colorescape = "%^"
|
|
str = str:gsub(q3colorescape .. "[7Ww]", escape .. "0")
|
|
str = str:gsub(q3colorescape .. "[0Pp]", escape .. "1")
|
|
str = str:gsub(q3colorescape .. "[4Tt]", escape .. "2")
|
|
str = str:gsub(q3colorescape .. "[Hh]", escape .. "3")
|
|
str = str:gsub(q3colorescape .. "[Jj1QqIi]", escape .. "4")
|
|
str = str:gsub(q3colorescape .. "[Kk@%+%?]", escape .. "5")
|
|
str = str:gsub(q3colorescape .. "[CcEe]", escape .. "6")
|
|
str = str:gsub(q3colorescape .. "[Ll8XxAa]", escape .. "7")
|
|
str = str:gsub(q3colorescape .. "[Mm3%/%-SsOoNn]", escape .. "8")
|
|
str = str:gsub(q3colorescape .. "[2RrGg]", escape .. "9")
|
|
str = str:gsub(q3colorescape .. "[Bb]", escape .. "10")
|
|
str = str:gsub(q3colorescape .. "[5Uu]", escape .. "11")
|
|
str = str:gsub(q3colorescape .. "[DdFf]", escape .. "12")
|
|
str = str:gsub(q3colorescape .. "[6Vv]", escape .. "13")
|
|
str = str:gsub(q3colorescape .. "[9Yy]", escape .. "14")
|
|
str = str:gsub(q3colorescape .. "[Zz]", escape .. "15")
|
|
return str .. "\015"
|
|
end
|
|
|
|
function getTeamInfo()
|
|
local temp = et.trap_GetConfigstring(0)
|
|
temp = et.Info_ValueForKey(temp, "P")
|
|
|
|
local team_free_cnt, team_ax_cnt, team_al_cnt, team_spec_cnt = 0, 0, 0, 0
|
|
|
|
for i = 1, #temp do
|
|
if (string.sub(temp, i, i) == "0") then
|
|
team_free_cnt = team_free_cnt + 1
|
|
end
|
|
if (string.sub(temp, i, i) == "1") then
|
|
team_ax_cnt = team_ax_cnt + 1
|
|
end
|
|
if (string.sub(temp, i, i) == "2") then
|
|
team_al_cnt = team_al_cnt + 1
|
|
end
|
|
if (string.sub(temp, i, i) == "3") then
|
|
team_spec_cnt = team_spec_cnt + 1
|
|
end
|
|
end
|
|
|
|
return team_free_cnt, team_ax_cnt, team_al_cnt, team_spec_cnt
|
|
end
|
|
|
|
function getHumanBotInfo()
|
|
local cs = et.trap_GetConfigstring(0)
|
|
local bots = et.Info_ValueForKey(cs, "omnibot_playing")
|
|
|
|
return bots
|
|
end
|
|
|
|
|
|
function et_ClientConnect(_clientNum, _firstTime, _isBot)
|
|
if _isBot then
|
|
return
|
|
end
|
|
|
|
if _firstTime then
|
|
-- note pers.netname is empty on first connect
|
|
if usecolor then
|
|
local clientname = ircColorStr(et.Info_ValueForKey(et.trap_GetUserinfo(_clientNum), "name"))
|
|
else
|
|
local clientname = et.Q_CleanStr(et.Info_ValueForKey(et.trap_GetUserinfo(_clientNum), "name"))
|
|
end
|
|
|
|
-- iterate through clients and count them
|
|
local free, axis, allies, spec = 0, 0, 0, 0
|
|
free, axis, allies, spec = getTeamInfo()
|
|
|
|
-- count humans players
|
|
local bots, humans = 0, 0
|
|
bots = getHumanBotInfo()
|
|
|
|
if bots then
|
|
humans = free + axis + allies + spec - bots
|
|
else
|
|
humans = free + axis + allies + spec
|
|
end
|
|
humans = math.floor(humans)
|
|
|
|
-- current player is connecting but doesn't show up in the total yet
|
|
-- let's add it manually
|
|
humans = humans + 1
|
|
|
|
-- send message
|
|
if usecolor then
|
|
local msg = "irc_say \"" .. clientname .. " connected to server. Playing now:^7 " .. humans .. "^9(+" .. bots .. ")\""
|
|
et.trap_SendConsoleCommand(et.EXEC_NOW , ircColorStr(msg))
|
|
else
|
|
local msg = "irc_say \"" .. clientname .. " connected to server. Playing now: " .. humans .. "(+" .. bots .. ")\""
|
|
et.trap_SendConsoleCommand(et.EXEC_NOW , msg)
|
|
end
|
|
end
|
|
end
|
|
|
|
-- function et_ClientDisconnect(_clientNum)
|
|
-- if usecolor then
|
|
-- local clientname = ircColorStr(et.gentity_get(_clientNum ,"pers.netname"))
|
|
-- local msg = "irc_say \"" .. clientname .. " disconnected from server\""
|
|
-- et.trap_SendConsoleCommand(et.EXEC_NOW , ircColorStr(msg))
|
|
-- else
|
|
-- local clientname = et.Q_CleanStr(et.gentity_get(_clientNum ,"pers.netname"))
|
|
-- local msg = "irc_say \"" .. clientname .. " disconnected from server\""
|
|
-- et.trap_SendConsoleCommand(et.EXEC_NOW , msg)
|
|
-- end
|
|
-- end
|