local Players = game:GetService("Players")
local RS = game:GetService("ReplicatedStorage")
local VIM = game:GetService("VirtualInputManager")

local Me = Players.LocalPlayer
local duping = false
local dupeThread = nil

local function timedWait(t)
	local start = tick()
	while tick() - start < t do
		if not duping then return false end
		task.wait()
	end
	return true
end

-- tool
local function getTool()
	local char = Me.Character
	local tool = char and char:FindFirstChildOfClass("Tool")
	if not tool then
		for _, item in ipairs(Me.Backpack:GetChildren()) do
			if item:IsA("Tool") and item:FindFirstChild("GunScript_Local") then
				local hum = char and char:FindFirstChildOfClass("Humanoid")
				if hum then
					hum:EquipTool(item)
					task.wait(0.1)
				end
				tool = item
				break
			end
		end
	end
	return tool
end

-- dupes current item ❤️‍🩹
local function doDupe()
	pcall(function()
		local msg = RS:FindFirstChild("message")
		local frame = msg and msg:FindFirstChild("Frame")
		local label = frame and frame:FindFirstChild("TextLabel")
		if label then label:Destroy() end
	end)

	if not timedWait(1) then return false end

	local tool = getTool()
	if not tool then return false end

	local gunName = tool.Name

	pcall(function()
		local gui = Me.PlayerGui:FindFirstChild("Bronx Market 2")
		if gui then
			gui.Body.Frames.Market.TextLabel.Text = "Picked: " .. gunName
		end
	end)

	RS:WaitForChild("ListWeaponRemote"):FireServer(gunName, 900000)
	if not timedWait(0.25) then return false end

	local ClonedRS = (cloneref or function(x) return x end)(RS)
	local InvRemote = ClonedRS:WaitForChild("Inventory")
	local BPRemote = ClonedRS:WaitForChild("BackpackRemote")
	local char = Me.Character

	if char and char:FindFirstChildOfClass("Tool") then
		local hum = char:FindFirstChildOfClass("Humanoid")
		local name = char:FindFirstChildOfClass("Tool").Name
		if hum then hum:UnequipTools() end
		BPRemote:InvokeServer("Store", name)
		if not timedWait(0.5) then return false end
		task.spawn(function() InvRemote:FireServer("Change", name, "Backpack", true) end)
		if not timedWait(1.2) then return false end
		BPRemote:InvokeServer("Grab", name)
	end

	if not timedWait(1) then return false end

	pcall(function()
		local gui = Me.PlayerGui:FindFirstChild("Bronx Market 2")
		local label = gui and gui.Body.Frames.Market.TextLabel
		local picked = label and label.Text:match("Picked: (.+)")
		if picked then
			local btn = gui.Body.Frames.Guns.ScrollingFrame:FindFirstChild(picked)
			if btn then
				for _, c in pairs(getconnections(btn.MouseButton1Click)) do c:Fire() end
			end
		end
	end)

	if not timedWait(2.4) then return false end

	local hrp = Me.Character and Me.Character:FindFirstChild("HumanoidRootPart")
	if hrp then
		getgenv().SwimMethod = true
		if not timedWait(1) then getgenv().SwimMethod = false return false end
		hrp.CFrame = CFrame.new(-185, 295, -998)
		if not timedWait(0.1) then getgenv().SwimMethod = false return false end
		getgenv().SwimMethod = false
	end

	local map = workspace:FindFirstChild("1# Map")
	if not timedWait(1) then return false end

	pcall(function()
		if map then
			local obj = map:GetChildren()[752]:GetChildren()[5]
			local prompt = obj.ChestClicker.Items_aa75
			if prompt:IsA("ProximityPrompt") then
				fireproximityprompt(prompt)
			end
		end
	end)

	if not timedWait(0.25) then return false end

	local counts = {}
	for _, item in ipairs(Me.Backpack:GetChildren()) do
		if item:IsA("Tool") and item:FindFirstChild("GunScript_Local") then
			counts[item.Name] = (counts[item.Name] or 0) + 1
		end
	end

	local worked = false
	for _, count in pairs(counts) do
		if count > 1 then worked = true break end
	end

	pcall(function()
		local front = Me.PlayerGui.Inventory.Background.Front
		for _, btn in ipairs(front.BackpackFrame:GetChildren()) do
			if btn:IsA("TextButton") and counts[btn.Text] and counts[btn.Text] > 1 then
				local pos = btn.AbsolutePosition
				local size = btn.AbsoluteSize
				VIM:SendMouseButtonEvent(pos.X + size.X/3, pos.Y + size.Y, 0, true, game, 0)
				task.wait(0.1)
				VIM:SendMouseButtonEvent(pos.X + size.X/3, pos.Y + size.Y, 0, false, game, 0)
				task.wait()
				local close = front.Close
				VIM:SendMouseButtonEvent(close.AbsolutePosition.X, close.AbsolutePosition.Y, 0, true, game, 0)
				task.wait(0.1)
				VIM:SendMouseButtonEvent(close.AbsolutePosition.X, close.AbsolutePosition.Y, 0, false, game, 0)
				break
			end
		end
	end)

	return worked
end

local function stopDupe()
	duping = false
	getgenv().SwimMethod = false
	if dupeThread then
		task.cancel(dupeThread)
		dupeThread = nil
	end
end

local function startDupe()
	if duping then stopDupe() return end
	duping = true
	dupeThread = task.spawn(function()
		while duping do
			if not getTool() then stopDupe() break end
			local worked = doDupe()
			if worked or not duping then stopDupe() break end
			if not timedWait(2.75) then stopDupe() break end
		end
	end)
end

-- keybind is "B" 😱
game:GetService("UserInputService").InputBegan:Connect(function(input, gpe)
	if gpe then return end
	if input.KeyCode == Enum.KeyCode.B then
		startDupe()
	end
end)
-- slicedd_ was here ❤️‍🩹