hedgewars/uGears.pas
changeset 10105 8c5fa1d15bd5
parent 10078 8572d1f8b2f0
child 10108 c68cf030eded
equal deleted inserted replaced
10104:cb0b750bd8a3 10105:8c5fa1d15bd5
   329                     i:= cSuddenDTurns - TotalRounds;
   329                     i:= cSuddenDTurns - TotalRounds;
   330                     s:= inttostr(i);
   330                     s:= inttostr(i);
   331                     if i = 1 then
   331                     if i = 1 then
   332                         AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)
   332                         AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)
   333                     else if (i = 2) or ((i > 0) and ((i mod 50 = 0) or ((i <= 25) and (i mod 5 = 0)))) then
   333                     else if (i = 2) or ((i > 0) and ((i mod 50 = 0) or ((i <= 25) and (i mod 5 = 0)))) then
   334                         AddCaption(Format(trmsg[sidRoundsSD], s), cWhiteColor, capgrpGameState);
   334                         AddCaption(FormatPChar(trmsg[sidRoundsSD], Str2PChar(s)), cWhiteColor, capgrpGameState);
   335                     end;
   335                     end;
   336                 end;
   336                 end;
   337             if bBetweenTurns
   337             if bBetweenTurns
   338             or isInMultiShoot
   338             or isInMultiShoot
   339             or (TotalRounds = -1) then
   339             or (TotalRounds = -1) then