Function RoomWithEntranceFor