equal
deleted
inserted
replaced
445 procedure RecountTeamHealth(team: PTeam); |
445 procedure RecountTeamHealth(team: PTeam); |
446 var i: LongInt; |
446 var i: LongInt; |
447 begin |
447 begin |
448 with team^ do |
448 with team^ do |
449 begin |
449 begin |
450 NewTeamHealthBarWidth:= 0; |
450 TeamHealth:= 0; |
|
451 for i:= 0 to cMaxHHIndex do |
|
452 if Hedgehogs[i].Gear <> nil then |
|
453 inc(TeamHealth, Hedgehogs[i].Gear^.Health) |
|
454 else if Hedgehogs[i].GearHidden <> nil then |
|
455 inc(TeamHealth, Hedgehogs[i].GearHidden^.Health); |
451 |
456 |
452 if not hasGone then |
457 if not hasGone then |
453 for i:= 0 to cMaxHHIndex do |
458 NewTeamHealthBarWidth:= TeamHealth |
454 if Hedgehogs[i].Gear <> nil then |
459 else |
455 inc(NewTeamHealthBarWidth, Hedgehogs[i].Gear^.Health) |
460 NewTeamHealthBarWidth:= 0; |
456 else if Hedgehogs[i].GearHidden <> nil then |
461 |
457 inc(NewTeamHealthBarWidth, Hedgehogs[i].GearHidden^.Health); |
|
458 |
|
459 TeamHealth:= NewTeamHealthBarWidth; |
|
460 if NewTeamHealthBarWidth > MaxTeamHealth then |
462 if NewTeamHealthBarWidth > MaxTeamHealth then |
461 begin |
463 begin |
462 MaxTeamHealth:= NewTeamHealthBarWidth; |
464 MaxTeamHealth:= NewTeamHealthBarWidth; |
463 RecountAllTeamsHealth; |
465 RecountAllTeamsHealth; |
464 end else if NewTeamHealthBarWidth > 0 then |
466 end else if NewTeamHealthBarWidth > 0 then |