Why is my Rank GUI breaking and also lagging my game?

while true do

local spawnbin = {}

function findTags(player)

local tags = ""

if player:IsInGroup(4790907) then

rank = player:GetRoleInGroup(4790907)

tags = rank

end

return tags

end

function onPlayerRespawned(newPlayer)

local mycurrentspawns = {}

for i = 1,#spawnbin do

if spawnbin[i].TeamColor == newPlayer.TeamColor then

table.insert(mycurrentspawns,spawnbin[i])

end

end

if #mycurrentspawns < 1 then return end

movetospawn(newPlayer,mycurrentspawns[math.random(1,#mycurrentspawns)])

end

function movetospawn(player,spawn)

if player ~= nil and spawn ~= nil then

local torso = player.Character:findFirstChild("Torso")

if torso ~= nil then

torso.CFrame = spawn.CFrame + Vector3.new(0,2,0)

end

end

end

function onPlayerEntered(newPlayer)

wait(1)

player = newPlayer

onPlayerRespawned(newPlayer)

newPlayer.Changed:connect(function (property)

if (property == "Character") then

onPlayerRespawned(newPlayer)

end

end)

end

game.Players.PlayerAdded:connect(onPlayerEntered)

p = game.Players:GetPlayers()

for i = 1,#p do onPlayerEntered(p[i]) end

local groupID = 4790907; --------------------------------------------------------------

local before_name = false; -----------------------------------------------------------

local ts = tostring

game.Players.PlayerAdded:connect(function(player)

repeat wait() until player.Character

local char = player.Character

getRole(player)

player.Changed:connect(function()

repeat wait() until player.Character

wait()

getRole(player)

end)

end)

-- CREATE CUSTOM TITLE --

function createTitle(p, s)

local gui = script.Title

local clone = gui:Clone()

clone.Parent = p.Character.Head

if before_name then

clone.F.T.Text = s.." "..p.Name

else

clone.F.T.Text = p.Name..", "..s

end

end

function getRole(player)

player.Character.Humanoid.NameOcclusion = "OccludeAll"

if player.Character.Head:findFirstChild("Title") then

return false

elseif not player.Character.Head:findFirstChild("Title") and player:IsInGroup(groupID) then

local rankString = player:GetRoleInGroup(groupID)

createTitle(player, rankString)

elseif not player:IsInGroup(groupID) then

print("Player is not in group."..ts(groupID))

createTitle(player, "Guest")

end

end

end