Scripts/resources/[jims]/jim-mining/server.lua

158 lines
8.1 KiB
Lua
Raw Normal View History

2024-12-29 19:49:12 +00:00
local QBCore = exports['qb-core']:GetCoreObject()
RegisterNetEvent('QBCore:Server:UpdateObject', function() if source ~= '' then return false end QBCore = exports['qb-core']:GetCoreObject() end)
---Crafting
RegisterServerEvent('jim-mining:GetItem', function(data)
local src = source
local Player = QBCore.Functions.GetPlayer(src)
--This grabs the table from client and removes the item requirements
if data.craftable[data.tablenumber]["amount"] then amount = data.craftable[data.tablenumber]["amount"] else amount = 1 end
for k,v in pairs(data.craftable[data.tablenumber][data.item]) do
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[tostring(k)], "remove", v)
Player.Functions.RemoveItem(tostring(k), v)
if Config.Debug then print("^5Debug^7: ^1Removing ^2from Player^7(^2"..src.."^7) '^6"..QBCore.Shared.Items[k].label.."^7(^2x^6"..v.."^7)'") end
end
--This should give the item, while the rest removes the requirements
Player.Functions.AddItem(data.item, amount)
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[data.item], "add", amount)
if Config.Debug then print("^5Debug^7: ^4Giving ^2Player^7(^2"..src.."^7) '^6"..QBCore.Shared.Items[data.item].label.."^7(^2x^6"..amount.."^7)'") end
TriggerClientEvent("jim-mining:CraftMenu", src, data)
end)
RegisterServerEvent('jim-mining:MineReward', function()
local Player = QBCore.Functions.GetPlayer(source)
local randomChance = math.random(1, 3)
Player.Functions.AddItem('stone', randomChance, false, {["quality"] = nil})
TriggerClientEvent("inventory:client:ItemBox", source, QBCore.Shared.Items["stone"], "add", randomChance)
end)
--Stone Cracking Checking Triggers
--Command here to check if any stone is in inventory
RegisterServerEvent('jim-mining:CrackReward', function(cost)
local src = source
local Player = QBCore.Functions.GetPlayer(src)
Player.Functions.RemoveItem('stone', cost)
TriggerClientEvent("inventory:client:ItemBox", src, QBCore.Shared.Items["stone"], "remove", 1)
for i = 1, math.random(1,3) do
local randItem = Config.CrackPool[math.random(1, #Config.CrackPool)]
amount = math.random(1, 2)
if Player.Functions.AddItem(randItem, amount) then
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[randItem], 'add', amount)
else print("error, no space") end
end
end)
--Stone Cracking Checking Triggers
--Command here to check if any stone is in inventory
RegisterServerEvent('jim-mining:WashReward', function(cost)
local src = source
local Player = QBCore.Functions.GetPlayer(src)
Player.Functions.RemoveItem('stone', cost)
TriggerClientEvent("inventory:client:ItemBox", src, QBCore.Shared.Items["stone"], "remove", cost)
for i = 1, math.random(1,2) do
local randItem = Config.WashPool[math.random(1, #Config.WashPool)]
amount = 1
Player.Functions.AddItem(randItem, amount)
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[randItem], 'add', amount)
randItem = nil
end
end)
RegisterServerEvent('jim-mining:PanReward', function()
local src = source
local Player = QBCore.Functions.GetPlayer(src)
for i = 1, math.random(1,3) do
local randItem = Config.PanPool[math.random(1, #Config.PanPool)]
amount = 1
Player.Functions.AddItem(randItem, amount)
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[randItem], 'add', amount)
randItem = nil
end
end)
RegisterNetEvent("jim-mining:Selling", function(data)
local src = source
local Player = QBCore.Functions.GetPlayer(src)
if Player.Functions.GetItemByName(data.item) ~= nil then
local amount = Player.Functions.GetItemByName(data.item).amount
local pay = (amount * Config.SellItems[data.item])
Player.Functions.RemoveItem(data.item, amount)
Player.Functions.AddMoney('cash', pay)
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[data.item], 'remove', amount)
else
TriggerClientEvent("QBCore:Notify", src, Loc[Config.Lan].error["dont_have"].." "..QBCore.Shared.Items[data.item].label, "error")
end
end)
RegisterNetEvent('jim-mining:server:toggleItem', function(give, item, amount)
local src = source
if give == 0 or give == false then
if HasItem(src, item, amount or 1) then -- check if you still have the item
if QBCore.Functions.GetPlayer(src).Functions.RemoveItem(item, amount or 1) then
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[item], "remove", amount or 1)
end
else TriggerEvent("jim-mining:server:DupeWarn", item, src) end -- if not boot the player
else
if QBCore.Functions.GetPlayer(src).Functions.AddItem(item, amount or 1) then
TriggerClientEvent('inventory:client:ItemBox', src, QBCore.Shared.Items[item], "add", amount or 1)
end
end
end)
RegisterNetEvent("jim-mining:server:DupeWarn", function(item, newsrc)
local src = newsrc or source
local P = QBCore.Functions.GetPlayer(src)
print("^5DupeWarn: ^1"..P.PlayerData.charinfo.firstname.." "..P.PlayerData.charinfo.lastname.."^7(^1"..tostring(src).."^7) ^2Tried to remove item ^7('^3"..item.."^7')^2 but it wasn't there^7")
-- DropPlayer(src, "Kicked for attempting to duplicate items")
print("^5DupeWarn: ^1"..P.PlayerData.charinfo.firstname.." "..P.PlayerData.charinfo.lastname.."^7(^1"..tostring(src).."^7) ^2Dropped from server for item duplicating^7")
end)
function HasItem(source, items, amount)
local Player = QBCore.Functions.GetPlayer(source)
if not Player then return false end
local isTable = type(items) == 'table'
local isArray = isTable and table.type(items) == 'array' or false
local totalItems = #items
local count = 0
local kvIndex = 2
if isTable and not isArray then
totalItems = 0
for _ in pairs(items) do totalItems += 1 end
kvIndex = 1
end
if isTable then
if Config.Debug then print("^5Debug^7: ^3HasItem^7: ^2Checking if player^7(^6"..source.."^7)^2 has items^7") end
for k, v in pairs(items) do
local itemKV = {k, v}
local item = Player.Functions.GetItemByName(itemKV[kvIndex])
if item and ((amount and item.amount >= amount) or (not isArray and item.amount >= v) or (not amount and isArray)) then
count += 1
end
end
if count == totalItems then
if Config.Debug then print("^5Debug^7: ^3HasItem^7: ^2Items FOUND^7") end
return true
end
else -- Single item as stringHasItem(v, 1)
if Config.Debug then print("^5Debug^7: ^3HasItem^7: ^2Checking if player^7(^6"..source.."^7)^2 has items^7") end
local item = Player.Functions.GetItemByName(items)
if item and (not amount or (item and amount and item.amount >= amount)) then
return true
end
end
if Config.Debug then print("^5Debug^7: ^3HasItem^7: ^2Items Not FOUND^7") end
return false
end
AddEventHandler('onResourceStart', function(resource) if GetCurrentResourceName() ~= resource then return end
for k, v in pairs(Config.SellItems) do if not QBCore.Shared.Items[k] then print("Selling: Missing Item from QBCore.Shared.Items: '"..k.."'") end end
for i = 1, #Config.CrackPool do if not QBCore.Shared.Items[Config.CrackPool[i]] then print("CrackPool: Missing Item from QBCore.Shared.Items: '"..Config.CrackPool[i].."'") end end
for i = 1, #Config.WashPool do if not QBCore.Shared.Items[Config.WashPool[i]] then print("WashPool: Missing Item from QBCore.Shared.Items: '"..Config.WashPool[i].."'") end end
for i = 1, #Config.PanPool do if not QBCore.Shared.Items[Config.PanPool[i]] then print("PanPool: Missing Item from QBCore.Shared.Items: '"..Config.PanPool[i].."'") end end
for i = 1, #Config.Items.items do if not QBCore.Shared.Items[Config.Items.items[i].name] then print("Shop: Missing Item from QBCore.Shared.Items: '"..Config.Items.items[i].name.."'") end end
local itemcheck = {}
for _, v in pairs(Crafting) do for _, b in pairs(v) do for k, l in pairs(b) do if k ~= "amount" then itemcheck[k] = {} for j in pairs(l) do itemcheck[j] = {} end end end end end
for k in pairs(itemcheck) do
if not QBCore.Shared.Items[k] then print("Crafting recipe couldn't find item '"..k.."' in the shared") end
end
end)