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,

    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 uTouch.NewTurnBeginning();

   304 uTouch.NewTurnBeginning();

   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;