| changeset 2768 | b7e0b0751179 |
| parent 2763 | f21d3ca74ef2 |
| child 2770 | 851313907bcb |
| 2767:77c030ac978e | 2768:b7e0b0751179 |
|---|---|
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uTeams; |
21 unit uTeams; |
22 interface |
22 interface |
23 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, |
23 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, uLand, |
24 {$IFDEF GLES11} |
24 {$IFDEF GLES11} |
25 gles11, |
25 gles11, |
26 {$ELSE} |
26 {$ELSE} |
27 GL, |
27 GL, |
28 {$ENDIF} |
28 {$ENDIF} |
280 else |
280 else |
281 PlaySound(sndYesSir, CurrentTeam^.voicepack); |
281 PlaySound(sndYesSir, CurrentTeam^.voicepack); |
282 |
282 |
283 if PlacingHogs then |
283 if PlacingHogs then |
284 begin |
284 begin |
285 if CurrentHedgehog^.Unplaced then TurnTimeLeft:= 10000 |
285 if CurrentHedgehog^.Unplaced then TurnTimeLeft:= 1000 * (MaxHedgehogs div 4) + 1000 |
286 else TurnTimeLeft:= 0 |
286 else TurnTimeLeft:= 0 |
287 end |
287 end |
288 else TurnTimeLeft:= cHedgehogTurnTime |
288 else TurnTimeLeft:= cHedgehogTurnTime |
289 end; |
289 end; |
290 |
290 |