| changeset 6691 | 79c96abd06d6 |
| parent 6622 | 01889d5bc79b |
| child 6692 | 029c27660dd2 |
| 6690:46b3f4776538 | 6691:79c96abd06d6 |
|---|---|
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uTeams; |
21 unit uTeams; |
22 interface |
22 interface |
23 uses uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uTypes; |
23 uses uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uTypes, uWorld; |
24 |
24 |
25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 |
27 |
28 function AddTeam(TeamColor: Longword): PTeam; |
28 function AddTeam(TeamColor: Longword): PTeam; |
181 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam) or ((CurrTeam = TagTeamIndex) and ((GameFlags and gfTagTeam) <> 0)); |
181 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam) or ((CurrTeam = TagTeamIndex) and ((GameFlags and gfTagTeam) <> 0)); |
182 end |
182 end |
183 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil); |
183 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil); |
184 |
184 |
185 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]); |
185 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]); |
186 |
186 {$IFDEF USE_TOUCH_INTERFACE} |
187 if (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NoCrosshair) = 0 then |
|
188 begin |
|
189 if not(arrowUp.show) then |
|
190 begin |
|
191 animateWidget(@arrowUp, true, true); |
|
192 animateWidget(@arrowDown, true, true); |
|
193 animateWidget(@arrowRight, false, true); |
|
194 end; |
|
195 end |
|
196 else |
|
197 if arrowUp.show then |
|
198 begin |
|
199 animateWidget(@arrowUp, true, false); |
|
200 animateWidget(@arrowDown, true, false); |
|
201 animateWidget(@arrowRight, false, true); |
|
202 end; |
|
203 {$ENDIF} |
|
187 AmmoMenuInvalidated:= true; |
204 AmmoMenuInvalidated:= true; |
188 end; |
205 end; |
189 |
206 |
190 procedure AfterSwitchHedgehog; |
207 procedure AfterSwitchHedgehog; |
191 var i, t: LongInt; |
208 var i, t: LongInt; |