Reserved ammo miscalculation

[Jembis07 (Griller)]

I’m working on an ammo kind of tool that increases the reserved ammo for a gun I’m making when activated. The script is supposed to add 16 ammo each time, but instead, the ammo count sometimes increases incorrectly.

–Magazine tool

local tool = script.Parent
local handle = tool:WaitForChild(“Handle”)
local clickSound = handle.Ammo
clickSound.Volume = 0.5

local function Inserted()
local char = game.Players:GetPlayerFromCharacter(tool.Parent)
if char then
print(“Char Detected”)
local firearm = char.Backpack:FindFirstChild(“CZ-75”)
if firearm then
print(firearm.Name… " Detected")
local config = firearm:FindFirstChild(“Config”)
if config then
warn(“Config Detected”)
config.conf_sys.ammo.ammo_rsrv.Value +=16
end
end
end
end

tool.Activated:Connect(Inserted)

–Gun tool (Client)

--[MAIN VARIABLES]--

--Specifications
local firearm = script.Parent
local hand = firearm.Handle
local revent = firearm.RemoteEvent
local raevent = firearm.ReservedAmmoEvent
local uis = game:GetService("UserInputService")
local ts = game:GetService("TweenService")

local plr = game.Players.LocalPlayer
local mice = plr:GetMouse()
local debounce = false
local equip = false

--Configuration
local conf = firearm.Config

local devconf = conf.conf_dev_common
local confsys = conf.conf_sys
local confcom = conf.conf_common

--Sound
local shootsfx = hand.sfx_fire
local emptysfx = hand.sfx_empty
local equipsfx = hand.sfx_equip
local reloadsfx = hand.sfx_reload

--Reload
local reloadtime = reloadsfx.TimeLength + 0.1
local reloading = false

--Ammo
local amax = confsys.ammo.ammo_max
local acount = confsys.ammo.ammo_count
local arsrv = confsys.ammo.ammo_rsrv

local aui = firearm.Ammo.ui_ammo.ui_ammoC
local rui = firearm.Ammo.ui_ammo.ui_ammoR

--[MAIN FUNCTIONS]--

--Equip function
firearm.Equipped:Connect(function()
	mice.Icon = confcom.Crosshair.ShirtTemplate
	equipsfx:Play()

	aui.TextTransparency = 0
	aui.Text = acount.Value.. "|" ..amax.Value
	rui.TextTransparency = 0
	rui.Text = arsrv.Value
	ts:Create(aui, TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.Out, 0, false, 1), {TextTransparency = 1}):Play()
	ts:Create(rui, TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.Out, 0, false, 1), {TextTransparency = 1}):Play()

	equip = true
end)

--Reload function
local function reload()
	if reloading == false and equip == true and arsrv.Value > 0 then
		local amount = 0
		reloading = true

		reloadsfx:Play()

		wait(reloadtime)

		local need = amax.Value - acount.Value
		if arsrv.Value > need then
			amount = need
		else
			amount = arsrv.Value
		end
		acount.Value += amount
		arsrv.Value -=amount

		aui.TextTransparency = 0
		aui.Text = acount.Value.. "|" ..amax.Value
		rui.TextTransparency = 0
		rui.Text = arsrv.Value
		ts:Create(aui, TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.Out, 0, false, 1), {TextTransparency = 1}):Play()
		ts:Create(rui, TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.Out, 0, false, 1), {TextTransparency = 1}):Play()

		reloading = false
	elseif arsrv.Value <= 0 then return end
end

--Shoot function
firearm.Activated:Connect(function()
	if debounce == false and acount.Value > 0 and reloading == false and equip == true then
		debounce = true

		acount.Value = acount.Value - 1
		aui.TextTransparency = 0
		aui.Text = acount.Value.. "|" ..amax.Value
		ts:Create(aui, TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.Out, 0, false, 1), {TextTransparency = 1}):Play()

		revent:FireServer(mice.Hit.Position)

		wait(0.075)

		debounce = false

	elseif acount.Value <= 0 and reloading == false then
		emptysfx:Play()
		aui.TextTransparency = 0
		aui.Text = acount.Value.. "|" ..amax.Value
		ts:Create(aui, TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.Out, 0, false, 1), {TextTransparency = 1}):Play()
	end
end)

--Input function
uis.InputBegan:Connect(function(input, doingsomethingelse)
	if doingsomethingelse then return end
	if input.KeyCode == Enum.KeyCode.R and equip == true then
		reload()
	end
end)

--Unequip function
firearm.Unequipped:Connect(function()
	mice.Icon = 'rbxassetid://0'
	equip = false
end)