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



function onChat(message,messagetype)
    
     if isGuestAccount(getPlayerAccount(source)) then
        outputChatBox("Najpierw wejd? do gry.", source, 255, 000, 000)
        return end
    
    if messagetype == 0 then
        cancelEvent()
        local x, y, z = getElementPosition(source)
        local chatCol = createColSphere(x,y,z,20)
        local chatRadius = getElementsWithinColShape(chatCol)
        local r, g, b = getPlayerNametagColor(source)
        for key, value in ipairs(chatRadius) do 
        outputChatBox(getPlayerName(source).."#FFFFFF: "..message,value,r,g,b,true)
       end
       outputServerLog("LOCAL "..getPlayerName(source)..": "..message)
       -- if not isPedInVehicle(source) then
        --local talktime = string.len(message)*200
            
          --  setPedAnimation(source,"ped","IDLE_chat",0,true,false,true,true)
            --setTimer(function () setPedAnimation(source,nil, nil, nil)end,talktime,1)
        --end
    


    
        elseif messagetype == 1 then
        cancelEvent()
        local x, y, z = getElementPosition(source)
        local chatCol = createColSphere(x,y,z,30)
        local chatRadius = getElementsWithinColShape(chatCol)
        for key, value in ipairs(chatRadius) do 
        outputChatBox("#FF5555*"..getPlayerName(source).." "..message,value,0,0,0,true)
        outputServerLog("ME *"..getPlayerName(source).." "..message)
    end
end
end



addEventHandler("onPlayerChat",getRootElement(),onChat)

function global(psource,command,...)
    if isGuestAccount(getPlayerAccount(psource)) then
        outputChatBox("Najpierw wejd? do gry.", psource, 255, 000, 000)
        return end
    
local tekst = table.concat({...}," ")
r,g,b = getPlayerNametagColor(psource)
outputChatBox("#FF0000[Global] "..RGBToHex(r,g,b)..getPlayerName(psource).."#FFFFFF: "..tekst,getRootElement(),r,g,b,true)
outputServerLog("GLOBAL "..getPlayerName(psource)..": "..tekst)
end

addCommandHandler("global",global)


addEventHandler("onPlayerLogin",getRootElement(),function ()
bindKey(source,"u","down","chatbox","global")
end)


addEventHandler("onResourceStart", root,
function (  )
for k,v in ipairs(getElementsByType("player", root)) do
unbindKey(v, "u", "down", "chatbox", "global")
bindKey(v, "u","down","chatbox","global")
end
end)

function global(psource,command,...)
    if isGuestAccount(getPlayerAccount(psource)) then
    accountname = getAccountName (getPlayerAccount(v))
      ifObjectInACLGroup ( "user." .. accountname, aclGetGroup ( "Admin" ) ) then or ifObjectInACLGroup ( "user." .. accountname, aclGetGroup ( "RCON" ) ) then
    end
        outputChatBox("Najpierw wejd? do gry.", psource, 255, 000, 000)
        return end
    
local tekst = table.concat({...}," ")
r,g,b = getPlayerNametagColor(psource)
outputChatBox("#FF0000[Global] "..RGBToHex(r,g,b)..getPlayerName(psource).."#FFFFFF: "..tekst,getRootElement(),r,g,b,true)
outputServerLog("GLOBAL "..getPlayerName(psource)..": "..tekst)
end


addCommandHandler("global",global)

function global(psource,command,...)
    if isGuestAccount(getPlayerAccount(psource)) then
    outputChatBox("Najpierw wejd? do gry.", psource, 255, 000, 000)
    return end
    
    accountname = getAccountName(getPlayerAccount(psorce))
    if isObjectInACLGroup( "user." .. accountname, aclGetGroup ( "Admin" ) ) or isObjectInACLGroup( "user." .. accountname, aclGetGroup("RCON")) then
    
        local tekst = table.concat({...}," ")
        r,g,b = getPlayerNametagColor(psource)
        outputChatBox("#FF0000[Global] "..RGBToHex(r,g,b)..getPlayerName(psource).."#FFFFFF: "..tekst,getRootElement(),r,g,b,true)
        outputServerLog("GLOBAL "..getPlayerName(psource)..": "..tekst)
    else
        outputChatBox("Brak dost?pu do chatu", psource, 255, 0, 0)
    end
    
