| changeset 3407 | dcc129c4352e |
| parent 3381 | f8800c44b3de |
| child 3663 | 8c28abf427f5 |
| 3406:f4bdebced042 | 3407:dcc129c4352e |
|---|---|
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, uLand, GLunit, uSound; |
23 uses uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound; |
24 |
24 |
25 type PHHAmmo = ^THHAmmo; |
25 type PHHAmmo = ^THHAmmo; |
26 THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo; |
26 THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo; |
27 |
27 |
28 PHedgehog = ^THedgehog; |
28 PHedgehog = ^THedgehog; |
40 AmmoStore: Longword; |
40 AmmoStore: Longword; |
41 CurSlot, CurAmmo: LongWord; |
41 CurSlot, CurAmmo: LongWord; |
42 Team: PTeam; |
42 Team: PTeam; |
43 MultiShootAttacks: Longword; |
43 MultiShootAttacks: Longword; |
44 visStepPos: LongWord; |
44 visStepPos: LongWord; |
45 BotLevel : LongWord; // 0 - Human player |
45 BotLevel : Byte; // 0 - Human player |
46 HatVisibility: GLfloat; |
46 HatVisibility: GLfloat; |
47 stats: TStatistics; |
47 stats: TStatistics; |
48 Hat: shortstring; |
48 Hat: shortstring; |
49 King: boolean; // Flag for a bunch of hedgehog attributes |
49 King: boolean; // Flag for a bunch of hedgehog attributes |
50 Unplaced: boolean; // Flag for hog placing mode |
50 Unplaced: boolean; // Flag for hog placing mode |
112 procedure TeamGone(s: shortstring); |
112 procedure TeamGone(s: shortstring); |
113 procedure TeamGoneEffect(var Team: TTeam); |
113 procedure TeamGoneEffect(var Team: TTeam); |
114 function GetTeamStatString(p: PTeam): shortstring; |
114 function GetTeamStatString(p: PTeam): shortstring; |
115 |
115 |
116 implementation |
116 implementation |
117 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat; |
117 uses uMisc, uWorld, uLocale, uAmmos, uChat; |
118 const MaxTeamHealth: LongInt = 0; |
118 const MaxTeamHealth: LongInt = 0; |
119 |
119 |
120 function CheckForWin: boolean; |
120 function CheckForWin: boolean; |
121 var AliveClan: PClan; |
121 var AliveClan: PClan; |
122 s: shortstring; |
122 s: shortstring; |