hedgewars/uTeams.pas
changeset 10105 8c5fa1d15bd5
parent 10015 4feced261c68
child 10108 c68cf030eded
equal deleted inserted replaced
10104:cb0b750bd8a3 10105:8c5fa1d15bd5
   101             if Flawless then
   101             if Flawless then
   102                 AddVoice(sndFlawless, Teams[0]^.voicepack)
   102                 AddVoice(sndFlawless, Teams[0]^.voicepack)
   103             else
   103             else
   104                 AddVoice(sndVictory, Teams[0]^.voicepack);
   104                 AddVoice(sndVictory, Teams[0]^.voicepack);
   105 
   105 
   106             AddCaption(s, cWhiteColor, capgrpGameState);
   106             AddCaption(Str2PChar(s), cWhiteColor, capgrpGameState);
   107             SendStat(siGameResult, s);
   107             SendStat(siGameResult, s);
   108             AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)
   108             AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)
   109             end;
   109             end;
   110     SendStats;
   110     SendStats;
   111     end;
   111     end;
   332         GetRandom(2); // needed to avoid extdriven desync
   332         GetRandom(2); // needed to avoid extdriven desync
   333         AddVoice(sndYesSir, CurrentTeam^.voicepack);
   333         AddVoice(sndYesSir, CurrentTeam^.voicepack);
   334         end;
   334         end;
   335     if cHedgehogTurnTime < 1000000 then
   335     if cHedgehogTurnTime < 1000000 then
   336         ReadyTimeLeft:= cReadyDelay;
   336         ReadyTimeLeft:= cReadyDelay;
   337     AddCaption(Format(shortstring(trmsg[sidReady]), CurrentTeam^.TeamName), cWhiteColor, capgrpGameState)
   337     AddCaption(FormatPChar(trmsg[sidReady], Str2PChar(CurrentTeam^.TeamName)), cWhiteColor, capgrpGameState)
   338     end
   338     end
   339 else
   339 else
   340     begin
   340     begin
   341     if TurnTimeLeft > 0 then
   341     if TurnTimeLeft > 0 then
   342         begin
   342         begin