How To Fix Chat Activated Tool Giver?

You would have to get all the players from the game and compare their name with the message. I hope this should work, if it doesn't or you meant something different, please say!

local GroupID = 3248427

 game.Players.PlayerAdded:connect(function(player)
    player.Chatted:connect(function(message)
        if player:IsInGroup(GroupID) and player:GetRankInGroup(3248427) >= 5 then
	   for index, plr in pairs(game.Players:GetPlayers()) do
              if message == ":give ".. plr.Name .." room 101" then
		 -- Do what you want, plr is the player!
                  game.Players.LocalPlayer:GetChildren()
                  print(player.LocalPlayer.Character.Name)
                  print(player.LocalPlayer.Name)
                  game.ReplicatedStorage["Room101"]:Clone().Parent = game.Workspace[player.Name]

                  script.Parent.SurfaceGui.Frame.R101.BackgroundColor3 = script.Parent.SurfaceGui.Frame.R101.ColorInActive.Value 
                  end
		end
            end
        end)
 end)

I hope this works for you, if you want to understand how it works I'll give a quick example

local target = 'randomPlayer' -- set up a target

for index, plr in pairs(game.Players:GetPlayers()) do -- Get all players
	if plr.Name == target then -- test if names are the same
		-- code
	end
end