end

addCommandHandler("global",global)

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




addEventHandler("onPlayerChat",getRootElement(),onChat)

function global(psource,command,...)
    if isGuestAccount(getPlayerAccount(psource)) then
    outputChatBox("Najpierw wejd? do gry.", psource, 255, 000, 000)
    return end
    
    accountname = getAccountName(getPlayerAccount(psorce))
    if isObjectInACLGroup( "user." .. accountname, aclGetGroup ( "Admin" ) ) or isObjectInACLGroup( "user." .. accountname, aclGetGroup ("RCON") ) or isObjectInACLGroup( "user." .. accountname, aclGetGroup ("Moderator") ) or isObjectInACLGroup( "user." .. accountname, aclGetGroup ("Console") ) or isObjectInACLGroup( "user." .. accountname, aclGetGroup ("SuperModerator") ) or isObjectInACLGroup( "user." .. accountname, aclGetGroup ("Premium") ) then
    
        local tekst = table.concat({...}," ")
        r,g,b = getPlayerNametagColor(psource)
        outputChatBox("#FF00cc[Global] #ffffff"..RGBToHex(r,g,b)..getPlayerName(psource).."#FFFFFF: "..tekst,getRootElement(),r,g,b,true)
        outputServerLog("GLOBAL "..getPlayerName(psource)..": "..tekst)
    else
        outputChatBox("Brak dost?pu do chatu", psource, 255, 0, 0)
    end
    
end

addCommandHandler("global",global)


addEventHandler("onPlayerLogin",getRootElement(),function ()
bindKey(source,"u","down","chatbox","global")
end)


addEventHandler("onResourceStart", root,
function (  )
for k,v in ipairs(getElementsByType("player", root)) do
unbindKey(v, "u", "down", "chatbox", "global")
bindKey(v, "u","down","chatbox","global")
end
end)

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





function global ( thePlayer, _, ... )
    local message = table.concat ( { ... }, " " )
       if isGuestAccount(getPlayerAccount(psource)) then
    outputChatBox("Najpierw wejd? do gry.", psource, 255, 000, 000)
    return end
    if ( isPlayerOnGroup ( thePlayer ) ) then
        for _, player in ipairs ( getElementsByType ( "player" ) ) do
            if ( isPlayerOnGroup ( player ) ) then
                r,g,b = getPlayerNametagColor(thePlayer)
                outputChatBox ( "#FF00cc[Global] #ffffff"..RGBToHex(r,g,b)..getPlayerName(thePlayer).."#FFFFFF: ".. message, player, r, g, b, true )
                outputServerLog("GLOBAL "..getPlayerName(thePlayer)..": "..message)
            end
        end
    else
        outputChatBox ( "#ff0012Nie masz uprawnie? do tej komendy.", thePlayer, r, g, b, true )
    end
end
addCommandHandler ( "global", global )
 
function isPlayerOnGroup ( thePlayer )
    local account = getPlayerAccount ( thePlayer )
    local inGroup = false
    for _, group in ipairs ( { "RCON", "Admin", "SuperModerator", "Moderator", "Console", "Premium" } ) do  
        if isObjectInACLGroup ( "user.".. getAccountName ( account ), aclGetGroup ( group ) )   then
            inGroup = true
            break
        end
    end
 
    return inGroup
end




addEventHandler("onPlayerLogin",getRootElement(),function ()
bindKey(source,"u","down","chatbox","global")
end)


addEventHandler("onResourceStart", root,
function (  )
for k,v in ipairs(getElementsByType("player", root)) do
unbindKey(v, "u", "down", "chatbox", "global")
bindKey(v, "u","down","chatbox","global")
end