Why is this super laggy? Is there something in this script?

This is the script for my game, When I try to test it out it lags like crazy. I used Fraps and it said I had 0 FPS. Is there something in the script making it lag and is there something I could do to prevent it?

game.Players.PlayerAdded:connect(function(newplyr)
	local lb = Instance.new("IntValue", newplyr)
	local Wins = Instance.new("IntValue")
	script.Players.Value = script.Players.Value+1
	Wins.Parent = lb
end)

game.Players.PlayerRemoving:connect(function(newplyr)
	script.Players.Value = script.Players.Value-1
end)

while true do
	local rr = math.random(1,1)
	if script.Players.Value >= 2 then--Players needed
if rr == 1 then
	target = CFrame.new(0, 3, 0)
for i, player in ipairs(game.Players:GetChildren()) do
   if player.Character and player.Character:FindFirstChild("Torso") then
      player.Character.Torso.CFrame = target + Vector3.new(0, 0, 0)
   end
end
game.Lighting.Safe:clone().Parent = workspace
local h = Instance.new("Hint", workspace)
h.Text = "Spread Out!"
wait(3)
Time = 5
repeat
Time = Time-1
h.Text = "Time left to spread out: "..Time..""
wait(1)
until Time <= 0
h:remove()
workspace.Safe:remove()
game.Lighting.Spleef_Arena:clone().Parent = workspace
Time = 60
repeat
	Time = Time-1
	h.Text = "Time left: "..Time..""
	wait(1)
until Time <= 0
h.Text = "Time's up!"
game.Workspace.Spleef_Arena:remove()
wait(4)
h:remove()
end
	else
	local h = Instance.new("Hint", workspace)
	plyrs = 2-script.Players.Value
	if plyrs == 1 then
	h.Text = "You need "..plyrs.." more player!"
	else
		h.Text = "You need "..plyrs.." more players!"	
	end
end
end