equal
deleted
inserted
replaced
108 end; |
108 end; |
109 GameOver:= true |
109 GameOver:= true |
110 end; |
110 end; |
111 |
111 |
112 procedure SwitchHedgehog; |
112 procedure SwitchHedgehog; |
113 var c, i, j: LongWord; |
113 var c: LongWord; |
114 PrevHH, PrevTeam : LongWord; |
114 PrevHH, PrevTeam : LongWord; |
115 begin |
115 begin |
116 TargetPoint.X:= NoPointX; |
116 TargetPoint.X:= NoPointX; |
117 TryDo(CurrentTeam <> nil, 'nil Team', true); |
117 TryDo(CurrentTeam <> nil, 'nil Team', true); |
118 with CurrentHedgehog^ do |
118 with CurrentHedgehog^ do |
171 inc(c); |
171 inc(c); |
172 |
172 |
173 if c = ClansCount then |
173 if c = ClansCount then |
174 begin |
174 begin |
175 if not PlacingHogs then |
175 if not PlacingHogs then |
176 begin |
|
177 inc(TotalRounds); |
176 inc(TotalRounds); |
178 for i:= 0 to Pred(TeamsCount) do |
|
179 with TeamsArray[i]^ do |
|
180 for j:= 0 to Pred(HedgehogsNumber) do |
|
181 with Hedgehogs[j] do |
|
182 if Effects[heFrozen] > 255 then |
|
183 Effects[heFrozen]:= max(255,Effects[heFrozen]-50000) |
|
184 end; |
|
185 c:= 0 |
177 c:= 0 |
186 end; |
178 end; |
187 |
179 |
188 with ClansArray[c]^ do |
180 with ClansArray[c]^ do |
189 begin |
181 begin |
245 ResetWeapons |
237 ResetWeapons |
246 end |
238 end |
247 end; |
239 end; |
248 |
240 |
249 inc(CurrentTeam^.Clan^.TurnNumber); |
241 inc(CurrentTeam^.Clan^.TurnNumber); |
|
242 with CurrentTeam^.Clan^ do |
|
243 for t:= 0 to Pred(TeamsNumber) do |
|
244 with Teams[t]^ do |
|
245 for i:= 0 to Pred(HedgehogsNumber) do |
|
246 with Hedgehogs[i] do |
|
247 if Effects[heFrozen] > 255 then |
|
248 Effects[heFrozen]:= max(255,Effects[heFrozen]-50000); |
250 |
249 |
251 CurWeapon:= GetCurAmmoEntry(CurrentHedgehog^); |
250 CurWeapon:= GetCurAmmoEntry(CurrentHedgehog^); |
252 if CurWeapon^.Count = 0 then |
251 if CurWeapon^.Count = 0 then |
253 CurrentHedgehog^.CurAmmoType:= amNothing; |
252 CurrentHedgehog^.CurAmmoType:= amNothing; |
254 |
253 |