How to merge these two scripts together?

I have made a money system in an obstacle course game, and I have obtained a script for buying trails in my game. I noticed that they have similar coding, which is why I've been attempting to combine it for the past two hours. However, I've been struggling to combine my two scripts and it's frustrating to no end. Can anyone help me out here?

First one

CashStore = game:GetService("DataStoreService"):GetDataStore("DataStore")

function PlayerEntered(player)
	repeat wait() until player.Character
	
	local stats = Instance.new("IntValue")
	stats.Parent = player
	stats.Name = "leaderstats"
	
	local cash = Instance.new("IntValue")
	cash.Parent = stats
	cash.Name = "Gold"
	
	if CashStore:GetAsync("Points_"..player.Name) ~= nil then
		cash.Value = CashStore:GetAsync("Points_"..player.Name)
	else
		cash.Value = 0
	end
	
	cash.Changed:connect(function(Val)
		CashStore:SetAsync("Points_"..player.Name, Val)
	end)
end

game.Players.PlayerAdded:connect(PlayerEntered)

Second one

local dss = game:GetService("DataStoreService")
local ds = dss:GetDataStore("DATA")

local trails = game.ReplicatedStorage:WaitForChild("Trails")


function createAtchs(char)
	
	local hrp = char:WaitForChild("HumanoidRootPart")

	local atchTop = Instance.new("Attachment", hrp)
	atchTop.Name = "TrailTop"
	atchTop.Position = Vector3.new(0, 0.766, 0)

	local atchBtm = Instance.new("Attachment", hrp)
	atchBtm.Name = "TrailBottom"
	atchBtm.Position = Vector3.new(0, -0.766, 0)
end


function saveData(plrLeaving)
	
	local ownedTrails = {}
	for i, trail in pairs(plrLeaving.OwnedTrails:GetChildren()) do
		table.insert(ownedTrails, trail.Name)
	end

	local success, err = pcall(function()
		ds:SetAsync("trails-" .. plrLeaving.UserId, ownedTrails)
		
	CashStore = game:GetService("DataStoreService"):GetDataStore("DataStore")

		function PlayerEntered(player)
			repeat wait() until player.Character

			local stats = Instance.new("IntValue")
			stats.Parent = player
			stats.Name = "leaderstats"

			local cash = Instance.new("IntValue")
			cash.Parent = stats
			cash.Name = "Gold"

			if CashStore:GetAsync("Points_"..player.Name) ~= nil then
				cash.Value = CashStore:GetAsync("Points_"..player.Name)
			else
				cash.Value = 0
			end

			cash.Changed:connect(function(Val)
				CashStore:SetAsync("Points_"..player.Name, Val)
			end)
		end

		game.Players.PlayerAdded:connect(PlayerEntered)


game.Players.PlayerAdded:Connect(function(plr)
	
	
	local trailsOwned = {}
	local cash = 2000
	pcall(function()
		trailsOwned = ds:GetAsync("trails-" .. plr.UserId) or {}
		cash = ds:GetAsync("Points_" .. plr.UserId) or 2000
	end)
	
	
	local ls = Instance.new("Folder", plr)
	ls.Name = "leaderstats"
	
	local cash = Instance.new("IntValue", ls)
	cash.Name = "Gold"
	cash.Value = cash
	
	
	local ownedFolder = Instance.new("Folder", plr)
	ownedFolder.Name = "OwnedTrails"
	
	
	for i, owned in pairs(trailsOwned) do
		
		if trails:FindFirstChild(owned) then
			
			trails[owned]:Clone().Parent = ownedFolder
		end
	end
	
	if plr.Character then createAtchs(plr.Character) end
	
	plr.CharacterAdded:Connect(createAtchs)
end)


game.Players.PlayerRemoving:Connect(saveData)

game:BindToClose(function()
	
	for i, plrLeaving in pairs(game.Players:GetPlayers()) do
		saveData(plrLeaving)
	end
end)


game.ReplicatedStorage.TrailSelectedRE.OnServerEvent:Connect(function(plr, buying, trail)
	
	if buying and not plr.OwnedTrails:FindFirstChild(trail.Name) then
		
		local price = trail.Price.Value
		local cash = plr.leaderstats.Gold
		
		if price <= cash.Value then
			
			cash.Value -= price
			
			
			trail:Clone().Parent = plr.OwnedTrails
		end
		
		
	elseif not buying and plr.OwnedTrails:FindFirstChild(trail.Name) then
		
		local char = plr.Character
		
		if not char or not char:FindFirstChild("HumanoidRootPart") then return end
		
		for i, child in pairs(char.HumanoidRootPart:GetChildren()) do
			
			
			if child:IsA("Trail") then child:Destroy() end
		end
		
		
		local newTrail = trail:Clone()

		newTrail.Attachment0 = char.HumanoidRootPart.TrailTop
		newTrail.Attachment1 = char.HumanoidRootPart.TrailBottom

		newTrail.Parent = char.HumanoidRootPart
	end
end)

Much appreciated if anyone took a look at this, or attempted to merge it. :)