327 |
327 |
328 procedure RecountTeamHealth(team: PTeam); |
328 procedure RecountTeamHealth(team: PTeam); |
329 var i: LongInt; |
329 var i: LongInt; |
330 begin |
330 begin |
331 with team^ do |
331 with team^ do |
332 begin |
332 begin |
333 NewTeamHealthBarWidth:= 0; |
333 NewTeamHealthBarWidth:= 0; |
334 for i:= 0 to cMaxHHIndex do |
334 |
335 if Hedgehogs[i].Gear <> nil then |
335 if not hasGone then |
336 inc(NewTeamHealthBarWidth, Hedgehogs[i].Gear^.Health); |
336 for i:= 0 to cMaxHHIndex do |
337 TeamHealth:= NewTeamHealthBarWidth; |
337 if Hedgehogs[i].Gear <> nil then |
338 if NewTeamHealthBarWidth > MaxTeamHealth then |
338 inc(NewTeamHealthBarWidth, Hedgehogs[i].Gear^.Health); |
339 begin |
339 |
340 MaxTeamHealth:= NewTeamHealthBarWidth; |
340 TeamHealth:= NewTeamHealthBarWidth; |
341 RecountAllTeamsHealth; |
341 if NewTeamHealthBarWidth > MaxTeamHealth then |
342 end else NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth |
342 begin |
343 end; |
343 MaxTeamHealth:= NewTeamHealthBarWidth; |
|
344 RecountAllTeamsHealth; |
|
345 end else NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth |
|
346 end; |
344 |
347 |
345 RecountClanHealth(team^.Clan); |
348 RecountClanHealth(team^.Clan); |
346 |
349 |
347 AddGear(0, 0, gtTeamHealthSorter, 0, _0, _0, 0) |
350 AddGear(0, 0, gtTeamHealthSorter, 0, _0, _0, 0) |
348 end; |
351 end; |