equal
deleted
inserted
replaced
63 NameRect, CrossHairRect, |
63 NameRect, CrossHairRect, |
64 GraveRect, HealthRect: TSDL_Rect; |
64 GraveRect, HealthRect: TSDL_Rect; |
65 GraveName: string; |
65 GraveName: string; |
66 FortName: string; |
66 FortName: string; |
67 TeamHealth: integer; |
67 TeamHealth: integer; |
|
68 DrawHealthY: integer; |
68 AttackBar: LongWord; |
69 AttackBar: LongWord; |
69 end; |
70 end; |
70 |
71 |
71 var CurrentTeam: PTeam = nil; |
72 var CurrentTeam: PTeam = nil; |
72 TeamsList: PTeam = nil; |
73 TeamsList: PTeam = nil; |
305 if TeamHealth > MaxTeamHealth then |
306 if TeamHealth > MaxTeamHealth then |
306 begin |
307 begin |
307 MaxTeamHealth:= TeamHealth; |
308 MaxTeamHealth:= TeamHealth; |
308 RecountAllTeamsHealth; |
309 RecountAllTeamsHealth; |
309 end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth |
310 end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth |
310 end |
311 end; |
|
312 AddGear(0, 0, gtTeamHealthSorter, 0) |
311 end; |
313 end; |
312 |
314 |
313 initialization |
315 initialization |
314 |
316 |
315 finalization |
317 finalization |