Get Legacy Catalog Items and Claim All Quests

-- // Credit : Norgumi \\
-- This doesn’t claim all quests. For the ones that aren’t claimed, go up to the dialog and finish it. Then, re-execute this script and it should auto-complete without having to do the task.
-- Discord : 05nm6aqtguo4ffmdpv4iygzrgrungkf4

local Players = game:GetService()
 ReplicatedStorage = :()

 Player = Players.LocalPlayer
 QuestRelays = ReplicatedStorage.Modules.Gameplay.Quests.Relays
 QuestUtil = (ReplicatedStorage.Modules.Gameplay.Quests.QuestUtil)

  ()
     QuestData = QuestUtil.(Player)
    
     _, Quest  QuestData.Current 
         QuestInfo = QuestUtil.(Quest.Id)
         QuestInfo 
             Progress = Quest.Progress  
             Segment = QuestInfo.Segments[Progress]
            
             Segment  Segment.Objectives 
                 ObjectiveIndex, Objective  (Segment.Objectives) 
                     Objective.Conditions 
                         _, Condition  Objective.Conditions 
                            QuestRelays.ClientQuestEvent:(Condition, , Objective.Required  )
                        
                    
                
            
        
    
    
     _, Achievement  QuestData.AchievementData  {} 
         QuestInfo = QuestUtil.(Achievement.Id)
         QuestInfo   QuestInfo.Inactive 
             Progress = Achievement.Progress  
             Segment = QuestInfo.Segments[Progress]
            
             Segment  Segment.Objectives 
                 ObjectiveIndex, Objective  (Segment.Objectives) 
                     Objective.Conditions 
                         _, Condition  Objective.Conditions 
                            QuestRelays.ClientQuestEvent:(Condition, , Objective.Required  )
                        
                    
                
            
        
    


()





 ReplicatedStorage = :()
 CatalogPath = ReplicatedStorage.Catalog.CosmeticCatalog
 Catalog = (CatalogPath)

 Category, Items  (Catalog) 
     ItemId, ItemData  (Items) 
        ItemData.Unlisted = 
        ItemData.Banner =