Antiinsult

-.Paradox.- · July 28, 2013

Hello, it's me again...

I'm looking for an antiinsult script, i searched on community and forum, i found useless idea's and not working,

Like example if player say:

Fuck it write on chatbox Love

Bitch = lady

Gay = man

Etc

Can somebody help please and thanks.

xXMADEXx · July 28, 2013

umm, use "string.find" and "string.gsub"

-.Paradox.- · July 28, 2013

Bump....

iMr.3a[Z]eF · July 28, 2013

As he said, use string.find

-.Paradox.- · July 28, 2013

How?

Can you help me with a code?

iMr.3a[Z]eF · July 28, 2013

Sure, show me the code.

Words = {"bitch", 
         "gay" 
         } 
  
  
    addEventHandler("onPlayerChat", getRootElement(), 
    function(msg, msgType) 
            for k,v in ipairs (Words) do 
    if string.find(msg,v) then 
                    cancelEvent() 
            pName = getPlayerName(source) 
            outputChatBox("INFO: #ffffff[#00ff00 Console#ffffff ]#ff0000 set mute to #ffff00"..pName.." ",getRootElement(),255,0,0,true) 
            setPlayerMuted(source, true) 
            setTimer (function (  ) 
            setPlayerMuted (source, false ) 
            end, 
            300000,1, source ) 
            end 
        end 
end 
)

-.Paradox.- · July 28, 2013

I don't want it to mute player, i want to replace the word by another one like example

Bitch replace with lady.

lua

local insults = { 
    "Fu ck" 
} 
  
local replace_sentence = { 
"Love", 
} 
  
local max_insult = 1000; 
local uebereinstimmungsrate = 4; 
local handle_type = 1; 
-- handle_type 1 = replaces the offense with a gay word 
-- handle_type 2 = kicks a user searches for "max_insult" from the server. 
-- handle_type 3 = recursively also sets up terms (not being completed) 
-- handle_type 4 = undertakes nothing 
  
addEventHandler("onPlayerChat", root, function(message, _type) 
    for index, val in pairs(insults) do 
        local new_val = val:lower(); 
        local message = message:lower(); 
        local match = false; 
         
        local laufwert = 0; 
        if message:len() > new_val:len() then 
            laufwert = new_val:len(); 
        elseif message:len() < new_val:len() then 
            laufwert = message:len(); 
        elseif message:len() == new_val:len() then 
            laufwert = new_val:len(); 
        end  
         
        if ( handle_type == 3 ) then 
            -- local currentLaufwert = 1; 
            -- local match = false; 
            -- local break_schleife = false; 
            -- laufwert = message:len(); 
            -- local inte_laufwert = 1; 
             
            -- local search_in_text_match = false 
            -- while ( inte_laufwert < laufwert+1 and search_in_text_match == false ) do 
                -- if ( string.byte(tostring(message), inte_laufwert) == string.byte(new_val) ) then 
                    -- search_in_text_match = true 
                    -- if inte_laufwert == 1 then 
                        -- outputDebugString("A"); 
                    -- end 
                -- end 
                -- inte_laufwert = inte_laufwert+1 
            -- end 
             
            -- if search_in_text_match then 
                -- while ( (currentLaufwert < laufwert+1) and ( break_schleife == false ) ) do 
                    -- if ( string.byte(tostring(message), currentLaufwert+inte_laufwert) ) then 
                         
                        -- if ( string.byte(tostring(message), currentLaufwert+inte_laufwert) ~= string.byte(tostring(new_val), currentLaufwert) ) then 
                            -- break_schleife = true 
                        -- else  
                            -- if ( currentLaufwert >= uebereinstimmungsrate ) then 
                                -- match = true 
                                -- break_schleife = true 
                            -- end 
                        -- end 
                         
                        -- currentLaufwert = currentLaufwert+1 
                    -- end 
                -- end 
            -- end 
        elseif ( handle_type == 2 ) then 
            local currentLaufwert = 1; 
            local break_schleife = false; 
            while ( (currentLaufwert < laufwert+1) and ( break_schleife == false ) ) do 
                if ( string.byte(tostring(message), currentLaufwert) ~= string.byte(tostring(new_val), currentLaufwert) ) then 
                    break_schleife = true 
                else  
                    if ( currentLaufwert >= uebereinstimmungsrate ) then 
                        match = true 
                        break_schleife = true 
                    end 
                end 
                 
                currentLaufwert = currentLaufwert+1 
            end 
             
            if ( match ) then 
                cancelEvent(); 
                handle_match(1); 
                break; 
            end 
             
        elseif ( handle_type == 1 ) then 
            local currentLaufwert = 1; 
            local break_schleife = false; 
            while ( (currentLaufwert < laufwert+1) and ( break_schleife == false ) ) do 
                if ( string.byte(tostring(message), currentLaufwert) ~= string.byte(tostring(new_val), currentLaufwert) ) then 
                    break_schleife = true 
                else  
                    if ( currentLaufwert >= uebereinstimmungsrate ) then 
                        match = true 
                        break_schleife = true 
                    end 
                end 
                 
                currentLaufwert = currentLaufwert+1 
            end 
         
            if ( match ) then 
                cancelEvent(); 
                handle_match(2); 
                break; 
            end 
        end 
             
         
         
    end 
end) 
  
