function GetNearestPedByPed(HndlPed, radius, minPlayerNear)
if doesCharExist(HndlPed) then -- проверяем, существует ли Handle
local tableArr = {}
local countPlayers = 0
local posXpl, posYpl = getCharCoordinates(HndlPed)
for _,player in pairs(getAllChars()) do -- перебираем все Handle игроков в зоне стрима
if player ~= HndlPed then -- проверяем не совпадает ли Handle игрока и указанный Handle
local playerid = select(2, sampGetPlayerIdByCharHandle(player)) -- получаем ID игрока
if not sampIsPlayerNpc(playerid) and playerid ~= -1 then -- проверяем не NPC ли этот игрок
local posX, posY, posZ = getCharCoordinates(player) -- получаем координаты игрока
for _,player1 in pairs(getAllChars()) do -- перебираем ещё раз все Handle игроков в зоне стрима для подсчёта кол-ва игроков вокруг другого
local playerid = select(2, sampGetPlayerIdByCharHandle(player1)) -- получаем ID игрока
if not sampIsPlayerNpc(playerid) and playerid ~= -1 then -- проверяем не NPC ли этот игрок
local x,y,z = getCharCoordinates(player1)
if getDistanceBetweenCoords2d(x, y, posX, posY) < 2 then countPlayers = countPlayers + 1 end -- получаем дистанцию между координатами игрока и координатами остальных игроков
end
end
local distBetween2d = getDistanceBetweenCoords2d(posXpl, posYpl, posX, posY)
if minPlayerNear ~= false then -- если проверка на кол-во игроков включена, то..
if tonumber(minPlayerNear) >= countPlayers then -- если кол-во игроков вокруг ближайшего игрока меньше или равно, чем указанное, то..
table.insert(tableArr, {distBetween2d, player, posX, posY, posZ, countPlayers - 1}) -- записываем в таблицу данные
end
else table.insert(tableArr, {distBetween2d, player, posX, posY, posZ, countPlayers - 1}) end -- если функция выключена, то записываем данные
countPlayers = 0
end
end
end
if #tableArr > 0 then -- если в таблице есть данные, то...
table.sort(tableArr, function(a, b) return (a[1] < b[1]) end) -- сортируем 1-ое значение в каждом массиве от меньшего к большому.
if radius ~= false then -- если функция проверки на радиус включена, то..
if tableArr[1][1] <= tonumber(radius) then -- если дистанция меньше или равна заданному радиусу, то ..
return true, tableArr[1][2], tableArr[1][1], tableArr[1][3], tableArr[1][4], tableArr[1][5], tableArr[1][6] -- возвращаем значения
end
else return true, tableArr[1][2], tableArr[1][1], tableArr[1][3], tableArr[1][4], tableArr[1][5], tableArr[1][6] end -- иначе, возвращаем данные
end
end
return false
end
