| changeset 7837 | 3e031b3b33e6 |
| parent 7835 | a84936d1618a |
| child 7980 | 7f8df51553a7 |
| 7836:69ece5fdec49 | 7837:3e031b3b33e6 |
|---|---|
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, uInputHandler, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uStore, |
23 uses uConsts, uInputHandler, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, |
24 uTypes{$IFDEF USE_TOUCH_INTERFACE}, uWorld{$ENDIF}; |
24 uSound, uStore, uTypes |
25 {$IFDEF USE_TOUCH_INTERFACE}, uWorld{$ENDIF}; |
|
26 |
|
25 |
27 |
26 procedure initModule; |
28 procedure initModule; |
27 procedure freeModule; |
29 procedure freeModule; |
28 |
30 |
29 function AddTeam(TeamColor: Longword): PTeam; |
31 function AddTeam(TeamColor: Longword): PTeam; |
37 procedure TeamGoneEffect(var Team: TTeam); |
39 procedure TeamGoneEffect(var Team: TTeam); |
38 procedure SwitchCurrentHedgehog(newHog: PHedgehog); |
40 procedure SwitchCurrentHedgehog(newHog: PHedgehog); |
39 |
41 |
40 implementation |
42 implementation |
41 uses uLocale, uAmmos, uChat, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript, |
43 uses uLocale, uAmmos, uChat, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript, |
42 uGearsUtils, uGearsList{$IFDEF SDL13}, uTouch{$ENDIF}; |
44 uGearsUtils, uGearsList |
45 {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF}; |
|
43 |
46 |
44 var MaxTeamHealth: LongInt; |
47 var MaxTeamHealth: LongInt; |
45 GameOver: boolean; |
48 GameOver: boolean; |
46 |
49 |
47 function CheckForWin: boolean; |
50 function CheckForWin: boolean; |