Is there anyway to make a better quest system than this?

I made a little quest system for my simulator game I'm making but I don't know if there is a way to make it better.

Script:

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

local Remotes = ReplicatedStorage:WaitForChild("Remotes")
local DataChanged = Remotes:WaitForChild("DataChanged")
local Datastore2 = require(ReplicatedStorage:FindFirstChild("Datastore2"))
local replicatedData = ReplicatedStorage:FindFirstChild("replicatedData")
local Quests = require(ReplicatedStorage:WaitForChild("Quests"))

local DataNum = ReplicatedStorage:WaitForChild("DataNum")

function checkQuests(player, typ, data) -- Checks Quests
	local QuestData = Datastore2("Quest"..DataNum.Value, player)
	local InventoryData = Datastore2("Inventory"..DataNum.Value, player)
	local PetData = Datastore2("Pets"..DataNum.Value, player)
	local CoinData = Datastore2("Coins"..DataNum.Value, player)
	local DiamondData = Datastore2("Diamonds"..DataNum.Value,player)
	local playerQuestData = QuestData:Get({})
	for QuestName,QuestTable in pairs(Quests) do
		if typ == "Inventory" then
			if (data[QuestTable.Food] and not playerQuestData[QuestName]) then
				if (data[QuestTable.Food] >= QuestTable.Amount) then
					local Reward = QuestTable.Reward
					local Type = Reward.Type
					local Value = Reward.Value
					local Amount = Reward.Amount
					QuestData:Update(function(currentData)
						currentData[QuestName] = true
						return currentData
					end)
					if Type == "Coins" then
						CoinData:Update(function(currentValue)
							currentValue = currentValue + Value
							return currentValue
						end)
					elseif Type == "Diamonds" then
						DiamondData:Update(function(currentAmount)
							currentAmount = currentAmount + Value
							return currentAmount
						end)
					elseif Type == "Inventory" then
						InventoryData:Update(function(currentDataTable)
							if currentDataTable[Value] then
								currentDataTable[Value] = currentDataTable[Value] + Amount
							else
								currentDataTable[Value] = Amount
							end
						end)
					elseif Type == "Pets" then
						PetData:Update(function(currentDataTable)
							if currentDataTable[Value] then
								currentDataTable[Value] = currentDataTable[Value] + Amount
							else
								currentDataTable[Value] = Amount
							end
						end)
					end
				end
			end
		elseif typ == "Coins" then
			if (data >= QuestTable.Amount) and (not playerQuestData[QuestName]) then
				
			end
		elseif typ == "Diamonds" then
			if (data >= QuestTable.Amount) and (not playerQuestData[QuestName]) then
				
			end
		elseif typ =="Pets" then
			
		end
	end
end

Players.PlayerAdded:Connect(function(player)
	local InventoryData = Datastore2("Inventory"..DataNum.Value, player)
	local PetData = Datastore2("Pets"..DataNum.Value, player)
	local CoinData = Datastore2("Coins"..DataNum.Value, player)
	local DiamondData = Datastore2("Diamonds"..DataNum.Value,player)
	local MaxBagData = Datastore2("MaxBag"..DataNum.Value, player)
	
	local playerInventory = InventoryData:Get({})
	local playerPets = PetData:Get({})
	local PlayerCoins = CoinData:Get(0)
	local playerDiamonds = DiamondData:Get(0)
	local MaxBagSize = MaxBagData:Get(10)
	
	local playerDataFolder = Instance.new("Folder")
	playerDataFolder.Name = player.UserId
	playerDataFolder.Parent = replicatedData
	
	local Inventory = Instance.new("StringValue")
	Inventory.Name = "Inventory"
	Inventory.Parent = playerDataFolder
	Inventory.Value = HttpService:JSONEncode(playerInventory)
	
	local Pets = Instance.new("StringValue")
	Pets.Name = "Pets"
	Pets.Parent = playerDataFolder
	Pets.Value = HttpService:JSONEncode(playerPets)
	
	local lb = Instance.new("Folder")
	lb.Name = "leaderstats"
	lb.Parent = player
	
	local Coins = Instance.new("NumberValue")
	Coins.Name = "Coins"
	Coins.Parent = lb
	Coins.Value = PlayerCoins
	
	local Diamonds = Instance.new("NumberValue")
	Diamonds.Name = "Diamonds"
	Diamonds.Parent = lb
	Diamonds.Value = playerDiamonds
	
	DiamondData:OnUpdate(function(currentAmount)
		Diamonds.Value = currentAmount
		DataChanged:FireClient(player, "Diamonds", currentAmount)
	end)
	
	CoinData:OnUpdate(function(currentAmount)
		Coins.Value = currentAmount
		
		DataChanged:FireClient(player, "Coins", currentAmount)
	end)
	
	PetData:OnUpdate(function(DecodedData)
		Pets.Value = HttpService:JSONEncode(DecodedData)
		DataChanged:FireClient(player, "Pets", DecodedData)
	end)
	
	InventoryData:OnUpdate(function(DecodedData)
		Inventory.Value = HttpService:JSONEncode(DecodedData)
		checkQuests(player, "Inventory", DecodedData)
		DataChanged:FireClient(player, "Inventory", DecodedData)
	end)
	MaxBagData:OnUpdate(function(currentAmount)
		
	end)
end)

Players.PlayerRemoving:Connect(function(player)
	local playerData = replicatedData:FindFirstChild(player.UserId)
	local InventoryData = Datastore2("Inventory", player)
	local PetData = Datastore2("Pets", player)
	local CoinData = Datastore2("Coins", player)
	local DiamondData = Datastore2("Diamonds",player)
	
	InventoryData:Save()
	PetData:Save()
	CoinData:Save()
	DiamondData:Save()
	
	if (playerData) then
		playerData:Destroy()
	end
end)

Quest Module:

local replicatedStorage = game:GetService("ReplicatedStorage")
local Datastore2 = replicatedStorage:WaitForChild("Datastore2")
local DataNum = replicatedStorage:WaitForChild("DataNum")

local Quests = {
	["Apple Lover"] = {
		Food = "Apple",
		Amount = 5,
		Reward = {
			Type = "Diamonds",
			Value = 5,
			Amount = nil,
		}
		
	},
	["Banana Peels"] = {
		Food = "Banana",
		Amount = 10,
		Reward = {
			Type = "Inventory",
			Value = "Pineapple",
			Amount = 8,
		}
	},
}

return Quests