changeset 6963 | 0c181b88daff |
parent 6961 | d5ac09894a1b |
child 6982 | 8d41d22a291d |
6962:ec308eabe09b | 6963:0c181b88daff |
---|---|
35 function CheckForWin: boolean; |
35 function CheckForWin: boolean; |
36 procedure TeamGoneEffect(var Team: TTeam); |
36 procedure TeamGoneEffect(var Team: TTeam); |
37 |
37 |
38 implementation |
38 implementation |
39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript, |
39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript, |
40 uGearsUtils, uGearsList, uTouch; |
40 uGearsUtils, uGearsList{$IFDEF SDL13}, uTouch{$ENDIF}; |
41 |
41 |
42 const MaxTeamHealth: LongInt = 0; |
42 const MaxTeamHealth: LongInt = 0; |
43 |
43 |
44 function CheckForWin: boolean; |
44 function CheckForWin: boolean; |
45 var AliveClan: PClan; |
45 var AliveClan: PClan; |
298 AddVoice(sndIllGetYou, CurrentTeam^.voicepack); |
298 AddVoice(sndIllGetYou, CurrentTeam^.voicepack); |
299 ReadyTimeLeft:= 0 |
299 ReadyTimeLeft:= 0 |
300 end; |
300 end; |
301 |
301 |
302 uMobile.NewTurnBeginning(); |
302 uMobile.NewTurnBeginning(); |
303 {$IFDEF SDL13} |
|
303 uTouch.NewTurnBeginning(); |
304 uTouch.NewTurnBeginning(); |
305 {$ENDIF} |
|
304 ScriptCall('onNewTurn'); |
306 ScriptCall('onNewTurn'); |
305 end; |
307 end; |
306 |
308 |
307 function AddTeam(TeamColor: Longword): PTeam; |
309 function AddTeam(TeamColor: Longword): PTeam; |
308 var team: PTeam; |
310 var team: PTeam; |