function FilterMessage(Message,filter)
    --filter is the filter method
    --1 -> Deletes bad word
    --2 -> Stars out the bad word *****
    --3 -> Replace bad word with a good word
    badwords = {{97,110,97,108},{97,110,117,115},{97,114,115,101},{97,115,115},{98,97,108,108,115,97,99,107},{98,97,108,108,115},{98,97,115,116,97,114,100},{98,105,116,99,104},{98,105,97,116,99,104},{98,108,111,111,100,121},{98,108,111,119,106,111,98},{98,108,111,119,32,106,111,98},{98,111,108,108,111,99,107},{98,111,108,108,111,107},{98,111,110,101,114},{98,111,111,98},{98,117,103,103,101,114},{98,117,109},{98,117,116,116},{98,117,116,116,112,108,117,103},{99,108,105,116,111,114,105,115},{99,111,99,107},{99,111,111,110},{99,114,97,112},{99,117,110,116},{100,97,109,110},{100,105,99,107},{100,105,108,100,111},{100,121,107,101},{102,97,103},{102,101,99,107},{102,101,108,108,97,116,101},{102,101,108,108,97,116,105,111},{102,101,108,99,104,105,110,103},{102,117,99,107},{102,32,117,32,99,32,107},{102,117,100,103,101,112,97,99,107,101,114},{102,117,100,103,101,32,112,97,99,107,101,114},{102,108,97,110,103,101},{71,111,100,100,97,109,110},{71,111,100,32,100,97,109,110},{104,101,108,108},{104,111,109,111},{106,101,114,107},{106,105,122,122},{107,110,111,98,101,110,100},{107,110,111,98,32,101,110,100},{108,97,98,105,97},{108,109,97,111},{108,109,102,97,111},{109,117,102,102},{110,105,103,103,101,114},{110,105,103,103,97},{111,109,103},{112,101,110,105,115},{112,105,115,115},{112,111,111,112},{112,114,105,99,107},{112,117,98,101},{112,117,115,115,121},{113,117,101,101,114},{115,99,114,111,116,117,109},{115,101,120},{115,104,105,116},{115,32,104,105,116},{115,104,49,116},{115,108,117,116},{115,109,101,103,109,97},{115,112,117,110,107},{116,105,116},{116,111,115,115,101,114},{116,117,114,100},{116,119,97,116},{118,97,103,105,110,97},{119,97,110,107},{119,104,111,114,101},{119,116,102}}
    goodwords = {"kitten","puppy","snacks","unicorn","love","happiness","happy","neighbor"}
    for word in Message:gmatch("%S+") do
        original_word = word
        word = string.lower(word:gsub("%p",""))
        word_table = {}
        for letter in word:gmatch("%l") do
            word_table[#word_table+1] = string.byte(letter, 1)
        end
        for key, value in pairs(badwords) do
            --possibly a better way than iterate through badwords table each time
            if #value <= #word_table then
                same = true
                for index, letter in pairs(value) do
                    if word_table[index] ~= letter then
                        same = false
                        break
                    end
                end
                if same then
                    if filter == 1 or filter == nil then
                        Message = Message:gsub(original_word,"")
                    elseif filter == 2 then
                        word_filtered = ""
                        for i=1,original_word:len() do
                            word_filtered = word_filtered.."*"
                        end
                        Message = Message:gsub(original_word,word_filtered)
                    elseif filter == 3 then
                        Message = Message:gsub(original_word,goodwords[math.random(1,#goodwords)])
                    end
                end
            end
        end
    end
    return Message
end