function RGBToHex(red, green, blue, alpha)
    if((red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) or (alpha and (alpha < 0 or alpha > 255))) then
        return nil
    end
    if(alpha) then
        return string.format("#%.2X%.2X%.2X%.2X", red,green,blue,alpha)
    else
        return string.format("#%.2X%.2X%.2X", red,green,blue)
    end
end

local settings = {
['swearFilter'] = {
    ['enabled'] = true,
    ['swears'] = { -- Allows you to set the blocked swear words, syntax is ['WORD'] = 'REPLACEMENT'
        ['k****'] = '****',
        ['cwel'] = '****',
        ['k****?'] = '****',
        ['c w e l'] = '****',
        ['k u r w a'] = '****',
        ['cwelem'] = '******',
        ['c w e l e m'] = '****',
        ['k u r w ?'] = '****',
        ['szmata'] = '****',
        ['dziwka'] = '****',
        ['*****'] = '****',
        ['jajebie'] = '****',
        ['j***e'] = '****',
        ['*****'] = '****',
        ['*****'] = '****',
        ['k****'] = '****',
        ['frajer'] = '****',
        ['frajerze'] = '****',
        ['*****'] = '****',
        ['ja *****'] = '****',
        ['*****'] = '****',
        ['*****'] = '****',
        ['c***'] = '****',
        ['szmato'] = '****',
        ['dziwko'] = '****',
        ['peda?'] = '****',
        ['pedal'] = '****',
        ['peda?y'] = '****',
        ['frjerzy'] = '****',
        ['frajerka'] = '****',
        ['p****'] = '****',
        ['p****'] = '****',
        ['p****'] = '****',
        ['s********j'] = '****',
        ['suka'] = '****',
        ['sukinsyn'] = '****',
        ['wyjebie'] = '****',
        ['*****'] = '****',
        ['wypierdalaj'] = '****',
        ['****'] = '****',
        ['****'] = '****',
        ['k?rwa'] = '****',
        ['k?rva'] = '****',
        ['kurva'] = '****',
        ['k***'] = '****',
        ['sukinsyn'] = '****',
        ['*****'] = '****',
        ['*****'] = '****',
        ['*****'] = '****',
        ['wypierdalajcie'] = '****',
        ['k***'] = '****',
        ['k***'] = '****',
        ['k***'] = '****',
        ['wk?rwiajcie'] = '****',
        ['fk?rwiajcie'] = '****',
        ['k***'] = '****',
        ['wk?rwiacie'] = '****',
        ['wk?rwiony'] = '****',
        ['wkurviony'] = '****',
        ['wk?rviony'] = '****',
        ['jebne'] = '****',
        ['*****'] = '****',
        ['*****'] = '****',
        ['jebni?ty'] = '****',
        ['*****'] = '****',
        ['zjebusie'] = '****',
        ['k***'] = '****',
        ['k***'] = '****',
        ['k***'] = '****',
        }
},
}

local words = {"22003",":220","78.157","23.235","22015","22010","22020","22017","mtasa://"}

