equal
deleted
inserted
replaced
92 const MaxTeamHealth: LongInt = 0; |
92 const MaxTeamHealth: LongInt = 0; |
93 |
93 |
94 procedure FreeTeamsList; forward; |
94 procedure FreeTeamsList; forward; |
95 |
95 |
96 function CheckForWin: boolean; |
96 function CheckForWin: boolean; |
97 var team: PTeam; |
97 var AliveClan: PClan; |
98 AliveClan: PClan; |
|
99 s: shortstring; |
98 s: shortstring; |
100 t, AliveCount: LongInt; |
99 t, AliveCount: LongInt; |
101 begin |
100 begin |
102 AliveCount:= 0; |
101 AliveCount:= 0; |
103 for t:= 0 to Pred(ClansCount) do |
102 for t:= 0 to Pred(ClansCount) do |
131 SendStats |
130 SendStats |
132 end; |
131 end; |
133 |
132 |
134 procedure SwitchHedgehog; |
133 procedure SwitchHedgehog; |
135 var c: LongWord; |
134 var c: LongWord; |
136 t: LongWord; |
|
137 g: PGear; |
135 g: PGear; |
138 PrevHH, PrevTeam: LongWord; |
136 PrevHH, PrevTeam: LongWord; |
139 begin |
137 begin |
140 FreeActionsList; |
138 FreeActionsList; |
141 TargetPoint.X:= NoPointX; |
139 TargetPoint.X:= NoPointX; |