BLACKLIST/WHITELIST BY MEY

local Players = game:GetService("Players")
local TextChatService = game:GetService("TextChatService")

local blacklisted = {}
local whitelisted = {}

local function sendChatMessage(message)
    pcall(function()
        local channels = TextChatService:WaitForChild("TextChannels")
        local general = channels:WaitForChild("RBXGeneral")
        general:SendAsync(message)
    end)
end

local function findPlayer(partialName)
    local search = partialName:lower()

    for _, player in ipairs(Players:GetPlayers()) do
        if player.Name:lower():sub(1, #search) == search
            or player.DisplayName:lower():sub(1, #search) == search then
            return player
        end
    end

    return nil
end

local function blacklistPlayer(searchName)
    local player = findPlayer(searchName)
    local key = searchName:lower()

    blacklisted[key] = true
    whitelisted[key] = nil

    if player then
        blacklisted[player.Name:lower()] = true
        blacklisted[player.DisplayName:lower()] = true

        sendChatMessage(player.Name .. " has been blacklisted.")