Voip splitting system

-- Voice splitting system
-- Cookay and thank you Ferrum for the concept

-- CFG
local timeBetweenCheck = 250

-- Variables
local deltas =
{
    vector2(-1, -1),
    vector2(-1, 0),
    vector2(-1, 1),
    vector2(0, -1),
    vector2(1, -1),
    vector2(1, 0),
    vector2(1, 1),
    vector2(0, 1),
}

local cookayVoiceChannel = "NONE"

local targetList = {}
local lastTargetList = {}

-- Functions
local function ShowDebugText(text)
    ClearPrints()

    -- when drawing
    BeginTextCommandDisplayText('COOKAYDEBUGMUMBLE')
    AddTextComponentSubstringPlayerName(text)
    EndTextCommandDisplayText(0.0, 0.9)
end

local function getGridChunk(x)
    return math.floor((x + 8192) / 128)
end

local function getGridBase(x)
    return (x * 128) - 8192
end

local function toChannel(v)
    return (v.x << 8) | v.y
end

local function DoVoiceSystem()
    local coords = GetEntityCoords(PlayerPedId())

    local gz = vector2(getGridChunk(coords.x), getGridChunk(coords.y))

    local gridZone = toChannel(gz)
    if gridZone == 1 then print("------------ Set voice channel to : " .. gridZone .. " ---------------------") end
    cookayVoiceChannel = gridZone
    NetworkSetVoiceChannel(gridZone)

    targetList = {}

    for _, d in ipairs(deltas) do
        local v = coords.xy + (d * 20) -- edge size

        targetList[toChannel(vector2(getGridChunk(v.x), getGridChunk(v.y)))] = true
    end

    -- super naive hash difference
    local different = false

    for k, _ in pairs(targetList) do
        if not lastTargetList[k] then
            different = true
            break
        end
    end

    if not different then
        for k, _ in pairs(lastTargetList) do
            if not targetList[k] then
                different = true
                break
            end
        end
    end

    if different then
        -- you might want to swap between two targets when changing
        MumbleClearVoiceTarget(2)

        for k, _ in pairs(targetList) do
            MumbleAddVoiceTargetChannel(2, k)
        end

        MumbleSetVoiceTarget(2)

        lastTargetList = targetList
    end
end

-- Loop
Citizen.CreateThread(function()
    Citizen.Wait(500)

    while true do
        DoVoiceSystem()
        Citizen.Wait(250)
    end
end)

Citizen.CreateThread(function()
    Citizen.Wait(1000)

    AddTextEntry('COOKAYDEBUGMUMBLE', "<p align='center'><font size='30'>~r~Debug : ~w~~a~</font></p>")

    while true do
        ShowDebugText(cookayVoiceChannel)
        Citizen.Wait(0)
    end
end)