Chat Tags (V2.2) (Server)

--[[
 || 📜 AUTHOR: @4zx16 || CHAT TAGS || DON'T MESS WITH THIS
]]
local ServerScriptService = script.Parent
local ChatServiceRunner = ServerScriptService:WaitForChild("ChatServiceRunner")
local ChatService = require(ChatServiceRunner:WaitForChild("ChatService"))
local Tags = require(script.Tags)
--[[
  STILL HAVING TROUBLE MAKING IT WORK? GET THE MODEL INSTEAD.
  https://www.roblox.com/library/9803614049/

  MODULE: https://pastebin.com/raw/1fFWVjbC
]]
local function CheckForTags(Player)
    local Attempt = Tags[Player.UserId] or Tags[Player.Name]

    if Attempt then
        local SpeakerObject
        repeat
            wait()
            SpeakerObject = ChatService:GetSpeaker(Player.Name)
        until SpeakerObject ~= nil
        SpeakerObject:SetExtraData("Tags", {Attempt})
    else
        print("No tags found for user "..Player.Name.."!")
    end
end
game.Players.PlayerAdded:Connect(function(Player)
    CheckForTags(Player)
end)
for _, Player in pairs(game.Players:GetPlayers()) do
    CheckForTags(Player)
end