function handle_match(_type) 
    if ( _type == 1 ) then 
        local oriVal = getElementData(source, "b_count") 
        if ( oriVal == false ) then 
            setElementData(source, "b_count", 1); 
            oriVal = 1; 
        else 
            oriVal = oriVal+1 
            setElementData(source, "b_count", oriVal) 
        end 
         
        if ( oriVal > max_insult ) then 
            kickPlayer(source, source, "Du hast die Grundregeln nicht beachtet!") 
        else 
            outputChatBox(string.format("Warnung %d: '%s' ist eine Beleidigung.\nWenn du drei mal auffällig geworden bist, wirst du gekickt.", oriVal, val), source, 255, 0, 0) 
        end 
    elseif ( _type == 2 ) then 
        local rand = math.random(1, #replace_sentence); 
        outputChatBox(string.format("%s\n#ff0011[libel action]", replace_sentence[rand]), root, 100, 100, 0, true); 
    end 
     
end 
  
addEventHandler("onResourceStop", root, function() 
    for index, ply in pairs(getElementsByType("player")) do  
        setElementData(ply, "b_count", 0); -- reset 
    end 
end) 
  
addEventHandler("onResourceStart", root, function() 
     
end)

i tried this but wont work

iMr.3a[Z]eF · July 28, 2013

I don't know how to replace it, sorry.

But i can cancel the bad word.

-.Paradox.- · July 28, 2013

okay thanks for helping.

iMr.3a[Z]eF · July 28, 2013

You are Welcome.

iMr.3a[Z]eF · July 28, 2013

Wait wait, try this i hope it'll work with you:

local pName = getPlayerName(source) 
  
addEventHandler("onPlayerChat", getRootElement(), 
function(msg, msgType) 
        if string.find(msg,"bitch") then 
           cancelEvent() 
           outputChatBox(pName..": Lady ",getRootElement(),255,0,0,true) 
        elseif string.find(msg,"gay") then 
           cancelEvent() 
           outputChatBox(pName..": Man ",getRootElement(),255,0,0,true) 
        end 
end 
)

-.Paradox.- · July 28, 2013

Wont work

iMr.3a[Z]eF · July 28, 2013

What's the debug says?

-.Paradox.- · July 28, 2013

It show nothing just some olds errors in freeroam.

iMr.3a[Z]eF · July 28, 2013

Maybe it's from string.find, i'll find solution soon.

EDIT:

i solved it, hope it will works.

ladies = { 
    "bitch", 
} 
  
mans = { 
    "gay" 
}    
  
function chatL ( msg ) 
    for k,v in ipairs (ladies) do 
        if string.find(msg,v) then 
        cancelEvent( ) 
        local pn = getPlayerName (source) 
        outputChatBox(" " .. pn  .. "  : lady",0,255,0,true) 
        end 
    end 
end 
addEventHandler( "onPlayerChat", getRootElement(), chatL ) 
  
function chatM ( msg ) 
    for k,v in ipairs (mans) do 
        if string.find(msg,v) then 
        cancelEvent( ) 
        local pn = getPlayerName (source) 
        outputChatBox(" " .. pn  .. "  : man",0,255,0,true) 
        end 
    end 
end 
addEventHandler( "onPlayerChat", getRootElement(), chatM )

Edited July 28, 2013 by Guest

-.Paradox.- · July 28, 2013

ok

-.Paradox.- · July 28, 2013

Anything else?

FatalTerror · July 28, 2013

Anything else?

Insults = { 
    ['shit'] = 'caca', 
    ['fuck'] = 'love', 
    ['bitch'] = 'miss', 
    ['gay'] = 'nice man' 
} 
  
  
addEventHandler("onPlayerChat", getRootElement(), 
function(message, type) 
    if message and (type == 0) then 
        for i, w in pairs(Insults)do 
            if string.find(message, i) then 
                cancelEvent() 
                local message = string.gsub(message, i, w) 
                outputChatBox(getPlayerName(source)..":#FFFFFF "..message, getRootElement(), 255, 255, 255, true) 
            end 
        end  
    end 
end)

-.Paradox.- · July 28, 2013

Gonna try

xXMADEXx · July 28, 2013

(If FatalTerror's code dosn't work)

You can try this, although i havn't tested it.

Insults = { 
    -- Note: USE lowercase LETTERS 
    -- Format: { "Insult Word", "Replace Word" }, 
    { "bitch", "cow" }, 
} 
  
function chatL ( msg ) 
    for k,v in ipairs (Insults) do 
        if string.find( string.lower ( msg ),v[1]) then 
            msg = msg:gsub ( msg, v[2] ) 
        end 
    end 
    cancelEvent ( ) 
    outputChatBox(getPlayerName ( source )..": #ffffff"..msg,root,0,255,0,true) 
end 
addEventHandler( "onPlayerChat", getRootElement(), chatL )

-.Paradox.- · July 28, 2013

(If FatalTerror's code dosn't work)

You can try this, although i havn't tested it.

Insults = { 
    -- Note: USE lowercase LETTERS 
    -- Format: { "Insult Word", "Replace Word" }, 
    { "bitch", "cow" }, 
} 
  
function chatL ( msg ) 
    for k,v in ipairs (Insults) do 
        if string.find( string.lower ( msg ),v[1]) then 
            msg = msg:gsub ( msg, v[2] ) 
        end 
    end 
    cancelEvent ( ) 
    outputChatBox(getPlayerName ( source )..": #ffffff"..msg,root,0,255,0,true) 
end 
addEventHandler( "onPlayerChat", getRootElement(), chatL )

Working but keep repeating my message like player colos like example

Steven: Bitch

Steven: Cow

It write like that.

Sasu · July 28, 2013

You must turn off the freeroam resource, or edit it.

-.Paradox.- · July 28, 2013

Can you explain me how?

-.Paradox.- · July 28, 2013

Youre right i turn it off and it worked but i'm using freeroam.

Castillo · July 28, 2013

You can remove the chat part from it.

Antiinsult

Recommended Posts

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members