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("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

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

local function CompleteAllQuests()
    local QuestData = QuestUtil.GetQuestData(Player)
    
    for _, Quest in QuestData.Current do
        local QuestInfo = QuestUtil.GetQuest(Quest.Id)
        if QuestInfo then
            local Progress = Quest.Progress or 1
            local Segment = QuestInfo.Segments[Progress]
            
            if Segment and Segment.Objectives then
                for ObjectiveIndex, Objective in ipairs(Segment.Objectives) do
                    if Objective.Conditions then
                        for _, Condition in Objective.Conditions do
                            QuestRelays.ClientQuestEvent:FireServer(Condition, nil, Objective.Required or 999)
                        end
                    end
                end
            end
        end
    end
    
    for _, Achievement in QuestData.AchievementData or {} do
        local QuestInfo = QuestUtil.GetQuest(Achievement.Id)
        if QuestInfo and not QuestInfo.Inactive then
            local Progress = Achievement.Progress or 1
            local Segment = QuestInfo.Segments[Progress]
            
            if Segment and Segment.Objectives then
                for ObjectiveIndex, Objective in ipairs(Segment.Objectives) do