| changeset 7048 | 0a4c88935902 |
| parent 7028 | 0f60591f3a16 |
| child 7119 | 2737c488756b |
| 7047:606acf1f80be | 7048:0a4c88935902 |
|---|---|
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, uTypes{$IFDEF USE_TOUCH_INTERFACE}, uWorld{$ENDIF}; |
23 uses uConsts, uInputHandler, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, |
24 uTypes{$IFDEF USE_TOUCH_INTERFACE}, uWorld{$ENDIF}; |
|
24 |
25 |
25 procedure initModule; |
26 procedure initModule; |
26 procedure freeModule; |
27 procedure freeModule; |
27 |
28 |
28 function AddTeam(TeamColor: Longword): PTeam; |
29 function AddTeam(TeamColor: Longword): PTeam; |
34 procedure RestoreTeamsFromSave; |
35 procedure RestoreTeamsFromSave; |
35 function CheckForWin: boolean; |
36 function CheckForWin: boolean; |
36 procedure TeamGoneEffect(var Team: TTeam); |
37 procedure TeamGoneEffect(var Team: TTeam); |
37 |
38 |
38 implementation |
39 implementation |
39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript, |
40 uses uLocale, uAmmos, uChat, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript, |
40 uGearsUtils, uGearsList{$IFDEF SDL13}, uTouch{$ENDIF}; |
41 uGearsUtils, uGearsList{$IFDEF SDL13}, uTouch{$ENDIF}; |
41 |
42 |
42 var MaxTeamHealth: LongInt; |
43 var MaxTeamHealth: LongInt; |
43 GameOver: boolean; |
44 GameOver: boolean; |
44 |
45 |
298 if TurnTimeLeft > 0 then |
299 if TurnTimeLeft > 0 then |
299 AddVoice(sndIllGetYou, CurrentTeam^.voicepack); |
300 AddVoice(sndIllGetYou, CurrentTeam^.voicepack); |
300 ReadyTimeLeft:= 0 |
301 ReadyTimeLeft:= 0 |
301 end; |
302 end; |
302 |
303 |
303 uMobile.NewTurnBeginning(); |
|
304 {$IFDEF SDL13} |
304 {$IFDEF SDL13} |
305 uTouch.NewTurnBeginning(); |
305 uTouch.NewTurnBeginning(); |
306 {$ENDIF} |
306 {$ENDIF} |
307 ScriptCall('onNewTurn'); |
307 ScriptCall('onNewTurn'); |
308 end; |
308 end; |