Run it
Copy the script and paste it into your executor.
Players = :()
RunService = :()
player = Players.LocalPlayer
char = player.Character player.CharacterAdded:()
hrp = char:()
radius =
minRadius, maxRadius = ,
screenGui = .()
screenGui.Name =
screenGui.ResetOnSpawn =
screenGui.Parent = player:()
frame = .()
frame.Size = .(,,,)
frame.Position = .(,,,)
frame.BackgroundTransparency =
frame.BackgroundColor3 = .(,,)
frame.BorderSizePixel =
frame.Parent = screenGui
title = .()
title.Size = .(, -, , )
title.Position = .(,,,)
title.BackgroundTransparency =
title.Text =
title.TextColor3 = .(,,)
title.Font = .Font.SourceSansBold
title.TextSize =
title.Parent = frame
valueLabel = .()
valueLabel.Size = .(, -, , )
valueLabel.Position = .(,,,)
valueLabel.BackgroundTransparency =
valueLabel.Text = ..(radius)..
valueLabel.TextColor3 = .(,,)
valueLabel.Font = .Font.SourceSans
valueLabel.TextSize =
valueLabel.Parent = frame
minusBtn = .()
minusBtn.Size = .(,,,)
minusBtn.Position = .(,,,)
minusBtn.Text =
minusBtn.Font = .Font.SourceSansBold
minusBtn.TextSize =
minusBtn.Parent = frame
plusBtn = .()
plusBtn.Size = .(,,,)
plusBtn.Position = .(,,,)
plusBtn.Text =
plusBtn.Font = .Font.SourceSansBold
plusBtn.TextSize =
plusBtn.Parent = frame
resetBtn = .()
resetBtn.Size = .(,,,)
resetBtn.Position = .(,,,)
resetBtn.Text =
resetBtn.Font = .Font.SourceSans
resetBtn.TextSize =
resetBtn.Parent = frame
spherePart = .()
spherePart.Name =
spherePart.Shape = .PartType.Ball
spherePart.Size = .(radius*, radius*, radius*)
spherePart.Transparency =
spherePart.Anchored =
spherePart.CanCollide =
spherePart.CastShadow =
spherePart.Material = .Material.Neon
spherePart.Color = .(, , )
spherePart.Parent =
(newRadius)
radius = .(newRadius, minRadius, maxRadius)
spherePart.Size = .(radius*, radius*, radius*)
spherePart.CFrame = hrp.CFrame
valueLabel.Text = ..string.(, radius)..
plusBtn.MouseButton1Click:(()
(radius + )
)
minusBtn.MouseButton1Click:(()
(radius - )
)
resetBtn.MouseButton1Click:(()
()
)
()
found = {}
myPos = hrp.Position
_, obj (:())
obj:() obj.Name ==
dist = (obj.Position - myPos).Magnitude
dist <= radius
.(found, obj)
obj:() obj:() obj ~= char
otherHRP = obj:()
dist = (otherHRP.Position - myPos).Magnitude
dist <= radius
.(found, obj)
found
lastCount =
RunService.RenderStepped:(()
hrp hrp.Parent
spherePart.CFrame = hrp.CFrame
found = ()
#found ~= lastCount
lastCount = #found
lastCount >
(, lastCount)
)
player.CharacterRemoving:(()
spherePart
spherePart:()
)
player.CharacterAdded:((newChar)
char = newChar
hrp = char:()
)Its a script for The Classic Soccer

Universal