hedgewars/uTeams.pas
changeset 13760 72a8c0d63d80
parent 13758 b1177e9c9ee9
child 13761 6fd56a26e8b8
equal deleted inserted replaced
13759:bef952489e0e 13760:72a8c0d63d80
    87     if AliveCount = 0 then
    87     if AliveCount = 0 then
    88         begin // draw
    88         begin // draw
    89         AddCaption(GetEventString(eidRoundDraw), capcolDefault, capgrpGameState);
    89         AddCaption(GetEventString(eidRoundDraw), capcolDefault, capgrpGameState);
    90         if SendGameResultOn then
    90         if SendGameResultOn then
    91             SendStat(siGameResult, shortstring(trmsg[sidDraw]));
    91             SendStat(siGameResult, shortstring(trmsg[sidDraw]));
       
    92         if PreviousTeam <> nil then
       
    93             AddVoice(sndNutter, PreviousTeam^.voicepack)
       
    94         else
       
    95             AddVoice(sndNutter, TeamsArray[0]^.voicepack);
    92         AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
    96         AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
    93         end
    97         end
    94     else // win
    98     else // win
    95         begin
    99         begin
    96         with AliveClan^ do
   100         with AliveClan^ do