Script Name: RoomItemsTracker

Event Handlers:
gmcp.Char.Items.Add
gmcp.Char.Items.Remove
gmcp.Char.Items.List

Script:

roomitems = {}
RoomItemsTracker = function (act)
  roomitems = roomitems or {}
  if act == "gmcp.Char.Items.List" then
    if gmcp.Char.Items.List.location == "room" then
      roomitems = {}
      for k, v in ipairs (gmcp.Char.Items.List.items) do
        roomitems[v.id] = v.name
      end -- for
    end -- if
  elseif act == "gmcp.Char.Items.Add" then
    if gmcp.Char.Items.Add.location == "room" then
        roomitems[gmcp.Char.Items.Add.item.id] = gmcp.Char.Items.Add.item.name
    end -- if
  elseif act == "gmcp.Char.Items.Remove" then
    if gmcp.Char.Items.Remove.location == "room" then
      roomitems[gmcp.Char.Items.Remove.item.id] = nil
    end -- if
  end -- if
end -- func