share/hedgewars/Data/Maps/Control/map.lua
changeset 14985 851f1687439d
parent 14984 6e17abf7b8ef
child 14986 d09208b34713
equal deleted inserted replaced
14984:6e17abf7b8ef 14985:851f1687439d
   176 				SetVisualGearValues(g, vCircX[i], vCircY[i]-100, 0, 0, 0, 0, 0, teamScore[cOwnerClan[i]], 1500, GetClanColor(cOwnerClan[i]))
   176 				SetVisualGearValues(g, vCircX[i], vCircY[i]-100, 0, 0, 0, 0, 0, teamScore[cOwnerClan[i]], 1500, GetClanColor(cOwnerClan[i]))
   177 			end
   177 			end
   178 		end
   178 		end
   179 	end
   179 	end
   180 
   180 
   181 	-- Update team labels
   181 	-- Update team labels and graph
       
   182 	local clanGraphPointWritten = {}
   182 	for i = 0,(TeamsCount-1) do
   183 	for i = 0,(TeamsCount-1) do
   183 		if teamNameArr[i] ~= " " then
   184 		if teamNameArr[i] ~= " " then
   184 			SetTeamLabel(teamNameArr[i], teamScore[teamClan[i]])
   185 			SetTeamLabel(teamNameArr[i], teamScore[teamClan[i]])
       
   186 			if not clanGraphPointWritten[teamClan[i]] then
       
   187 				SendStat(siClanHealth, teamScore[teamClan[i]], teamNameArr[i])
       
   188 				clanGraphPointWritten[teamClan[i]] = true
       
   189 			end
   185 		end
   190 		end
   186 	end
   191 	end
   187 
   192 
   188 end
   193 end
   189 
   194 
   273 	EnableGameFlags(gfInfAttack, gfSolidLand)
   278 	EnableGameFlags(gfInfAttack, gfSolidLand)
   274 	DisableGameFlags(gfKing, gfAISurvival)
   279 	DisableGameFlags(gfKing, gfAISurvival)
   275 	WaterRise = 0
   280 	WaterRise = 0
   276 	HealthDecrease = 0
   281 	HealthDecrease = 0
   277 
   282 
       
   283 	SendHealthStatsOff()
       
   284 	SendRankingStatsOff()
       
   285 
   278 end
   286 end
   279 
   287 
   280 
   288 
   281 function onGameStart()
   289 function onGameStart()
   282 
   290 
   369 						SetEffect(hhs[i], heResurrectable, 0)
   377 						SetEffect(hhs[i], heResurrectable, 0)
   370 						SetHealth(hhs[i],0)
   378 						SetHealth(hhs[i],0)
   371 					end
   379 					end
   372 				end
   380 				end
   373 			end
   381 			end
   374 			SetTurnTimeLeft(1)
   382 			EndTurn(true)
       
   383 
       
   384 			-- Rankings
       
   385 			local teamList = {}
       
   386 			for i=0, TeamsCount-1 do
       
   387 				local name = GetTeamName(i)
       
   388 				local clan = GetTeamClan(name)
       
   389 				table.insert(teamList, { score = teamScore[teamClan[i]], name = name, clan = clan })
       
   390 			end
       
   391 			local teamRank = function(a, b)
       
   392 				return a.score > b.score
       
   393 			end
       
   394 			table.sort(teamList, teamRank)
       
   395 
       
   396 			for i=1, #teamList do
       
   397 				SendStat(siPointType, "!POINTS")
       
   398 				SendStat(siPlayerKills, tostring(teamList[i].score), teamList[i].name)
       
   399 			end
       
   400 			SendStat(siGraphTitle, loc("Score graph"))
       
   401 
   375 		end
   402 		end
   376 
   403 
   377 	end
   404 	end
   378 
   405 
   379 end
   406 end