server.lua

local BlackMarketSyncCoord = nil

AddEventHandler('onResourceStart', function(r) if GetCurrentResourceName() ~= r then return end
	TriggerEvent("jim-shops:MakeStash")
	for k, v in pairs(Products) do
		for i = 1, #v do
			if Config.System.Inv == "qb" then
				if not Items[Products[k][i].name] then
					print("^5Debug^7: ^3Config^7.^3Products^7['^6"..k.."^7'] ^2can't find item^7: ^6"..Products[k][i].name.."^7")
				end
			elseif Config.System.Inv == "ox" then
				if not exports.ox_inventory:Items(Products[k][i].name) then
					print("^5Debug^7: ^3Config^7.^3Products^7['^6"..k.."^7'] ^2can't find item^7: ^6"..Products[k][i].name.."^7")
				end
			end
		end
	end
	for k, v in pairs(Locations) do
		if v["products"] == nil then
			print("^5Debug^7: ^3Config^7.^3Locations^7['^6"..k.."^7']^2 can't find its product table^7")
		end
		Locations[k]["model"] = { Locations[k]["model"][math.random(1, #Locations[k]["model"])] } -- Pick a single ped model from the list of possible ones
	end
	if Config.Overrides.BlackMarket then
		BlackMarketSyncCoord = Locations["blackmarket"]["coords"][math.random(1, #Locations["blackmarket"]["coords"])]
	end
end)

local function GetStashItems(stashId)
	local items = {}
	if Config.System.Inv == "qb" then
		local result = MySQL.Sync.fetchScalar('SELECT items FROM stashitems WHERE stash = ?', {stashId})
		if result then
			local stashItems = json.decode(result)
			if stashItems then
				for _, item in pairs(stashItems) do
					local itemInfo = Items[item.name:lower()]
					if itemInfo then
						items[item.slot] = {
							name = itemInfo["name"],
							amount = tonumber(item.amount),
							info = item.info ~= nil and item.info or "",
							label = itemInfo["label"],
							description = itemInfo["description"] ~= nil and itemInfo["description"] or "",
							weight = itemInfo["weight"],
							type = itemInfo["type"],
							unique = itemInfo["unique"],
							useable = itemInfo["useable"],
							image = itemInfo["image"],
							slot = item.slot,
						}
					end
				end
			end
		end
	elseif Config.System.Inv == "ox" then
		local stashItems = exports.ox_inventory:Inventory(stashId).items
		if stashItems then
			for _, item in pairs(stashItems) do
				local itemInfo = Items[item.name:lower()]
				if itemInfo then
					items[item.slot] = {
						name = itemInfo["name"],
						amount = tonumber(item.amount) or tonumber(item.count),
						info = item.info ~= nil and item.info or "",
						label = itemInfo["label"],
						description = itemInfo["description"] ~= nil and itemInfo["description"] or "",
						weight = itemInfo["weight"],
						type = itemInfo["type"],
						unique = itemInfo["unique"],
						useable = itemInfo["useable"],
						image = itemInfo["image"],
						slot = item.slot,
					}
				end
			end
		end
	end
	return items
end

--Wrapper converting for opening shops externally
RegisterServerEvent('jim-shops:ShopOpen', function(shop, name, shoptable)
	local data = { shoptable = { products = shoptable.items, label = shoptable.label, }, custom = true }
	TriggerClientEvent('jim-shops:ShopMenu', source, data, true)
end)

local function GetTotalWeight(items)
	local weight = 0
	if not items then return 0 end
	for _, item in pairs(items) do
		weight += item.weight * (item.amount or item.count)
	end
	return tonumber(weight)
end

function getMoney(source, billtype) local cash = 0 local src = source
	if Config.System.Inv == "qb" then
        cash = Core.Functions.GetPlayer(src).Functions.GetMoney(billtype)
	elseif Config.System.Inv == "ox" then
        if billtype == "cash" then
            cash = exports.ox_inventory:Search(src, 'count', "money")
        elseif billtype == "bank" then
            -- no default support for ox_lib bank
            -- Add your event for charging the bank balance amount here
			cash = exports.ox_inventory:Search(src, 'count', "money")
        end
    end
    return cash
end

function removeMoney(source, billtype, cost) local cash = 0 local src = sourcelocal src = source local success = nil
    if Config.Debug then print("^5Debug^7: ^2Charging ^2Player: '^6"..cost.."^7'") end
	if Config.System.Inv == "qb" then
        success = Core.Functions.GetPlayer(src).Functions.RemoveMoney(billtype, cost)
	elseif Config.System.Inv == "ox" then
        if billtype == "cash" then
            success = exports.ox_inventory:RemoveItem(src, "money", cost)
        elseif billtype == "bank" then
            -- no default support for ox_lib bank
            -- Add your event for getting the bank balance amount here
			success = true
        end
    end
	return success
end

RegisterServerEvent('jim-shops:GetItem', function(amount, billtype, item, shoptable, price, info, shop, num, nostash)
	local src = source
	local Player = nil
	local inventory = nil
	--Inventory space checks
	local totalWeight = nil
	if Config.System.Inv == "qb" then
		Player = Core.Functions.GetPlayer(src)
		inventory = Player.PlayerData.items
		totalWeight = GetTotalWeight(inventory)
	elseif Config.System.Inv == "ox" then
		inventory = exports.ox_inventory.Inventory(src)
		totalWeight = exports.ox_inventory:CanCarryAmount(src, item, amount)
	end
    local maxWeight = 120000 -- Fix until I work out how to get the player weight again
	local numsuccess = 0
	local slots = 0
	for _ in pairs(inventory) do slots = slots +1 end
	slots = Config.Overrides.MaxSlots - slots
	local balance = getMoney(src, tostring(billtype))
	if Config.System.Inv == "qb" then
		-- If too heavy:
		if (totalWeight + (Items[item].weight * amount)) > maxWeight then
			triggerNotify(getName(shop), "Not enough space in inventory", "error", src)
			return
			-- If unique and it would poof away:
		elseif Items[item].unique and (tonumber(slots) < tonumber(amount)) then
			triggerNotify(getName(shop), "Not enough slots in inventory", "error", src)
			return
		end
	elseif Config.System.Inv == "ox" then
		if not totalWeight then
			triggerNotify(getName(shop), "Not enough space in inventory", "error", src)
			return
		end
	end
	--Money Check
	if balance < (tonumber(price) * tonumber(amount)) then -- Check for money first if not enough, stop here
		triggerNotify(getName(shop), "Not enough money", "error", src)
		return
	end
	-- If its a weapon or a unique item, do this:
	if Config.System.Inv == "qb" then
		if Items[item].type == "weapon" or Items[item].unique then
			if Items[item].type == "weapon" then info = nil end
			for i = 1, amount do -- Make a loop to put items into different slots rather than full amount in 1 slot
				if Player.Functions.AddItem(item, 1, nil, info) then
					if tonumber(i) == tonumber(amount) then -- when its on its last loop do this
						removeMoney(src, tostring(billtype), (tonumber(price) * tonumber(amount)), 'ticket-payment')
						TriggerClientEvent('inventory:client:ItemBox', src, Items[item], "add", amount)
						TriggerClientEvent("jim-shops:SellAnim", src, {item = item, shoptable = shoptable})
					end
					numsuccess = numsuccess + 1
				else
					triggerNotify(getName(shop), "Can't give item!", "error", src) break -- stop the item giving loop
				end
				Wait(5)
			end
		else
			-- if its a normal item, do normal things
			if Player.Functions.AddItem(item, amount, nil, info) then
				removeMoney(src, tostring(billtype), (tonumber(price) * tonumber(amount)), 'shop-purchase')
				if Config.Overrides.ApGov then exports['ap-government']:chargeCityTax(Player.PlayerData.source, "Item", (tonumber(price) * tonumber(amount))) end
				TriggerClientEvent('inventory:client:ItemBox', src, Items[item], "add", amount)
				TriggerClientEvent("jim-shops:SellAnim", src, {item = item, shoptable = shoptable})
				numsuccess = amount
			else
				triggerNotify(getName(shop), "Can't give item!", "error", src)
			end
		end
	elseif Config.System.Inv == "ox" then
		local itemInfo = exports.ox_inventory:Items(item)
		if itemInfo.weapon or not itemInfo.stack then
			if itemInfo.weapon then info = nil end
			for i = 1, amount do
				local success, response = exports.ox_inventory:AddItem(src, item, 1, info)
				if success then
					numsuccess = numsuccess + 1
				else
					triggerNotify(getName(shop),  src, 'Error when giving item', 'error', 2500) break
				end
			end
			if numsuccess > 0 then
				removeMoney(src, tostring(billtype), (tonumber(price) * numsuccess))
				if Config.Overrides.ApGov then exports['ap-government']:chargeCityTax(src, "Item", (tonumber(price) * tonumber(numsuccess))) end
				TriggerClientEvent('inventory:client:ItemBox', src, item, "add", numsuccess)
				TriggerClientEvent('jim-shops:SellAnim', src, {item = item, shoptable = shoptable})
			end
		else
			local success, response = exports.ox_inventory:AddItem(src, item, amount, info)
			if success then
				removeMoney(src, tostring(billtype), (tonumber(price) * tonumber(amount)))
				if Config.Overrides.ApGov then exports['ap-government']:chargeCityTax(src, "Item", (tonumber(price) * tonumber(amount))) end
				TriggerClientEvent('inventory:client:ItemBox', src, item, "add", amount)
				TriggerClientEvent("jim-shops:SellAnim", src, {item = item, shoptable = shoptable})
				numsuccess = amount
			else
				triggerNotify(getName(shop), src,  "Can't give item!", "error")
			end
		end
	end

	--Remove item from stash
	if Config.Overrides.Limit and not nostash then
		local stashname = ""
		if num == "" then stashname = shop
		else stashname = "["..shop.."("..num..")]" end
		local stashItems = GetStashItems(stashname)
		if Config.System.Debug then print("^5Debug^7: ^2Retrieving stash info^7: '^6"..stashname.."^7'") end
		for i = 1, #stashItems do
			if stashItems[i].name:lower() == item:lower() then
				if Config.System.Inv == "qb" then
					if (stashItems[i].amount - numsuccess) <= 0 then stashItems[i].amount = 0 else stashItems[i].amount = stashItems[i].amount - numsuccess end
					TriggerEvent('jim-shops:server:SaveStashItems', stashname, stashItems)
				elseif Config.System.Inv == "ox" then
					if stashItems[i].unique then
						if (stashItems[i].info.qty - numsuccess) <= 0 then stashItems[i].info.qty = 0 else stashItems[i].info.qty = stashItems[i].info.qty - numsuccess end
						exports.ox_inventory:SetMetadata(stashname, stashItems[i].slot, stashItems[i].info)
					else
						local success, response = exports.ox_inventory:RemoveItem(stashname, item, numsuccess)
					end
				end
				if Config.System.Debug then print("^5Debug^7: ^2Removing ^7'^3"..Items[item].label.."^7' ^2x^6"..numsuccess.." ^2from Shop's Stash^7: '^6"..stashname.."^7'") end
			end
		end
	end
	--Make data to send back to main shop menu
	local data = {}
	data.shoptable = shoptable
	custom = true
	if Config.Overrides.Limit and not nostash then
		custom = nil
		if num == "" then data.vendID = shop data.vend = true
		else data.k = shop data.l = num end
	else
		if Config.System.Menu == "ox" then
			data.k = shop
			data.l = num
		end
	end
	TriggerClientEvent('jim-shops:ShopMenu', src, data, custom)
end)

RegisterNetEvent("jim-shops:MakeStash", function()
	local foundItems = {}
	if Config.System.Inv == "qb" then
		local result = MySQL.Sync.fetchAll('SELECT * FROM stashitems', {1})
		for _, v in pairs(result) do --Clear Vending Machine Stashes
			--if string.find(v.stash, "Vend") then MySQL.Async.execute('DELETE FROM stashitems WHERE stash= ?', { v.stash }) end
		end
	end

	for k, v in pairs(Locations) do
		if k ~= "vendingmachine" then
			for i = 1, #v.coords do
				local stashTable = {}
				local stashname = "["..k.."("..i..")]"
				if Config.System.Inv == "qb" then
					--MySQL.Async.execute('DELETE FROM stashitems WHERE stash = ?', {stashname})
				elseif Config.System.Inv == "ox" then
					exports.ox_inventory:ClearInventory(stashname, "")
					exports.ox_inventory:RegisterStash(stashname, k, 100, 1000000, nil)
				end
				Wait(10)
				for i = 1, #v["products"] do
					if Config.System.Debug then
						print("^5Debug^7: ^3MakeStash ^7- ^2Searching for item ^7'^6"..v["products"][i].name.."^7'")
						if Config.System.Inv == "qb" then
							if not Items[v["products"][i].name:lower()] then
								print("^5Debug^7: ^3MakeStash ^7- ^2Can't find item ^7'^6"..v["products"][i].name.."^7'")
							end
						elseif Config.System.Inv == "ox" then
							if not exports.ox_inventory:Items(v.products[i].name) then
								print("^5Debug^7: ^3MakeStash ^7- ^2Can't find item ^7'^6"..v["products"][i].name.."^7'")
							end
						end
					end
					if Config.System.Inv == "qb" then
						local itemInfo = Items[v["products"][i].name:lower()]
						if itemInfo then
							stashTable[i] = {
								name = itemInfo["name"],
								amount = tonumber(v["products"][i].amount),
								info = v["products"][i].info or nil,
								label = itemInfo["label"],
								description = itemInfo["description"] ~= nil and itemInfo["description"] or "",
								weight = itemInfo["weight"],
								type = itemInfo["type"],
								unique = itemInfo["unique"],
								useable = itemInfo["useable"],
								image = itemInfo["image"],
								slot = i,
							}
							if Config.Overrides.RandomAmount then
								stashTable[i].amount = math.random(1, tonumber(v["products"][i].amount))
							end
							if itemInfo["name"] == Config.Overrides.SellCasinoChips.chipItem then
								stashTable[i].amount = v["products"][i].amount
							end
						end
					elseif Config.System.Inv == "ox" then
						if exports.ox_inventory:Items(v["products"][i].name) then
							stashTable[i] = {
								name = v["products"][i].name,
								amount = tonumber(v["products"][i].amount),
								info = v["products"][i].info or {},
								slot = i,
							}
							if Config.Overrides.RandomAmount then stashTable[i].amount = math.random(1, tonumber(v["products"][i].amount)) end
							if not exports.ox_inventory:Items(v["products"][i].name).stack then
								stashTable[i].info.qty = stashTable[i].amount
								stashTable[i].amount = 1
							end
							if stashTable[i].name == Config.Overrides.SellCasinoChips.chipItem then stashTable[i].amount = v["products"][i].amount end
							exports.ox_inventory:AddItem(stashname, stashTable[i].name, stashTable[i].amount, stashTable[i].info, stashTable[i].slot)
						end
					end
				end
				if Config.System.Inv == "qb" then
					TriggerEvent('jim-shops:server:SaveStashItems', stashname, stashTable)
				end
			end
		end
	end
end)

AddEventHandler('onResourceStop', function(r)
    if r ~= GetCurrentResourceName() then return end
	for k, v in pairs(Locations) do
		if k ~= "vendingmachine" then
			for i = 1, #v.coords do
				local stashname = "["..k.."("..i..")]"
				if Config.System.Inv == "qb" then
					--MySQL.Async.execute('DELETE FROM stashitems WHERE stash = ?', {stashname})
				elseif Config.System.Inv == "ox" then
					exports.ox_inventory:RemoveInventory(stashname)
				end
			end
		end
		if Config.System.Inv == "qb" then
			local result = MySQL.Sync.fetchAll('SELECT * FROM stashitems', {1})
			for _, v in pairs(result) do --Clear Vending Machine Stashes
				--if string.find(v.stash, "Vend") then MySQL.Async.execute('DELETE FROM stashitems WHERE stash= ?', { v.stash }) end
			end
		end
	end
end)

RegisterNetEvent("jim-shops:GenerateVend", function(data)
	local stashTable = {}
	local v = data[1].shoptable
	for i = 1, #v["products"] do
		local itemInfo = Items[v["products"][i].name:lower()]
		if not itemInfo then print("^5Debug^7: ^3MakeStash ^7- ^2Can't find item ^7'^6"..v["products"][i].name.."^7'")
		elseif itemInfo then
			stashTable[i] = {
				name = itemInfo["name"],
				amount = tonumber(v["products"][i].amount),
				info = v["products"][i].info or {},
				label = itemInfo["label"],
				description = itemInfo["description"] ~= nil and itemInfo["description"] or "",
				weight = itemInfo["weight"],
				type = itemInfo["type"],
				unique = itemInfo["unique"],
				useable = itemInfo["useable"],
				image = itemInfo["image"],
				slot = i,
			}
			if Config.Overrides.RandomAmount then stashTable[i].amount = math.random(1, tonumber(v["products"][i].amount)) end
		end
	end
	TriggerEvent('jim-shops:server:SaveStashItems', data[2], stashTable)
end)

--Compatability Wrapper Event for qb-truckerjob to refill shop stashes
RegisterNetEvent("qb-shops:server:RestockShopItems", function(storeinfo)
	local k, l = nil
	local storename = storeinfo
	if string.find(storename, "247supermarket") then k = "247supermarket"
	elseif string.find(storename, "hardware") then k = "hardware"
	elseif string.find(storename, "robsliquor") then k = "robsliquor"
	elseif string.find(storename, "ltdgasoline") then k = "ltdgasoline"
	end
	l = storename:gsub(k,"")
	if l == "" then l = 1 end
	local stashTable = {}
	local item
	for i = 1, #Config.Locations[k]["products"] do
		if Config.System.Debug then --print("^5Debug^7: ^3RestockShopItems ^7- ^3Searching for item ^7'^6"..v["products"][i].name.."^7'")
			if Config.System.Inv == "qb" then
				if not Items[v["products"][i].name:lower()] then
					print("^5Debug^7: ^3RestockShopItems ^7- ^1Can't ^2find item ^7'^6"..v["products"][i].name.."^7'")
				end
			elseif Config.System.Inv == "ox" then
				item = exports.ox_inventory:Items(Config.Locations[k]["products"][i].name)
				if not item then
					print("^5Debug^7: ^3RestockShopItems ^7- ^1Can't ^2find item ^7'^6"..v["products"][i].name.."^7'")
				end
			end
		end
		if Config.System.Inv == "qb" then
			local itemInfo = Items[Config.Locations[k]["products"][i].name:lower()]
			if itemInfo then
				stashTable[i] = {
					name = itemInfo["name"],
					amount = tonumber(Config.Locations[k]["products"][i].amount),
					info = {},
					label = itemInfo["label"],
					description = itemInfo["description"] ~= nil and itemInfo["description"] or "",
					weight = itemInfo["weight"],
					type = itemInfo["type"],
					unique = itemInfo["unique"],
					useable = itemInfo["useable"],
					image = itemInfo["image"],
					slot = i,
				}
			end
		elseif Config.System.Inv == "ox" then
			if item then
				stashTable[i] = {
					name = item.name,
					amount = tonumber(Config.Locations[k]["products"][i].amount),
					info = item.info or {},
					slot = i,
				}
				if Config.Overrides.Limit then
					exports.ox_inventory:AddItem("["..k.."("..l..")]", stashTable[i].name, stashTable[i].amount, stashTable[i].info)
				end
			end
		end
	end
	if Config.System.Inv == "qb" then
		if Config.Overrides.Limit then
			TriggerEvent('jim-shops:server:SaveStashItems', "["..k.."("..l..")]", stashTable)
		end
	end
end)

if Config.System.Callback == "qb" then
	Core.Functions.CreateCallback('jim-shops:server:getBlackMarketLoc', function(source, cb) cb(BlackMarketSyncCoord) end)
	Core.Functions.CreateCallback('jim-shops:server:syncShops', function(source, cb) cb(Locations) end)
	Core.Functions.CreateCallback('jim-shops:server:getLicenseStatus', function(source, cb, licenseArray)
		local src = source
		local hasLicense = true
		local Player = Core.Functions.GetPlayer(src)
		local licenseTable = Player.PlayerData.metadata["licences"]
		for k,v in pairs(licenseArray) do
			if not licenseTable[v] then hasLicense = false end
		end
		cb(hasLicense)
	end)
	Core.Functions.CreateCallback('jim-shops:server:getItemStatus', function(source, cb, itemArray)
		local src = source
		local hasItem = true
		for k,v in pairs(itemArray) do
			if Config.System.Inv == "qb" and not Core.Functions.HasItem(src,v,1) then hasItem = false
			elseif Config.System.Inv == "ox" and exports.ox_inventory:Search(src, count, v) < 1 then hasItem = false end
		end
		cb(hasItem)
	end)

	Core.Functions.CreateCallback('jim-shops:server:GetStashItems',function(source, cb, stashId) cb(GetStashItems(stashId)) end)
elseif Config.System.Callback == "ox" then
	lib.callback.register('jim-shops:server:getBlackMarketLoc', function(source) return GetStashItems(BlackMarketSyncCoord) end)
	lib.callback.register('jim-shops:server:syncShops', function(source) return Locations end)
	lib.callback.register('jim-shops:server:getLicenseStatus', function(source, licenseArray)
		local src = source
		local hasLicense = true
		local Player = Core.Functions.GetPlayer(src)
		local licenseTable = Player.PlayerData.metadata["licences"]
		for k,v in pairs(licenseArray) do
			if not licenseTable[v] then hasLicense = false end
		end
		return hasLicense
	end)
	lib.callback.register('jim-shops:server:getItemStatus', function(source, itemArray)
		local src = source
		local hasItem = true
		for k,v in pairs(itemArray) do
			if Config.System.Inv == "qb" and not Core.Functions.HasItem(src, v, 1) then hasItem = false
			elseif Config.System.Inv == "ox" and exports.ox_inventory:Search(src, 'count', v) < 1 then hasItem = false end
		end
		return hasItem
	end)
	lib.callback.register('jim-shops:server:GetStashItems', function(source, stashId) return GetStashItems(stashId) end)
end

RegisterNetEvent('jim-shops:server:sellChips', function()
    local src = source
    local Player = Core.Functions.GetPlayer(src)
	if Config.System.Inv == "qb" then
		if not Player.Functions.GetItemByName(Config.Overrides.SellCasinoChips.chipItem) then
			triggerNotify(getName("casino"), "You don't have any "..Items[Config.Overrides.SellCasinoChips.chipItem].label.." to sell", src) return
		elseif Player.Functions.GetItemByName(Config.Overrides.SellCasinoChips.chipItem) then
			local amount = Player.Functions.GetItemByName(Config.Overrides.SellCasinoChips.chipItem).amount
			local price = Config.Overrides.SellCasinoChips.pricePer * amount
			if Player.Functions.RemoveItem(Config.Overrides.SellCasinoChips.chipItem, amount) then
				TriggerClientEvent('QBCore:Notify', src, "You sold your chips for $"..price)
				Player.Functions.AddMoney("cash", price, "sold-casino-chips")
			end
		end
	elseif Config.System.Inv == "ox" then
		local item = exports.ox_inventory:Items(Config.Overrides.SellCasinoChips.chipItem)
		if not Player.Functions.GetItemByName(Config.Overrides.SellCasinoChips.chipItem) then
			triggerNotify(getName("casino"), "You don't have any "..item.label.." to sell", src) return
		elseif Player.Functions.GetItemByName(Config.Overrides.SellCasinoChips.chipItem) then
			local amount = Player.Functions.GetItemByName(Config.Overrides.SellCasinoChips.chipItem).amount
			local price = Config.Overrides.SellCasinoChips.pricePer * amount
			if Player.Functions.RemoveItem(Config.Overrides.SellCasinoChips.chipItem, amount) then
				triggerNotify(getName("casino"), "You sold your chips for $"..price, src)
				Player.Functions.AddMoney("cash", price, "sold-casino-chips")
			end
		end
    end
end)

RegisterNetEvent('jim-shops:server:SaveStashItems', function(stashId, items)
	MySQL.Async.insert('INSERT INTO stashitems (stash, items) VALUES (:stash, :items) ON DUPLICATE KEY UPDATE items = :items', { ['stash'] = stashId, ['items'] = json.encode(items) })
end)