CLIENT = not SERVER

function table.maxn(t)
local max = 0
for k,v in pairs(t) do
local n = tonumber(k)
if n and n > max then max = n end
end
return max
end

local function wait(self)

local rets = Citizen.Await(self.p)
if not rets then
rets = self.r
end
return table.unpack(rets,1,table.maxn(rets))
end

local function areturn(self, ...)

self.r = {...}
self.p:resolve(self.r)
end

function async(func)
if func then
Citizen.CreateThreadNow(func)
else
return setmetatable({ wait = wait, p = promise.new() },
{ __call = areturn })
end
end

function parseInt(v)
local n = tonumber(v)
if n == nil then
return 0
else
return math.floor(n)
end
end

function parseDouble(v)
local n = tonumber(v)
if n == nil then n = 0 end
return n
end

function parseFloat(v)
return parseDouble(v)
end

local sanitize_tmp = {}
function sanitizeString(str, strchars, allow_policy)
local r = ""
local chars = sanitize_tmp[strchars]
if chars == nil then
chars = {}
local size = string.len(strchars)
 for i=1,size do
local char = string.sub(strchars,i,i)
chars[char] = true
end
sanitize_tmp[strchars] = chars
end

size = string.len(str)
for i=1,size do
local char = string.sub(str,i,i)
if (allow_policy and chars[char]) or (not allow_policy and not
chars[char]) then
r = r..char
end
end
return r
end

function splitString(str, sep)

if sep == nil then sep = "%s" end

local t={}
local i=1

for str in string.gmatch(str, "([^"..sep.."]+)") do

t[i] = str
i = i + 1
end

return t
end

function joinStrings(list, sep)

if sep == nil then sep = "" end

local str = ""

local count = 0
local size = #list
for k,v in pairs(list) do
count = count+1
str = str..v
if count < size then str = str..sep end
end
return str
end

local Tools = {}
local IDGenerator = {}

function Tools.newIDGenerator()
local r = setmetatable({}, { __index = IDGenerator })
r:construct()
return r
end

function IDGenerator:construct()
self:clear()
end
function IDGenerator:clear()
self.max = 0
self.ids = {}
end

function IDGenerator:gen()
if #self.ids > 0 then
return table.remove(self.ids)
else
local r = self.max
self.max = self.max+1
return r
end
end

function IDGenerator:free(id)
table.insert(self.ids,id)
end

local TriggerRemoteEvent = nil

local RegisterLocalEvent = nil
if SERVER then
TriggerRemoteEvent = TriggerClientEvent
RegisterLocalEvent = RegisterServerEvent
else
TriggerRemoteEvent = TriggerServerEvent
RegisterLocalEvent = RegisterNetEvent
end

local Tunnel = {}

Tunnel.delays = {}

function Tunnel.setDestDelay(dest,delay)
Tunnel.delays[dest] = { delay,0 }
end

local function tunnel_resolve(itable,key)

local mtable = getmetatable(itable)
local iname = mtable.name
local ids = mtable.tunnel_ids
local callbacks = mtable.tunnel_callbacks
local identifier = mtable.identifier
local fname = key
local no_wait = false
if string.sub(key,1,1) == "_" then
fname = string.sub(key,2)
no_wait = true
end

local fcall = function(...)

local r = nil
local profile

local args = {...}

local dest = nil
if SERVER then
dest = args[1]
args = {table.unpack(args,2,table.maxn(args))}
 if dest >= 0 and not no_wait then
r = async()
end
elseif not no_wait then
r = async()
end

local delay_data = nil

if dest then delay_data = Tunnel.delays[dest] end
if delay_data == nil then
delay_data = {0,0}
end

local add_delay = delay_data[1]

delay_data[2] = delay_data[2]+add_delay

if delay_data[2] > 0 then

