Chat Filter

-- The words we want to block go here. Make sure they are all LOWER CASE!!
exact_swear_table = {"fuck", "faggot", "shit", "cock", "fk", "fuk", "ass", "asswipe", "damn", "bastard", "dick", "dickk", "dickslap", "dicks", "dumass", "dumbass", "fag", "gayass", "gay", "homo", "ho", "whore", "mothafucka", "mothafuka", "motherfucker", "mofo", "ballsack", "nigga", "nigger", "pussy", "queerhole", "queer", "stfu", "testicle", "testicles", "testical", "testicles", "twat", "vagina", "wank"}

anywhere_swear_table = {"fuck", "fag", "shit", "cock", "damn", "asswipe", "bitch", "goddamn", "goddamnit"}

function GetRequiredVersion()
    return 10058
end

-- called when the script is loaded
function OnScriptLoad(process)

end

-- called when the script is unloaded
-- Do not return a value
function OnScriptUnload()

end

-- called when a game is starting (before any players join)
-- Do not return a value.
function OnNewGame(map)

end

-- called when a game is ending
-- Do not return a value.
function OnGameEnd(mode)
    -- mode 1 = score menu (F1) is being displayed to clients, they are still ingame
    -- mode 2 = post game menu appeared
    -- mode 3 = players can quit via the post game score card

end

-- Called when there is chat within the server
-- It must return a value which indicates whether or not the chat is sent.
function OnServerChat(player, chattype, message)

    -- this is a LOCAL variable that we use to track whether or not to send the message to the server
    local AllowChat = 1

    -- get the number of tokens in the word
    local count = gettokencount(message, " ")

    --declare the new message variable
    local newmessage = ""

    -- loop through each word in the message (starting at 0 until count-1)
    for i = 0, count-1 do

        -- get the word
        local word = gettoken(message, " ", i)

        -- now loop through the swear table
        local exacttableSize = table.getn(exact_swear_table)
        local anywheretableSize = table.getn(anywhere_swear_table)

        local found = false

        -- loop through the table and check if the words match any substr
        for x = 1, exacttableSize do

            -- check if the word matches
            if string.lower(word) == exact_swear_table[x] then

                -- block the message
                AllowChat = 0

                --get the length of the word/phrase
                local length = string.len(exact_swear_table[x])

                --make a local variable storing ****s
                local stars = ""

                --insert the correct length of stars into the string
                for j = 1,length do
                    stars = stars .. "*"
                end

                --replace the word with stars
                word = stars

                --already found the word, we do not need to check in the anywheretable
                found = true

                -- stop this loop as we need not continue
                break
            end
        end

        if AllowChat == 1 then

            for x = 1,anywheretableSize do

                -- check if the phrase is found anywhere in the word
                if string.find(string.lower(word), anywhere_swear_table[x]) ~= nil then

                    --get the length of the word/phrase
                    local length = string.len(anywhere_swear_table[x])

                    --make a local variable storing ****s
                    local stars = ""

                    --insert the correct length of stars into the string
                    for j = 1,length do
                        stars = stars .. "*"
                    end

                    --replace the word with stars
                    word = word:gsub(string.lower(anywhere_swear_table[x]), stars)
                    word = word:gsub(string.upper(anywhere_swear_table[x]), stars)

                    AllowChat = 0

                end
            end
        end

        if newmessage == "" then
            newmessage = word
        else
            newmessage = newmessage .. " " .. word
        end

    end

    if AllowChat == 0 then
        return newmessage
    end

    return AllowChat -- allow all chat, 0 would block the chat
end

-- Called when a server command is being executed
-- It must return a value which indicates whether or not the command should be processed
-- Note: It is only called when an authenticated (and allowed) player attempts to use the command.
--       player is -1 when being executed via the server console.
function OnServerCommand(player, command)
    return 1
end

-- Called when a player's team is being chosen as the join the server.
-- It must return a value which indicates the team the player is to be put on.
-- Note: this function being called doesn't guarantee that the player will be able to successfully join.
function OnTeamDecision(cur_team)

    return cur_team
end

-- Called when a player joins the server.
-- Do not return a value.
function OnPlayerJoin(player, team)

end

-- Called when a player the server.
-- Do not return a value.
function OnPlayerLeave(player, team)

end

-- called when a player kills another, 'killer' is the index of the killing player, 'victim' is the index of the dead player
-- Do not return a value.
function OnPlayerKill(killer, victim, mode)

end

-- called when a player gets a double kill, killing spree etc
function OnKillMultiplier(player, multiplier)
    -- values for multiplier
    --0x07 = double kill
    --0x09 = triple kill
    --0x0a = killtacular
    --0x0b = killing spree
    --0x0c = running riot
    --0x0d = betrayed
    --0x0e = killtacular with score
    --0x0f = triple kill with score
    --0x10 = double kill with score
    --0x11 = running riot with score
    --0x12 = killing spree with score
end

-- Called when a player spawns (after object is created, before players are notified)
-- Do not return a value
function OnPlayerSpawn(player, m_objectId)

end

-- Called after clients have been notified of a player spawn
-- Do not return a value
function OnPlayerSpawnEnd(player, m_objectId)

end

-- Called when a player is attempting to change team.
-- A value must be returned. The return value indicates whether or not the player is allowed the change team.
-- Notes: If relevant is 1 the return value is considered, if it's 0 then the return value is ignored.
function OnTeamChange(relevant, player, team, dest_team)

    return 1
end

-- Called when a player interacts with an object
-- It can be called while attempting to pick the object up
-- It is also called when standing above an object so can be called various times quickly
function OnObjectInteraction(player, m_ObjectId, tagType, tagName)

    return 1
end

-- Called when a player attempts to reload their weapon.
-- A value must be returned. The return value indicates whether or not the player is allowed to reload.
-- Notes: If player is -1 then the weapon being reload wasn't located (it could be a vehicle's weapon)
function OnWeaponReload(player, weapon)

    return 1
end


-- Called when a player attempts to enter a vehicle.
-- A value must be returned. The return value indicates whether or not the player is allowed to enter.
function OnVehicleEntry(player)

    return 1
end

-- Called when damage is being done to an object. This doesn't always need to be a player.
-- Do not return a value
function OnDamageLookup(receiving_obj, causing_obj, tagdata, tagname)

end

-- Called when a player is being assigned a weapon (usually when they spawn)
-- A value must be returned. The return value is the id of the weapon they're to spawn with. Return zero if the weapon shouldn't change.
-- Notes:   This is called for all spawn weapons the player has
--          This is also called with player 255 when vehicles are being assigned weapons.
--          This is only considered if in gametype, the weapon set is 'generic' if not this has no effect.
function OnWeaponAssignment(player, object, count, tag)

    return 0
end

-- Called when a object is created, it may not always be for a player.
-- Do not return a value.
function OnObjectCreation(owningPlayer, owningObject, m_weapon, tag)

end

function OnClientUpdate(player, m_objectId)

end