local Players = game:GetService("Players")
local RunService = game:GetService("RunService")

local LocalPlayer = Players.LocalPlayer
local PlayerGui = LocalPlayer:WaitForChild("PlayerGui")

local FOLLOW_DURATION = 10
local BUTTON_SIZE = UDim2.new(0,120,0,50)

local following = false
local followUntil = 0
local targetPlayer
local highlightBillboard

local screenGui = Instance.new("ScreenGui", PlayerGui)
screenGui.Name="FollowerToggleGui"
screenGui.ResetOnSpawn=false

local button = Instance.new("TextButton", screenGui)
button.Name="FollowToggle"
button.Size=BUTTON_SIZE
button.Position=UDim2.new(0,20,0,20)
button.BackgroundColor3=Color3.fromRGB(180,0,0)
button.TextColor3=Color3.new(1,1,1)
button.Font=Enum.Font.GothamBold
button.TextSize=18
button.Text="OFF"
button.Active=true
button.Draggable=true

local function setButtonVisual(on)
	if on then
		button.Text="ON"
		button.BackgroundColor3=Color3.fromRGB(0,200,0)
	else
		button.Text="OFF"
		button.BackgroundColor3=Color3.fromRGB(180,0,0)
	end
end

button.MouseButton1Click:Connect(function()
	following = not following
	setButtonVisual(following)
	if not following then
		targetPlayer=nil
		if highlightBillboard then highlightBillboard:Destroy() highlightBillboard=nil end
	end
end)

local function getClosestPlayer()
	local closest
	local shortestDistance=math.huge
	if LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
		local hrp=LocalPlayer.Character.HumanoidRootPart
		for _, p in pairs(Players:GetPlayers()) do
			if p~=LocalPlayer and p.Character and p.Character:FindFirstChild("HumanoidRootPart") then
				local dist=(p.Character.HumanoidRootPart.Position-hrp.Position).Magnitude
				if dist<shortestDistance then
					closest=p
					shortestDistance=dist
				end
			end
		end
	end
	return closest
end

local function addHighlight(targetChar)
	if highlightBillboard then highlightBillboard:Destroy() end
	local hrp=targetChar:FindFirstChild("HumanoidRootPart")
	if hrp then
		local bb=Instance.new("BillboardGui",hrp)
		bb.Name="TargetMarker"
		bb.Size=UDim2.new(0,8,0,8)
		bb.AlwaysOnTop=true
		bb.StudsOffset=Vector3.new(0,3,0)
		local frame=Instance.new("Frame",bb)
		frame.Size=UDim2.new(1,0,1,0)
		frame.BackgroundColor3=Color3.fromRGB(0,255,0)
		frame.BorderSizePixel=0
		local corner=Instance.new("UICorner",frame)
		corner.CornerRadius=UDim.new(1,0)
		highlightBillboard=bb
	end
end

RunService.RenderStepped:Connect(function()
	if following and tick()<followUntil then
		if not targetPlayer 
		or not targetPlayer.Character 
		or not targetPlayer.Character:FindFirstChild("HumanoidRootPart") 
		or not targetPlayer.Character:FindFirstChild("Humanoid") 
		or targetPlayer.Character.Humanoid.Health<=0 then
			targetPlayer=getClosestPlayer()
			if targetPlayer and targetPlayer.Character then addHighlight(targetPlayer.Character)
			else if highlightBillboard then highlightBillboard:Destroy() highlightBillboard=nil end return end
		end
		if targetPlayer and targetPlayer.Character and LocalPlayer.Character then
			local targetHRP=targetPlayer.Character:FindFirstChild("HumanoidRootPart")
			local humanoid=LocalPlayer.Character:FindFirstChild("Humanoid")
			local localHRP=LocalPlayer.Character:FindFirstChild("HumanoidRootPart")
			if targetHRP and humanoid and localHRP then humanoid:MoveTo(targetHRP.Position) end
		end
	end
end)

local function onCharacterAdded(char)
	char.ChildAdded:Connect(function(child)
		if child:IsA("Tool") and following then
			followUntil=tick()+FOLLOW_DURATION
			targetPlayer=getClosestPlayer()
			if targetPlayer and targetPlayer.Character then addHighlight(targetPlayer.Character) end
		end
	end)
	char.ChildRemoved:Connect(function(child)
		if child:IsA("Tool") then
			local hasTool=false
			for _, c in ipairs(char:GetChildren()) do if c:IsA("Tool") then hasTool=true break end end
			if not hasTool then
				followUntil=0
				targetPlayer=nil
				if highlightBillboard then highlightBillboard:Destroy() highlightBillboard=nil end
			end
		end
	end)
end

LocalPlayer.CharacterAdded:Connect(onCharacterAdded)
if LocalPlayer.Character then onCharacterAdded(LocalPlayer.Character) end