FBTTS API

TTSKey = TTSKey or nil

timer.Create("TTSKeyUpdate", 300, 0, function()
    http.Post("http://95.31.52.58:55453/get_apikey", {
        user = "login",
        pass = "password"
    }, function(body)
        local data = util.JSONToTable(body)
        if data and data.apikey then
            TTSKey = data.apikey
            for _, ply in pairs(player.GetAll()) do
                ply:SetNWString("TTSKey", TTSKey)
            end
        else
            print("Ошибка получения ключа:", body)
        end
    end, function(err) print("HTTP ошибка:", err) end)
end)

Получение и обновление ключа нужно для того чтобы никто не мог пользоваться вашим аккаунтом, после получения ключ распределяется всем игрокам через NWString, 300 секунд или более достаточно для базового примера.

hook.Add("PlayerInitialSpawn", "ChangeTTSVoice", function(ply)
    if not IsValid(ply) then return end
    ply:SetNWString("TTSModel", ply:GetInfo("TTSModel"))
    ply:SetNWString("TTSKey", TTSKey)
  end)

concommand.Add("ChangeTTSVoice", function(ply, cmd, args)
    local model = args[1]
    if not model then return end
    ply:SetNWString("TTSModel", model)
  end)

http.Fetch("http://95.31.52.58:55453/GetModels", function(body)
    print(body)
end)

local function URLToStr(text)
    return text:gsub("([^%w%-%.%_%d])", function(c) return string.format("%%%02X", string.byte(c)) end)
end

local stations = {}
CreateClientConVar('TTSModel', '', true, true)

// Для DarkRP: OnPlayerChat
// Для Helix: MessageReceived
// Для NutScript: OnChatReceived

hook.Add("OnPlayerChat", "TTSVoice", function(ply, strText, bTeam, bDead)
    if not IsValid(ply) or not ply:IsPlayer() then return end
    if ply ~= LocalPlayer() and ply:IsMuted() then return true end
    if not ply:GetNWBool('DonateTTs') then return end
    local model = ply:GetNWString('TTSModel', '')
    if model == '' then return end
    if IsValid(stations[ply]) then stations[ply]:Stop() end
    sound.PlayURL('http://95.31.52.58:55453/tts?key=' .. LocalPlayer():GetNWStringLocal('TTSKey') .. '&model=' .. model .. '&text=' .. URLToStr(strText), '3d', function(station)
        if not IsValid(station) or not IsValid(ply) then return end
        station:SetPos(ply:GetPos())
        station:SetVolume(0.7)
        stations[ply] = station
    end)
end)

hook.Add("EntityRemoved", "TTSVoiceCleanup", function(ent)
    if IsValid(stations[ent]) then stations[ent]:Stop() end
    stations[ent] = nil
end)