CurrentXP = 0
CurrentRank = 0
Leaderboard = nil
Players = {}
Player = nil
UIActive = true
ESX = nil
Ready = false
local player = GetPlayerFromServerId(PlayerPedId())
local netID = NetworkGetNetworkIdFromEntity(owner)
------------------------------------------------------------
-- ESX --
------------------------------------------------------------
AddEventHandler("playerSpawned", function(spawn)
Citizen.CreateThread(function()
-- Wait for ESX
while ESX == nil do
Citizen.Wait(10)
TriggerEvent("esx:getSharedObject", function(esx)
ESX = esx
end)
end
-- Wait for ESX player
while not ESX.IsPlayerLoaded() do
Citizen.Wait(10)
end
-- Initialise
TriggerServerEvent("esx_xp:load")
end)
end)
------------------------------------------------------------
-- MAIN EVENTS --
------------------------------------------------------------
-- CHECK RESOURCE IS READY
AddEventHandler('esx_xp:isReady', function(cb)
cb(Ready)
end)
-- INITIALISE RESOURCE
RegisterNetEvent("esx_xp:init")
AddEventHandler("esx_xp:init", function(_xp, _rank, players)
local Ranks = CheckRanks()
-- All ranks are valid
if #Ranks == 0 then
CurrentXP = tonumber(_xp)
CurrentRank = tonumber(_rank)
local data = {
xpm_init = true,
xpm_config = Config,
currentID = GetPlayerServerId(PlayerId()),
xp = CurrentXP
}
if Config.Leaderboard.Enabled and players then
data.leaderboard = true
data.players = players
for k, v in pairs(players) do
if v.current then
Player = v
end
end
Players = players
end
-- Update UI
SendNUIMessage(data)
-- Set ESX properties
ESX.SetPlayerData("xp", CurrentXP)
ESX.SetPlayerData("rank", CurrentRank)
-- Native stats
StatSetInt("MPPLY_GLOBALXP", CurrentXP, 1)
-- Resource is ready to be used
Ready = true
-- Trigger event
TriggerEvent("esx_xp:ready", {
xPlayer = ESX.GetPlayerData(),
xp = CurrentXP,
rank = CurrentRank
})
else
TriggerEvent("esx_xp:print", _('err_lvls_check', #Ranks, 'Config.Ranks'))
print(ESX.DumpTable(Ranks))
end
end)
RegisterNetEvent("esx_xp:update")
AddEventHandler("esx_xp:update", function(_xp, _rank)
local oldRank = CurrentRank
local newRank = _rank
local newXP = _xp
SendNUIMessage({
xpm_set = true,
xp = newXP
})
CurrentXP = newXP
CurrentRank = newRank
-- Set ESX properties
ESX.SetPlayerData("xp", CurrentXP)
ESX.SetPlayerData("rank", CurrentRank)
end)
if Config.Leaderboard.Enabled then
RegisterNetEvent("esx_xp:setPlayerData")
AddEventHandler("esx_xp:setPlayerData", function(players)
-- Remove disconnected players
for i=#Players,1,-1 do
local active = PlayerIsActive(players, Players[i].id)
if not Players[i].fake then
if not active then
table.remove(Players, i)
end
end
end
-- Add new players
for k, v in pairs(players) do
local active = PlayerIsActive(Players, v.id)
if not active then
table.insert(Players, v)
else
Players[active] = v
end
if v.current then
Player = v
end
end
-- Update leaderboard
SendNUIMessage({
xpm_updateleaderboard = true,
xpm_players = Players
})
end)
end
-- Error Printing
RegisterNetEvent("esx_xp:print")
AddEventHandler("esx_xp:print", function(message)
local s = string.rep("=", string.len(message))
print(s)
print(message)
print(s)
end)
------------------------------------------------------------
-- FUNCTIONS --
------------------------------------------------------------
------------
-- UpdateXP.
--
-- @global
-- @param int _xp
-- @param bool init
-- @return void
function UpdateXP(_xp, init)
_xp = tonumber(_xp)
local points = CurrentXP + _xp
local max = ESXP_GetMaxXP()
if init then
points = _xp
end
points = LimitXP(points)
local rank = ESXP_GetRank(points)
TriggerServerEvent("esx_xp:setXP", points, rank)
end
------------
-- ESXP_SetInitial.
--
-- @global
-- @param int XPInit
-- @return void
function ESXP_SetInitial(XPInit)
local GoalXP = tonumber(XPInit)
-- Check for valid XP
if not GoalXP or (GoalXP < 0 or GoalXP > ESXP_GetMaxXP()) then
TriggerEvent("esx_xp:print", _('err_xp_update', XPInit, "ESXP_SetInitial"))
return
end
UpdateXP(tonumber(GoalXP), true)
end
------------
-- ESXP_SetRank.
--
-- @global
-- @param int Rank
-- @return void
function ESXP_SetRank(Rank)
local GoalRank = tonumber(Rank)
if not GoalRank then
TriggerEvent("esx_xp:print", _('err_lvl_update', Rank, "ESXP_SetRank"))
return
end
local XPAdd = tonumber(Config.Ranks[GoalRank]) - CurrentXP
ESXP_Add(XPAdd)
end
------------
-- ESXP_Add.
--
-- @global
-- @param int XPAdd
-- @return void
function ESXP_Add(XPAdd)
-- Check for valid XP
if not tonumber(XPAdd) then
TriggerEvent("esx_xp:print", _('err_xp_update', XPAdd, "ESXP_Add"))
return
end
UpdateXP(tonumber(XPAdd))
end
------------
-- ESXP_Remove.
--
-- @global
-- @param int XPRemove
-- @return void
function ESXP_Remove(XPRemove)
-- Check for valid XP
if not tonumber(XPRemove) then
TriggerEvent("esx_xp:print", _('err_xp_update', XPRemove, "ESXP_Remove"))
return
end
UpdateXP(-(tonumber(XPRemove)))
end
------------
-- ESXP_GetRank.
--
-- @global
-- @param int _xp
-- @return void
function ESXP_GetRank(_xp)
if _xp == nil then
return CurrentRank
end
local len = #Config.Ranks
for rank = 1, len do
if rank < len then
if Config.Ranks[rank + 1] > tonumber(_xp) then
return rank
end
else
return rank
end
end
end
------------
-- ESXP_GetXPToNextRank.
--
-- @global
-- @return int
function ESXP_GetXPToNextRank()
local currentRank = ESXP_GetRank()
return Config.Ranks[currentRank + 1] - tonumber(CurrentXP)
end
------------
-- ESXP_GetXPToRank.
--
-- @global
-- @param int Rank
-- @return int
function ESXP_GetXPToRank(Rank)
local GoalRank = tonumber(Rank)
-- Check for valid rank
if not GoalRank or (GoalRank < 1 or GoalRank > #Config.Ranks) then
TriggerEvent("esx_xp:print", _('err_lvl_update', Rank, "ESXP_GetXPToRank"))
return
end
local goalXP = tonumber(Config.Ranks[GoalRankl])
return goalXP - CurrentXP
end
------------
-- ESXP_GetXP.
--
-- @global
-- @return int
function ESXP_GetXP()
return tonumber(CurrentXP)
end
------------
-- ESXP_GetMaxXP.
--
-- @global
-- @return int
function ESXP_GetMaxXP()
return Config.Ranks[#Config.Ranks]
end
------------
-- ESXP_GetMaxRank.
--
-- @global
-- @return int
function ESXP_GetMaxRank()
return #Config.Ranks
end
------------
-- ESXP_ShowUI.
--
-- @global
-- @return void
function ESXP_ShowUI(update)
UIActive = true
if update ~= nil then
TriggerServerEvent("esx_xp:getPlayerData")
end
SendNUIMessage({
xpm_show = true
})
end
------------
-- ESXP_HideUI.
--
-- @global
-- @return void
function ESXP_HideUI()
UIActive = false
SendNUIMessage({
xpm_hide = true
})
end
function ESXP_TimeoutUI(update)
UIActive = true
if update ~= nil then
TriggerServerEvent("esx_xp:getPlayerData")
end
SendNUIMessage({
xpm_display = true
})
end
function ESXP_SortLeaderboard(type)
SendNUIMessage({
xpm_lb_sort = true,
xpm_lb_order = type or "rank"
})
end
------------------------------------------------------------
-- CONTROLS --
------------------------------------------------------------
Citizen.CreateThread(function()
while true do
if IsControlJustReleased(0, Config.UIKey) then
UIActive = not UIActive
if UIActive then
TriggerServerEvent("esx_xp:getPlayerData")
SendNUIMessage({
xpm_show = true
})
else
SendNUIMessage({
xpm_hide = true
})
end
elseif IsControlJustPressed(0, 174) then
if UIActive then
SendNUIMessage({
xpm_lb_prev = true
})
end
elseif IsControlJustPressed(0, 175) then
if UIActive then
SendNUIMessage({
xpm_lb_next = true
})
end
end
Citizen.Wait(1)
end
end)
------------------------------------------------------------
-- MAIN --
------------------------------------------------------------
-- UPDATE UI
RegisterNetEvent("esx_xp:updateUI")
AddEventHandler("esx_xp:updateUI", function(_xp)
CurrentXP = tonumber(_xp)
SendNUIMessage({
xpm_set = true,
xp = CurrentXP
})
end)
-- SET INTITIAL XP
RegisterNetEvent("esx_xp:SetInitial")
AddEventHandler('esx_xp:SetInitial', ESXP_SetInitial)
-- ADD XP
RegisterNetEvent("esx_xp:Add")
AddEventHandler('esx_xp:Add', ESXP_Add)
-- REMOVE XP
RegisterNetEvent("esx_xp:Remove")
AddEventHandler('esx_xp:Remove', ESXP_Remove)
RegisterNetEvent("esx_xp:SetRank")
AddEventHandler('esx_xp:SetRank', ESXP_SetRank)
-- RANK CHANGE NUI CALLBACK
RegisterNUICallback('xpm_rankchange', function(data)
if data.rankUp then
TriggerEvent("esx_xp:rankUp", data.current, data.previous)
TriggerServerEvent("Server:SoundToClient", PED_ID, "example", 0.8)
else
TriggerEvent("esx_xp:rankDown", data.current, data.previous)
TriggerServerEvent("Server:SoundToClient", PED_ID, "example", 0.8)
end
end)
-- UI CHANGE
RegisterNUICallback('xpm_uichange', function(data)
UIActive = false
end)
------------------------------------------------------------
-- EXPORTS --
------------------------------------------------------------
-- SET INTITIAL XP
exports('ESXP_SetInitial', ESXP_SetInitial)
-- ADD XP
exports('ESXP_Add', ESXP_Add)
-- REMOVE XP
exports('ESXP_Remove', ESXP_Remove)
-- SET RANK
exports('ESXP_SetRank', ESXP_SetRank)
-- GET CURRENT XP
exports('ESXP_GetXP', ESXP_GetXP)
-- GET CURRENT RANK
exports('ESXP_GetRank', ESXP_GetRank)
-- GET XP REQUIRED TO RANK-UP
exports('ESXP_GetXPToNextRank', ESXP_GetXPToNextRank)
-- GET XP REQUIRED TO RANK-UP
exports('ESXP_GetXPToRank', ESXP_GetXPToRank)
-- GET MAX XP
exports('ESXP_GetMaxXP', ESXP_GetMaxXP)
-- GET MAX RANK
exports('ESXP_GetMaxRank', ESXP_GetMaxRank)
-- SHOW UI
exports('ESXP_ShowUI', ESXP_ShowUI)
-- HIDE UI
exports('ESXP_HideUI', ESXP_HideUI)
-- TIMEOUT UI
exports('ESXP_TimeoutUI', ESXP_TimeoutUI)
-- SORT LEADERBOARD
exports('ESXP_SortLeaderboard', ESXP_SortLeaderboard)
------------------------------------------------------------
-- COMMANDS --
------------------------------------------------------------
RegisterCommand('ESXP_Add', function(source, args)
if IsInt(args[1]) then
CurrentXP = LimitXP(CurrentXP + tonumber(args[1]))
SendNUIMessage({
xpm_set = true,
xp = CurrentXP
})
else
print("esx_xp: Invalid XP")
end
end)
RegisterCommand('ESXP_Remove', function(source, args)
if IsInt(args[1]) then
CurrentXP = LimitXP(CurrentXP - tonumber(args[1]))
SendNUIMessage({
xpm_set = true,
xp = CurrentXP
})
else
print("esx_xp: Invalid XP")
end
end)
RegisterCommand('ESXP', function(source, args)
Citizen.CreateThread(function()
local xpToNext = ESXP_GetXPToNextRank()
-- SHOW THE XP BAR
SendNUIMessage({ xpm_display = true })
TriggerEvent('chat:addMessage', {
color = { 255, 0, 0},
multiline = true,
args = {"SYSTEM", _('cmd_current_xp', CurrentXP)}
})
TriggerEvent('chat:addMessage', {
color = { 255, 0, 0},
multiline = true,
args = {"SYSTEM", _('cmd_current_lvl', CurrentRank)}
})
TriggerEvent('chat:addMessage', {
color = { 255, 0, 0},
multiline = true,
args = {"SYSTEM", _('cmd_next_lvl', xpToNext, CurrentRank + 1)}
})
end)
end)
Write, Run & Share Lua code online using OneCompiler's Lua online compiler for free. It's one of the robust, feature-rich online compilers for Lua language, running the latest Lua version 5.4. Getting started with the OneCompiler's Lua editor is easy and fast. The editor shows sample boilerplate code when you choose language as Lua and start coding.
OneCompiler's Lua online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample Lua program which takes name as input and prints hello message with your name.
name = io.read("*a")
print ("Hello ", name)
Lua is a light weight embeddable scripting language which is built on top of C. It is used in almost all kind of applications like games, web applications, mobile applications, image processing etc. It's a very powerful, fast, easy to learn, open-source scripting language.
-- global variables
a = 10
-- local variables
local x = 30
| Value Type | Description |
|---|---|
| number | Represents numbers |
| string | Represents text |
| nil | Differentiates values whether it has data or not |
| boolean | Value can be either true or false |
| function | Represents a sub-routine |
| userdata | Represents arbitary C data |
| thread | Represents independent threads of execution. |
| table | Can hold any value except nil |
While is also used to iterate a set of statements based on a condition. Usually while is preferred when number of iterations are not known in advance.
while(condition)
do
--code
end
Repeat-Until is also used to iterate a set of statements based on a condition. It is very similar to Do-While, it is mostly used when you need to execute the statements atleast once.
repeat
--code
until( condition )
For loop is used to iterate a set of statements based on a condition.
for init,max/min value, increment
do
--code
end
Function is a sub-routine which contains set of statements. Usually functions are written when multiple calls are required to same set of statements which increase re-usuability and modularity.
optional_function_scope function function_name( argument1, argument2, argument3........, argumentn)
--code
return params with comma seperated
end