hedgewars: comparison share/hedgewars/Data/Scripts/Multiplayer/TechRacer.lua

equal deleted inserted replaced

-:3d2a7c563d8e
+:2fceeea62b10
 local activationStage = 0
 local jet = nil
 portalDistance = 5000
 ufoFuel = 0
-local fMod = 1000000
 local roundLimit = 3
 local roundNumber = 0
 local firstClan = 10
 local fastX = {}
 local cGear = nil
 local cameraGear = nil
 local bestClan = 10
-local bestTime = 1000000
+local bestTime = MAX_TURN_TIME
 local gameBegun = false
 local gameOver = false
 local racerActive = false
 local trackTime = 0
 	-- make a list of individual team names
 	for i = 0, (TeamsCount-1) do
 		teamNameArr[i] = " " -- = i
 		teamSize[i] = 0
 		teamIndex[i] = 0
-		teamScore[i] = 1000000
+		teamScore[i] = MAX_TURN_TIME
 	end
 	numTeams = 0
 	for i = 0, (numhhs-1) do
 			bestTime = teamScore[i]
 			bestClan = teamClan[i]
 		end
 	end
-	if bestTime ~= 1000000 then
+	if bestTime ~= MAX_TURN_TIME then
 		bestTimeComment = string.format(loc("%.1fs"), (bestTime/1000))
 	end
 	if newScore == true then
 		if trackTime == bestTime then -- best time of the race
 			string.format(loc("Winning time: %s"), bestTimeComment), -amSkip, 4000)
 		PlaySound(sndHellish)
 	end
 	for i = 0, (TeamsCount-1) do
-		if teamNameArr[i] ~= " " and teamScore[i] ~= 1000000 then
+		if teamNameArr[i] ~= " " and teamScore[i] ~= MAX_TURN_TIME then
 			SetTeamLabel(teamNameArr[i], string.format(loc("%.1fs"), teamScore[i]/1000))
 		end
 	end
 	if bestTime == trackTime then
 	roundNumber = roundNumber + 1
 	local totalComment = ""
 	for i = 0, (TeamsCount-1) do
 		if teamNameArr[i] ~= " " then
-			if teamScore[i] ~= 1000000 then
+			if teamScore[i] ~= MAX_TURN_TIME then
 				teamComment[i] = string.format(loc("%s: %.1fs"), teamNameArr[i], (teamScore[i]/1000)) .. "|"
 			else
 				teamComment[i] = string.format(loc("%s: Did not finish"), teamNameArr[i]) .. "|"
 			end
 			totalComment = totalComment .. teamComment[i]
 	if roundNumber >= roundLimit then
 		-- Sort the scores for the ranking list
 		local unfinishedArray = {}
 		local sortedTeams = {}
 		local k = 1
+		local c = 1
+		local clanScores = {}
+		local previousClan
 		for i = 0, TeamsCount-1 do
-			if teamScore[i] ~= 1000000 and teamNameArr[i] ~= " " then
+			local clan = GetTeamClan(teamNameArr[i])
-			       sortedTeams[k] = {}
+			if not clanScores[clan+1] then
-			       sortedTeams[k].name = teamNameArr[i]
+				clanScores[clan+1] = {}
-			       sortedTeams[k].score = teamScore[i]
+				clanScores[clan+1].index = clan
-			       k = k + 1
+				clanScores[clan+1].score = teamScore[i]
+			end
+			if teamScore[i] ~= MAX_TURN_TIME and teamNameArr[i] ~= " " then
+				sortedTeams[k] = {}
+				sortedTeams[k].name = teamNameArr[i]
+				sortedTeams[k].score = teamScore[i]
+				sortedTeams[k].clan = clan
+				k = k + 1
 			else
-			       table.insert(unfinishedArray, string.format(loc("%s did not finish the race."), teamNameArr[i]))
+				table.insert(unfinishedArray, string.format(loc("%s did not finish the race."), teamNameArr[i]))
 			end
 		end
-		table.sort(sortedTeams, function(team1, team2) return team1.score < team2.score end)
+		table.sort(sortedTeams, function(team1, team2)
+			if team1.score == team2.score then
+				return team1.clan < team2.clan
+			else
+				return team1.score < team2.score
+			end
+		end)
+		table.sort(clanScores, function(clan1, clan2) return clan1.score < clan2.score end)
+		local rank = 0
+		local rankPlus = 0
+		local prevScore
+		local clanRanks = {}
+		for c = 1, #clanScores do
+			rankPlus = rankPlus + 1
+			if clanScores[c].score ~= prevScore then
+				rank = rank + rankPlus
+				rankPlus = 0
+			end
+			prevScore = clanScores[c].score
+			clanRanks[clanScores[c].index] = rank
+		end
 		-- Write all the stats!
 		for i = 1, #sortedTeams do
 			SendStat(siPointType, loc("milliseconds"))
+			SendStat(siTeamRank, tostring(clanRanks[GetTeamClan(sortedTeams[i].name)]))
 			SendStat(siPlayerKills, sortedTeams[i].score, sortedTeams[i].name)
 		end
-		if #sortedTeams >= 1 then
+		local roundDraw = false
+		if #clanScores >= 2 and clanScores[1].score == clanScores[2].score and clanScores[1].score ~= MAX_TURN_TIME then
+			roundDraw = true
+			SendStat(siGameResult, loc("Round draw"))
+			SendStat(siCustomAchievement, loc("The teams are tied for the fastest time."))
+		elseif #sortedTeams >= 1 then
 			SendStat(siGameResult, string.format(loc("%s wins!"), sortedTeams[1].name))
 			SendStat(siCustomAchievement, string.format(loc("%s wins with a best time of %.1fs."), sortedTeams[1].name, (sortedTeams[1].score/1000)))
 			for i=1,#unfinishedArray do
 				 SendStat(siCustomAchievement, unfinishedArray[i])
 			end
 		else
+			roundDraw = true
 			SendStat(siGameResult, loc("Round draw"))
 			SendStat(siCustomAchievement, loc("Nobody managed to finish the race. What a shame!"))
 			SendStat(siCustomAchievement, loc("Maybe you should try an easier TechRacer map."))
 		end
 	end
 	map = detectMapWithDigest()
 	for i = 0, (numTeams-1) do
-		if teamScore[i] < 1000000 then
+		if teamScore[i] < MAX_TURN_TIME then
 			DeclareAchievement(raceType, teamNameArr[i], map, teamScore[i])
 		end
 	end
 	if map ~= nil and fastCount > 0 then

changeset 13839	2fceeea62b10
parent 13687	a8b2a5e7e9db
child 13840	219c2e588874