Leaderboard is too long! Can someone help?

function onPlayerEntered(newPlayer)
	
	local stats = Instance.new("IntValue")
	stats.Name = "leaderstats"
	stats.Parent = newPlayer

	local kills = Instance.new("IntValue")
	kills.Name = "Tags"
	kills.Value = 0
	kills.Parent = stats
	
	local Deaths = Instance.new("IntValue")
	Deaths.Name = "Deaths"
	Deaths.Value = 0
	Deaths.Parent = stats	
	
	local Wins = Instance.new("IntValue")
	Wins.Name = "Wins"
	Wins.Value = 0
	Wins.Parent = stats
	
	local WeaponNumber = Instance.new("IntValue")
	WeaponNumber.Name = "WeaponNumber"
	WeaponNumber.Value = 1
	WeaponNumber.Parent = newPlayer	
	
	local PlayingBool = Instance.new("BoolValue")
	PlayingBool.Name = "PlayingBool"
	PlayingBool.Value = false
	PlayingBool.Parent = newPlayer
	
	local SpawnedBool = Instance.new("BoolValue")
	SpawnedBool.Name = "SpawnedBool"
	SpawnedBool.Value = false
	SpawnedBool.Parent = newPlayer

	while true do
		if newPlayer.Character ~= nil then break end
		wait(5)
	end

	local humanoid = newPlayer.Character.Humanoid
	humanoid.Died:connect(function() onHumanoidDied(humanoid, newPlayer) end )
	newPlayer.Changed:connect(function(property) onPlayerRespawn(property, newPlayer) end )

end
function Send_DB_Event_Died(victim, killer)
	local killername = "no one"
	if killer ~= nil then killername = killer.Name end

	if shared["deaths"] ~= nil then 
		shared["deaths"](victim, killer)
	end
end
function Send_DB_Event_Kill(killer, victim)
	if shared["kills"] ~= nil then 
		shared["kills"](killer, victim)
	end
end
function onHumanoidDied(humanoid, player)
	local stats = player:findFirstChild("leaderstats")
	if stats ~= nil then
		local deaths = stats:findFirstChild("Deaths")
		deaths.Value = deaths.Value + 1
		local killer = getKillerOfHumanoidIfStillInGame(humanoid)
		Send_DB_Event_Died(player, killer)
		handleKillCount(humanoid, player)
	end
end
function onPlayerRespawn(property, player)
	if property == "Character" and player.Character ~= nil then
		local humanoid = player.Character.Humanoid
			local p = player
			local h = humanoid
			humanoid.Died:connect(function() onHumanoidDied(h, p) end )
	end
end
function getKillerOfHumanoidIfStillInGame(humanoid)
	local tag = humanoid:findFirstChild("creator")

	if tag ~= nil then
		
		local killer = tag.Value
		if killer.Parent ~= nil then
			return killer
		end
	end

	return nil
end
function handleKillCount(humanoid, player)
	local killer = getKillerOfHumanoidIfStillInGame(humanoid)
	if killer ~= nil then
		local stats = killer:findFirstChild("leaderstats")
		if stats ~= nil then
			local kills = stats:findFirstChild("Tags")
			if killer ~= player then
				kills.Value = kills.Value + 1
				
			else
				kills.Value = kills.Value + 0
				
			end
			Send_DB_Event_Kill(killer, player)
		end
	end
end
game.Players.ChildAdded:connect(onPlayerEntered)

Like 100 lines, bit much, can someone shorten it down