sPlayers.module.lua

--// Initialization

local PlayerService = game:GetService("Players")

local Module = {}

--// Functions

function Module.IsTeamMate(PlayerOne, PlayerTwo)
	--/ Returns if PlayerOne and PlayerTwo are on the same team
	
	return PlayerOne.Team == PlayerTwo.Team
end

function Module.GetPlayersWithinRadius(Position, Radius, PlayerList)
	PlayerList = PlayerList or PlayerService:GetPlayers()
	local PlayersFound = {}
	
	for PlayerIndex, Player in next, PlayerList do
		if Player.Character then
			if Player.Character:FindFirstChild("HumanoidRootPart") then
				if (Player.Character.HumanoidRootPart.Position - Position).magnitude <= Radius then
					table.insert(PlayersFound, Player)
				end
			else
				warn(Player.Name .. " does not have a HumanoidRootPart and cannot be checked for Position")
				debug.traceback()
			end
		else
			warn(Player.Name .. " does not have a character and cannot be checked for Position")
			debug.traceback()
		end
	end
	
	return PlayersFound
end

function Module.GetObjectOwner(Descendant, AcceptNPCs)
	--/ Returns the Player and Character that the Descendant is part of
	
	assert(typeof(Descendant) == "Instance", "Descendant must be an Instance")
	
	local Character = Descendant
	local Player
	
	repeat
		if Character.Parent then
			Character = Character.Parent
			Player = PlayerService:GetPlayerFromCharacter(Character)
		else
			return nil
		end
	until Player or AcceptNPCs and Character:FindFirstChild("Humanoid")
	
	return Character, Player
end

function Module.GetObjectOwnerPlayer(Descendant)
	local Character, Player = Module.GetObjectOwner(Descendant, false)
	
	return Player
end

function Module.GetFriendsInServer(RequestingPlayer)
	local RequestingPlayerId = RequestingPlayer.UserId
	local FriendsInServer = {}
	
	for PlayerIndex, Player in next, PlayerService:GetPlayers() do
		if Player:IsFriendsWith(RequestingPlayerId) then
			if Player.UserId ~= RequestingPlayerId then
				table.insert(FriendsInServer, Player)
			end
		end
	end
	
	return FriendsInServer
end

function Module.BindToPlayers(Function)
	PlayerService.PlayerAdded:Connect(Function)
	
	for _, Player in next, PlayerService:GetPlayers() do
		spawn(function()
			Function(Player)
		end)
	end
end

function Module.BindToPlayerCharacter(Player, Function)
	Player.CharacterAdded:Connect(Function)
	
	if Player.Character ~= nil then
		Function(Player.Character)
	end
end

function Module.BindToCharacters(Function)
	Module.BindToPlayers(function(Player)
		Player.CharacterAdded:Connect(Function)
		
		if Player.Character then
			Function(Player.Character)
		end
	end)
end

return Module