changeset 1654 | 9cfa6f23e767 |
parent 1650 | a65681cc27c2 |
child 1657 | dde8f60d3e07 |
1653:34c1d1e3f04e | 1654:9cfa6f23e767 |
---|---|
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 unit uTeams; |
19 unit uTeams; |
20 interface |
20 interface |
21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, GL; |
21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, GL, uSound; |
22 {$INCLUDE options.inc} |
22 {$INCLUDE options.inc} |
23 |
23 |
24 type PHHAmmo = ^THHAmmo; |
24 type PHHAmmo = ^THHAmmo; |
25 THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo; |
25 THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo; |
26 |
26 |
64 NewTeamHealthBarWidth: LongInt; |
64 NewTeamHealthBarWidth: LongInt; |
65 DrawHealthY: LongInt; |
65 DrawHealthY: LongInt; |
66 AttackBar: LongWord; |
66 AttackBar: LongWord; |
67 HedgehogsNumber: Longword; |
67 HedgehogsNumber: Longword; |
68 hasGone: boolean; |
68 hasGone: boolean; |
69 voicepack: PVoicepack; |
|
69 end; |
70 end; |
70 |
71 |
71 TClan = record |
72 TClan = record |
72 Color: Longword; |
73 Color: Longword; |
73 Teams: array[0..Pred(cMaxTeams)] of PTeam; |
74 Teams: array[0..Pred(cMaxTeams)] of PTeam; |
95 procedure RestoreTeamsFromSave; |
96 procedure RestoreTeamsFromSave; |
96 function CheckForWin: boolean; |
97 function CheckForWin: boolean; |
97 procedure TeamGone(s: shortstring); |
98 procedure TeamGone(s: shortstring); |
98 |
99 |
99 implementation |
100 implementation |
100 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uSound, uChat; |
101 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat; |
101 const MaxTeamHealth: LongInt = 0; |
102 const MaxTeamHealth: LongInt = 0; |
102 |
103 |
103 procedure FreeTeamsList; forward; |
104 procedure FreeTeamsList; forward; |
104 |
105 |
105 function CheckForWin: boolean; |
106 function CheckForWin: boolean; |