equal
deleted
inserted
replaced
199 for t:= 0 to Pred(TeamsNumber) do |
199 for t:= 0 to Pred(TeamsNumber) do |
200 with Teams[t]^ do |
200 with Teams[t]^ do |
201 for i:= 0 to Pred(HedgehogsNumber) do |
201 for i:= 0 to Pred(HedgehogsNumber) do |
202 with Hedgehogs[i] do |
202 with Hedgehogs[i] do |
203 if Effects[heFrozen] > 255 then |
203 if Effects[heFrozen] > 255 then |
204 Effects[heFrozen]:= max(255,Effects[heFrozen]-50000); |
204 Effects[heFrozen]:= max(255,Effects[heFrozen]-50000) |
205 end; |
205 end |
206 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Effects[heFrozen] < 256); |
206 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Effects[heFrozen] < 256); |
207 |
207 |
208 SwitchCurrentHedgehog(@(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog])); |
208 SwitchCurrentHedgehog(@(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog])); |
209 {$IFDEF USE_TOUCH_INTERFACE} |
209 {$IFDEF USE_TOUCH_INTERFACE} |
210 if (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NoCrosshair) = 0 then |
210 if (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NoCrosshair) = 0 then |
248 ResetWeapons |
248 ResetWeapons |
249 end |
249 end |
250 end; |
250 end; |
251 |
251 |
252 inc(CurrentTeam^.Clan^.TurnNumber); |
252 inc(CurrentTeam^.Clan^.TurnNumber); |
|
253 with CurrentTeam^.Clan^ do |
|
254 for t:= 0 to Pred(TeamsNumber) do |
|
255 with Teams[t]^ do |
|
256 for i:= 0 to Pred(HedgehogsNumber) do |
|
257 with Hedgehogs[i] do |
|
258 if Effects[heFrozen] > 255 then |
|
259 Effects[heFrozen]:= max(255,Effects[heFrozen]-50000); |
253 |
260 |
254 CurWeapon:= GetCurAmmoEntry(CurrentHedgehog^); |
261 CurWeapon:= GetCurAmmoEntry(CurrentHedgehog^); |
255 if CurWeapon^.Count = 0 then |
262 if CurWeapon^.Count = 0 then |
256 CurrentHedgehog^.CurAmmoType:= amNothing; |
263 CurrentHedgehog^.CurAmmoType:= amNothing; |
257 |
264 |