Nametag Script Broken? Stuck trying to edit the Script, Been needing help for 40 min.

local commands = {}

function Create(ClassName)
	return function(Properties)
		local Obj = Instance.new(ClassName)
		for i,v in pairs(Properties) do
			if type(i) == 'number' then
				v.Parent = Obj
			else
				Obj[i] = v
			end
		end
		return Obj
	end
end
function HandleCharacter(Player, Character)
	local Custom = Character:WaitForChild('Head'):clone()
	Custom.Name = 'am'
	Custom.Parent = Character
	Custom.face:Destroy()
	Character.Head.Transparency = 1
	Create'Weld'{
		Name = 'CustomWeld';
		Parent = Custom;
		Part0 = Character.Head;
		Part1 = Custom;
	}
	Create'BillboardGui'{
		Name = 'Nametag';
		Parent = Custom;
		Size = UDim2.new(5, 0, 0.5, 0);
		StudsOffset = Vector3.new(0, 2, 0);
		Create'TextLabel'{
			Name = 'NameLabel';
			BackgroundTransparency = 1;
			Size = UDim2.new(1, 0, 1, 0);
			Position = UDim2.new(0, 0, -0.8, 0);
			Font = 'ArialBold';
			Text = Character.Name;
			TextColor3 = Color3.new(1, 1, 1);
			TextScaled = true;
			TextStrokeTransparency = 1;
		};
		Create'TextLabel'{
			Name = 'RankLabel';
			BackgroundTransparency = 1;
			Size = UDim2.new(1, 0, 0.92, 0);
			Position = UDim2.new(0, 0, 0.1, 0);
			TextTransparency = .1;
			Font = 'SourceSansItalic';
			FontSize = Enum.FontSize.Size14;
			Text = Player:GetRoleInGroup(9340076);
			TextColor3 = Color3.new(1, 1, 1);
			TextScaled = true;
			TextStrokeTransparency = 1;
			};
	}
	if Player:IsInGroup(9538843)then
		Create'BillboardGui'{
			Name = 'Useless';
			Parent = Custom;
			Size = UDim2.new(5, 0, 0.5, 0);
			StudsOffset = Vector3.new(0, 2, 0);

			Create'TextLabel'{
				Name = 'SubDivisionLabelASOC';
				BackgroundTransparency = 1;
				Size = UDim2.new(1, 0, 0.92, 0);
				Position = UDim2.new(0, 0, 0.9, 0);
				TextTransparency = .1;
				Font = 'SourceSansItalic';
				FontSize = Enum.FontSize.Size14;
				Text = Player:GetRoleInGroup(9538843);
				TextColor3 = Color3.new(1, 1, 1);
				TextScaled = true;
				TextStrokeTransparency = 1;
			};
		}
	Custom.BrickColor = Character.Head.BrickColor
	Character.Head.Changed:connect(function()
		Character.Head.Transparency = 1
		Custom.BrickColor = Character.Head.BrickColor
	end)
	Character.Head.Mesh.Changed:connect(function()
		Custom:WaitForChild('Mesh').MeshId = Character.Head:WaitForChild('Mesh').MeshId
	end)
end

local rainbow = function(callback)
	local frequency = 0.1
	local i = 0 
	while true do wait()
		local red = math.sin(frequency*i + 0)*127+128 
		local green = math.sin(frequency*i + 2*math.pi/3)*127+128 
		local blue = math.sin(frequency*i + 4*math.pi/3)*127+128 
		callback(Color3.new(red/255,green/255,blue/255)) i = i+1 
	end end 
function HandlePlayer(Player)
	if Player.Character then
		HandleCharacter(Player, Player.Character)
	end
	Player.CharacterAdded:connect(function(Character) HandleCharacter(Player, Character) end)
	if Player.UserId == 0 or Player.UserId == 0 or Player.UserId == 0 or Player.UserId == 0 then
		Player.CharacterAdded:connect(function(char) local label = char:WaitForChild("TastiesOverhead") 
			coroutine.resume(coroutine.create(rainbow),function(color)label.NT.RL.TextColor3 = Color3.new(color.r,color.g,color.b)end) 
		end)
	end
end
game.Players.PlayerAdded:connect(function(b)
	HandlePlayer(b)
end)
for i,v in pairs(game.Players:GetPlayers()) do
	HandlePlayer(v) 
end 
--{Leaderboard script}
function added(player)
	local ls = Instance.new("IntValue")
	ls.Name = "leaderstats"

	local role = Instance.new("StringValue")
	role.Name = "Rank"

	role.Value = player:GetRoleInGroup(9340076,9538843)

	ls.Parent = player
	role.Parent = ls
end
game.Players.PlayerAdded:connect(added)

I'm having an error with this script, I can't seem to fix it. I don't have much LUA knowledge i would like someone to tell me the mistake i made so i can get better.****