StackHotBar System

-- [ SETTINGS ] --

local backgroundColor = Color3.fromRGB(0, 132, 255) -- The color of each circle
local maxOnHotbar = 10 -- How many tools can be displayed. Setting this to more than 10 reverts to 10

-- [ END SETTINGS ] --

-- Don't edit if you don't know what you're doing --

local Players = game:GetService("Players")
local StarterGui = game:GetService("StarterGui")
local UserInputService = game:GetService("UserInputService")
local TweenService = game:GetService("TweenService")
local player = Players.LocalPlayer
local Backpack = player.Backpack
local Character = player.Character
local Frame = script.Parent.Frame
local Template = Frame.Contents.objTemplate

local COLOR_DARKER = 0.65
local KEY_DICTIONARY = { Zero = 10, One = 1, Two = 2, Three = 3, Four = 4, Five = 5, Six = 6, Seven = 7, Eight = 8, Nine = 9 }
local EQUIP_TWEENINFO = TweenInfo.new(0.25, Enum.EasingStyle.Exponential, Enum.EasingDirection.Out)
local items = {}
local tweens = {}
local stackedItems = {}

local function handleStackingUI(toolCircle, tool)
    if tool:WaitForChild("stacks").Value then
        tool.stacks:GetPropertyChangedSignal('Value'):Connect(function()
            toolCircle.Stacks.Text = tool.stacks.Value
        end)
        toolCircle.Stacks.Text = tool.stacks.Value
    end
end

local function handleEquip(tool)
    if tool.Parent == nil or tool.Parent == Backpack then
        Character.Humanoid:EquipTool(tool)
    elseif tool.Parent == Character then
        Character.Humanoid:UnequipTools()
    end
end


local function checkHotbar(removeIndex)
    if removeIndex then
        for _, toolCircle in pairs(Frame.Contents:GetChildren()) do
            if toolCircle:IsA("GuiObject") then
                local circleName = tonumber(toolCircle.Name)
                if circleName and circleName >= removeIndex then
                    local newIndex = (circleName == 11) and 0 or circleName - 1
                    local isVisible = (maxOnHotbar == 10) and (newIndex <= 9 and true or false) or ((newIndex ~= 0 and newIndex <= maxOnHotbar) and true or false)

                    toolCircle.LayoutOrder -= 1
                    toolCircle.Name = tostring(newIndex)
                    toolCircle.Visible = isVisible
                    toolCircle.Index.Text = tostring(newIndex)
                end
            end
        end
    end

    local additionalIndex = Frame.AdditionalIndex
    additionalIndex.Size = UDim2.new(0, Frame.Contents.UIListLayout.AbsoluteContentSize.X + Frame.Contents.AbsoluteSize.Y + 15, 0, 25)
    additionalIndex.Text = "+" .. (#items - maxOnHotbar)
    additionalIndex.Visible = (#items > maxOnHotbar)

    for index, tool in ipairs(items) do
        local toolCircle = Frame.Contents:FindFirstChild(index)
        local isEquipped = (tool.Parent == Character)

        if not toolCircle then
            return
        end

        if tweens[toolCircle] then
            tweens[toolCircle]:Cancel()
            tweens[toolCircle] = nil
        end

        -- Adjust UIStroke Transparency based on whether the tool is equipped or not
        toolCircle.Background.Out.UIStroke.Transparency = isEquipped and 0 or 1
        -- Adjust BackgroundTransparency of the circle Frame based on the UIStroke Transparency
        toolCircle.Background.Out.BackgroundTransparency = isEquipped and 0.7 or 0.7

        handleStackingUI(toolCircle, tool)
    end
end



local function create(tool)

    local nextIndex = (#items == 10) and 0 or #items
    local isVisible = (maxOnHotbar == 10) and (nextIndex <= 9 and true or false) or ((nextIndex ~= 0 and nextIndex <= maxOnHotbar) and true or false)

    local toolCircle = Template:Clone()

    toolCircle.LayoutOrder = #items
    toolCircle.Name = #items
    toolCircle.Size = UDim2.new(0.071, 0,0.739, 0)
    toolCircle.Visible = isVisible
    toolCircle.Image.Image = tool.TextureId
    toolCircle.Index.Text = nextIndex
    toolCircle.Stacks.Text = "1"
    toolCircle.FixedName.Text = tool.TextureId == "" and tool.Name or ""
    toolCircle.Parent = Frame.Contents

    if tool.Name == "Bat" or tool.Name == "WoodenSword" or tool.Name == "Dark Sword" or tool.Name == "Demon Sword" or tool.Name == "Rainbow Sword" then
        toolCircle.Stacks.Text = ""
    elseif tool.Name == "ClassicSword" or tool.Name == "Crowbar" or tool.Name == "Metal Bat" or tool.Name == "DeluxeBat" or tool.Name == "PlusBat" then
        toolCircle.Stacks.Text = ""
    elseif tool.Name == "GoldBat" or tool.Name == "RobuxBat" or tool.Name == "Spiked Club" or tool.Name == "Light Saber" or tool.Name == "Flashlight" then
        toolCircle.Stacks.Text = ""
    elseif tool.Name == "Plank" then
        toolCircle.Stacks.Text = ""
    end

    toolCircle.Image.MouseButton1Click:Connect(function()
        local index = string.gmatch(toolCircle.Name,"%d+")
        index = tonumber(index())
        tool = items[index]
        handleEquip(tool)
    end)

    checkHotbar()

end

local function updateAdd(tool)
    if not tool:IsA("Tool") then
        return
    end

    checkHotbar()

    if table.find(items, tool) then
        return
    end

    table.insert(items, tool)

    create(tool)
end

local function updateRemove(tool)
    if not tool:IsA("Tool") then
        return
    end

    if tool.Parent == Character or tool.Parent == Backpack then
        return
    end

    if table.find(items, tool) then
        local index = table.find(items, tool)
        local toolCircle = Frame.Contents:FindFirstChild(index)

        if toolCircle then
            toolCircle:Destroy()
        end

        table.remove(items, index)
        checkHotbar(index)
    end
end

while true do
    local success, err = pcall(function()
        StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Backpack, false)
    end)
    if success then
        break
    end
    wait()
end

if maxOnHotbar > 10 then
    maxOnHotbar = 10
end

Template.Visible = true
Template.Parent = nil

for _, tool in pairs(Backpack:GetChildren()) do
    updateAdd(tool)
end
Backpack.ChildAdded:Connect(updateAdd)
Backpack.ChildRemoved:Connect(updateRemove)

Character.ChildAdded:Connect(updateAdd)
Character.ChildRemoved:Connect(updateRemove)

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if gameProcessed then
        return
    end

    if KEY_DICTIONARY[input.KeyCode.Name] then
        local index = KEY_DICTIONARY[input.KeyCode.Name]

        if items[index] then
            handleEquip(items[index])
        end
    end
end)