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 ScriptCall('onNewTurn');

   304 ScriptCall('onNewTurn');

   304 end;

   305 end;

   305 

   306 

   306 function AddTeam(TeamColor: Longword): PTeam;

   307 function AddTeam(TeamColor: Longword): PTeam;

   307 var team: PTeam;

   308 var team: PTeam;