game:GetService("RunService").Heartbeat:Connect(function()
    for _, p in pairs(game:GetService("Players"):GetPlayers()) do
        if p ~= game.Players.LocalPlayer and p.Character and p.Character:FindFirstChild("HumanoidRootPart") then
            local HumanoidRoot = p.Character.HumanoidRootPart
            for _, part in pairs(p.Character:GetDescendants()) do
                if part:IsA("BasePart") and part ~= HumanoidRoot and part.Transparency ~= 0 then
                    part.Transparency = 0
                end
            end
            if (HumanoidRoot.Position - (p.Character:FindFirstChild("Torso") or p.Character:FindFirstChild("UpperTorso")).Position).Magnitude > 100 then
                HumanoidRoot.Transparency = 0.4
                HumanoidRoot.Color = Color3.fromRGB(225, 0, 0)
            else
                HumanoidRoot.Transparency = 1
                HumanoidRoot.Color = Color3.fromRGB(255, 255, 255)
            end
        end
    end
end)