Scripts/resources/[hp]/hp_hud/main/server.lua

PlayerStress = {}
Framework = nil
Framework = exports["qb-core"]:GetCoreObject()
Citizen.Await(Framework)
Callback =  Framework.Functions.CreateCallback

Citizen.CreateThread(function()
    Citizen.Wait(2000)
    for _,v in pairs(GetPlayers()) do
        local Player = Framework.Functions.GetPlayer(tonumber(v))
        if Player ~= nil then
            TriggerClientEvent('HudPlayerLoad', -1)
            Wait(74)
        end
    end
end)

Callback('Players', function(source, cb)
    local count = 0
    for k,v in pairs(Framework.Functions.GetPlayers()) do
        if v ~= nil then count = count + 1 end
    end
    cb(count, source)
end)

RegisterCommand(Config.Refresh, function(source)
    local Player = Framework.Functions.GetPlayer(source)
    TriggerClientEvent('HudPlayerLoad', source)
end, false)

Callback('Player', function(source, cb)
    local xPlayer = Framework.Functions.GetPlayer(source)
    if not xPlayer then return end
    cb(xPlayer.PlayerData.money["cash"], xPlayer.PlayerData.money["bank"], xPlayer.PlayerData.money["crypto"])
end)

RegisterNetEvent('QBCore:Server:OnPlayerLoaded')
AddEventHandler('QBCore:Server:OnPlayerLoaded', function()
    local source = source
    local Player = Framework.Functions.GetPlayer(source)
    TriggerClientEvent('HudPlayerLoad', source)
end)

RegisterNetEvent('hp_hud:server:UpdateData')
AddEventHandler("hp_hud:server:UpdateData", function(val)
    TriggerClientEvent('hp_hud:client:UpdateSettings', -1, val)
end)

RegisterServerEvent('RemoveNitroItem')
AddEventHandler('RemoveNitroItem', function(Plate)
    if Plate then
        Framework.Functions.GetPlayer(source).Functions.RemoveItem(Config.NitroItem, 1)
        Framework.Functions.GetPlayer(source).Functions.AddItem(Config.EmptyNitroItem, 1)
        NitroVeh[Plate] = 100
        TriggerClientEvent('UpdateData', -1, NitroVeh, Plate)
        TriggerClientEvent('qb-nitro:client:LoadNitrous', -1, tostring(v["plate"]))
    end
end)

RegisterServerEvent('UpdateNitro')
AddEventHandler('UpdateNitro', function(Plate, Get)
    if Plate then
        if NitroVeh[Plate] then
            NitroVeh[Plate] = Get
            TriggerClientEvent('UpdateData', -1, NitroVeh)
        end
    end
end)

RegisterNetEvent('SetStress', function(amount)
    local Player =  Framework.Functions.GetPlayer(source)
    local JobName =  Player.PlayerData.job.label
    local ID = Player.PlayerData.citizenid
    local newStress
    if not Player or (Config.DisablePoliceStress and JobName == 'police') then return end
    if not PlayerStress[ID] then PlayerStress[ID] = 0 end
    newStress = PlayerStress[ID] + amount
    if newStress <= 0 then newStress = 0 end
    if newStress > 100 then newStress = 100 end
    PlayerStress[ID] = newStress
    TriggerClientEvent('UpdateStress', source, PlayerStress[ID])
end)

NitroVeh = {}
stressData = {}
Citizen.CreateThread(function()
    Citizen.Wait(3500)
    while Framework == nil do Citizen.Wait(72) end
    UsableItem = Framework.Functions.CreateUseableItem

    UsableItem(Config.NitroItem, function(source)
        TriggerClientEvent('SetupNitro', source)
    end)
end)

RegisterNetEvent('hud:server:GainStress', function(amount)
    local src = source
    local identifier = GetIdentifier(src)
    if IsWhitelisted(src) then
        return
    end
    local newStress = math.min((tonumber(stressData[identifier]) or 0) + amount, 100)
    newStress = math.max(newStress, 0)
    stressData[identifier] = newStress
    if Config.UseStress then
        TriggerClientEvent('hud:client:UpdateStress', src, newStress)
    else
        TriggerClientEvent('hud:client:UpdateStress', src, 0)
    end
end)

RegisterNetEvent('hud:server:RelieveStress', function(amount)
    local src = source
    local identifier = GetIdentifier(src)
    local newStress = math.max((tonumber(stressData[identifier]) or 0) - amount, 0)
    newStress = math.min(newStress, 100)
    stressData[identifier] = newStress
    TriggerClientEvent('hud:client:UpdateStress', src, newStress)
end)

function IsWhitelisted(source)
    local player = Framework.Functions.GetPlayer(source)
    if player then
        local jobName = player.PlayerData.job.name
        for _, v in pairs(Config.StressWhitelistJobs) do
            if jobName == v then
                return true
            end
        end
    end
    return false
end

function GetIdentifier(source)
    local Player = Framework.Functions.GetPlayer(tonumber(source))
    return Player and Player.PlayerData.citizenid or "0"
end