local Script = game.Players.LocalPlayer.PlayerGui.HUD.FullScreen.ScrollingFrame.LocalScript;
local gui = Script.Parent
function selection_sort(tab)
    --Go through every position in the table
    for i = 1, #tab do
        --start minimum at current position
        local minimum = i
        --Go through the remaining elements that need to be sorted
        for t = i + 1, #tab do
            --compare current element to minimum
            if tab[t][2] < tab[minimum][2] then
                --t is the new minimum
                minimum = t
            end
        end
        --switch minimum with current position
        tab[i], tab[minimum] = tab[minimum], tab[i]
    end
end

function sortbounties(guis)
		if guis == nil then
			return
		end
		local pirates = guis:GetChildren()
		local organize = {}
		local originals = {}
		for a,b in next, pirates do
			 if b:IsA("Frame") then
			organize[#organize+1] =  {b,b.BountyValue.Value}
			end
		end
	 selection_sort(organize)
	for i=1,#organize  do
		local b = organize[#organize-(i-1)]
		local tag = b[1]
		tag.Position = UDim2.new(1, -250, 0, 20*i)
	end
end
--
local players = {}
for a,b in next, game.Players:GetPlayers() do
	players[#players+1] = b
end
function Color4(r,g,b)
	r = r/255
	g = g/255
	b = b/255
	return Color3.new(r,g,b)
end


function teamupdate()
	local change = false
	for a,b in next, game.Players:GetPlayers() do
		local tag = gui:FindFirstChild(b.Name,true)
		if gui:FindFirstChild(b.Name,true) then
			local play = b
			local targparent = gui.Civilian

			if play.Team == game.Teams.Marine or play.TeamColor == game.Teams.Marine.TeamColor then
				targparent = gui.Marines
			elseif play.Team == game.Teams.Pirate or play.TeamColor == game.Teams.Pirate.TeamColor then
				targparent = gui.Pirates
			elseif play.Team == game.Teams.Civilian or play.TeamColor == game.Teams.Civilian.TeamColor then
				targparent  = gui.Civilian
			elseif play.Team == game.Teams.Revolutionary or play.TeamColor == game.Teams.Revolutionary.TeamColor then
				targparent  = gui.Revolutionary
			end
			if tag.Parent ~= targparent then
				tag.Parent = targparent
			  change = true
			end
		end
	end
	if change then
		updateguisize()
		for a,b in next, gui:GetChildren() do
			sortbounties(b)
		end
	end
end

function updateguisize()
--number of players/team changes
	local pirates = gui.Pirates:GetChildren()
	gui.Marines.Position = UDim2.new(1,-250,0,25 + (20*(#pirates-2)))
	local marines = gui.Marines:GetChildren()
	gui.Revolutionary.Position = UDim2.new(1,-250,0,45 + (20*((#pirates+#marines-4))))
	local rebels = gui.Revolutionary:GetChildren()
	gui.Civilian.Position = UDim2.new(1,-250,0,65 + (20*((#pirates+#marines+#rebels-6))))
	local civs = gui.Civilian:GetChildren()
end

function updatetag(tag)
	local play = game.Players:FindFirstChild(tag.Name)
	if play:WaitForChild("Crew",5) and play:FindFirstChild("Crew").Value ~= "" then
		local info = game:GetService("GroupService"):GetGroupInfoAsync(play.Crew.Value)
		tag.ImageButton.Image = info.EmblemUrl
		tag.CrewName.Text = info.Name
		pcall(function()
			tag.CrewRank.Text = play:GetRoleInGroup(info.Id)
		end)
		tag.ImageButton.Visible = true
	else
		tag.ImageButton.Visible = false
	end
	tag.Bounty.TextLabel.Text = play.leaderstats.Bounty.Value
	tag.BountyValue.Value = string.gsub(play.leaderstats.Bounty.Value,",","")
	tag.TextLabel.Text = play.Name
end

function CreatePlayer(Player)
	local FakePlayer = Script:WaitForChild("Player"):clone()
	FakePlayer.Name = Player.Name
	FakePlayer.Bounty.TextLabel.Text = Player:WaitForChild("leaderstats").Bounty.Value
	FakePlayer.BountyValue.Value = string.gsub(Player:FindFirstChild("leaderstats").Bounty.Value,",","")
	FakePlayer.TextLabel.Text = Player.Name
	if Player:WaitForChild("Crew",5) and Player:FindFirstChild("Crew").Value ~= "" then
		local GroupInfo = game:GetService("GroupService"):GetGroupInfoAsync(Player.Crew.Value)
		FakePlayer.ImageButton.Image = GroupInfo.EmblemUrl
		FakePlayer.CrewName.Text = GroupInfo.Name
		FakePlayer.CrewRank.Text = Player:GetRoleInGroup(GroupInfo.Id)
		FakePlayer.TextLabel.MouseEnter:connect(function()
			FakePlayer.CrewRank.Visible = true
		end)
		FakePlayer.TextLabel.MouseLeave:connect(function()
			FakePlayer.CrewRank.Visible = false
		end)
		FakePlayer.ImageButton.MouseEnter:connect(function()
			FakePlayer.CrewName.Visible = true
		end)
		FakePlayer.ImageButton.MouseLeave:connect(function()
			FakePlayer.CrewName.Visible = false
		end)
	else
		FakePlayer.ImageButton.Visible = false
	end
	Player.leaderstats.Bounty:GetPropertyChangedSignal("Value"):connect(function()
		updatetag(FakePlayer)
		sortbounties(FakePlayer.Parent)
	end)
	spawn(function()
		Player:WaitForChild("Crew",5);
		if not Player:FindFirstChild("Crew") then return end
		Player.Crew:GetPropertyChangedSignal("Value"):connect(function()
			updatetag(FakePlayer)
		end)
	end)
	Player:GetPropertyChangedSignal("Team"):connect(function()
		teamupdate()
	end)
	if Player:IsDescendantOf(game:GetService("Players")) then

		local Fired,Return = pcall(function()
			return Player:GetRankInGroup(5354780)
		end)
		if not Fired then
			rank = 0;
		else
			rank = Return;
		end
		if rank == 235 then
			FakePlayer.TextLabel.TextColor3 = Color4(255,58,58) --Yonko
		elseif rank == 200 or rank == 255 then -- admiral
			FakePlayer.TextLabel.TextColor3 = Color4(102,168,255)
		elseif rank == 199 or rank == 190  then -- vice admiral
			FakePlayer.TextLabel.TextColor3 = Color4(84,238,255)
		elseif rank == 200 or rank == 160 then -- HR MARINE
			FakePlayer.TextLabel.TextColor3 = Color4(125,203,255)
		elseif rank == 220 then -- fleet admiral
			FakePlayer.TextLabel.TextColor3 = Color4(0,59,255)
		elseif rank == 225 then -- notable pirate
			FakePlayer.TextLabel.TextColor3 = Color4(255,252,140)
		elseif rank == 226 then -- Super Nova
			FakePlayer.TextLabel.TextColor3 = Color4(255,129,79)
		elseif rank == 230 then -- Shichi
			FakePlayer.TextLabel.TextColor3 = Color4(212,0,177)
		end
	end
	if Player.Team == game.Teams.Marine then
		FakePlayer.Parent = gui.Marines
	elseif Player.Team == game.Teams.Pirate then
		FakePlayer.Parent = gui.Pirates
	elseif Player.Team == game.Teams.Revolutionary then
		FakePlayer.Parent = gui.Revolutionary
	else
		FakePlayer.Parent = gui.Civilian
	end
	spawn(function()
		updateguisize()
	end)
	sortbounties(FakePlayer.Parent)
end


for a,b in next, players do
	spawn(function()
		CreatePlayer(b,true)
	end)
end

updateguisize()
for a,b in next, gui:GetChildren() do
	spawn(function()
		sortbounties(b)
	end)
end
game.Players.PlayerAdded:connect(function(Player)
	if Player and Player:WaitForChild("leaderstats",5) then
		CreatePlayer(Player)
	end
end)
game.Players.PlayerRemoving:connect(function(Player)
	if gui:FindFirstChild(Player.Name,true) then
		local tag = gui:FindFirstChild(Player.Name,true)
		local tagparent = tag.Parent
		tag:Destroy()
		updateguisize() --update bounty sizes
		sortbounties(tagparent) -- sort their bounties again SHO NAN DA
	end
end)