Money subtracts 100 coins then i attempt to get some more money but returns previous?

ello, I am greatneil80...... As you see, i have this button and.. when the button is pressed, it adds some money....

Then, in a gui when I click a button, it subtracts money but when I attempt to get more, it becomes the previous value + 1 example: Gold = 100 then.. clicked gui.. gold = 0 then.. attempt for gold.. gold = 101 why is that happening ^ ;-;

script 1: Gui -- don't bother looking at the function.....

math.randomseed(tick())--So math.random doesn't repeat over again
local cooldown = script.Parent:WaitForChild("CoolDown")-- so that the monsters don't flick out from the map :3
gold = game:GetService("Players").LocalPlayer.leaderstats.Gold -- getting the players gold

wait(1)
local plr = game:GetService("Players").LocalPlayer

function RunScript() -- make a function
    local a = game.ReplicatedFirst.CharactersLevelOne:GetChildren() -- folder in server storage called characters level one, i get all the items from it and....
    local b = a[math.random(1,#a)]:Clone() -- i get math.random and choose one from that folder
    print("Before Result")
    wait(.1)
        if plr.SaveMonsters:FindFirstChild(b.Name) then
            print("After Result")
            print(b.Name) -- search through a load of saving intvalues in a  player
            local monster = plr.SaveMonsters:FindFirstChild(b.Name) -- if the name matches the item got then...
            print(b.Name)

            if monster then
                print(monster.Value)
                monster.Value = monster.Value + 1 -- add a value
            end
            print(monster.Value)
            print("Made My way through the dang script")
        else
            print("A rare monster isn't named on the list and cannot be Summoned")
        end
                local great = workspace.MOSTOFTHESCRIPTSAREHERE.PlayersMonsterLimit -- a variable that shows u the max amount of items u can have, so  if u get an item it will add a count / 10
        great.Value = great.Value + 1   -- add a value
        if great.Value >= 10 then -- if great is over 10 then
            wait(.01)
            script.Disabled = true -- disable the script
            if great.Value > 10 then -- if it is MORE than 10 then destroy the "b"
                b:Destroy()
            end
        end
        script.Parent.Parent:WaitForChild("FirstSummon").Text = "You Got.. "..b.Name
        wait(1)
        script.Parent.Parent:WaitForChild("FirstSummon").Text = "Buy Miniature Scroll (Beta)"
        b.Parent = workspace.Monsters -- then move its parent to a folder in workspace

        gold.Value = gold.Value - 100 -- remove money from the player

end














script.Parent.MouseButton1Click:connect(function() -- now, when button pressed :P
    if gold.Value >= 100 then
        cooldown.Visible = true
        RunScript()
        wait(1.5)
        cooldown.Visible = false
    end
    if gold.Value < 99 then
        script.Parent.Parent.FirstSummon.Text = "Not enough money"
        wait(3)
        script.Parent.Parent.FirstSummon.Text = "1 ~ 3 100 gold"
    end
end)

script 2: money adder (In a part)

script.Parent.PartClicker.MouseClick:connect(function(player)
    local stats = player:findFirstChild("leaderstats")
    local gold = stats:findFirstChild("Gold")
    if gold then
        gold.Value = gold.Value + 1
        print("Adding + 1 to current Value")
    end
end)