---- Shared language stuff

-- tbl is first created here on both server and client
-- could make it a module but meh
LANG = {}

IncludeClientFile("cl_lang.lua")

-- Add all lua files in our /lang/ dir
local dir = GM.FolderName or "terrortown"
for _, fname in pairs(file.FindInLua(dir .. "/gamemode/lang/*.lua")) do
   local path = "lang/" .. fname
   -- filter out directories and temp files (like .lua~)
   if (not file.IsDir(path)) and string.Right(fname, 3) == "lua" then
      IncludeClientFile(path)
      MsgN("Included TTT language file: " .. fname)
   end
end


local umsg_name = "ttt_lang_msg"

if SERVER then
   umsg.PoolString(umsg_name)

   local count = table.Count

   -- Can be called as:
   --   1) LANG.Msg(ply, name, params)  -- sent to ply
   --   2) LANG.Msg(name, params)       -- sent to all
   --   3) LANG.Msg(role, name, params) -- sent to plys with role
   function LANG.Msg(arg1, arg2, arg3)
      if type(arg1) == "string" then
         LANG.ProcessMsg(nil, arg1, arg2)
      elseif type(arg1) == "number" then
         LANG.ProcessMsg(GetRoleFilter(arg1), arg2, arg3)
      else
         LANG.ProcessMsg(arg1, arg2, arg3)
      end
   end

   function LANG.ProcessMsg(send_to, name, params)
      -- don't want to send to null ents, but can't just IsValid send_to because
      -- it may be a recipientfilter, so type check first
      if type(send_to) == "Player" and (not IsValid(send_to)) then return end

      -- number of keyval param pairs to send
      local c = params and count(params) or 0

      umsg.Start(umsg_name, send_to)
      umsg.String(name)

      if c > 0 then
         umsg.Char(c)
         
         for k, v in pairs(params) do
            -- assume keys are strings, but vals may be numbers
            umsg.String(k)
            umsg.String(tostring(v))
         end
      end
      
      umsg.End()
   end

   function LANG.MsgAll(name, params)
      LANG.Msg(nil, name, params)
   end

   CreateConVar("ttt_lang_serverdefault", "english", FCVAR_ARCHIVE)

   local function ServerLangRequest(ply, cmd, args)
      if not IsValid(ply) then return end
      SendUserMessage("ttt_serverlang", ply, GetConVarString("ttt_lang_serverdefault"))
   end
   concommand.Add("_ttt_request_serverlang", ServerLangRequest)

else -- CLIENT

   local function RecvMsg(um)
      local name = um:ReadString()

      local c = um:ReadChar()
      local params = nil
      if c > 0 then
         params = {}
         for i=1, c do
            params[um:ReadString()] = um:ReadString()
         end
      end

      LANG.Msg(name, params)
   end
   usermessage.Hook(umsg_name, RecvMsg)

   LANG.Msg = LANG.ProcessMsg

   local function RecvServerLang(um)
      local lang_name = um:ReadString()
      lang_name = lang_name and string.lower(lang_name)
      if LANG.Strings[lang_name] then
         if LANG.IsServerDefault(GetConVarString("ttt_language")) then
            LANG.SetActiveLanguage(lang_name)
         end

         LANG.ServerLanguage = lang_name

         print("Server default language is:", lang_name)
      end
   end
   usermessage.Hook("ttt_serverlang", RecvServerLang)
end

-- It can be useful to send string names as params, that the client can then
-- localize before interpolating. However, we want to prevent user input like
-- nicknames from being localized, so mark string names with something users
-- can't input.
function LANG.NameParam(name)
   return "LID\t" .. name
end
LANG.Param = LANG.NameParam

function LANG.GetNameParam(str)
   return string.match(str, "^LID\t([%w_]+)$")
end

-- poolstring common param keys as they will be sent relatively often (few times per round)
if SERVER then
   for _, name in pairs({"num", "victim", "finder", "player", "role", "amount", "mapname"}) do
      umsg.PoolString(name)
   end
end