--------------------------------------------------
-- Don't edit anything here --
-- Recreated by Polygon --
--------------------------------------------------
QBCore = nil
Cache = {}
TriggerEvent('QBCore:GetObject', function(obj) QBCore = obj end)
-- Get balance of invested companies
RegisterServerEvent("invest:balance")
AddEventHandler("invest:balance", function()
local src = source
local xPlayer = QBCore.Functions.GetPlayer(src)
local id = xPlayer.PlayerData.citizenid
local user = MySQL.Sync.fetchAll('SELECT `amount` FROM `invest` WHERE `identifier`=@id AND active=1', {["@id"] = id})
local invested = 0
for k, v in pairs(user) do
-- print(k, v.identifier, v.amount, v.job)
invested = invested + v.amount
end
TriggerClientEvent("invest:nui", src, {
type = "balance",
player = GetPlayerName(src),
balance = invested
})
end)
-- Get available companies
RegisterServerEvent("invest:list")
AddEventHandler("invest:list", function()
TriggerClientEvent("invest:nui", source, {
type = "list",
cache = Cache
})
end)
-- Get all invested companies
RegisterServerEvent("invest:all")
AddEventHandler("invest:all", function(special)
local src = source
local xPlayer = QBCore.Functions.GetPlayer(src)
local sql = 'SELECT `invest`.*, `companies`.`name`,`companies`.`investRate`,`companies`.`label` FROM `invest` '..
'INNER JOIN `companies` ON `invest`.`job` = `companies`.`label` '..
'WHERE `invest`.`identifier`=@id'
if(special) then
sql = sql .. " AND `invest`.`active`=1"
end
local id = xPlayer.PlayerData.citizenid
local user = MySQL.Sync.fetchAll(sql, {["@id"] = id})
-- for k, v in pairs(user) do
-- print(k, v.identifier, v.amount, v.job, v.name, v.active, v.created, v.investRate)
-- end
if(special) then
TriggerClientEvent("invest:nui", src, {
type = "sell",
cache = user
})
else
TriggerClientEvent("invest:nui", src, {
type = "all",
cache = user
})
end
end)
-- Invest into a job
RegisterServerEvent("invest:buy")
AddEventHandler("invest:buy", function(job, amount, rate)
local src = source
local xPlayer = QBCore.Functions.GetPlayer(src)
local bank = xPlayer.PlayerData.money["bank"]
local id = xPlayer.PlayerData.citizenid
amount = tonumber(amount)
local inf = MySQL.Sync.fetchAll('SELECT * FROM `invest` WHERE `identifier`=@id AND active=1 AND job=@job LIMIT 1', {["@id"] = id, ['@job'] = job})
for k, v in pairs(inf) do inf = v end
if(amount == nil or amount <= 0) then
return TriggerClientEvent('QBCore:Notify', src, _U('invalid_amount'))
elseif(Config.Stock.Limit ~= 0 and amount > Config.Stock.Limit) then
return TriggerClientEvent('QBCore:Notify', src, string.gsub(_U('to_much'), "{limit}", format_int(Config.Stock.Limit)))
else
if(bank < amount) then
return TriggerClientEvent('QBCore:Notify', src, _U('broke_amount'))
end
xPlayer.Functions.RemoveMoney('bank', amount)
end
if(type(inf) == "table" and inf.job ~= nil) then
if Config.Debug then
print("Adding money to an existing investment")
end
MySQL.Sync.execute("UPDATE `invest` SET amount=amount+@num WHERE `identifier`=@id AND active=1 AND job=@job", {["@id"] = id, ["@num"]=amount, ['@job'] = job})
TriggerClientEvent('QBCore:Notify', src, _U('added'))
else
if Config.Debug then
print("User new investment")
end
if rate == nil then
return TriggerClientEvent('QBCore:Notify', src, _U('unexpected_error'))
end
MySQL.Sync.execute("INSERT INTO `invest` (identifier, job, amount, rate) VALUES (@id, @job, @amount, @rate)", {
["@id"] = id,
["@job"] = job,
["@amount"] = amount,
["@rate"] = rate
})
TriggerClientEvent('QBCore:Notify', src, _U('buy'))
end
TriggerEvent(src, "invest:balance")
end)
-- Sell an investment
RegisterServerEvent("invest:sell")
AddEventHandler("invest:sell", function(job)
local src = source
local xPlayer = QBCore.Functions.GetPlayer(src)
local id = xPlayer.PlayerData.citizenid
local result = MySQL.Sync.fetchAll( 'SELECT `invest`.*, `companies`.`investRate` FROM `invest` '..
'INNER JOIN `companies` ON `invest`.`job` = `companies`.`label` '..
'WHERE `identifier`=@id AND active=1 AND job=@job', {["@id"] = id, ['@job'] = job})
for k, v in pairs(result) do result = v end
local amount = result.amount
local sellRate = math.abs(result.investRate - result.rate)
local addMoney = amount + ((amount * sellRate) / 100)
-- print("intrest calc: " .. result.investRate .. " -> " .. result.rate .. " = " .. sellRate)
-- print("money calc: " .. amount .. " -> " .. addMoney)
MySQL.Sync.execute("UPDATE `invest` SET active=0, sold=now(), soldAmount=@money, rate=@rate WHERE `id`=@id", {["@id"] = result.id, ["@money"] = addMoney, ["@rate"] = sellRate})
if(addMoney > 0) then
xPlayer.Functions.AddMoney('bank', addMoney)
else
addMoney = math.abs(addMoney)*-1
xPlayer.Functions.RemoveMoney('bank', addMoney)
end
TriggerClientEvent('QBCore:Notify', src, _U('sold'))
TriggerEvent(src, "invest:balance")
end)
-- Gives a random number
function genRand(min, max, decimalPlaces)
local rand = math.random()*(max-min) + min;
local power = math.pow(10, decimalPlaces);
return math.floor(rand*power) / power;
end
-- Loop invest rates
AddEventHandler('onResourceStart', function(resourceName)
if (GetCurrentResourceName() ~= resourceName) then
return
end
function loopUpdate()
Citizen.Wait(60000*Config.Stock.Time)
if Config.Debug then
print("Creating new investments")
end
local companies = MySQL.Sync.fetchAll("SELECT * FROM `companies`")
for k, v in pairs(companies) do
newRate = genRand(Config.Stock.Minimum, Config.Stock.Maximum, 2)
local rate = "stale"
if newRate > v.investRate then
rate = "up"
elseif newRate < v.investRate then
rate = "down"
end
if(Config.Stock.Lost ~= 0 and newRate < 0) then
MySQL.Sync.execute("UPDATE `invest` SET amount=(amount/100*(100-@lost)) WHERE active=1 AND job=@label", {
["@label"] = v.label,
["@lost"] = Config.Stock.Lost
})
end
MySQL.Sync.execute("UPDATE `companies` SET investRate=@invest, rate=@rate WHERE label=@label", {
["@invest"] = newRate,
["@label"] = v.label,
["@rate"] = rate
})
Cache[v.label] = {stock = newRate, rate = rate, label = v.label, name = v.name}
end
loopUpdate()
end
Citizen.Wait(0) --Don't remove, crashes SQL
if Config.Debug then
print("Powering Up")
end
local companies = MySQL.Sync.fetchAll("SELECT * FROM `companies`")
for k, v in pairs(companies) do
if(v.investRate == nil) then
v.investRate = genRand(Config.Stock.Minimum, Config.Stock.Maximum, 2)
MySQL.Sync.execute("UPDATE companies SET investRate=@rate WHERE label=@label", {
["@rate"] = v.investRate,
["@label"] = v.label
})
end
Cache[v.label] = {stock = v.investRate, rate = v.rate, label = v.label, name = v.name}
end
loopUpdate()
end)
function format_int(number)
local i, j, minus, int, fraction = tostring(number):find('([-]?)(%d+)([.]?%d*)')
int = int:reverse():gsub("(%d%d%d)", "%1,")
return minus .. int:reverse():gsub("^,", "") .. fraction
end
-- v1.2 >
-- print(genRand(0, 2, 2)) -- from 0.00 to 2.00
-- print(genRand(1, 2, 2)) -- from 1.00 to 2.00
-- v1.2 <
-- print(genRand(-5, 5, 2)) -- from -5% to 5%
-- print(math.abs(-1 - -2.95)) -- difference between -1% and -2.95% 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