hedgewars/uStats.pas
branchwebgl
changeset 8026 4a4f21070479
parent 7977 4987f6f83cdf
child 8833 c13ebed437cb
equal deleted inserted replaced
8023:7de85783b823 8026:4a4f21070479
   136     else if isTurnSkipped then
   136     else if isTurnSkipped then
   137         begin
   137         begin
   138         AddVoice(sndBoring, PreviousTeam^.voicepack);
   138         AddVoice(sndBoring, PreviousTeam^.voicepack);
   139         AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
   139         AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
   140         end
   140         end
   141     else if (not PlacingHogs) then
   141     else if not PlacingHogs then
   142         AddVoice(sndCoward, PreviousTeam^.voicepack);
   142         AddVoice(sndCoward, PreviousTeam^.voicepack);
   143     end;
   143     end;
   144 
   144 
   145 
   145 
   146 for t:= 0 to Pred(TeamsCount) do // send even on zero turn
   146 for t:= 0 to Pred(TeamsCount) do // send even on zero turn
   213 winnersClan:= nil;
   213 winnersClan:= nil;
   214 
   214 
   215 for t:= 0 to Pred(TeamsCount) do
   215 for t:= 0 to Pred(TeamsCount) do
   216     with TeamsArray[t]^ do
   216     with TeamsArray[t]^ do
   217     begin
   217     begin
   218         if (not ExtDriven) then
   218         if not ExtDriven then
   219             SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
   219             SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
   220         for i:= 0 to cMaxHHIndex do
   220         for i:= 0 to cMaxHHIndex do
   221             begin
   221             begin
   222             if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
   222             if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
   223                 begin
   223                 begin