hedgewars/uTeams.pas
changeset 12332 657a8d63c99d
parent 12322 9aa483762025
child 12410 8b971d8944d6
equal deleted inserted replaced
12331:6707ee1d2430 12332:657a8d63c99d
    80 if not TeamsGameOver then
    80 if not TeamsGameOver then
    81     begin
    81     begin
    82     if AliveCount = 0 then
    82     if AliveCount = 0 then
    83         begin // draw
    83         begin // draw
    84         AddCaption(GetEventString(eidRoundDraw), cWhiteColor, capgrpGameState);
    84         AddCaption(GetEventString(eidRoundDraw), cWhiteColor, capgrpGameState);
    85         SendStat(siGameResult, shortstring(trmsg[sidDraw]));
    85         if SendGameResultOn then
       
    86             SendStat(siGameResult, shortstring(trmsg[sidDraw]));
    86         AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
    87         AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
    87         end
    88         end
    88     else // win
    89     else // win
    89         with AliveClan^ do
    90         with AliveClan^ do
    90             begin
    91             begin
   111                 AddVoice(sndFlawless, Teams[0]^.voicepack)
   112                 AddVoice(sndFlawless, Teams[0]^.voicepack)
   112             else
   113             else
   113                 AddVoice(sndVictory, Teams[0]^.voicepack);
   114                 AddVoice(sndVictory, Teams[0]^.voicepack);
   114 
   115 
   115             AddCaption(cap, cWhiteColor, capgrpGameState);
   116             AddCaption(cap, cWhiteColor, capgrpGameState);
   116             SendStat(siGameResult, shortstring(s));
   117             if SendGameResultOn then
       
   118                 SendStat(siGameResult, shortstring(s));
   117             AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)
   119             AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)
   118             end;
   120             end;
   119     SendStats;
   121     SendStats;
   120     end;
   122     end;
   121 TeamsGameOver:= true;
   123 TeamsGameOver:= true;