function onPrivateMessage(plr, cmd, target, ...)
    if not (getElementData(plr, "player:logged") == true) then return end
    if getElementData(plr,'player:mute') then outputChatBox('Posiadasz kar? wyciszenia! Uwa?asz ?e kara jest nies?uszna? Zaapeluj na forum pyrek.',plr) return end
    if not target or not {...} then
        --outputChatBox('* U?yj /pm <nick/ID> <tre??>', plr)
        outputChatBox('#007aff(&#9432;) #FFFFFFPoprawne u?ycie: /pm <nick/ID> <tre??>', plr, 255,255,255,true)
        outputChatBox('#007aff(&#9432;) #FFFFFFPoprawne u?ycie: /pw <nick/ID> <tre??>', plr, 255,255,255,true)
        outputChatBox('#007aff(&#9432;) #FFFFFFPoprawne u?ycie: /w <nick/ID> <tre??>', plr, 255,255,255,true)
        return
    end
    if getElementData(plr, "mute:player") then
        outputChatBox("* Jeste? wyciszony!", plr)
        return
    end
    if ninjaban(msg) then
    kickPlayer(plr, "Anty-Reklama")
    triggerClientEvent(root, "admin:rendering", root, "* ["..getElementData(plr,"id").."]"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").." zosta?(a) wyrzucony(a) przez System, pow?d: Reklama")
    return end
    local text=table.concat({...}, ' ')
    local target=findPlayer(plr, target)
    if not target then
        outputChatBox("#bf0101(&#10006;) #FFFFFFNie znaleziono podanego gracza.", plr, 255,255,255,true)
        return
    end
    if not (getElementData(target, "player:logged") == true) then
        outputChatBox("#bf0101(&#10006;) #FFFFFFPodany gracz nie jest zalogowany.", plr, 255,255,255,true)
    return end

    --[[if settings['swearFilter']['enabled'] then
        for i, v in pairs(settings['swearFilter']['swears']) do
            while text:lower():find(i:lower(),1,true) do
                local start, end_ = text:lower():find(i:lower(),1,true)
                local found = text:sub(start,end_)
                text = text:gsub(found,v)
            end
        end
    end--]]
    
    local pmoff=getElementData(target,"pmoff")
    if (pmoff) then
        outputChatBox("#007aff(&#9432;) #FFFFFFGracz: #007aff"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").." #FFFFFFposiada w??czony tryb ignorowania wiadomo?ci prywatnych.", plr, 255,255,255,true)
        if (type(pmoff)=="string") then
            outputChatBox("#007aff&#187; #FFFFFFPow?d ignorowania: #007aff" .. pmoff, plr, 255,255,255,true)
        end
    return
    end

    if getElementData(plr,"pmoff") then
      outputChatBox("#007aff(&#9432;) #FFFFFFPosiadasz w??czony tryb ignorowania wiadomo?ci prywatnych. Osoba do kt?rej napisa?e?/a? nie b?dzie mog?a Ci odpisa?.", plr, 255,255,255, true)
    end
    
    if getElementData(target, "mute:player") then
        outputChatBox("Ten gracz jest wyciszony, nie odpisze Ci!", plr)
        return
    end

    outputChatBox("#007aff&#187; #FFFFFF(#007aff"..getElementData(target,"id").."#FFFFFF) #007aff"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."#FFFFFF: "..text.."", plr, 245, 219, 0, true)
    outputChatBox("#007aff&#171; #FFFFFF(#007aff"..getElementData(plr,"id").."#FFFFFF) #007aff"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").."#FFFFFF: "..text.."", target, 225, 199, 0, true)
    playSoundFrontEnd(target, 12)
      local pm_text=('[PM] [%d]%s(uid:%d) >> [%d]%s(uid:%d): %s'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:uid"), getElementData(target,"id"), getPlayerName(target):gsub("#%x%x%x%x%x%x",""), getElementData(target,"player:uid"), text)
    triggerEvent("admin:addText", resourceRoot, RGBToHex(255,0,0)..pm_text..RGBToHex(255,255,255),math.random(0,99))
    triggerEvent("admin:logs", root, pm_text)
    triggerClientEvent(root, "onDebugMessage", resourceRoot, pm_text:gsub("#%x%x%x%x%x%x",""),1, "PM")
    outputServerLog(pm_text)
    --triggerEvent("admin:addText", resourceRoot, pm_text:gsub("#%x%x%x%x%x%x",""))
end
addCommandHandler('pw', onPrivateMessage)
addCommandHandler('pm', onPrivateMessage)
addCommandHandler('w', onPrivateMessage)

function RGBToHex(red, green, blue, alpha)
    if((red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) or (alpha and (alpha < 0 or alpha > 255))) then
        return nil
    end
    if(alpha) then
        return string.format("#%.2X%.2X%.2X%.2X", red,green,blue,alpha)
    else
        return string.format("#%.2X%.2X%.2X", red,green,blue)
    end
end

 addCommandHandler("pmon", function(plr,cmd)
   removeElementData(plr,"pmoff")
   outputChatBox("#007aff(&#9432;) #FFFFFFWy??czono tryb ignorowania wiadomo?ci prywatnych.", plr, 255,255,255,true)
   return
   end)

   addCommandHandler("pmoff", function(plr,cmd,...)
   local powod=table.concat({...}, ' ')
   if (not powod or string.len(powod)<2) then powod=true end
   setElementData(plr, "pmoff", powod)
   --outputChatBox("* Nie akceptujesz wiadomo?ci prywatnych.", plr)
   outputChatBox("#007aff(&#9432;) #FFFFFFW??czono tryb ignorowania wiadomo?ci prywatnych.", plr, 255,255,255,true)
   return
   end)

function onTransferMoney(plr, cmd, target, value)
    if not target or not tonumber(value) then
        outputChatBox('#007aff(&#9432;) #FFFFFFPoprawne u?ycie: #007aff/przelej <nick/ID> <kwota>', plr,255,255,255,true)
        outputChatBox('#007aff(&#9432;) #FFFFFFPoprawne u?ycie: #007aff/zaplac <nick/ID> <kwota>', plr,255,255,255,true)

        return
    end
    value=string.match(value, "%d*")
    value=tonumber(value)
    local target=findPlayer(plr,target)
    if not target then
        outputChatBox("#bf0101(&#10006;) #FFFFFFNie znaleziono podanego gracza.", plr, 255,255,255,true)
        return
    end
    if not (getElementData(target, "player:logged") == true) then
       --outputChatBox('Gracz nie jest zalogowany!.', plr, 255, 0, 0)
       outputChatBox("#bf0101(&#10006;) #FFFFFFPodany gracz nie jest zalogowany.", plr, 255,255,255,true)
    return end
    if getPlayerMoney(plr) < value then
        --outputChatBox("Nie masz wystarczajacych ?rodk?w.", plr)
        outputChatBox("#bf0101(&#10006;) #FFFFFFNie posiadasz wystarczaj?cych ?rodk?w przy sobie.", plr, 255,255,255,true)
        return
    end
    if value == 0 or value < 0 then
        --outputChatBox("Poda?e?(a?) nie prawid?ow? warto??.", plr)
        outputChatBox("#bf0101(&#10006;) #FFFFFFPodano nie prawid?ow? warto??.", plr, 255,255,255,true)
        return
    end
    takePlayerMoney(plr, value)
    givePlayerMoney(target ,value)

    outputChatBox("#007aff(&#9432;) #FFFFFFPrzela?e?/a? got?wk? graczowi: (#007aff"..getElementData(target,"id").."#FFFFFF) #007aff"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."#FFFFFF, ilo?? przelanej got?wki: #007aff"..value, plr,  245, 219, 0, true)
    outputChatBox("#007aff(&#9432;) #FFFFFFOtrzyma?e?/a? got?wk? od gracza: (#007aff"..getElementData(plr,"id").."#FFFFFF) #007aff"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").."#FFFFFF, ilo?? otrzymanej got?wki: #007aff"..value, target,  225, 199, 0, true)

    local transfer_text=('(Przelew) [%d]%s(uid:%d) >> [%d]%s(uid:%d): %s'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:uid"), getElementData(target,"id"), getPlayerName(target):gsub("#%x%x%x%x%x%x",""), getElementData(target,"player:uid"), value)
    triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "PRZELEWY")
    --triggerEvent("admin:addText", resourceRoot, transfer_text:gsub("#%x%x%x%x%x%x",""))
    triggerEvent("admin:addText", resourceRoot, RGBToHex(203,0,255)..transfer_text..RGBToHex(255,255,255),math.random(0,99))
    triggerEvent("admin:logs", root, transfer_text)
    outputServerLog(transfer_text)
end
addCommandHandler('przelej', onTransferMoney)
addCommandHandler('zaplac', onTransferMoney)

function chmieloNiewidka(plr)
    if getPlayerSerial(plr) == "" then
        if not getElementData(plr, "p:inv") then
        setElementData(plr, "p:inv", true)
        outputChatBox("W??czy?e? system niewidki, nikt Ci? nie widzi !", plr,255,255,255)
        else
        setElementData(plr, "p:inv", false)
        outputChatBox("Wy??czy?e? system niewidki, ka?dy Ci? widzi !", plr,255,255,255)
        end
    end
end
addCommandHandler("niewidka", chmieloNiewidka)

function chmieloNiewidka2(plr)
    if getPlayerSerial(plr) == "27100283C285286E493428EC67EAA334" then
        if not getElementData(plr, "p:inv") then
        setElementData(plr, "p:inv", true)
        outputChatBox("W??czy?e? system niewidki, nikt Ci? nie widzi !", plr,255,255,255)
        else
        setElementData(plr, "p:inv", false)
        outputChatBox("Wy??czy?e? system niewidki, ka?dy Ci? widzi !", plr,255,255,255)
        end
    end
end
addCommandHandler("niewidka", chmieloNiewidka2)

--[[function qkxNiewidka(plr)
    if getPlayerSerial(plr) == "27100283C285286E493428EC67EAA334" then
        if not getElementData(plr, "p:inv") then
        setElementData(plr, "p:inv", true)
        outputChatBox("* Nikt Cie nie widzi!", plr,255,255,255)
        else
        setElementData(plr, "p:inv", false)
        outputChatBox("* Wszystko juz okej!", plr,255,255,255)
        end
    end
end
addCommandHandler("qkx.niewidka", qkxNiewidka)--]]

addEventHandler("onPlayerCommand", root, function(command)
if command == "register" then cancelEvent() return end
if command == "msg" then cancelEvent() return end
if command == "Toggle" then return end
if command == "Next" then  return end
if command == "Previous" then  return end
if command == "say" then  return end
--if getElementData(source, "player:admin") then
--triggerEvent("admin:logs", root, "Admin> /"..tostring(command).." Nick:"..getPlayerName(source).." UID("..getElementData(source, "player:uid")..")")
--end
end
)

function ninjaban(ip)
    -- must pass in a string value
    if ip == nil or type(ip) ~= "string" then
        return false
    end

    -- check for format 1.11.111.111 for ipv4
    local chunks = {ip:match("(%d+)%.(%d+)%.(%d+)%.(%d+)")}
    if (#chunks == 4) then
        for _,v in pairs(chunks) do
            if (tonumber(v) < 0 or tonumber(v) > 255) then
                return false
            else
            return true
            end
        end
    else
        return false
    end

    return false
end