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.")

        sendChatMessage(";mute " .. player.Name)

        task.wait(0.5)

        sendChatMessage(";glitch " .. player.Name)
    else
        sendChatMessage(searchName .. " has been blacklisted.")
    end
end

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

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

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

        blacklisted[player.Name:lower()] = nil
        blacklisted[player.DisplayName:lower()] = nil

        sendChatMessage(player.Name .. " has been whitelisted.")
        sendChatMessage(";Enlighten " .. player.Name)
    else
        sendChatMessage(searchName .. " has been whitelisted.")
    end
end

sendChatMessage("Blacklist whitelist script loaded credits to me_meymeyme Use !whitelist username Or !blacklist username")

TextChatService.MessageReceived:Connect(function(message)
    local text = message.Text

    if text:sub(1, 11):lower() == "!blacklist " then
        local username = text:sub(12):gsub("^%s+", ""):gsub("%s+$", "")

        if username ~= "" then
            blacklistPlayer(username)
        end

    elseif text:sub(1, 11):lower() == "!whitelist " then
        local username = text:sub(12):gsub("^%s+", ""):gsub("%s+$", "")

        if username ~= "" then
            whitelistPlayer(username)
        end
    end
end)

Players.PlayerAdded:Connect(function(player)
    task.wait(0.2)

    local username = player.Name:lower()
    local displayName = player.DisplayName:lower()

    if blacklisted[username] or blacklisted[displayName] then
        blacklisted[username] = true
        blacklisted[displayName] = true

        sendChatMessage(";mute " .. player.Name)

        task.wait(0.5)

        sendChatMessage(";glitch " .. player.Name)

    elseif whitelisted[username] or whitelisted[displayName] then
        whitelisted[username] = true
        whitelisted[displayName] = true

        sendChatMessage(";Enlighten " .. player.Name)
    end
end)