changeset 4368 | b89235e401e5 |
parent 4361 | 64ea345ab655 |
child 4374 | bcefeeabaa33 |
4367:f4a0ec067601 | 4368:b89235e401e5 |
---|---|
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; |
24 |
|
25 var CurrentTeam: PTeam; |
|
26 PreviousTeam: PTeam; |
|
27 CurrentHedgehog: PHedgehog; |
|
28 TeamsArray: array[0..Pred(cMaxTeams)] of PTeam; |
|
29 TeamsCount: Longword; |
|
30 ClansArray: array[0..Pred(cMaxTeams)] of PClan; |
|
31 ClansCount: Longword; |
|
32 LocalClan: LongInt; // last non-bot, non-extdriven clan |
|
33 LocalAmmo: LongInt; // last non-bot, non-extdriven clan's first team's ammo index |
|
34 CurMinAngle, CurMaxAngle: Longword; |
|
35 GameOver: boolean; |
|
36 |
24 |
37 procedure initModule; |
25 procedure initModule; |
38 procedure freeModule; |
26 procedure freeModule; |
39 function AddTeam(TeamColor: Longword): PTeam; |
27 function AddTeam(TeamColor: Longword): PTeam; |
40 procedure SwitchHedgehog; |
28 procedure SwitchHedgehog; |