share/hedgewars/Data/Scripts/Multiplayer/Construction_Mode.lua
changeset 14353 ffebbcc40c9b
parent 14344 efd2e8e217c9
child 14747 2e8213c0951f
equal deleted inserted replaced
14352:1dcc37b6913e 14353:ffebbcc40c9b
   284 	ammoType == amRubber or
   284 	ammoType == amRubber or
   285 	ammoType == amTeleport
   285 	ammoType == amTeleport
   286 end
   286 end
   287 
   287 
   288 function RenderClanPower()
   288 function RenderClanPower()
       
   289 	DrawClanPowerTag()
       
   290 end
       
   291 
       
   292 function UpdateTeamLabels()
   289 	for i=0, TeamsCount-1 do
   293 	for i=0, TeamsCount-1 do
   290 		local name = GetTeamName(i)
   294 		local name = GetTeamName(i)
   291 		SetTeamLabel(name, clanPower[GetTeamClan(name)])
   295 		SetTeamLabel(name, clanPower[GetTeamClan(name)])
   292 	end
   296 	end
   293 
       
   294 	DrawClanPowerTag()
       
   295 end
   297 end
   296 
   298 
   297 function DrawClanPowerTag()
   299 function DrawClanPowerTag()
   298 
   300 
   299 	local zoomL = 1.1
   301 	local zoomL = 1.1
  1084 
  1086 
  1085 		if placed then
  1087 		if placed then
  1086 			-- Pay the price
  1088 			-- Pay the price
  1087 			clanPower[GetHogClan(CurrentHedgehog)] = clanPower[GetHogClan(CurrentHedgehog)] - placedExpense
  1089 			clanPower[GetHogClan(CurrentHedgehog)] = clanPower[GetHogClan(CurrentHedgehog)] - placedExpense
  1088 			RenderClanPower()
  1090 			RenderClanPower()
       
  1091 			UpdateTeamLabels()
  1089 			if cat[cIndex] == "Girder Placement Mode" or cat[cIndex] == "Rubber Placement Mode" then
  1092 			if cat[cIndex] == "Girder Placement Mode" or cat[cIndex] == "Rubber Placement Mode" then
  1090 				PlaySound(sndPlaced)
  1093 				PlaySound(sndPlaced)
  1091 			end
  1094 			end
  1092 		else
  1095 		else
  1093 			if IsHogLocal(CurrentHedgehog) then
  1096 			if IsHogLocal(CurrentHedgehog) then
  1343 
  1346 
  1344 -- called in onGameTick()
  1347 -- called in onGameTick()
  1345 function HandleConstructionMode()
  1348 function HandleConstructionMode()
  1346 
  1349 
  1347 	HandleStructures()
  1350 	HandleStructures()
       
  1351 
       
  1352 	if GameTime % 100 == 0 then
       
  1353 		UpdateTeamLabels()
       
  1354 	end
  1348 
  1355 
  1349 	if CurrentHedgehog ~= nil then
  1356 	if CurrentHedgehog ~= nil then
  1350 
  1357 
  1351 		if wallsVisible == true then
  1358 		if wallsVisible == true then
  1352 			HandleBorderEffects()
  1359 			HandleBorderEffects()
  1832 	end
  1839 	end
  1833 	clanUsedExtraTime[clan] = false
  1840 	clanUsedExtraTime[clan] = false
  1834 	clanCratesSpawned[clan] = 0
  1841 	clanCratesSpawned[clan] = 0
  1835 
  1842 
  1836 	RenderClanPower()
  1843 	RenderClanPower()
       
  1844 	UpdateTeamLabels()
  1837 end
  1845 end
  1838 
  1846 
  1839 function onEndTurn()
  1847 function onEndTurn()
  1840 	curWep = amNothing
  1848 	curWep = amNothing
  1841 	HandleConstructionModeTools()
  1849 	HandleConstructionModeTools()