local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local Player = Players.LocalPlayer

-- Create ScreenGui
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Parent = Player.PlayerGui
ScreenGui.Name = "InfCashGUI"

-- Create Frame
local Frame = Instance.new("Frame")
Frame.Size = UDim2.new(0, 200, 0, 150)
Frame.Position = UDim2.new(0.5, -100, 0.5, -75)
Frame.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
Frame.BorderSizePixel = 2
Frame.Parent = ScreenGui

-- Create Title
local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, 0, 0, 30)
Title.Position = UDim2.new(0, 0, 0, 0)
Title.Text = "Podcast Tycoon Inf Cash"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
Title.TextScaled = true
Title.Parent = Frame

-- Create Cash Button
local CashButton = Instance.new("TextButton")
CashButton.Size = UDim2.new(0.8, 0, 0, 50)
CashButton.Position = UDim2.new(0.1, 0, 0.3, 0)
CashButton.Text = "Add 1M Cash"
CashButton.TextColor3 = Color3.fromRGB(255, 255, 255)
CashButton.BackgroundColor3 = Color3.fromRGB(0, 120, 0)
CashButton.TextScaled = true
CashButton.Parent = Frame

-- Make Frame Draggable
local dragging
local dragInput
local dragStart
local startPos

Frame.InputBegan:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseButton1 then
		dragging = true
		dragStart = input.Position
		startPos = Frame.Position
		
		input.Changed:Connect(function()
			if input.UserInputState == Enum.UserInputState.End then
				dragging = false
			end
		end)
	end
end)

Frame.InputChanged:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseMovement then
		dragInput = input
	end
end)

game:GetService("UserInputService").InputChanged:Connect(function(input)
	if input == dragInput and dragging then
		local delta = input.Position - dragStart
		Frame.Position = UDim2.new(
			startPos.X.Scale,
			startPos.X.Offset + delta.X,
			startPos.Y.Scale,
			startPos.Y.Offset + delta.Y
		)
	end
end)

-- Cash Button Functionality
CashButton.MouseButton1Click:Connect(function()
	-- Attempt to add cash via leaderstats
	if Player:FindFirstChild("leaderstats") and Player.leaderstats:FindFirstChild("Cash") then
		Player.leaderstats.Cash.Value = Player.leaderstats.Cash.Value + 1000000
	end
	
	-- Attempt to add cash via ReplicatedStorage (common in tycoons)
	local success, err = pcall(function()
		local args = { [1] = 1000000 }
		ReplicatedStorage:FindFirstChild("updateCollector"):FireServer(unpack(args))
	end)
	if not success then
		warn("Failed to add cash via ReplicatedStorage: " .. err)
	end
end)