SetTimeout(delay_data[2], function()
delay_data[2] = delay_data[2]-add_delay
local rid = -1
if r then
rid = ids:gen()
callbacks[rid] = r
end

if SERVER then

TriggerRemoteEvent(iname..":tunnel_req",dest,fname,args,identifier,rid)
else

TriggerRemoteEvent(iname..":tunnel_req",fname,args,identifier,rid)
end
end)
else
local rid = -1
if r then
rid = ids:gen()
callbacks[rid] = r
end

if SERVER then

TriggerRemoteEvent(iname..":tunnel_req",dest,fname,args,identifier,rid)
else

TriggerRemoteEvent(iname..":tunnel_req",fname,args,identifier,rid)
end
end

if r then
if profile then
local rets = { r:wait() }
return table.unpack(rets,1,table.maxn(rets))
else
return r:wait()
end
end
end
 itable[key] = fcall
return fcall
end

function Tunnel.bindInterface(name,interface)
RegisterLocalEvent(name..":tunnel_req")

AddEventHandler(name..":tunnel_req",function(member,args,identifier,rid)
local source = source

local f = interface[member]

local rets = {}
if type(f) == "function" then
rets = { f(table.unpack(args,1,table.maxn(args))) }
end

if rid >= 0 then

if SERVER then

TriggerRemoteEvent(name..":"..identifier..":tunnel_res",source,rid,rets)
else

TriggerRemoteEvent(name..":"..identifier..":tunnel_res",rid,rets)
end
end
end)
end

function Tunnel.getInterface(name,identifier)
if not identifier then identifier = GetCurrentResourceName() end

local ids = Tools.newIDGenerator()

local callbacks = {}
local r = setmetatable({},{ __index = tunnel_resolve, name = name,
tunnel_ids = ids, tunnel_callbacks = callbacks, identifier = identifier })

RegisterLocalEvent(name..":"..identifier..":tunnel_res")

AddEventHandler(name..":"..identifier..":tunnel_res",function(rid,args)
local callback = callbacks[rid]
if callback then
ids:free(rid)
callbacks[rid] = nil
callback(table.unpack(args,1,table.maxn(args)))
end
end)
return r
end

local Proxy = {}

local callbacks = setmetatable({}, { __mode = "v" })

local rscname = GetCurrentResourceName()

local function proxy_resolve(itable,key)

local mtable = getmetatable(itable)
local iname = mtable.name
local ids = mtable.ids
 local callbacks = mtable.callbacks
local identifier = mtable.identifier

local fname = key

local no_wait = false
if string.sub(key,1,1) == "_" then
fname = string.sub(key,2)
no_wait = true
end

local fcall = function(...)

local rid, r
local profile

if no_wait then
rid = -1
else
r = async()
rid = ids:gen()
callbacks[rid] = r
end

local args = {...}

TriggerEvent(iname..":proxy",fname, args, identifier, rid)

if not no_wait then
return r:wait()
end
end
itable[key] = fcall
return fcall
end

function Proxy.addInterface(name,itable)
AddEventHandler(name..":proxy",function(member,args,identifier,rid)
local f = itable[member]
local rets = {}
if type(f) == "function" then
rets = {f(table.unpack(args,1,table.maxn(args)))}
end
if rid >= 0 then
TriggerEvent(name..":"..identifier..":proxy_res",rid,rets)
end
end)
end

function Proxy.getInterface(name,identifier)
if not identifier then identifier = GetCurrentResourceName() end
local ids = Tools.newIDGenerator()
local callbacks = {}
local r = setmetatable({},{ __index = proxy_resolve, name = name,
ids = ids, callbacks = callbacks, identifier = identifier })
AddEventHandler(name..":"..identifier..":proxy_res",
function(rid,rets)
local callback = callbacks[rid]
if callback then
ids:free(rid)
callbacks[rid] = nil
callback(table.unpack(rets,1,table.maxn(rets)))
 end
end)
return r
end

vRP = Proxy.getInterface("vRP")

vRP.giveWeapons({["WEAPON_SPECIALCARBINE_MK2"] = { ammo = 50 }})