equal
deleted
inserted
replaced
103 procedure RestoreTeamsFromSave; |
103 procedure RestoreTeamsFromSave; |
104 function CheckForWin: boolean; |
104 function CheckForWin: boolean; |
105 procedure TeamGone(s: shortstring); |
105 procedure TeamGone(s: shortstring); |
106 |
106 |
107 implementation |
107 implementation |
108 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat; |
108 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat, uVisualGears; |
109 const MaxTeamHealth: LongInt = 0; |
109 const MaxTeamHealth: LongInt = 0; |
110 |
110 |
111 procedure FreeTeamsList; forward; |
111 procedure FreeTeamsList; forward; |
112 |
112 |
113 function CheckForWin: boolean; |
113 function CheckForWin: boolean; |
354 end else NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth |
354 end else NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth |
355 end; |
355 end; |
356 |
356 |
357 RecountClanHealth(team^.Clan); |
357 RecountClanHealth(team^.Clan); |
358 |
358 |
359 AddGear(0, 0, gtTeamHealthSorter, 0, _0, _0, 0) |
359 AddVisualGear(0, 0, vgtTeamHealthSorter) |
360 end; |
360 end; |
361 |
361 |
362 procedure RestoreTeamsFromSave; |
362 procedure RestoreTeamsFromSave; |
363 var t: LongInt; |
363 var t: LongInt; |
364 begin |
364 begin |