Player Coins Go Into Negative Whenever You Buy Something?

Whenever you buy a pouch the player's currency goes into negatives? I'm not sure why. If I try to get rid of the currency Locally it goes back to the original currency!? There are no errors in the output

Serverscript

game.ReplicatedStorage.ShopEvents.PurchasedWhitePouch.OnServerEvent:Connect(function(player)
	local player = player
	local Bag = player:FindFirstChild("BagHolder")
	local Main = player:FindFirstChild("MainCurrency")
	local Coins = Main:FindFirstChild("Coins")
	local SmallBag = Bag:FindFirstChild("WhitePouch")
	for i,v in pairs(Bag:GetChildren()) do
			v.Value = false
			SmallBag.Value = true
			Main.MaxBlades.Value = 15
		end
end)

game.ReplicatedStorage.ShopEvents.PurchasedBluePouch.OnServerEvent:Connect(function(player)
	local player = player
	local Bag = player:FindFirstChild("BagHolder")
	local Main = player:FindFirstChild("MainCurrency")
	local BagOwned = player:FindFirstChild("BagOwned")
	local OwnerShip = BagOwned:FindFirstChild("BluePouchOwned")
	local Coins = Main:FindFirstChild("Coins")
	local SmallBag = Bag:FindFirstChild("BluePouch")
	for i,v in pairs(Bag:GetChildren()) do
			v.Value = false
			SmallBag.Value = true
			Main.MaxBlades.Value = 50
			OwnerShip.Value = true
			Coins.Value = Coins.Value - 50
		end
end)

game.ReplicatedStorage.ShopEvents.PurchasedGreenPouch.OnServerEvent:Connect(function(player)
	local player = player
	local Bag = player:FindFirstChild("BagHolder")
	local BagOwned = player:FindFirstChild("BagOwned")
	local OwnerShip = BagOwned:FindFirstChild("GreenPouchOwned")
	local Main = player:FindFirstChild("MainCurrency")
	local Coins = Main:FindFirstChild("Coins")
	local SmallBag = Bag:FindFirstChild("GreenPouch")
	for i,v in pairs(Bag:GetChildren()) do
			v.Value = false
			SmallBag.Value = true
			Main.MaxBlades.Value = 150
			OwnerShip.Value = true
			Coins.Value = Coins.Value - 150
		end
end)

game.ReplicatedStorage.ShopEvents.PurchasedYellowPouch.OnServerEvent:Connect(function(player)
	local player = player
	local Bag = player:FindFirstChild("BagHolder")
	local Main = player:FindFirstChild("MainCurrency")
	local Coins = Main:FindFirstChild("Coins")
	local SmallBag = Bag:FindFirstChild("YellowPouch")
	for i,v in pairs(Bag:GetChildren()) do
			v.Value = false
			SmallBag.Value = true
			Main.MaxBlades.Value = 300
			Coins.Value = Coins.Value - 500
		end
end)

game.ReplicatedStorage.ShopEvents.PurchasedOrangePouch.OnServerEvent:Connect(function(player)
	local player = player
	local Bag = player:FindFirstChild("BagHolder")
	local Main = player:FindFirstChild("MainCurrency")
	local Coins = Main:FindFirstChild("Coins")
	local SmallBag = Bag:FindFirstChild("OrangePouch")
	for i,v in pairs(Bag:GetChildren()) do
			v.Value = false
			SmallBag.Value = true
			Main.MaxBlades.Value = 750
			Coins.Value = Coins.Value - 1500
		end
end)

Purchase LocalScript In Button

script.Parent.Activated:Connect(function()
	local player = game.Players.LocalPlayer
	local Bag = player:FindFirstChild("BagHolder")
	local Main = player:FindFirstChild("MainCurrency")
	local Coins = Main:FindFirstChild("Coins")
	local Price = script.Parent.Parent.Price.Value
	local SmallBag = Bag:FindFirstChild("BluePouch")
	script.Parent.Click:Play()
	if Coins.Value >= Price then
		game.ReplicatedStorage.ShopEvents.PurchasedBluePouch:FireServer(player)
		Coins.Value = Coins.Value - 50
		
	else 
		script.Parent.Parent.Frame.Price.TextColor3 = Color3.fromRGB(255, 46, 19)
		wait(0.5)
		script.Parent.Parent.Frame.Price.TextColor3 = Color3.fromRGB(255, 255, 255)
	end
end)