--[[ 
WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!

Super Ring Parts v4
Mod: Vertical Ring for ALL players (round-robin)
UI + Logic edited by CryptoCodeSupreme
]]

-- SERVICES
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local SoundService = game:GetService("SoundService")
local Workspace = game:GetService("Workspace")

local LocalPlayer = Players.LocalPlayer

-- SOUND
local function playSound(id)
	pcall(function()
		local s = Instance.new("Sound")
		s.SoundId = "rbxassetid://" .. id
		s.Parent = SoundService
		s:Play()
		s.Ended:Connect(function() s:Destroy() end)
	end)
end

playSound("2865227271")

-- NETWORK
if not getgenv().Network then
	getgenv().Network = {
		BaseParts = {},
		Velocity = Vector3.new(14,14,14)
	}

	Network.RetainPart = function(p)
		if typeof(p)=="Instance" and p:IsA("BasePart") and p:IsDescendantOf(Workspace) then
			table.insert(Network.BaseParts,p)
			p.CustomPhysicalProperties = PhysicalProperties.new(0,0,0,0,0)
			p.CanCollide = false
		end
	end

	RunService.Heartbeat:Connect(function()
		pcall(function()
			sethiddenproperty(LocalPlayer,"SimulationRadius",math.huge)
			for _,p in ipairs(Network.BaseParts) do
				if p:IsDescendantOf(Workspace) then
					p.Velocity = Network.Velocity
				end
			end
		end)
	end)
end

-- GUI
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.ResetOnSpawn = false

local MainFrame = Instance.new("Frame",ScreenGui)
MainFrame.Size = UDim2.new(0,240,0,200)
MainFrame.Position = UDim2.new(0.5,-120,0.5,-100)
MainFrame.BackgroundColor3 = Color3.fromRGB(20,20,20)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
Instance.new("UICorner",MainFrame).CornerRadius = UDim.new(0,18)

-- TITLE BAR
local Title = Instance.new("TextLabel",MainFrame)
Title.Size = UDim2.new(1,0,0,40)
Title.Text = "Super Ring Parts V4"
Title.Font = Enum.Font.GothamBold
Title.TextSize = 20
Title.TextColor3 = Color3.new(1,1,1)
Title.BackgroundColor3 = Color3.fromRGB(40,40,40)
Title.Active = true
Instance.new("UICorner",Title).CornerRadius = UDim.new(0,18)

-- CLOSE BUTTON
local CloseBtn = Instance.new("TextButton",Title)
CloseBtn.Size = UDim2.new(0,30,0,30)
CloseBtn.Position = UDim2.new(1,-35,0.5,-15)
CloseBtn.Text = "X"
CloseBtn.Font = Enum.Font.GothamBold
CloseBtn.TextSize = 18
CloseBtn.TextColor3 = Color3.new(1,1,1)
CloseBtn.BackgroundColor3 = Color3.fromRGB(120,40,40)
Instance.new("UICorner",CloseBtn).CornerRadius = UDim.new(1,0)

-- MINIMIZE BUTTON
local MinBtn = Instance.new("TextButton",Title)
MinBtn.Size = UDim2.new(0,30,0,30)
MinBtn.Position = UDim2.new(1,-70,0.5,-15)
MinBtn.Text = "-"
MinBtn.Font = Enum.Font.GothamBold
MinBtn.TextSize = 22
MinBtn.TextColor3 = Color3.new(1,1,1)
MinBtn.BackgroundColor3 = Color3.fromRGB(60,60,60)
Instance.new("UICorner",MinBtn).CornerRadius = UDim.new(1,0)

-- BUTTON COLORS
local COLOR_NORMAL = Color3.fromRGB(50,50,50)
local COLOR_SELECTED = Color3.fromRGB(40,180,40)

-- BUTTONS
local Toggle = Instance.new("TextButton",MainFrame)
Toggle.Size = UDim2.new(0.8,0,0,35)
Toggle.Position = UDim2.new(0.1,0,0.3,0)
Toggle.Text = "Ring OFF"
Toggle.Font = Enum.Font.GothamBold
Toggle.TextSize = 18
Toggle.TextColor3 = Color3.new(1,1,1)
Toggle.BackgroundColor3 = Color3.fromRGB(60,60,60)
Instance.new("UICorner",Toggle).CornerRadius = UDim.new(0,10)

local MinRange = Instance.new("TextButton",MainFrame)
MinRange.Size = UDim2.new(0.35,0,0,35)
MinRange.Position = UDim2.new(0.1,0,0.55,0)
MinRange.Text = "Radius = 1"
MinRange.Font = Enum.Font.Gotham
MinRange.TextSize = 16
MinRange.TextColor3 = Color3.new(1,1,1)
MinRange.BackgroundColor3 = COLOR_SELECTED
Instance.new("UICorner",MinRange).CornerRadius = UDim.new(0,10)

local MaxRange = Instance.new("TextButton",MainFrame)
MaxRange.Size = UDim2.new(0.35,0,0,35)
MaxRange.Position = UDim2.new(0.55,0,0.55,0)
MaxRange.Text = "Radius = 99999"
MaxRange.Font = Enum.Font.Gotham
MaxRange.TextSize = 16
MaxRange.TextColor3 = Color3.new(1,1,1)
MaxRange.BackgroundColor3 = COLOR_NORMAL
Instance.new("UICorner",MaxRange).CornerRadius = UDim.new(0,10)

local Watermark = Instance.new("TextLabel",MainFrame)
Watermark.Size = UDim2.new(1,0,0,20)
Watermark.Position = UDim2.new(0,0,1,-20)
Watermark.Text = "by CryptoCodeSupreme"
Watermark.Font = Enum.Font.Gotham
Watermark.TextSize = 13
Watermark.TextColor3 = Color3.new(1,1,1)
Watermark.BackgroundTransparency = 1

