| changeset 2042 | 905c554d62e6 |
| parent 2040 | 7c366fc3c099 |
| child 2124 | d39c61eaca15 |
| 2041:9e0b5a6bcecf | 2042:905c554d62e6 |
|---|---|
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, |
21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, |
22 {$IFDEF IPHONE} |
22 {$IFDEF IPHONE} |
23 gles11, |
23 gles11, |
24 {$ELSE} |
24 {$ELSE} |
25 GL, |
25 GL, |
26 {$ENDIF} |
26 {$ENDIF} |
35 PClan = ^TClan; |
35 PClan = ^TClan; |
36 |
36 |
37 THedgehog = record |
37 THedgehog = record |
38 Name: string[MAXNAMELEN]; |
38 Name: string[MAXNAMELEN]; |
39 Gear: PGear; |
39 Gear: PGear; |
40 SpeechGear: PGear; |
40 SpeechGear: PVisualGear; |
41 NameTagTex, |
41 NameTagTex, |
42 HealthTagTex, |
42 HealthTagTex, |
43 HatTex: PTexture; |
43 HatTex: PTexture; |
44 Ammo: PHHAmmo; |
44 Ammo: PHHAmmo; |
45 AmmoStore: Longword; |
45 AmmoStore: Longword; |
105 function CheckForWin: boolean; |
105 function CheckForWin: boolean; |
106 procedure TeamGone(s: shortstring); |
106 procedure TeamGone(s: shortstring); |
107 procedure TeamGoneEffect(var Team: TTeam); |
107 procedure TeamGoneEffect(var Team: TTeam); |
108 |
108 |
109 implementation |
109 implementation |
110 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat, uVisualGears; |
110 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat; |
111 const MaxTeamHealth: LongInt = 0; |
111 const MaxTeamHealth: LongInt = 0; |
112 |
112 |
113 procedure FreeTeamsList; forward; |
113 procedure FreeTeamsList; forward; |
114 |
114 |
115 function CheckForWin: boolean; |
115 function CheckForWin: boolean; |