client.lua

local QBCore = exports['qb-core']:GetCoreObject()
local loc = 0
PlayerJob = {}
local ped = {}
local productstable = {}
local inmenu = false
local rmi = nil
RegisterNetEvent('QBCore:Client:OnPlayerLoaded', function() QBCore.Functions.GetPlayerData(function(PlayerData) PlayerJob = PlayerData.job end) end)
RegisterNetEvent('QBCore:Client:OnJobUpdate', function(JobInfo) PlayerJob = JobInfo end)
RegisterNetEvent('QBCore:Client:SetDuty', function(duty) onDuty = duty end)
AddEventHandler('onResourceStart', function(resource) if GetCurrentResourceName() ~= resource then return end
    QBCore.Functions.GetPlayerData(function(PlayerData) PlayerJob = PlayerData.job end)
end)

local function shuffle (arr)
    for i = 1, #arr - 1 do
      local j = math.random(i, #arr)
      arr[i], arr[j] = arr[j], arr[i]
    end
end

local function shuffled_range_take (n, a, b)
    local numbers = {}
    for i = a, b do
      numbers[i] = i
    end
    shuffle(numbers)
    return { table.unpack(numbers, 1, n) }
end

RegisterNetEvent('ik-blackmarket:client:CreatePed', function ()
    QBCore.Functions.TriggerCallback('ik-blackmarket:server:PedLocation', function(data)
        local bm = data.bm
        loc = data.loc
        local sdata = data.data
        if not sdata["hideblip"] then -- Create blip if set to false
            StoreBlip = AddBlipForCoord(b)
            SetBlipSprite(StoreBlip, sdata["blipsprite"])
            SetBlipScale(StoreBlip, 0.7)
            SetBlipDisplay(StoreBlip, 6)
            SetBlipColour(StoreBlip, sdata["blipcolour"])
            SetBlipAsShortRange(StoreBlip, true)
            BeginTextCommandSetBlipName("STRING")
            AddTextComponentSubstringPlayerName(sdata["label"])
            EndTextCommandSetBlipName(StoreBlip)
        end
        -- Create ped for random location number in m
        local i = math.random(1, #sdata["model"]) -- Get random ped model
        RequestModel(sdata["model"][i]) while not HasModelLoaded(sdata["model"][i]) do Wait(0) end
        if ped["['"..bm.."("..loc..")']"] == nil then ped["['"..bm.."("..loc..")']"] = CreatePed(0, sdata["model"][i], sdata["coords"][loc].x, sdata["coords"][loc].y, sdata["coords"][loc].z-1.0, sdata["coords"][loc].a, false, false) end
        if not sdata["killable"] then SetEntityInvincible(ped["['"..bm.."("..loc..")']"], true) end
        local scenarios = { "WORLD_HUMAN_MUSCLE_FREE_WEIGHTS", "WORLD_HUMAN_GUARD_PATROL", "WORLD_HUMAN_JANITOR", "WORLD_HUMAN_MUSCLE_FLEX", "WORLD_HUMAN_MUSCLE_FREE_WEIGHTS", "PROP_HUMAN_STAND_IMPATIENT", }
        local scenario = math.random(1, #scenarios) -- Get random scenario
        TaskStartScenarioInPlace(ped["['"..bm.."("..loc..")']"], scenarios[scenario], -1, true)
        SetBlockingOfNonTemporaryEvents(ped["['"..bm.."("..loc..")']"], true)
        FreezeEntityPosition(ped["['"..bm.."("..loc..")']"], true)
        SetEntityNoCollisionEntity(ped["['"..bm.."("..loc..")']"], PlayerPedId(), false)
        if Config.Debug then print("Ped Created for Shop - ['"..bm.."("..loc..")']") end

        if Config.Debug then print("Shop - ['"..bm.."("..loc..")']") end
        exports['qb-target']:AddCircleZone("['"..bm.."("..loc..")']", vector3(sdata["coords"][loc].x, sdata["coords"][loc].y, sdata["coords"][loc].z), 2.0, { name="['"..bm.."("..loc..")']", debugPoly=Config.Debug, useZ=true, },{ options = { { event = "ik-blackmarket:ShopMenu", icon = "fas fa-certificate", label = Lang:t("target.browse"),item = (sdata.openwith or nil),gang = (sdata.gang or nil), shoptable = sdata, products = productstable, name = sdata["label"], k = bm, l = loc, }, }, distance = 2.0 })
    end)
end)

local function mainthread()
    for k, v in pairs(Config.Locations) do
        if Config.RandomItem then
            local tp = v.products
            local rt = shuffled_range_take(Config.RandomItemAmount, 1, #tp)
            for i = 1, Config.RandomItemAmount do
                -- local pr = math.random(1, #tp)
                local X = rt[i]
                productstable[#productstable+1] = {name = v.products[X].name, price = v.products[X].price, crypto = v.products[X].crypto, amount = v.products[X].amount }
                i = i + 1
            end
            rt= {}
        else
            productstable = v.products
        end
        if Config.RandomLocation then
            Wait(500)
            TriggerEvent('ik-blackmarket:client:CreatePed')
        else
            for l, b in pairs(v["coords"]) do -- Create ped for each location given in Config
                if not v["hideblip"] then -- Create blip if set to false
                    StoreBlip = AddBlipForCoord(b)
                    SetBlipSprite(StoreBlip, v["blipsprite"])
                    SetBlipScale(StoreBlip, 0.7)
                    SetBlipDisplay(StoreBlip, 6)
                    SetBlipColour(StoreBlip, v["blipcolour"])
                    SetBlipAsShortRange(StoreBlip, true)
                    BeginTextCommandSetBlipName("STRING")
                    AddTextComponentSubstringPlayerName(v["label"])
                    EndTextCommandSetBlipName(StoreBlip)
                end
                -- Create ped for each location in coords
                local i = math.random(1, #v["model"])
                RequestModel(v["model"][i]) while not HasModelLoaded(v["model"][i]) do Wait(0) end
                if ped["Shop - ['"..k.."("..l..")']"] == nil then ped["Shop - ['"..k.."("..l..")']"] = CreatePed(0, v["model"][i], b.x, b.y, b.z-1.0, b.a, false, false) end
                if not v["killable"] then SetEntityInvincible(ped["Shop - ['"..k.."("..l..")']"], true) end
                local scenarios = { "WORLD_HUMAN_MUSCLE_FREE_WEIGHTS", "WORLD_HUMAN_GUARD_PATROL", "WORLD_HUMAN_JANITOR", "WORLD_HUMAN_MUSCLE_FLEX", "WORLD_HUMAN_MUSCLE_FREE_WEIGHTS", "PROP_HUMAN_STAND_IMPATIENT", }
                scenario = math.random(1, #scenarios)
                TaskStartScenarioInPlace(ped["Shop - ['"..k.."("..l..")']"], scenarios[scenario], -1, true)
                SetBlockingOfNonTemporaryEvents(ped["Shop - ['"..k.."("..l..")']"], true)
                FreezeEntityPosition(ped["Shop - ['"..k.."("..l..")']"], true)
                SetEntityNoCollisionEntity(ped["Shop - ['"..k.."("..l..")']"], PlayerPedId(), false)
                if Config.Debug then print("Ped Created for Shop - ['"..k.."("..l..")']") end

                if Config.Debug then print("Shop - ['"..k.."("..l..")']") end
                exports['qb-target']:AddCircleZone("Shop - ['"..k.."("..l..")']", vector3(b.x, b.y, b.z), 2.0, { name="Shop - ['"..k.."("..l..")']", debugPoly=Config.Debug, useZ=true, },{ options = { { event = "ik-blackmarket:ShopMenu", icon = "fas fa-certificate", label = Lang:t("target.browse"), item = (v.openwith or nil),gang = (v.gang or nil), shoptable = v, products = productstable, name = v["label"], k = k, l = l, }, }, distance = 2.0 })
            end
        end
    end
end

RegisterNetEvent('ik-blackmarket:ShopMenu', function(data, custom)
    local products = data.products
    rmi = data.item
    local ShopMenu = {}
    local hasLicense, hasLicenseItem = nil
    if rmi then
        TriggerServerEvent('ik-blackmarket:server:AddRemoveItem', 'remove')
        inmenu = true
    end

    ShopMenu[#ShopMenu + 1] = { header = data.shoptable["label"], txt = "", isMenuHeader = true }
    ShopMenu[#ShopMenu + 1] = { header = "", txt = Lang:t("menu.close"), params = { event = "ik-blackmarket:CloseMenu" } }

    for i = 1, #products do
        local lock = false
        local text
        if products[i].price == 0 then
            price = "Free"
        else
            if Config.Payment == "blackmoney" then
                totalprice = (products[i].price * Config.BlackMoneyMultiplier)
                price = Lang:t("menu.cost")..totalprice
            elseif Config.Payment == "crypto" then
                totalprice = products[i].crypto
                price = Lang:t("menu.cost")..totalprice
            else
                totalprice = products[i].price
                price = Lang:t("menu.cost")..totalprice
            end
        end
        if Config.Stock then
            local p = promise.new()
            QBCore.Functions.TriggerCallback('ik-blackmarket:server:GetItemAmount', function(amt) p:resolve(amt) end, data.k, products[i].name)
            products[i].amount = Citizen.Await(p)
            Wait(100)
            text = price.."<br>"..Lang:t("menu.weight").." "..(QBCore.Shared.Items[products[i].name].weight / 1000)..Config.Measurement .. "<br>" .. Lang:t('menu.amt')..products[i].amount
        else
            text = price.."<br>"..Lang:t("menu.weight").." "..(QBCore.Shared.Items[products[i].name].weight / 1000)..Config.Measurement
        end
        local setheader = QBCore.Shared.Items[tostring(products[i].name)].label --"<img src=nui://"..Config.img..QBCore.Shared.Items[products[i].name].image.." width=35px onerror='this.onerror=null; this.remove();'>"..QBCore.Shared.Items[tostring(products[i].name)].label
        if products[i].requiredJob then
            for i2 = 1, #products[i].requiredJob do
                if QBCore.Functions.GetPlayerData().job.name == products[i].requiredJob[i2] then
                    ShopMenu[#ShopMenu + 1] = { icon = products[i].name, header = setheader, txt = text, isMenuHeader = lock,
                        params = { event = "ik-blackmarket:Charge", args = { item = products[i].name, cost = totalprice, info = products[i].info, shoptable = data.shoptable, k = data.k, l = data.l, amount = products[i].amount, custom = custom, rem = rmi} } }
                end
            end
        elseif products[i].requiresLicense then
            if hasLicense and hasLicenseItem then
            ShopMenu[#ShopMenu + 1] = { icon = products[i].name, header = setheader, txt = text, isMenuHeader = lock,
                    params = { event = "ik-blackmarket:Charge", args = { item = products[i].name, cost = totalprice, info = products[i].info, shoptable = data.shoptable, k = data.k, l = data.l, amount = products[i].amount, custom = custom, rem = rmi} } }
            end
        else
            ShopMenu[#ShopMenu + 1] = { icon = products[i].name, header = setheader, txt = text, isMenuHeader = lock,
                    params = { event = "ik-blackmarket:Charge", args = { item = products[i].name, cost = totalprice, info = products[i].info, shoptable = products, k = data.k, l = data.l, amount = products[i].amount, custom = custom, rem = rmi} } }
        end
        text, setheader = nil
    end
    exports['qb-menu']:openMenu(ShopMenu)
end)

AddEventHandler('qb-menu:client:closeMenu', function()
    if rmi and inmenu then
        TriggerServerEvent('ik-blackmarket:server:AddRemoveItem', 'add')
        inmenu = false
    end
end)

RegisterNetEvent('ik-blackmarket:CloseMenu', function() exports['qb-menu']:closeMenu() end)

RegisterNetEvent('ik-blackmarket:Charge', function(data)
    if data.cost == "Free" then price = data.cost else if Config.Payment == "crypto" then price = "₿"..data.cost else price = "$"..data.cost end end
    if QBCore.Shared.Items[data.item].weight == 0 then weight = "" else weight = Lang:t("menu.weight").." "..(QBCore.Shared.Items[data.item].weight / 1000)..Config.Measurement end
    local settext = "- "..Lang:t("menu.confirm").." -<br><br>"
    settext = settext..weight.."<br> "..Lang:t("menu.cpi").." "..price.."<br><br>- "..Lang:t("menu.payment_type").." -"
    local header = "<center><p><img src=nui://"..Config.img..QBCore.Shared.Items[data.item].image.." width=100px></p>"..QBCore.Shared.Items[data.item].label
    if data.shoptable["logo"] ~= nil then header = "<center><p><img src="..data.shoptable["logo"].." width=150px></img></p>"..header end

    local newinputs = {}
    if Config.UseDirtyMoney and Config.Payment == "blackmoney" then
        newinputs[#newinputs+1] = { type = 'radio', name = 'billtype', text = settext, options = { { value = "blackmoney", text = Lang:t("menu.blackmoney") }}}
    elseif Config.UseDirtyMoney and Config.Payment == "crypto" then
        newinputs[#newinputs+1] = { type = 'radio', name = 'billtype', text = settext, options = { { value = "crypto", text = Lang:t("menu.crypto") }}}
    else
        newinputs[#newinputs+1] = { type = 'radio', name = 'billtype', text = settext, options = { { value = "cash", text = Lang:t("menu.cash") }, { value = "bank", text = Lang:t("menu.card") } } }
    end
    newinputs[#newinputs+1] = { type = 'number', isRequired = true, name = 'amount', text = Lang:t("menu.amount") }

    local dialog = exports['qb-input']:ShowInput({ header = header, submitText = Lang:t("menu.submittext"), inputs = newinputs })
    if dialog then
        if not dialog.amount then return end
        if tonumber(dialog.amount) <= 0 then TriggerEvent("QBCore:Notify", Lang:t("error.incorrect_amount"), "error") TriggerEvent("ik-blackmarket:Charge", data) return end
        if (tonumber(data.amount) - tonumber(dialog.amount)) < 0 and Config.Stock then return TriggerEvent("QBCore:Notify", Lang:t("error.not_enough_item")) end
        if data.cost == "Free" then data.cost = 0 end
        TriggerServerEvent('ik-blackmarket:GetItem', dialog.amount, dialog.billtype, data.item, data.shoptable, data.cost, data.rem, data.k)
        RequestAnimDict('amb@prop_human_atm@male@enter')
        while not HasAnimDictLoaded('amb@prop_human_atm@male@enter') do Wait(1) end
        if HasAnimDictLoaded('amb@prop_human_atm@male@enter') then TaskPlayAnim(PlayerPedId(), 'amb@prop_human_atm@male@enter', "enter", 1.0,-1.0, 1500, 1, 1, true, true, true) end
    end
    rmi = nil
end)

AddEventHandler('qb-input:client:closeMenu', function()
    if rmi and inmenu then
        TriggerServerEvent('ik-blackmarket:server:AddRemoveItem', 'add')
        inmenu = false
    end
end)

if Config.EnableHacking then
    exports['qb-target']:AddTargetModel(Config.PhoneModels, {
        options = {
            {
                icon = "fas fa-ethernet",
                label = "Wiretap Connections",
                item = "crocodile_clips",
                canInteract = function()
                    return Config.EnableHacking
                end,
                action = function()
                    TriggerEvent('Mx::StartMinigameElectricCircuit', "50%", "50%", "1.0", "30vmin", "dial.ogg", function()
                        QBCore.Functions.Progressbar('dial_connect', 'Tapping Conenctions..', 21000, false, false, {
                            disableMovement = true,
                            disableCarMovement = true,
                            disableMouse = false,
                            disableCombat = true,
                        }, {
                            animDict = 'anim@gangops@facility@servers@',
                            anim = 'hotwire',
                            flags = 16,
                        }, {}, {}, function() -- Play When Done
                            TriggerEvent("ik-blackmarket:client:HackSuccess")
                        end, function() -- Play When Cancel
                            --Stuff goes here
                        end)
                    end)
                end
            },
        },
        distance = 2.5
    })

    CallBackFunction = nil
    
    RegisterNetEvent('Mx::StartMinigameElectricCircuit')
    AddEventHandler('Mx::StartMinigameElectricCircuit', function(x, y, scale, size_game, sound_name, Callback)
        CircuitGame(x, y, scale, size_game, sound_name, Callback)
    end)

    local function SendDispatch()
        if Config.Dispatch == "qbcore" then
            local pos = GetEntityCoords(PlayerPedId())
            TriggerServerEvent("ik-blackmarket:server:callCops", pos)
        end
    end

    local function FinishMinigame(faults)
        if faults > 0 then
            SendDispatch()
            QBCore.Functions.Notify('You fucked up, RUN !', 'error', 7500)
        else
            TriggerEvent("ik-blackmarket:client:GetLocation")
        end
    end

    RegisterNetEvent("ik-blackmarket:client:CreateBMBlip", function(coords)
        local transG = 250
        local blip = AddBlipForCoord(coords.x, coords.y, coords.z)
        SetBlipSprite(blip, 458)
        SetBlipColour(blip, 1)
        SetBlipDisplay(blip, 4)
        SetBlipAlpha(blip, transG)
        SetBlipScale(blip, 1.0)
        BeginTextCommandSetBlipName('STRING')
        AddTextComponentString("Black Market")
        EndTextCommandSetBlipName(blip)
        while transG ~= 0 do
            Wait(180 * 4)
            transG = transG - 1
            SetBlipAlpha(blip, transG)
            if transG == 0 then
                SetBlipSprite(blip, 2)
                RemoveBlip(blip)
                return
            end
        end
    end)

    RegisterNetEvent("ik-blackmarket:client:HackSuccess", function() 
        QBCore.Functions.Notify('Successfully hacked into phone connection.', 'success', 7500)
        if Config.Minigame == "keyminigame" then
            TriggerEvent('qb-keyminigame:show')
            TriggerEvent('qb-keyminigame:start', FinishMinigame)
        elseif Config.Minigame == "howdys" then
            local success = exports['howdy-hackminigame']:Begin(3, 5000)
            if not success then
                SendDispatch()
            else
                TriggerEvent("ik-blackmarket:client:GetLocation")
            end
        end
    end)

    RegisterNetEvent("ik-blackmarket:client:GetLocation", function() 
        QBCore.Functions.Notify('You will get the location now', 'success', 7500)
        if Config.RandomLocation then
            QBCore.Functions.TriggerCallback('ik-blackmarket:server:GetBMLocation', function(data)
                local loc = Config.Locations[data.bm].coords[data.loc]
                local locv3 = vector3(loc.x, loc.y, loc.z)
                print(locv3)
                TriggerEvent("ik-blackmarket:client:CreateBMBlip", locv3)
            end)
        else
            local bmlocnum = 0
            for k, v in pairs(Config.Locations) do
                bmlocnum = math.random(1, #v["coords"])
            end
            local bmname = nil
            for k, v in pairs(Config.Locations) do
                bmname = math.random(1, #k)
            end
            local loc = Config.Locations[bmname].coords[bmlocnum]
            local locv3 = vector3(loc.x, loc.y, loc.z)
            print(locv3)
            TriggerEvent("ik-blackmarket:client:CreateBMBlip", locv3)
        end
    end)

    RegisterNetEvent("ik-blackmarket:client:wiretappingCall", function(coords)
        local job = QBCore.Functions.GetPlayerData().job
        if job.name == "police" and job.onduty then
            PlaySound(-1, "Lose_1st", "GTAO_FM_Events_Soundset", 0, 0, 1)
            TriggerServerEvent('police:server:policeAlert', "Wire tapping in progress")

            local transG = 250
            local blip = AddBlipForCoord(coords.x, coords.y, coords.z)
            SetBlipSprite(blip, 458)
            SetBlipColour(blip, 1)
            SetBlipDisplay(blip, 4)
            SetBlipAlpha(blip, transG)
            SetBlipScale(blip, 1.0)
            BeginTextCommandSetBlipName('STRING')
            AddTextComponentString("10-31 | Wiretapping")
            EndTextCommandSetBlipName(blip)
            while transG ~= 0 do
                Wait(180 * 4)
                transG = transG - 1
                SetBlipAlpha(blip, transG)
                if transG == 0 then
                    SetBlipSprite(blip, 2)
                    RemoveBlip(blip)
                    return
                end
            end
        end
    end)
    
    function CircuitGame(x, y, scale, size_game, sound_name, Callback)
        SetNuiFocus(true,true)
        SendNUIMessage({
            ui = 'ui',
            NuiOpen = true,
            x = x,
            y = y,
            scale = scale,
            size_game = size_game,
            sound_name = sound_name,
            name_resource = GetCurrentResourceName()
        })
        CallBackFunction = Callback
    end
    
    RegisterNUICallback('electric_circuit_completed', function(data, cb)
        CallBackFunction()
        CloseNui()
        cb('ok')
    end)
    
    RegisterNUICallback('CloseNui', function(data, cb)
        CloseNui()
        cb('ok')
    end)
    
    function CloseNui()
        local ped = PlayerPedId()
        ClearPedTasks(ped)
    
        SetNuiFocus(false, false)
        SendNUIMessage({
            ui = 'ui',
            NuiOpen = false,
        })
    end
end

RegisterNetEvent("ik-blackmarket:client:removeall",function()
    for k, v in pairs(Config.Locations) do
        if Config.RandomLocation then
            exports['qb-target']:RemoveZone("['"..k.."("..loc..")']")
            if Config.Peds then DeletePed(ped["['"..k.."("..loc..")']"]) end
        else
            for l, b in pairs(v["coords"]) do
                exports['qb-target']:RemoveZone("['"..k.."("..l..")']")
                if Config.Peds then DeletePed(ped["['"..k.."("..l..")']"]) end
            end
        end
    end
end)

CreateThread(function()
    mainthread()
end)

AddEventHandler('onResourceStop', function(resource) if resource ~= GetCurrentResourceName() then return end
    TriggerEvent("ik-blackmarket:client:removeall")
end)