-- DRAG
do
	local dragging, dragStart, startPos
	Title.InputBegan:Connect(function(i)
		if i.UserInputType == Enum.UserInputType.MouseButton1 then
			dragging = true
			dragStart = i.Position
			startPos = MainFrame.Position
		end
	end)

	UserInputService.InputChanged:Connect(function(i)
		if dragging and i.UserInputType == Enum.UserInputType.MouseMovement then
			local delta = i.Position - dragStart
			MainFrame.Position = UDim2.new(
				startPos.X.Scale, startPos.X.Offset + delta.X,
				startPos.Y.Scale, startPos.Y.Offset + delta.Y
			)
		end
	end)

	UserInputService.InputEnded:Connect(function(i)
		if i.UserInputType == Enum.UserInputType.MouseButton1 then
			dragging = false
		end
	end)
end

-- MINIMIZE / CLOSE
local minimized = false
MinBtn.MouseButton1Click:Connect(function()
	minimized = not minimized
	for _,v in ipairs(MainFrame:GetChildren()) do
		if v ~= Title and v:IsA("GuiObject") then
			v.Visible = not minimized
		end
	end
	MainFrame.Size = minimized and UDim2.new(0,240,0,40) or UDim2.new(0,240,0,200)
	playSound("12221967")
end)

CloseBtn.MouseButton1Click:Connect(function()
	playSound("12221967")
	ScreenGui:Destroy()
end)

-- INFO PANEL (MAIOR)
local Info = Instance.new("Frame",ScreenGui)
Info.Size = UDim2.new(0,420,0,220) -- Aumentei altura
Info.Position = UDim2.new(0.5,-210,0.5,-110)
Info.BackgroundColor3 = Color3.fromRGB(15,15,15)
Instance.new("UICorner",Info).CornerRadius = UDim.new(0,20)

local InfoText = Instance.new("TextLabel",Info)
InfoText.Size = UDim2.new(1,-20,1,-60)
InfoText.Position = UDim2.new(0,10,0,10)
InfoText.TextWrapped = true
InfoText.Font = Enum.Font.Gotham
InfoText.TextSize = 15
InfoText.TextColor3 = Color3.new(1,1,1)
InfoText.BackgroundTransparency = 1
InfoText.Text =
[[🇧🇷 Puxa partes e cria anéis verticais ao redor de todos os jogadores vivos.
Use "Ring ON" para ativar.
Radius = 1 perto, Radius = 99999 longe.
⚠️ Se você morrer, feche a GUI e abra de novo.

🇺🇸 Pulls parts and creates vertical rings around all alive players.
Use "Ring ON" to activate.
Radius = 1 close, Radius = 99999 far.
⚠️ If you die, close the GUI and open it again.
]]

local CloseInfo = Instance.new("TextButton",Info)
CloseInfo.Size = UDim2.new(0.4,0,0,35)
CloseInfo.Position = UDim2.new(0.3,0,1,-45)
CloseInfo.Text = "OK"
CloseInfo.Font = Enum.Font.GothamBold
CloseInfo.TextSize = 18
CloseInfo.TextColor3 = Color3.new(1,1,1)
CloseInfo.BackgroundColor3 = Color3.fromRGB(60,60,60)
Instance.new("UICorner",CloseInfo).CornerRadius = UDim.new(0,12)

CloseInfo.MouseButton1Click:Connect(function()
	Info:Destroy()
	playSound("12221967")
end)

-- LOGIC
local radius = 1
local ringEnabled = false
local attractionStrength = 1000
local parts = {}

local function validPlayers()
	local t={}
	for _,p in ipairs(Players:GetPlayers()) do
		if p.Character and p.Character:FindFirstChild("HumanoidRootPart")
		and p.Character:FindFirstChild("Humanoid")
		and p.Character.Humanoid.Health>0 then
			table.insert(t,p)
		end
	end
	return t
end

for _,d in ipairs(Workspace:GetDescendants()) do
	if d:IsA("BasePart") and not d.Anchored then
		table.insert(parts,d)
	end
end

RunService.Heartbeat:Connect(function()
	if not ringEnabled then return end
	local pls = validPlayers()
	if #pls==0 then return end
	local now = tick()

	for i,p in ipairs(parts) do
		if p and p:IsDescendantOf(Workspace) then
			local pl = pls[((i-1)%#pls)+1]
			local hrp = pl.Character and pl.Character:FindFirstChild("HumanoidRootPart")
			if hrp then
				local ang = (i/#parts)*math.pi*2 + now
				local target = Vector3.new(
					hrp.Position.X,
					hrp.Position.Y + math.cos(ang)*radius,
					hrp.Position.Z + math.sin(ang)*radius
				)
				local dir = (target-p.Position)
				if dir.Magnitude>0 then
					p.Velocity = dir.Unit * math.min(attractionStrength,dir.Magnitude*40)
				end
			end
		end
	end
end)

Toggle.MouseButton1Click:Connect(function()
	ringEnabled = not ringEnabled
	Toggle.Text = ringEnabled and "Ring ON" or "Ring OFF"
	playSound("12221967")
end)

MinRange.MouseButton1Click:Connect(function()
	radius = 1
	MinRange.BackgroundColor3 = COLOR_SELECTED
	MaxRange.BackgroundColor3 = COLOR_NORMAL
	playSound("12221967")
end)

MaxRange.MouseButton1Click:Connect(function()
	radius = 99999
	MaxRange.BackgroundColor3 = COLOR_SELECTED
	MinRange.BackgroundColor3 = COLOR_NORMAL
	playSound("12221967")
end)