hedgewars/uTeams.pas
changeset 14024 03a5d9f0bcc9
parent 13877 8c702a4839ec
child 14034 f9281c294a4c
equal deleted inserted replaced
14023:bbecf663d599 14024:03a5d9f0bcc9
    92         begin // draw
    92         begin // draw
    93         AddCaption(GetEventString(eidRoundDraw), capcolDefault, capgrpGameState);
    93         AddCaption(GetEventString(eidRoundDraw), capcolDefault, capgrpGameState);
    94         if SendGameResultOn then
    94         if SendGameResultOn then
    95             SendStat(siGameResult, shortstring(trmsg[sidDraw]));
    95             SendStat(siGameResult, shortstring(trmsg[sidDraw]));
    96         if PreviousTeam <> nil then
    96         if PreviousTeam <> nil then
    97             AddVoice(sndNutter, PreviousTeam^.voicepack)
    97             AddVoice(sndStupid, PreviousTeam^.voicepack)
    98         else
    98         else
    99             AddVoice(sndNutter, TeamsArray[0]^.voicepack);
    99             AddVoice(sndStupid, TeamsArray[0]^.voicepack);
   100         AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
   100         AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
   101         end
   101         end
   102     else // win
   102     else // win
   103         begin
   103         begin
   104         allWin:= false;
   104         allWin:= false;